[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	primitive-functions.lisp 
Log Message:
Re-arranged complicated-class-of so as to do the "other" types first,
since the classes with their own tags are likely to be caught before
this function is ever called. Also, make sure that (class-of "foo")
returns the string class, not vector.

Date: Sun Mar 28 20:09:46 2004
Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp
diff -u movitz/losp/muerte/primitive-functions.lisp:1.5 movitz/losp/muerte/primitive-functions.lisp:1.6
--- movitz/losp/muerte/primitive-functions.lisp:1.5	Thu Mar 18 04:21:17 2004
+++ movitz/losp/muerte/primitive-functions.lisp	Sun Mar 28 20:09:46 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Oct  2 21:02:18 2001
 ;;;;                
-;;;; $Id: primitive-functions.lisp,v 1.5 2004/03/18 09:21:17 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.6 2004/03/29 01:09:46 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -577,22 +577,12 @@
      (movitz-accessor object movitz-std-instance class))
     (standard-gf-instance
      (movitz-accessor object movitz-funobj-standard-gf standard-gf-class))
-    (null
-     (find-class 'null))
-    (cons
-     (find-class 'cons))
-    (symbol
-     (find-class 'symbol))
-    (fixnum
-     (find-class 'fixnum))
+    (string
+     (find-class 'string))
     (vector
      (find-class 'vector))
     (compiled-function
      (find-class 'function))
-;;;    (hash-table
-;;;     (find-class 'hash-table))
-;;;    (package
-;;;     (find-class 'package))
     (structure-object
      (find-class (structure-object-name object)))
     (character
@@ -601,6 +591,14 @@
      (find-class 'basic-restart))
     (run-time-context
      (find-class 'run-time-context))
+    (null
+     (find-class 'null))
+    (cons
+     (find-class 'cons))
+    (symbol
+     (find-class 'symbol))
+    (fixnum
+     (find-class 'fixnum))
     (tag6
      (error "Don't know the class of ~Z with other-type #x~X."
 	    object (with-inline-assembly (:returns :untagged-fixnum-ecx)