From 1065b174d5c7cdaaec42650593946e0e70412128 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 19 Aug 2007 03:06:12 +0000
Subject: 	* core.lisp.pamphlet (|quit|)[GCL]: Don't quit, say si::bye. 
 (import-module): Simplify.

---
 src/lisp/core.lisp.pamphlet | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'src/lisp/core.lisp.pamphlet')

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))))
-)
+
 @
 
 
-- 
cgit v1.2.3