From 7bd660a8c61540adcd0998122d89b3692cd127f8 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 30 Apr 2012 01:11:28 +0000 Subject: * 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. --- src/lisp/core.lisp.in | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/lisp') 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) -- cgit v1.2.3