[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv7432

Modified Files:
	basic-macros.lisp 
Log Message:
Fixed boundp to accept nil as argument.

Date: Tue Mar  1 00:38:05 2005
Author: ffjeld

Index: movitz/losp/muerte/basic-macros.lisp
diff -u movitz/losp/muerte/basic-macros.lisp:1.55 movitz/losp/muerte/basic-macros.lisp:1.56
--- movitz/losp/muerte/basic-macros.lisp:1.55	Fri Feb 25 08:59:04 2005
+++ movitz/losp/muerte/basic-macros.lisp	Tue Mar  1 00:38:03 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: basic-macros.lisp,v 1.55 2005/02/25 07:59:04 ffjeld Exp $
+;;;; $Id: basic-macros.lisp,v 1.56 2005/02/28 23:38:03 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1059,8 +1059,8 @@
   `(with-inline-assembly-case ()
      (do-case (t :boolean-zf=0 :labels (boundp-done))
        (:compile-form (:result-mode :ebx) ,symbol)
-       (:leal (:ebx ,(- (movitz:tag :symbol))) :ecx)
-       (:testb 7 :cl)
+       (:leal (:ebx ,(- (movitz:tag :null))) :ecx)
+       (:testb 5 :cl)
        (:jne '(:sub-program () (:int 66)))
        (:call-local-pf dynamic-variable-lookup)
        (:globally (:cmpl (:edi (:edi-offset new-unbound-value)) :eax)))))