[Openmcl-devel] Re: MOP support and porting UncommonSQL

[Ram Krishnan]

Hello,

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.

Regards,

-ram

On Sunday, March 16, 2003, at 09:41 PM, Ram Krishnan wrote:

> Hello,
>
> 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.
>
> Regards,
>
> -ram
>
> ---
> 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
http://clozure.com/cgi-bin/mailman/listinfo/openmcl-devel