diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/c-util.boot | 5 | ||||
| -rw-r--r-- | src/interp/lisp-backend.boot | 4 | ||||
| -rw-r--r-- | src/interp/vmlisp.lisp | 10 |
3 files changed, 9 insertions, 10 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 38a24387..82c7c8ca 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1822,6 +1822,11 @@ compileQuietly fn == +COMP370 x == + first x is [.,:.] => [COMPILE1 y for y in x] + [COMPILE1 x] + + --% --% Compile Time operation lookup for the benefit of domain inlining. --% diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 4ad86732..69c30700 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -756,3 +756,7 @@ expandToVMForm x == eval x == EVAL expandToVMForm x + +compileLispDefinition(name,def) == + _*COMP370_-APPLY_* ~= nil => apply(_*COMP370_-APPLY_*,name,def,nil) + nil 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)) |