[movitz-cvs] CVS update: movitz/losp/muerte/los-closette.lisp

[Frode Vatvedt Fjeld]

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