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)