Browse Source

Still trying to fix repl issue

Samuel W. Flint 8 years ago
parent
commit
84ac638e1e
1 changed files with 6 additions and 5 deletions
  1. 6 5
      derive.lisp

+ 6 - 5
derive.lisp

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