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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
new-unbound-value.

Date: Tue Nov 23 17:10:39 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.80 movitz/image.lisp:1.81
--- movitz/image.lisp:1.80	Thu Nov 18 18:58:41 2004
+++ movitz/image.lisp	Tue Nov 23 17:10:38 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.80 2004/11/18 17:58:41 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.81 2004/11/23 16:10:38 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -149,11 +149,11 @@
     :binary-type movitz-symbol
     :reader movitz-run-time-context-null-symbol
     :initarg :null-symbol)
-   (unbound-value
-    :binary-type word
-    :map-binary-read-delayed 'movitz-word
-    :map-binary-write 'movitz-read-and-intern
-    :initform 'muerte::unbound)
+   (new-unbound-value
+    :binary-type lu32
+;;;    :map-binary-read-delayed 'movitz-word
+;;;    :map-binary-write 'movitz-read-and-intern
+    :initform #x7fffffff)
    ;; primitive functions global constants
    (pop-current-values
     :binary-type code-vector-word
@@ -420,7 +420,7 @@
     :initform (make-segment-descriptor))
    (segment-descriptor-global-code	; 1: true flat code segment
     :binary-type segment-descriptor
-    :initform (make-segment-descriptor :base 0 :limit #xfffff :type 10 :dpl 0
+    :initform (make-segment-descriptor :base 0 :limit #xfffff :type 14 :dpl 0
 				       :flags '(s p d/b g)))
    (segment-descriptor-global-data	; 2: true flat data segment
     :binary-type segment-descriptor
@@ -626,7 +626,7 @@
 (defun unbound-value ()
   (declare (special *image*))
   (slot-value (image-run-time-context *image*)
-	      'unbound-value))
+	      'new-unbound-value))
 
 (defun edi-offset ()
   (declare (special *image*))