[Openmcl-devel] MOP support and porting UncommonSQL

Ram Krishnan rkris at kriyative.net
Mon Mar 17 05:41:41 UTC 2003


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



More information about the Openmcl-devel mailing list