[movitz-cvs] CVS update: movitz/image.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

2 Sep 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv17309
Modified Files:
    image.lisp 
Log Message:
Removed PF push-current-values, because it's incompatible with the
stack discipline. Also, changed the semantics of PF pop-current-values
quite a bit.
Date: Thu Sep  2 11:21:14 2004
Author: ffjeld
Index: movitz/image.lisp
diff -u movitz/image.lisp:1.65 movitz/image.lisp:1.66

--- movitz/image.lisp:1.65	Wed Aug 18 11:15:14 2004
+++ movitz/image.lisp	Thu Sep  2 11:21:14 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.65 2004/08/18 09:15:14 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.66 2004/09/02 09:21:14 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -105,25 +105,6 @@
     :map-binary-write 'movitz-intern-code-vector
     :map-binary-read-delayed 'movitz-word-code-vector
     :binary-tag :primitive-function)
-   ;; various constants
-   (push-current-values
-    :binary-type code-vector-word
-    :initform nil
-    :map-binary-write 'movitz-intern-code-vector
-    :map-binary-read-delayed 'movitz-word-code-vector
-    :binary-tag :primitive-function)
-   (pop-current-values
-    :binary-type code-vector-word
-    :initform nil
-    :map-binary-write 'movitz-intern-code-vector
-    :map-binary-read-delayed 'movitz-word-code-vector
-    :binary-tag :primitive-function)
-   ;; function global constants
-;;;   (unbound-function
-;;;    :binary-type word
-;;;    :binary-tag :global-function
-;;;    :map-binary-read-delayed 'movitz-word
-;;;    :map-binary-write 'movitz-intern)   
    ;; per thread parameters
    (dynamic-env
     :binary-type lu32
@@ -174,6 +155,12 @@
     :map-binary-write 'movitz-read-and-intern
     :initform 'muerte::unbound)
    ;; primitive functions global constants
+   (pop-current-values
+    :binary-type code-vector-word
+    :initform nil
+    :map-binary-write 'movitz-intern-code-vector
+    :map-binary-read-delayed 'movitz-word-code-vector
+    :binary-tag :primitive-function)
    (dynamic-find-binding
     :map-binary-write 'movitz-intern-code-vector
     :binary-tag :primitive-function

    