[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp

[Frode Vatvedt Fjeld]

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

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

Date: Wed Nov 17 14:33:34 2004
Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp
diff -u movitz/losp/muerte/primitive-functions.lisp:1.53 movitz/losp/muerte/primitive-functions.lisp:1.54
--- movitz/losp/muerte/primitive-functions.lisp:1.53	Sat Nov 13 17:10:21 2004
+++ movitz/losp/muerte/primitive-functions.lisp	Wed Nov 17 14:33:34 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Oct  2 21:02:18 2001
 ;;;;                
-;;;; $Id: primitive-functions.lisp,v 1.53 2004/11/13 16:10:21 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.54 2004/11/17 13:33:34 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -162,7 +162,7 @@
     ;; Default binding strategy is naive deep binding, so this is a NOP.
     (:ret)))
     
-(define-primitive-function dynamic-load (symbol)
+(define-primitive-function dynamic-variable-lookup (symbol)
   "Load the dynamic value of SYMBOL into EAX."
   (with-inline-assembly (:returns :multiple-values)
     (:locally (:movl (:edi (:edi-offset dynamic-env)) :ecx))
@@ -194,7 +194,7 @@
     (:je '(:sub-program (unbound) (:int 99)))
     (:ret)))
 
-(define-primitive-function dynamic-load-unprotected (symbol)
+(define-primitive-function dynamic-variable-lookup-unbound (symbol)
   "Load the dynamic value of SYMBOL into EAX. If unbound, return unbound-value."
   (with-inline-assembly (:returns :multiple-values)
     (:locally (:movl (:edi (:edi-offset dynamic-env)) :ecx))
@@ -220,7 +220,7 @@
      :movl (:eax (:offset movitz-symbol value)) :eax)
     (:ret)))
 
-(define-primitive-function dynamic-store (symbol value)
+(define-primitive-function dynamic-variable-store (symbol value)
   "Store VALUE (ebx) in the dynamic binding of SYMBOL (eax).
    Preserves EBX and EAX."
   (with-inline-assembly (:returns :multiple-values)