Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv18123

Modified Files: basic-macros.lisp Log Message: Fix error condition when funcalling a non-function.

--- /project/movitz/cvsroot/movitz/losp/muerte/basic-macros.lisp 2007/02/22 21:03:10 1.69 +++ /project/movitz/cvsroot/movitz/losp/muerte/basic-macros.lisp 2007/03/26 21:11:40 1.70 @@ -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.69 2007/02/22 21:03:10 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.70 2007/03/26 21:11:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -755,6 +755,7 @@ not-symbol (:cmpb 7 :cl) (:jne '(:sub-program (not-funobj) + (:movb 1 :cl) (:int 69))) (:cmpb ,(movitz:tag :funobj) (:edx ,movitz:+other-type-offset+)) (:jne 'not-funobj) @@ -805,6 +806,7 @@ (:leal (:edx -6) :ecx) (:testb 7 :cl) (:jne '(:sub-program (not-funobj) + (:movb 1 :cl) (:int 69))) (:cmpb ,(movitz::tag :funobj) (:edx ,movitz:+other-type-offset+)) (:jne 'not-funobj) @@ -827,6 +829,7 @@ not-symbol (:cmpb 7 :cl) (:jnz '(:sub-program (not-funobj) + (:movb 1 :cl) (:int 69))) (:cmpb ,(movitz::tag :funobj) (:edx ,movitz:+other-type-offset+)) (:jne 'not-funobj) @@ -849,6 +852,7 @@ not-symbol (:cmpb 7 :cl) (:jnz '(:sub-program (not-funobj) + (:movb 1 :cl) (:int 69))) (:cmpb ,(movitz::tag :funobj) (:edx ,movitz:+other-type-offset+)) (:jne 'not-funobj)