diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
| commit | 5a03f408233bf4e17759ace9a83dcf6012f72dcc (patch) | |
| tree | 5af46b5ebca646527bb7ec115cfaaf68d5e00d23 /src/lisp | |
| parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
| download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz | |
Cleanup.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 98461fec..ba19d87f 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -187,6 +187,7 @@ "ident?" ;; numeric support + "double" "%fNaN?" )) @@ -1347,6 +1348,10 @@ #+:ecl `(ext:float-nan-p ,x) #-(or :sbcl :ecl) `(/= ,x ,x)) +;; convert an integer to double-float +(defmacro |double| (x) + `(float ,x 1.0d0)) + ;; ;; -*- Native Datatype correspondance -*- ;; |