Commit 77f7b1f78be288e93fd1ea1c4061c455b161316d

Authored by Raymond Toy
1 parent b0c8ee21

o Use arrays if we're not running with cmucl.

Showing 1 changed file with 9 additions and 0 deletions
... ... @@ -47,6 +47,15 @@
47 47 (eval-when (:load-toplevel :compile-toplevel :execute)
48 48 (setf ext:*inline-expansion-limit* 1600))
49 49  
  50 +;;
  51 +;; For all Lisps other than CMUCL, oct uses arrays to store the
  52 +;; quad-double values. This is denoted by the feature :oct-array.
  53 +;; For CMUCL, quad-doubles can be stored in a (complex
  54 +;; double-double-float) object, which is an extension in CMUCL.
  55 +;; If you want CMUCL to use an array too, add :oct-array to *features*.
  56 +#-cmu
  57 +(pushnew :oct-array *features*)
  58 +
50 59 (defpackage #:oct-system
51 60 (:use #:cl))
52 61  
... ...