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

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.lisp 
Log Message:
Fixed tag-name to do the right thing.

Date: Fri Sep 17 13:06:05 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.40 movitz/storage-types.lisp:1.41
--- movitz/storage-types.lisp:1.40	Wed Sep 15 12:22:52 2004
+++ movitz/storage-types.lisp	Fri Sep 17 13:06:05 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.40 2004/09/15 10:22:52 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.41 2004/09/17 11:06:05 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -94,7 +94,8 @@
 	  (ash wide-tag 8)))
 
 (defun tag-name (number)
-  (bt:enum-symbolic-value 'other-type-byte number))
+  (find number '(:even-fixnum :odd-fixnum :cons :character :null :other :symbol)
+	:key 'tag))
 
 (defun extract-tag (word)
   (tag-name (ldb (byte 3 0) word)))