git » jacl.git » commit d797aae

rm integerp

author Alan Dipert
2020-02-23 21:08:08 UTC
committer Alan Dipert
2020-02-23 21:08:08 UTC
parent 73f9497ac6d6ef3220091b9c82806185793a12ca

rm integerp

boot.lisp +0 -4

diff --git a/boot.lisp b/boot.lisp
index 16c001a..04f0019 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -96,10 +96,6 @@
 (defun numberp (x)
   (jacl:%js "typeof ~{} === 'number' ? true : null" x))
 
-(%export 'integerp)
-(defun integerp (x)
-  (jacl:%js "(typeof ~{} === 'number') && (Math.floor(~{}) === ~{}) ? true : null" x x x))
-
 (%export 'stringp)
 (defun stringp (x)
   (jacl:%js "~{} instanceof LispString ? true : null" x))