|
@@ -11,8 +11,8 @@
|
|
|
:sec
|
|
|
:define-equation-functions
|
|
|
:take-derivative)
|
|
|
- (:import-from #:uiop
|
|
|
- #:quit))
|
|
|
+ #-(or ccl sbcl) (:import-from #:uiop
|
|
|
+ #:quit))
|
|
|
|
|
|
(in-package #:derive)
|
|
|
|
|
@@ -121,7 +121,9 @@ Calculate the secant of x"
|
|
|
(loop (progn (let ((in (read)))
|
|
|
(cond
|
|
|
((eq in 'quit)
|
|
|
- (return))
|
|
|
+ #-(or ccl sbcl) (quit)
|
|
|
+ #+sbcl (sb-ext:exit)
|
|
|
+ #+ccl (ccl:quit))
|
|
|
((eq in 'trace)
|
|
|
(trace derive plus/minus mult div chain power))
|
|
|
((eq in 'untrace)
|
|
@@ -129,8 +131,7 @@ Calculate the secant of x"
|
|
|
((eq in nil))
|
|
|
((listp in)
|
|
|
(format t "~%~a~%" (derive in)))))
|
|
|
- (format t "~&> ")))
|
|
|
- (quit))
|
|
|
+ (format t "~&> "))))
|
|
|
|
|
|
#+sbcl (progn
|
|
|
(defun save-exec ()
|