diff options
author | dos-reis <gdr@axiomatics.org> | 2011-11-13 15:49:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-11-13 15:49:18 +0000 |
commit | 4d0c8ae73e443bbfae3793a1313e0e5c5cf0c6a7 (patch) | |
tree | 61036dbbde4d9173acb1f5b5ba7acacc943a17dc /src/interp/daase.lisp | |
parent | 6c1c0bcb2816b92639a2a1e55f66504ae712d9d1 (diff) | |
download | open-axiom-4d0c8ae73e443bbfae3793a1313e0e5c5cf0c6a7.tar.gz |
* interp/sys-driver.boot (initializeDatabases): Honor --initial-db.
(initializeGlobalState): Don't bind $compileDefaultsOnly.
* interp/sys-globals.boot ($compileDefaultsOnly): Remove.
* interp/define.boot (compDefineCategory): Adjust.
(compDefineCategory1): Likewise.
(compDefineFunctor1): Clear dbCapsuleDefinitions.
* interp/lisplib.boot (compDefineLisplib): Tidy.
* interp/daase.lisp (BROWSEOPEN): Use dbSourceFile.
(GETDATABASE): Likewise.
(LOCALNRLIB): Likewise.
(WRITE-BROWSEDB): Likewise.
* algebra/Makefile.in (COMPILE_SPAD): Specifiy initial DB.
(BOOTSTRAP): Likewise.
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 8024a8fc..6d989a2c 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -528,7 +528,7 @@ (warn "will create a new one~%") (setq dbstruct (|makeDB| (first item))) (setq *allconstructors* (adjoin item *allconstructors*))) - (setf (database-sourcefile dbstruct) (second item)) + (setf (|dbSourceFile| dbstruct) (second item)) (setf (|dbConstructorForm| dbstruct) (third item)) (setf (database-documentation dbstruct) (fourth item)) (setf (|dbAttributes| dbstruct) (fifth item)) @@ -719,7 +719,7 @@ (sourcefile (setq stream *browse-stream*) (when struct - (setq data (database-sourcefile struct)))) + (setq data (|dbSourceFile| struct)))) (constructorform (setq stream *browse-stream*) (when struct @@ -791,7 +791,7 @@ (dependents (setf (database-dependents struct) data)) (sourcefile - (setf (database-sourcefile struct) data)))) + (setf (|dbSourceFile| struct) data)))) (case key ; fixup the special cases (sourcefile (when (and data (string= (directory-namestring data) "") @@ -922,11 +922,11 @@ (fetchdata alist in "constructorModemap")) (setf (|dbModemaps| dbstruct) (fetchdata alist in "modemaps")) - (setf (database-sourcefile dbstruct) + (setf (|dbSourceFile| dbstruct) (fetchdata alist in "sourceFile")) (when make-database? - (setf (database-sourcefile dbstruct) - (file-namestring (database-sourcefile dbstruct)))) + (setf (|dbSourceFile| dbstruct) + (file-namestring (|dbSourceFile| dbstruct)))) (setf (|dbConstructorKind| dbstruct) (setq kind (fetchdata alist in "constructorKind"))) (setf (|dbCategory| dbstruct) @@ -1222,7 +1222,7 @@ (let (struct) (setq struct (|constructorDB| constructor)) ; sourcefile is small. store the string directly - (setq src (database-sourcefile struct)) + (setq src (|dbSourceFile| struct)) (setq formpos (file-position out)) (print (|squeezeCopy| (|dbConstructorForm| struct)) out) (finish-output out) |