diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-19 05:55:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-19 05:55:35 +0000 |
| commit | d16606080c04bdbc97c6d3d046e17564ca5a5d0c (patch) | |
| tree | 3419ca7e035912254754c476469b8d8976b549ef /src/interp/i-syscmd.boot | |
| parent | f23893b83a0450f8729579f74758e212bf3543b7 (diff) | |
| download | open-axiom-d16606080c04bdbc97c6d3d046e17564ca5a5d0c.tar.gz | |
* interp/trace.boot (untraceDomainLocalOps): Tidy.
* interp/spaderror.lisp (|$quitTag|): Define as constant.
(|$numericFailure|): Likewise.
* interp/spad.lisp: Import "postpar" and "debug".
($): Remove toplevel assignment.
(|traceComp|): Tidy.
(/FLAG): Remove.
(*PROMPT*): Remove.
(|New,ENTRY,1|): Don't declare it. Tidy.
(|New,ENTRY,2|): Fix typo.
* interp/sfsfun-l.lisp (rbesselj): Remove extraneous right
parenthesis.
(rbesseli): Likewise.
* interp/patches.lisp: Import "sockio" instead of "debug"
(|$useInternalHistoryTable|): Don't define here.
(user::start): Remove.
(/RF-1): Declare ECHO-META special.
(READSPADEXPR): Declare IN-STREAM special.
(|$ViewportProcessToWatch|): Declare.
(echo-meta): Don't set here.
* interp/packtran.boot (rePackageTran): Tidy.
* interp/nspadaux.lisp (|$underscoreChar|): Define.
(|$markChoices|): Likewise.
(|$convert2NewCompiler|): Likewise.
(|$AnalyzeOnly|): Likewise.
(|$categoryPart|): Likewise.
(|$insideCAPSULE|): Likewise.
(|$insideEXPORTS|): Likewise.
(|$originalSignature|): Likewise.
(|$insideDEF|): Likewise.
(|$insideTypeExpression|): Likewise.
(|$spadTightList|): Likewise.
(|$PerCentVariableList|): Likewise.
* interp/nrunopt.boot (augmentPredCode): Fix typo.
* interp/nlib.lisp (*LISP-BIN-FILETYPE*): Remove.
(recompile-lib-file-if-necessary): Use $faslType. Unconditionally
define.
* interp/lisplib.boot (compDefineLisplib): Tidy.
* interp/interop.boot (SExprToDName): Tidy.
(oldAxiomPreCategoryDevaluate): Likewise.
(hashNewLookupInCategories): Likewise.
* interp/g-util.boot (get): Adjust return type.
(get0): Likewise.
(get1): Likewise.
(get2): Likewise.
* interp/foam_l.lisp: Tidy.
* interp/define.boot (maybeInsertViewMorphisms): Fix typo.
* interp/debug.lisp (/breakcondition): Declare.
* interp/sys-utility.boot (getSystemModulePath): New.
* interp/daase.lisp (|with|): Remove
(|library|): Move i-syscmd.boot
(initial-getdatabase): Use getSystemModulePath.
(getdatabase): Likewise.
(addoperations): Don't reference package LISP.
(localdatabase): Likewise.
(write-interpdb): Don't declare *print-prett* special.
(write-browsedb): Likewise.
(write-categorydb): Likewise.
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index e51b9261..f0005946 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2154,6 +2154,15 @@ reportCount () == SAY " " sayBrightly [:bright " stream",fillerSpaces(29,'".")," ",$streamCount] +--% )library +library args == + origDir := GET_-CURRENT_-DIRECTORY() + $newConlist := [] + LOCALDATABASE(args,$options) + extendLocalLibdb $newConlist + changeDirectory origDir + TERSYSCOMMAND() + --% )quit pquit() == pquitSpad2Cmd() |