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

[Frode Vatvedt Fjeld]

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

Modified Files:
	movitz.lisp 
Log Message:
Re-arranged many details about *movitz-nil*, movitz-null, and how it
relates to the cons and symbol binary-classes etc. This should now be
slightly less messy, and slightly more efficient.

Date: Wed Jul 28 17:13:09 2004
Author: ffjeld

Index: movitz/movitz.lisp
diff -u movitz/movitz.lisp:1.8 movitz/movitz.lisp:1.9
--- movitz/movitz.lisp:1.8	Wed Jul 21 15:28:48 2004
+++ movitz/movitz.lisp	Wed Jul 28 17:13:09 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Oct  9 20:52:58 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: movitz.lisp,v 1.8 2004/07/21 22:28:48 ffjeld Exp $
+;;;; $Id: movitz.lisp,v 1.9 2004/07/29 00:13:09 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -19,6 +19,9 @@
 (defvar *ii* nil)			; for interactive use.
 
 (defvar *image*)
+
+(define-symbol-macro *movitz-nil*
+    (image-nil-object *image*))
 
 (define-unsigned lu16 2 :little-endian)
 (define-unsigned lu32 4 :little-endian)