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

Modified Files:
	los-closette.lisp 
Log Message:
Changed the init-form for *standard-effective-slot-readers* from
(vector ..) to #(..), so that it's more easily recognized as a
constant form.

Date: Wed Apr 14 18:01:30 2004
Author: ffjeld

Index: movitz/losp/muerte/los-closette.lisp
diff -u movitz/losp/muerte/los-closette.lisp:1.6 movitz/losp/muerte/los-closette.lisp:1.7
--- movitz/losp/muerte/los-closette.lisp:1.6	Mon Mar 22 11:38:10 2004
+++ movitz/losp/muerte/los-closette.lisp	Wed Apr 14 18:01:30 2004
@@ -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.6 2004/03/22 16:38:10 ffjeld Exp $
+;;;; $Id: los-closette.lisp,v 1.7 2004/04/14 22:01:30 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -912,14 +912,14 @@
        done)))
 
 (defparameter *standard-effective-slot-readers*
-    (vector 'standard-effective-slot-reader%0
-	    'standard-effective-slot-reader%1
-	    'standard-effective-slot-reader%2
-	    'standard-effective-slot-reader%3
-	    'standard-effective-slot-reader%4
-	    'standard-effective-slot-reader%5
-	    'standard-effective-slot-reader%6
-	    'standard-effective-slot-reader%7)
+    #(standard-effective-slot-reader%0
+      standard-effective-slot-reader%1
+      standard-effective-slot-reader%2
+      standard-effective-slot-reader%3
+      standard-effective-slot-reader%4
+      standard-effective-slot-reader%5
+      standard-effective-slot-reader%6
+      standard-effective-slot-reader%7)
   "The element at position i is a standard-reader
 for a slot at position i.")