Browse Source

Still trying to fix

Samuel W. Flint 8 years ago
parent
commit
26c0893f41
1 changed files with 5 additions and 4 deletions
  1. 5 4
      derive.lisp

+ 5 - 4
derive.lisp

@@ -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 ()