maxima patch: do not redefine CLISP internals
- Subject: maxima patch: do not redefine CLISP internals
- From: Sam Steingold
- Date: 07 Oct 2002 15:40:00 -0400
2002-10-07 Sam Steingold <sds@gnu.org>
* init-cl.lisp (user::run): use `with-simple-restart' for
CLISP, just like for CMUCL.
(sys::commands) [CLISP]: do not redefine the internal function
--
Sam Steingold (http://www.podval.org/~sds) running RedHat7.3 GNU/Linux
<http://www.camera.org>; <http://www.iris.org.il>; <http://www.memri.org/>;
<http://www.mideasttruth.com/>; <http://www.palestine-central.com/links.html>;
My other CAR is a CDR.
--- init-cl.lisp.~1.17.~ Mon Sep 9 09:42:34 2002
+++ init-cl.lisp Mon Oct 7 15:37:18 2002
@@ -162,12 +162,12 @@
(catch 'to-lisp
(set-pathnames)
- #+cmu
+ #+(or cmu clisp)
(progn
(loop
(with-simple-restart (macsyma-quit "Macsyma top-level")
(macsyma-top-level input-string batch-flag))))
- #-cmu
+ #-(or cmu clisp)
(catch 'macsyma-quit
(macsyma-top-level input-string batch-flag)))))
@@ -191,22 +191,6 @@
(defun bye ()
(ext:quit))
-;;add the quit maxima for the clisp debugger.
-#+clisp
-(progn
-
-(or (fboundp 'commands1.orig)
- (setf (fdefinition 'commands1.orig) (fdefinition 'sys::commands1)))
-
-
-(defun sys::commands1 ()
- (append (list "
-Quit to top :q Quit to MAXIMA top level"
- (cons ":q" #'(lambda () (throw 'macsyma-quit nil))))
- (commands1.orig)))
-
-) ; end progn for clisp
-
(defun $maxima_server (port)
(load "/home/amundson/devel/maxima/archive/src/server.lisp")
(user::setup port))