Changeset 77f7b1f78be288e93fd1ea1c4061c455b161316d
- Timestamp:
- 06/15/10 10:38:21 (3 years ago)
- Author:
- Raymond Toy <toy.raymond@…>
- Children:
- 0fed12363b26f320f84ce2465ee1e6a4a15b4fc2
- Parents:
- b0c8ee213ee9d8db27e89e0699cc500e362a5087
- git-committer:
- Raymond Toy <toy.raymond@…> (06/15/10 10:38:21)
- Message:
-
o Use arrays if we're not running with cmucl.
- Files:
-
Legend:
- Unmodified
- Added
- Removed
-
|
r93c7ff
|
r77f7b1
|
|
| 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)) |