[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Renamed dynamic-load to dynamic-variable-lookup, and dynamic-store to
dynamic-variable-store.

Date: Wed Nov 17 14:32:47 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.106 movitz/compiler.lisp:1.107
--- movitz/compiler.lisp:1.106	Tue Nov 16 00:08:57 2004
+++ movitz/compiler.lisp	Wed Nov 17 14:32:46 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.106 2004/11/15 23:08:57 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.107 2004/11/17 13:32:46 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -5602,7 +5602,7 @@
 	  :modifies nil
 	  :final-form form
 	  :code `((:load-constant ,form :eax)
-		  (:call (:edi ,(global-constant-offset 'dynamic-load))))))
+		  (:call (:edi ,(global-constant-offset 'dynamic-variable-lookup))))))
        (t (check-type binding dynamic-binding)
 	  (compiler-values ()
 	    :returns :eax
@@ -5610,7 +5610,7 @@
 	    :modifies nil
 	    :final-form form
 	    :code `((:load-constant ,form :eax)
-		    (:call (:edi ,(global-constant-offset 'dynamic-load))))))))))
+		    (:call (:edi ,(global-constant-offset 'dynamic-variable-lookup))))))))))
 
 (define-compiler compile-lambda-form (&form form)
   "3.1.2.2.4 Lambda Forms"