diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 017b42ed..322ce4ae 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -66,10 +66,6 @@ ;; DEFMACROS - -(defmacro add1 (x) - `(1+ ,x)) - (defmacro applx (&rest args) `(apply ,@args)) @@ -221,9 +217,6 @@ `(,(rcqexp pattern) ,exp) (macro-invalidargs 'qrplq form "form must be updateable."))) -(defmacro qsadd1 (x) - `(the fixnum (1+ (the fixnum ,x)))) - (defmacro qsdifference (x y) `(the fixnum (- (the fixnum ,x) (the fixnum ,y)))) @@ -257,12 +250,6 @@ (defmacro qsplus (x y) `(the fixnum (+ (the fixnum ,x) (the fixnum ,y)))) -(defmacro qssub1 (x) - `(the fixnum (1- (the fixnum ,x)))) - -(defmacro qstimes (x y) - `(the fixnum (* (the fixnum ,x) (the fixnum ,y)))) - (defmacro qszerop (x) `(zerop (the fixnum ,x))) |