From a2d6a4d6c6355aca142008543cc78e4139d97576 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 21 May 2012 01:20:25 +0000 Subject: * interp/vmlisp.lisp (EVALANDFILEACTQ): Second argument is no longer optional. Adjust callers. (LAM\,EVALANDFILEACTQ): Likewise. * interp/slam.boot (compQuietly): Use printBackendDecl. * interp/spad.lisp (SPAD): Likewise. * interp/sys-utility.boot (PRINT-AND-EVAL-DEFUN): Likewise. * interp/macros.lisp (SETANDFILE): Move to vmlisp.lisp. * interp/lisp-backend.boot (printBackendStmt): New. (evalAndPrintBackendStmt): Likewise. (printBackendDecl): Likewise. * interp/c-util.boot (registerFunctionReplacement): Use evalAndPrintBackendStmt. (registerRedexForm): Likewise. (proclaimCapsuleFunction): Use printBackendStmt. * interp/Makefile.in (lisp-backend.$(FASLEXT)): Require nlib.$(FASLEXT) --- src/interp/c-util.boot | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/interp/c-util.boot') diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index a24b4539..404bbe9a 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1290,11 +1290,12 @@ clearReplacement name == ++ Register the inlinable form of a function. registerFunctionReplacement(name,body) == - LAM_,EVALANDFILEACTQ ["PUT",MKQ name,MKQ "SPADreplace",quoteMinimally body] + evalAndPrintBackendStmt + ["PUT",MKQ name,MKQ "SPADreplace",quoteMinimally body] ++ Remember the redex form of this function registerRedexForm(name,parms,body) == - LAM_,EVALANDFILEACTQ + evalAndPrintBackendStmt ["PUT",quote name,quote '%redex,quote ['ILAM,parms,body]] ++ Retrieve the redex form of the function `name'. @@ -1461,7 +1462,7 @@ setCompilerOptimizations level == ++ Note that all capsule functions take an additional argument ++ standing for the domain of computation object. proclaimCapsuleFunction(op,sig) == - LAM_,EVALANDFILEACTQ + printBackendStmt ["DECLAIM",["FTYPE", ["FUNCTION",[:[vmType first d for d in tails rest sig],"%Shell"], vmType first sig],op]] where -- cgit v1.2.3