diff options
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 -*- ;; |