diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 4be165ea..889b3c58 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -265,13 +265,6 @@ (defmacro nump (n) `(numberp ,n)) -(defmacro |opOf| (x) ;(if (atom x) x (qcar x)) - (if (atom x) - `(if (consp ,x) (qcar ,x) ,x) - (let ((xx (gensym))) - `(let ((,xx ,x)) - (if (consp ,xx) (qcar ,xx) ,xx))))) - (defmacro oraddtempdefs (filearg) `(eval-when #+:common-lisp (:compile-toplevel) |