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

Modified Files: basic-macros.lisp Log Message: *** empty log message *** Date: Tue Nov 23 17:02:34 2004 Author: ffjeld

Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.49 movitz/losp/muerte/basic-macros.lisp:1.50 --- movitz/losp/muerte/basic-macros.lisp:1.49 Sat Nov 20 00:07:49 2004 +++ movitz/losp/muerte/basic-macros.lisp Tue Nov 23 17:02:34 2004 @@ -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.49 2004/11/19 23:07:49 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.50 2004/11/23 16:02:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1042,12 +1042,12 @@ (define-compiler-macro boundp (symbol) `(with-inline-assembly-case () (do-case (t :boolean-zf=0 :labels (boundp-done)) - (:compile-form (:result-mode :eax) ,symbol) - (:leal (:eax ,(- (movitz:tag :symbol))) :ecx) + (:compile-form (:result-mode :ebx) ,symbol) + (:leal (:ebx ,(- (movitz:tag :symbol))) :ecx) (:testb 7 :cl) (:jne '(:sub-program () (:int 66))) (:call-local-pf dynamic-variable-lookup) - (:globally (:cmpl (:edi (:edi-offset unbound-value)) :eax))))) + (:globally (:cmpl (:edi (:edi-offset new-unbound-value)) :eax)))))

(defmacro define-global-variable (name init-form &optional docstring) "A global variable will be accessed by ignoring local bindings."