diff options
Diffstat (limited to 'src/interp/spad.lisp')
-rw-r--r-- | src/interp/spad.lisp | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 2c2a01ee..853fcbc8 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -241,14 +241,8 @@ (defun |sort| (seq spadfn) (sort (copy-seq seq) (function (lambda (x y) (SPADCALL X Y SPADFN))))) -#-Lucid (defun DIVIDE2 (X Y) (multiple-value-call #'cons (TRUNCATE X Y))) -#+Lucid -(defun DIVIDE2 (X Y) - (if (zerop y) (truncate 1 Y) - (multiple-value-call #'cons (TRUNCATE X Y)))) - (define-function '|not| #'NOT) (defun |random| () (random (expt 2 26))) @@ -425,9 +419,7 @@ (defun |hashable| (dom) (memq (|knownEqualPred| dom) - #-Lucid '(EQ EQL EQUAL) - #+Lucid '(EQ EQL EQUAL EQUALP) - )) + '(EQ EQL EQUAL))) ;; simpler interpface to RDEFIOSTREAM (defun RDEFINSTREAM (&rest fn) |