From 049fc29643eef2e73755317c7ef0d3bd57e40419 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 29 May 2013 01:43:22 +0000 Subject: Remove Lispy junks --- src/interp/c-util.boot | 2 +- src/interp/define.boot | 2 +- src/interp/lisplib.boot | 18 +++++++++--------- src/interp/profile.boot | 2 +- src/interp/spad.lisp | 1 - src/interp/sys-utility.boot | 4 ++-- src/interp/vmlisp.lisp | 13 ------------- 7 files changed, 14 insertions(+), 28 deletions(-) (limited to 'src') diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index af95339b..50b70484 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -196,7 +196,7 @@ macro dbUsedEntities db == macro dbEntityCount db == rest dbEntityBuffer db -macro dbOutputStream db == +macro dbLibstream db == cdOutput dbCompilerData db ++ Return the existential substitution of `db'. diff --git a/src/interp/define.boot b/src/interp/define.boot index db416e94..464e8f00 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1553,7 +1553,7 @@ compDefineFunctor1(db,df is ['DEF,form,signature,body],m,$e,$formalArgList) == --either lookupComplete (for forgetful guys) or lookupIncomplete $NRTslot1PredicateList := [simpBool x for x in $NRTslot1PredicateList] - LAM_,FILEACTQ('loadTimeStuff, + printBackendDecl('loadTimeStuff, ['MAKEPROP,MKQ $op,''infovec,getInfovecCode(db,$e)]) $lisplibOperationAlist:= operationAlist [fun,['Mapping,:signature'],originale] diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index c954e61a..1dd83d18 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -422,7 +422,7 @@ compDefineLisplib(db,df:=["DEF",[op,:.],:.],m,e,fal,fn) == sayMSG ['" finalizing ",$spadLibFT,:bright libName] ok := finalizeLisplib(db,libName) finally - RSHUT dbOutputStream db + RSHUT dbLibstream db if ok then lisplibDoRename(libName) filearg := makeFullFilePath [libName,$spadLibFT,nil] RPACKFILE filearg @@ -447,8 +447,8 @@ compileDocumentation(ctor,libName) == initializeLisplib(db,libName) == removeFile makeFullFilePath [libName,'ERRORLIB,nil] resetErrorCount() - dbOutputStream(db) := writeLib(libName,'ERRORLIB) - addCompilerOption('FILE,dbOutputStream db) + dbLibstream(db) := writeLib(libName,'ERRORLIB) + addCompilerOption('FILE,dbLibstream db) mkCtorDBForm db == ['constructorDB,quote dbConstructor db] @@ -456,14 +456,14 @@ mkCtorDBForm db == writeInfo(db,info,key,prop) == if info ~= nil then insn := ['%store,[prop,mkCtorDBForm db],quote info] - LAM_,FILEACTQ(key,expandToVMForm insn) - lisplibWrite(symbolName key,info,dbOutputStream db) + printBackendDecl(key,expandToVMForm insn) + lisplibWrite(symbolName key,info,dbLibstream db) ++ Like writeInfo, but only write to the load unit. writeLoadInfo(db,info,key,prop) == info = nil => nil insn := ['%store,[prop,mkCtorDBForm db],info] - LAM_,FILEACTQ(key,expandToVMForm insn) + printBackendDecl(key,expandToVMForm insn) writeTemplate db == dbConstructorKind db = 'category => nil @@ -536,8 +536,8 @@ finalizeLisplib(db,libName) == -- to the right-hand sides (the definition) for category constructors if dbConstructorKind db = 'category then writeCategory db - lisplibWrite('"sourceFile",dbSourceFile db,dbOutputStream db) - lisplibWrite('"modemaps",dbModemaps db,dbOutputStream db) + lisplibWrite('"sourceFile",dbSourceFile db,dbLibstream db) + lisplibWrite('"modemaps",dbModemaps db,dbLibstream db) opsAndAtts := dbConstructorKind db = 'category => getCategoryOpsAndAtts db getFunctorOpsAndAtts db @@ -554,7 +554,7 @@ finalizeLisplib(db,libName) == writeAncestors db if not $bootStrapMode then lisplibWrite('"documentation", - finalizeDocumentation dbConstructor db,dbOutputStream db) + finalizeDocumentation dbConstructor db,dbLibstream db) if $profileCompiler then profileWrite db leaveIfErrors(libName,dbConstructorKind db) true diff --git a/src/interp/profile.boot b/src/interp/profile.boot index 74aeb9f1..ff6577a9 100644 --- a/src/interp/profile.boot +++ b/src/interp/profile.boot @@ -41,7 +41,7 @@ namespace BOOT $profileAlist := nil profileWrite db == --called from finalizeLisplib - outStream := MAKE_-OUTSTREAM strconc(libDirname dbOutputStream db,'"/info") + outStream := MAKE_-OUTSTREAM strconc(libDirname dbLibstream db,'"/info") SETQ(_*PRINT_-PRETTY_*, true) PRINT_-FULL(profileTran $profileAlist,outStream) SHUT outStream diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 56c1cc80..4e8eab08 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -67,7 +67,6 @@ (defun spad (ifile &aux (*comp370-apply* (function |printBackendDecl|)) - (*fileactq-apply* (function |printBackendDecl|)) ($SPAD T) (|$compilerOptions| nil) (|$editFile| ifile) diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index a08d8715..3ad86d9e 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -407,12 +407,12 @@ macro constructorDB ctor == --% structure %Libstream == - Record(mode: %IOMode, dir: %Pathname,tbl: %Thing, st: %Stream) + Record(mode: %IOMode, dir: %Pathname,tbl: %Thing, idxst: %Stream) with libIOMode == (.mode) libDirname == (.dir) libIndexTable == (.tbl) - libIndexStream == (.st) + libIndexStream == (.idxst) makeLibstream(m,p,idx==nil,st==nil) == mk%Libstream(m,p,idx,st) diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 40bd2bd5..0e7b339a 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -55,8 +55,6 @@ (defvar *embedded-functions* nil) -(defvar *fileactq-apply* nil "function to apply in fileactq") - (defvar macerrorcount 0 "Put some documentation in here someday") (defvar *read-place-holder* (make-symbol "%.EOF") @@ -208,13 +206,6 @@ (defmacro rvecp (v) `(typep ,v '(vector float))) -(defmacro setandfileq (id item) - `(eval-when - #+:common-lisp (:load-toplevel :execute) - #-:common-lisp (eval load) - (setq ,id ,item) - (lam\,fileactq ',id (list 'setq ',id (list 'quote ,id))))) - (defmacro setqp (&whole form pattern exp) `(,(dcqexp pattern '=) ,exp)) @@ -1152,10 +1143,6 @@ ; 99.0 Ancient Stuff We Decided To Keep -(defun LAM\,FILEACTQ (name form) - (if *FILEACTQ-APPLY* - (FUNCALL *FILEACTQ-APPLY* name form))) - (defun PLACEP (item) (eq item *read-place-holder*)) (defun VMREAD (&optional (st |$InputStream|) (eofval *read-place-holder*)) (read st nil eofval)) -- cgit v1.2.3