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