diff options
Diffstat (limited to 'src/interp/spad.lisp')
| -rw-r--r-- | src/interp/spad.lisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index c2008754..1f8b84b0 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -75,7 +75,6 @@ (defvar |$kernelProtect| NIL "") (defvar |$HiFiAccess| nil "if true maintain history file") (defvar |$mapReturnTypes| nil) -(defvar /TRACENAMES NIL) (defvar INPUTSTREAM t "bogus initialization for now") @@ -300,13 +299,6 @@ (if (zerop y) (truncate 1 Y) (multiple-value-call #'cons (TRUNCATE X Y)))) -(defmacro APPEND2 (x y) `(append ,x ,y)) - -(defmacro |float| (x &optional (y 0.0d0)) `(float ,x ,y)) - -(defun |makeSF| (mantissa exponent) - (|float| (/ mantissa (expt 2 (- exponent))))) - (define-function 'list1 #'list) (define-function '|not| #'NOT) |