diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-04-30 01:11:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-04-30 01:11:28 +0000 |
| commit | 7bd660a8c61540adcd0998122d89b3692cd127f8 (patch) | |
| tree | 85798a09df87e356b00b70d32b50c211ad861393 /src/lisp | |
| parent | dfbb70cec6fb995540fcfbaf1311b4e5a5858677 (diff) | |
| download | open-axiom-7bd660a8c61540adcd0998122d89b3692cd127f8.tar.gz | |
* lisp/core.lisp.in (fixnum?): New.
* algebra/sex.spad.pamphlet: Use %float? instead of RNUM.
Use %integer? instead of INTP.
* interp/g-timer.boot: Use float? instead of RNUMP.
* interp/i-coerce.boot: Use fixnum? instead of SINTP or SMINTP.
* interp/i-intern.boot: Likewise.
* interp/lisp-backend.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/vmlisp.lisp: Likewise.
(INTP): Remove.
(BINTP): Likewise.
(LESSP): Likewise.
(LINTP): Likewise.
(MAKESTRING): Likewise.
(MAPELT): Likewise.
(NUMP): Likewise.
(RNUMP): Likewise.
(SINTP): Likewise.
(SMINTP): Likewise.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 5fc563c9..27808ad2 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -3,7 +3,7 @@ ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. ;; -;; Copyright (C) 2007-2011, Gabriel Dos Reis. +;; Copyright (C) 2007-2012, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -204,6 +204,7 @@ "ident?" ;; numeric support + "fixnum?" "double" "%fNaN?" )) @@ -1379,6 +1380,9 @@ ;; ;; -*-* Numerics support -*- ;; +(defmacro |fixnum?| (x) + `(typep ,x 'fixnum)) + (defmacro |%fNaN?| (x) #+:sbcl `(sb-ext:float-nan-p ,x) #+:ecl `(ext:float-nan-p ,x) |