diff options
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) |