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

Modified Files: los-closette.lisp Log Message: Right you were..

Date: Fri May 6 17:39:44 2005 Author: ffjeld

Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.32 movitz/losp/muerte/los-closette.lisp:1.33 --- movitz/losp/muerte/los-closette.lisp:1.32 Thu May 5 22:51:36 2005 +++ movitz/losp/muerte/los-closette.lisp Fri May 6 17:39:44 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.32 2005/05/05 20:51:36 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.33 2005/05/06 15:39:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -222,7 +222,7 @@ (case class-name ((t) (setf (%run-time-context-slot nil 'the-class-t) class)) (null (setf (%run-time-context-slot nil 'the-class-null) class)) - (symbol (setf (%run-time-context-slot 'nil the-class-symbol) class)) + (symbol (setf (%run-time-context-slot nil 'the-class-symbol) class)) (fixnum (setf (%run-time-context-slot nil 'the-class-fixnum) class)) (cons (setf (%run-time-context-slot nil 'the-class-cons) class))) (let ((map (load-global-constant classes)))