(defmethod change-class :around ((previous standard-object) (new-class
persistent-metaclass) &rest initargs)
(declare (ignorable initargs))
(unless (subtypep (type-of previous) 'persistent)
(error "Standard classes cannot be changed to non-persistent classes in
change-class"))
(call-next-method))
Isn't this supposed to read "persistent" instead of "non-persistent"?
--
My personal blog: http://blog.viridian-project.de/
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
