[elephant-cvs] CVS update: elephant/src/classes.lisp

[blee at common-lisp.net]

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp.net:/tmp/cvs-serv30423/src

Modified Files:
	classes.lisp 
Log Message:
typo

Date: Thu Sep  2 16:41:25 2004
Author: blee

Index: elephant/src/classes.lisp
diff -u elephant/src/classes.lisp:1.7 elephant/src/classes.lisp:1.8
--- elephant/src/classes.lisp:1.7	Thu Sep  2 09:09:57 2004
+++ elephant/src/classes.lisp	Thu Sep  2 16:41:25 2004
@@ -90,7 +90,7 @@
 		       (return t))))
 	  (loop for slot-def in (class-slots class)
 		unless (initialize-from-initarg slot-def)
-		when (member (slot-definition-name slot-def) persistent-slot-names :test #'eq)
+		when (member (slot-definition-name slot-def) persistent-slot-inits :test #'eq)
 		unless (slot-boundp-using-class class instance slot-def)
 		do
 		(let ((initfun (slot-definition-initfunction slot-def)))