[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

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