author | Alan Dipert
<alan@dipert.org> 2020-02-23 21:08:08 UTC |
committer | Alan Dipert
<alan@dipert.org> 2020-02-23 21:08:08 UTC |
parent | 73f9497ac6d6ef3220091b9c82806185793a12ca |
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))