aboutsummaryrefslogtreecommitdiff
path: root/src/lisp/core.lisp.in
diff options
context:
space:
mode:
Diffstat (limited to 'src/lisp/core.lisp.in')
-rw-r--r--src/lisp/core.lisp.in11
1 files changed, 11 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 87155ec3..64dd3a7d 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -183,6 +183,9 @@
"bootImport"
"CONCAT"
"$EditorProgram"
+
+ ;; numeric support
+ "%fNaN?"
))
(in-package "AxiomCore")
@@ -1325,6 +1328,14 @@
(pushnew #'shoe-provide-module sb-ext:*module-provider-functions*))
;;
+;; -*-* Numerics support -*-
+;;
+(defmacro |%fNaN?| (x)
+ #+:sbcl `(sb-ext:float-nan-p ,x)
+ #+:ecl `(ext:float-nan-p ,x)
+ #-(or :sbcl :ecl) `(/= ,x ,x))
+
+;;
;; -*- Native Datatype correspondance -*-
;;