Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv30230
Modified Files: storage-types.lisp Log Message: A bit of commenting.
--- /project/movitz/cvsroot/movitz/storage-types.lisp 2008/04/02 20:47:09 1.63 +++ /project/movitz/cvsroot/movitz/storage-types.lisp 2008/04/12 16:26:56 1.64 @@ -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.63 2008/04/02 20:47:09 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.64 2008/04/12 16:26:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -69,9 +69,13 @@ :other 6 :symbol 7
- ;; The lower 3 bits of these are significant in mysterious ways. + ;; The lower 2 bits of these are significant in mysterious ways. + ;; 10: Requires GC parsing. + ;; 00: Requires no GC parsing (all GC-safe lisp-vals). + ;; 11: Illegal/special values :basic-vector #x22 :defstruct #x2a + :basic-restart #x32 :funobj #x3a :bignum #x4a :ratio #x52 @@ -79,9 +83,7 @@ :std-instance #x40 :run-time-context #x62 :illegal #x13 - :infant-object #x23 - :basic-restart #x32 - ) + :infant-object #x23)
(defconstant +fixnum-tags+ '(:even-fixnum :odd-fixnum)) (defparameter +scan-skip-word+ #x00000003)