[Openmcl-devel] Re: MOP support and porting UncommonSQL
rkris at kriyative.net
Mon Mar 17 10:50:32 EST 2003
Just a follow on to my earlier email after having spent a little time
looking at the code for the openmcl CLOS implementation. I realize now
I should have asked a different question, which is whether anyone on
this list is working on a MOP implementation for openmcl. I realize
this is one of the TODO items listed on the openmcl web site but if
anyone has started on it, I'd be interested in helping.
On Sunday, March 16, 2003, at 09:41 PM, Ram Krishnan wrote:
> Firstly, thanks to Gary and all the others who've been doing a
> fantastic job with OpenMCL.
> Has anyone on this list looked at porting UncommonSQL to OpenMCL?
> I started looking at layering UncommonSQL on top of CL-SQL but ran
> into problems with its use of `compute-effective-slot-definition'
> which isn't available in OpenMCL (at least 0.13.4). Is there an
> alternate way to define new slot options in OpenMCL?
> And I've attached a simple patch below for a typo in
> ccl/lib/numbers.lisp in the `ccl' module CVS head.
> Index: lib/numbers.lisp
> RCS file: /usr/local/publiccvs/ccl/lib/numbers.lisp,v
> retrieving revision 1.5
> diff -u -r1.5 numbers.lisp
> --- lib/numbers.lisp 11 Mar 2003 23:30:26 -0000 1.5
> +++ lib/numbers.lisp 17 Mar 2003 05:25:57 -0000
> @@ -645,7 +645,7 @@
> (setq float-powers-of-5 (make-array 23))
> (let ((array float-powers-of-5))
> (dotimes (i 23)
> - (setf (svref array i) (float (expt 5 i) 0,0d0))))
> + (setf (svref array i) (float (expt 5 i) 0.0d0))))
> (setq integer-powers-of-5 (make-array (+ 12 (floor 324 12))))
> (let ((array integer-powers-of-5))
> (dotimes (i 12)
Openmcl-devel mailing list
Openmcl-devel at clozure.com
More information about the Openmcl-devel