Commit 84f9bb1f authored by Raymond Toy's avatar Raymond Toy
Browse files

Use package #:oct, not #:qd.

parent d9c9137c
......@@ -30,7 +30,7 @@
;;; computing the values correctly for the branch cuts. We need to
;;; fix this.
(in-package #:qd)
(in-package #:oct)
(defun check-signs (fun arg real-sign imag-sign)
(let* ((z (funcall fun arg))
......
......@@ -23,7 +23,7 @@
;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;;;; OTHER DEALINGS IN THE SOFTWARE.
(in-package #:qd)
(in-package #:oct)
(define-symbol-macro * cl:*)
(define-symbol-macro - cl:-)
......
......@@ -23,7 +23,7 @@
;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;;;; OTHER DEALINGS IN THE SOFTWARE.
(in-package #:qd)
(in-package #:oct)
(defmethod add1 ((a qd-complex))
(make-instance 'qd-complex
......
......@@ -23,7 +23,7 @@
;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;;;; OTHER DEALINGS IN THE SOFTWARE.
(in-package #:qd)
(in-package #:oct)
(defun qd-scale-exponent (original-x)
(let* ((x original-x))
......
......@@ -23,7 +23,7 @@
;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;;;; OTHER DEALINGS IN THE SOFTWARE.
(in-package #:qd)
(in-package #:oct)
(defconstant +pi+
(make-instance 'qd-real :value qdi:+qd-pi+)
......
......@@ -23,7 +23,7 @@
;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;;;; OTHER DEALINGS IN THE SOFTWARE.
(in-package #:qd)
(in-package #:oct)
;; Compute how many bits are the same for two numbers EST and TRUE.
;; Return T if they are identical.
......
......@@ -24,7 +24,7 @@
;;;; OTHER DEALINGS IN THE SOFTWARE.
(in-package #:qd)
(in-package #:oct)
(defun bit-accuracy (est true)
(let* ((diff (abs (- est true)))
......
......@@ -27,7 +27,7 @@
;;; test code. I've tried to make these versions time the same
;;; operations as Yozo's.
(in-package #:qd)
(in-package #:oct)
(defun time-add (&optional (n 100000))
(declare (fixnum n)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment