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

Modified Files: storage-types.lisp Log Message: The wide-tag :infant-object should _not_ have the same low-tag as cons or null.

Date: Mon Mar 29 09:35:17 2004 Author: ffjeld

Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.14 movitz/storage-types.lisp:1.15 --- movitz/storage-types.lisp:1.14 Fri Mar 26 08:53:06 2004 +++ movitz/storage-types.lisp Mon Mar 29 09:35:17 2004 @@ -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.14 2004/03/26 13:53:06 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.15 2004/03/29 14:35:17 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -72,8 +72,8 @@ :funobj #x3a :std-instance #x40 :run-time-context #x50 - :infant-object #x65 :illegal #x13 + :infant-object #x23

;; :simple-vector #x20 ;; :character-vector