Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv20832 Modified Files: compiler-types.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:12:49 2004 Author: ffjeld Index: movitz/compiler-types.lisp diff -u movitz/compiler-types.lisp:1.18 movitz/compiler-types.lisp:1.19 --- movitz/compiler-types.lisp:1.18 Fri Jul 9 09:10:26 2004 +++ movitz/compiler-types.lisp Wed Jul 28 17:12:48 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Wed Sep 10 00:40:07 2003 ;;;; -;;;; $Id: compiler-types.lisp,v 1.18 2004/07/09 16:10:26 ffjeld Exp $ +;;;; $Id: compiler-types.lisp,v 1.19 2004/07/29 00:12:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -351,7 +351,7 @@ (let ((x (or (= -1 code) (and (member x members :test #'movitz-eql) t) (cond - ((typep x 'movitz-nil) + ((typep x 'movitz-null) (type-code-p 'symbol code)) ((basic-typep x 'fixnum) (or (type-code-p 'integer code)