|
|
@@ -2,13 +2,17 @@
|
|
|
;;;;
|
|
|
;;;; Copyright (c) 2015 Samuel W. Flint <swflint@flintfam.org>
|
|
|
|
|
|
+#+quicklisp (ql:quickload :uiop)
|
|
|
+
|
|
|
(defpackage #:derive
|
|
|
(:use #:cl)
|
|
|
(:export :derive
|
|
|
:csc
|
|
|
:sec
|
|
|
:define-equation-functions
|
|
|
- :take-derivative))
|
|
|
+ :take-derivative)
|
|
|
+ (:shadowing-import-from #:uiop
|
|
|
+ #:quit))
|
|
|
|
|
|
(in-package #:derive)
|
|
|
|
|
|
@@ -117,7 +121,7 @@ Calculate the secant of x"
|
|
|
(loop (progn (let ((in (read)))
|
|
|
(cond
|
|
|
((eq in 'quit)
|
|
|
- (return))
|
|
|
+ (quit))
|
|
|
((eq in 'trace)
|
|
|
(trace derive plus/minus mult div chain power))
|
|
|
((eq in 'untrace)
|
