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