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*))