diff options
author | dos-reis <gdr@axiomatics.org> | 2007-08-19 20:47:19 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-08-19 20:47:19 +0000 |
commit | 85858b85b1fcf9f115ab3286f6e3c9cbf06cbb3d (patch) | |
tree | 3c474dd5251d9d75b6e41b2816cca75f229cc0aa /src/interp/daase.lisp.pamphlet | |
parent | 4fd69a22c915b6287fb7fc1dc6e8eb450bad0702 (diff) | |
download | open-axiom-85858b85b1fcf9f115ab3286f6e3c9cbf06cbb3d.tar.gz |
* boot-pkg.lisp: New.
* Makefile.pamphlet (${DEPSYS}): Depend on it
(parsing.$(FASLEXT)): Likewise.
(bookvol5.$(FASLEXT)): Likewise.
(nocompil.$(FASLEXT)): Likewise.
(bootfuns.$(FASLEXT)): Likewise.
(boot-pkg.$(FASLEXT)): New rule.
(boot-pkg.lisp): New rule; work around GCL+VPATH voodoo.
(VPATH): Clear.
* Makefile.in: Regenerate.
* bootfuns.lisp.pamphlet: Don't define package "BOOT" here.
Import "boot-pkg".
(|printLoadMessages|): Move to setvart.boot.pamphlet.
Move special functions to boot-pkg.lisp.
Move get-current-directory to daase.lisp.pamphlet.
* setvart.boot.pamphlet (printLoadMessages): Move from
bootfuns.lisp.pamphlet. Write as Boot code.
* daase.lisp.pamphlet (get-current-directory): Move from
bootfuns.lisp.pamphlet
Diffstat (limited to 'src/interp/daase.lisp.pamphlet')
-rw-r--r-- | src/interp/daase.lisp.pamphlet | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/interp/daase.lisp.pamphlet b/src/interp/daase.lisp.pamphlet index e5de9ba5..6713021f 100644 --- a/src/interp/daase.lisp.pamphlet +++ b/src/interp/daase.lisp.pamphlet @@ -814,6 +814,17 @@ database. (defun |with| (args) (|library| args)) +;; Current directory +;; Contributed by Juergen Weiss. +#+:cmu +(defun get-current-directory () + (namestring (extensions::default-directory))) + +#+(or :akcl :gcl) +(defun get-current-directory () + (namestring (truename ""))) + + ; )library top level command (defun |library| (args) |