diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-08-19 03:06:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-08-19 03:06:12 +0000 |
| commit | 1065b174d5c7cdaaec42650593946e0e70412128 (patch) | |
| tree | 194e37be1d291eb5cfebc3e6183b0abaa8faa669 /src/lisp/core.lisp.pamphlet | |
| parent | 24c3320e85644fda0e2157db51cdb0697ef5ea09 (diff) | |
| download | open-axiom-1065b174d5c7cdaaec42650593946e0e70412128.tar.gz | |
* core.lisp.pamphlet (|quit|)[GCL]: Don't quit, say si::bye.
(import-module): Simplify.
Diffstat (limited to 'src/lisp/core.lisp.pamphlet')
| -rw-r--r-- | src/lisp/core.lisp.pamphlet | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/lisp/core.lisp.pamphlet b/src/lisp/core.lisp.pamphlet index 8c06119d..35df7c29 100644 --- a/src/lisp/core.lisp.pamphlet +++ b/src/lisp/core.lisp.pamphlet @@ -269,7 +269,7 @@ it would return $0$, meaning that everything is OK. (defun |quit| (&optional (status 0)) #+:sbcl (sb-ext:quit :unix-status status) #+:clisp (ext:quit status) - #+:gcl (quit status) + #+:gcl (si::bye status) #+:ecl (ext:quit status) #-(or :sbcl :clisp :gcl :ecl) (error "`quit' not implemented for this Lisp")) @@ -699,14 +699,12 @@ it would return $0$, meaning that everything is OK. (defun |importModule| (module) (do-import-module module |$LoadDirectories|)) -(eval-when (:compile-toplevel :load-toplevel :execute) (defmacro import-module (module) - `(progn (eval-when (:execute :compile-toplevel) - (|importModule| ,module)) - - (eval-when (:execute :load-toplevel) + `(progn (eval-when + #+:common-lisp (:compile-toplevel :load-toplevel :execute) + #-:common-lisp (compile load eval) (|importModule| ,module)))) -) + @ |