[movitz-cvs] CVS update: movitz/special-operators-cl.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

13 Apr 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv11619
Modified Files:
    special-operators-cl.lisp 
Log Message:
For exception 98, used to signal an undefined function, use EDX rather
than ECX to carry the offending function name, since ECX isn't a GC root.
Date: Tue Apr 13 12:55:09 2004
Author: ffjeld
Index: movitz/special-operators-cl.lisp
diff -u movitz/special-operators-cl.lisp:1.16 movitz/special-operators-cl.lisp:1.17

--- movitz/special-operators-cl.lisp:1.16	Tue Apr 13 09:28:26 2004
+++ movitz/special-operators-cl.lisp	Tue Apr 13 12:55:08 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:31:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: special-operators-cl.lisp,v 1.16 2004/04/13 13:28:26 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.17 2004/04/13 16:55:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -895,7 +895,7 @@
    		 (:globally (:cmpl (:edi (:edi-offset unbound-function))
    				   ,register))
    		 (:je '(:sub-program ()
-				(:load-constant ,movitz-name :ecx)
+				(:load-constant ,movitz-name :edx)
    			(:int 98))))
    	 :modifies nil
    	 :functional-p t

    