[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-serv19896

Modified Files:
	los-closette.lisp 
Log Message:
Changed order of arguments for %run-time-context-slot, new signature
is (context slot-name), where nil may be used as a designator for
(current-run-time-context).

Date: Thu May  5 22:51:38 2005
Author: ffjeld

Index: movitz/losp/muerte/los-closette.lisp
diff -u movitz/losp/muerte/los-closette.lisp:1.31 movitz/losp/muerte/los-closette.lisp:1.32
--- movitz/losp/muerte/los-closette.lisp:1.31	Wed May  4 10:00:42 2005
+++ movitz/losp/muerte/los-closette.lisp	Thu May  5 22:51:36 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.31 2005/05/04 08:00:42 ffjeld Exp $
+;;;; $Id: los-closette.lisp,v 1.32 2005/05/05 20:51:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -220,11 +220,11 @@
   (check-type class (or null class))
   #+ignore
   (case class-name
-    ((t) (setf (%run-time-context-slot 'the-class-t) class))
-    (null (setf (%run-time-context-slot 'the-class-null) class))
-    (symbol (setf (%run-time-context-slot 'the-class-symbol) class))
-    (fixnum (setf (%run-time-context-slot 'the-class-fixnum) class))
-    (cons (setf (%run-time-context-slot 'the-class-cons) class)))
+    ((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))
+    (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)))
     (when (member class-name (svref map 0))
       (setf (svref map (1+ (position class-name (svref map 0))))