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