[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.lisp 
Log Message:
Cleaned up the unbound-value protocol a bit.

Date: Sat Apr 30 23:15:47 2005
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.50 movitz/storage-types.lisp:1.51
--- movitz/storage-types.lisp:1.50	Sun Feb 27 03:31:34 2005
+++ movitz/storage-types.lisp	Sat Apr 30 23:15:43 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: storage-types.lisp,v 1.50 2005/02/27 02:31:34 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.51 2005/04/30 21:15:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -151,11 +151,9 @@
   (ecase type
     (word
      (cond
-       ((eq expr 'unbound)
-	(slot-value (image-run-time-context *image*) 'new-unbound-value))
-       ((typep expr 'movitz-object)
-	(movitz-intern expr))
-       (t (movitz-intern (movitz-read expr)))))
+      ((typep expr 'movitz-object)
+       (movitz-intern expr))
+      (t (movitz-intern (movitz-read expr)))))
     (code-vector-word
      (movitz-intern-code-vector expr))))
 
@@ -533,6 +531,14 @@
 (deftype movitz-string ()
   '(satisfies movitz-stringp))
 
+;;;
+
+(define-binary-class movitz-unbound-value (movitz-immediate-object)
+  ())
+
+(defmethod movitz-intern ((obj movitz-unbound-value) &optional type)
+  (declare (ignore type))
+  #x7fffffff)
 
 ;;; Symbols