diff options
author | dos-reis <gdr@axiomatics.org> | 2014-11-29 01:33:00 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2014-11-29 01:33:00 +0000 |
commit | e9d8e2490f4dff922c0d86f29f31227655cc0633 (patch) | |
tree | e2792e035618a5fe07fb506e2d919e189026cc5f /src/lisp | |
parent | 291cdbd599f6332c6f92612629f1b4cf7fb71308 (diff) | |
download | open-axiom-e9d8e2490f4dff922c0d86f29f31227655cc0633.tar.gz |
Replace direct use of MULTIPLE-VALUE-LIST FLOOR with integerAndFractionalParts
Diffstat (limited to 'src/lisp')
-rw-r--r-- | src/lisp/core.lisp.in | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 61877e29..cd1a6775 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -223,6 +223,7 @@ "fixnum?" "double" "%fNaN?" + "integerAndFractionalParts" )) (in-package "AxiomCore") @@ -1478,6 +1479,9 @@ (defmacro |double| (x) `(float ,x 1.0d0)) +(defmacro |integerAndFractionalParts| (x) + `(multiple-value-list (floor ,x))) + ;; ;; -*- Native Datatype correspondance -*- ;; |