diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index b124403f..c871dc8c 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -343,18 +343,8 @@ (declare (ignore sd)) (macroexpand `(,arg ,item))) -; 8.0 Operator Definition and Transformation - ; 8.1 Definition and Transformation Operations -(defun COMP370 (fnlist) - (cond ((atom (car fnlist)) (list (COMPILE1 fnlist))) - (t (MAPCAR #'(lambda (x) (COMPILE1 x)) fnlist)))) - -(defun |compileLispDefinition| (name def) - (when *COMP370-APPLY* - (funcall *COMP370-APPLY* name def))) - (defun COMPILE1 (fn) (let* (nargs (fname (car fn)) |