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