diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/ChangeLog | 5 | ||||
-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 |
4 files changed, 14 insertions, 10 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index bade6e90..68bae94d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2012-05-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/vmlisp.lisp (COMP370): Move to c-util.boot + (compileLispDefinition): Move to lisp-backend.boot. + +2012-05-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/i-special.boot (interpREPEAT): Use CATCH directly. * interp/int-top.boot (intloopSpadProcess): Likewise. * interp/sys-macros.lisp (funcall): Remove. 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)) |