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@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)