From a532d9e78207b92f9f89b1ec45de318780895492 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 1 May 2012 10:07:40 +0000 Subject: * interp/vmlisp.lisp (COMP370): Move to c-util.boot (compileLispDefinition): Move to lisp-backend.boot. --- src/ChangeLog | 5 +++++ src/interp/c-util.boot | 5 +++++ src/interp/lisp-backend.boot | 4 ++++ src/interp/vmlisp.lisp | 10 ---------- 4 files changed, 14 insertions(+), 10 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index bade6e90..68bae94d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2012-05-01 Gabriel Dos Reis + + * interp/vmlisp.lisp (COMP370): Move to c-util.boot + (compileLispDefinition): Move to lisp-backend.boot. + 2012-05-01 Gabriel Dos Reis * interp/i-special.boot (interpREPEAT): Use CATCH directly. 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)) -- cgit v1.2.3