[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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)