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/nlib.lisp | |
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/nlib.lisp')
-rw-r--r-- | src/interp/nlib.lisp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index fa788f2a..289fa580 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -35,8 +35,6 @@ (IMPORT-MODULE "macros") (in-package "BOOT") -#+:AKCL (defvar *lisp-bin-filetype* "o") - #+:AKCL (defvar *lisp-source-filetype* "lsp") ;; definition of our stream structure @@ -268,9 +266,8 @@ (rshut nrstream))) filespec) -#+:AKCL (defun recompile-lib-file-if-necessary (lfile) - (let* ((bfile (make-pathname :type *lisp-bin-filetype* :defaults lfile)) + (let* ((bfile (make-pathname :type |$faslType| :defaults lfile)) (bdate (and (probe-file bfile) (file-write-date bfile))) (ldate (and (probe-file lfile) (file-write-date lfile)))) (if ldate @@ -318,7 +315,7 @@ :entrycond (spad-fixed-arg (caar system::arglist)))) (apply #'compile-file fn opts)) (untrace compiler::fast-link-proclaimed-type-p compiler::t1defun))) -#+:CCL +#-:GCL (define-function 'compile-lib-file #'compile-file) ;; (RDROPITEMS filearg keys) don't delete, used in files.spad |