[oct-cvs] Oct commit: oct oct.asd - oct-cvs - mailman3.common-lisp.net

15 Jun 2010

Update of /project/oct/cvsroot/oct
In directory cl-net:/tmp/cvs-serv30729
Modified Files:
    oct.asd 
Log Message:
o Use arrays if we're not running with cmucl.

--- /project/oct/cvsroot/oct/oct.asd	2008/07/17 17:26:21	1.3
+++ /project/oct/cvsroot/oct/oct.asd	2010/06/15 17:38:21	1.4
@@ -47,6 +47,15 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
   (setf ext:*inline-expansion-limit* 1600))
+;;
+;; For all Lisps other than CMUCL, oct uses arrays to store the
+;; quad-double values.  This is denoted by the feature :oct-array.
+;; For CMUCL, quad-doubles can be stored in a (complex
+;; double-double-float) object, which is an extension in CMUCL.
+;; If you want CMUCL to use an array too, add :oct-array to *features*.
+#-cmu
+(pushnew :oct-array *features*)
+
 (defpackage #:oct-system
   (:use #:cl))

    