Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24308
Modified Files: primitive-functions.lisp Log Message: Minor edits.
Date: Fri Apr 16 19:35:29 2004 Author: ffjeld
Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.12 movitz/losp/muerte/primitive-functions.lisp:1.13 --- movitz/losp/muerte/primitive-functions.lisp:1.12 Thu Apr 15 09:07:24 2004 +++ movitz/losp/muerte/primitive-functions.lisp Fri Apr 16 19:35:29 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.12 2004/04/15 13:07:24 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.13 2004/04/16 23:35:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -601,8 +601,6 @@ (find-class (structure-object-name object))) (character (find-class 'character)) - (basic-restart - (find-class 'basic-restart)) (run-time-context (find-class 'run-time-context)) (null @@ -613,6 +611,8 @@ (find-class 'symbol)) (fixnum (find-class 'fixnum)) + (basic-restart + (find-class 'basic-restart)) (tag6 (error "Don't know the class of ~Z with other-type #x~X." object (with-inline-assembly (:returns :untagged-fixnum-ecx)