Hi,

first of all thank you very much for solving this terrifying openmcl mop problem!! (What ever it was...)

I have a little fix for openmcl below on current CVS:

src/elephant/controller.lisp

 (defclass store-controller ()
-  ((spec :type (or pathname string)
+  ((spec :type (or pathname string cons)
         :accessor controller-spec
         :initarg :spec
:documentation "Backend create functions should pass in :spec during make-instance")

Openmcl is very picky about setf'ing a slot to a value that is not of declared type... It treats this declaration as an assertion, I would say.

The above fix lets things work for me, but I guess it actually should be:

 +  ((spec :type cons

Will the spec passed to open-store always be a list?

Cheers,

        Kilian Sprotte


_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel

Reply via email to