<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Hi,<DIV><BR class="khtml-block-placeholder"></DIV><DIV>Below is a patch so that cl-store will work with Digitool's MCL version 5.1 and higher (MCL now shares most of OpenMCL's MOP). BTW, CL-Store is very nice and the documentation is a cut above. I'm highly, and happily, impressed.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Index: package.lisp</DIV><DIV>===================================================================</DIV><DIV>RCS file: /project/cl-store/cvsroot/cl-store/package.lisp,v</DIV><DIV>retrieving revision 1.22</DIV><DIV>diff -u -w -r1.22 package.lisp</DIV><DIV>--- package.lisp 1 Sep 2005 10:24:55 -0000 1.22</DIV><DIV>+++ package.lisp 28 Nov 2005 18:58:12 -0000</DIV><DIV>@@ -94,6 +94,24 @@</DIV><DIV> #:class-slots</DIV><DIV> #:ensure-class)</DIV><DIV> </DIV><DIV>+ #+digitool (:import-from #:ccl</DIV><DIV>+ #:generic-function-name</DIV><DIV>+ #:slot-definition-name</DIV><DIV>+ #:slot-definition-allocation</DIV><DIV>+ #:compute-slots</DIV><DIV>+ #:slot-definition</DIV><DIV>+ #:slot-definition-initform</DIV><DIV>+ #:slot-definition-initargs</DIV><DIV>+ #:slot-definition-name</DIV><DIV>+ #:slot-definition-readers</DIV><DIV>+ #:slot-definition-type</DIV><DIV>+ #:slot-definition-writers</DIV><DIV>+ #:class-direct-default-initargs</DIV><DIV>+ #:class-direct-slots</DIV><DIV>+ #:class-direct-superclasses</DIV><DIV>+ #:class-slots</DIV><DIV>+ #:ensure-class)</DIV><DIV>+ </DIV><DIV> #+(and clisp (not mop)) (:import-from #:clos</DIV><DIV> #:slot-value</DIV><DIV> #:std-compute-slots</DIV><DIV><BR><DIV> <P style="margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px"><BR></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">--<SPAN class="Apple-converted-space"> </SPAN></FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">Gary Warren King</FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">metabang.com</FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica"><A href="http://www.metabang.com">http://www.metabang.com</A>/</FONT></P> <BR class="Apple-interchange-newline"> </DIV><BR></DIV></BODY></HTML>