- oct-cvs - mailman3.common-lisp.net

[oct-cvs] Oct commit: oct qd-methods.lisp qd-package.lisp
by rtoy 29 Aug '07

29 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv14357 Modified Files: qd-methods.lisp qd-package.lisp Log Message: qd-package.lisp: o Shadow FLOAT-DIGITS qd-methods.lisp: o Add FLOAT-DIGITS method. --- /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/27 17:49:19 1.49 +++ /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/29 01:22:03 1.50 @@ -806,6 +806,13 @@ (defmethod random ((x qd-real) &optional (state *random-state*)) (* x (make-instance 'qd-real :value (qdi:random-qd state)))) + +(defmethod float-digits ((x cl:real)) + (cl:float-digits x)) + +(defmethod float-digits ((x qd-real)) + (* 4 (float-digits 1d0))) + (define-compiler-macro + (&whole form &rest args) (if (null args) --- /project/oct/cvsroot/oct/qd-package.lisp 2007/08/28 16:01:08 1.35 +++ /project/oct/cvsroot/oct/qd-package.lisp 2007/08/29 01:22:03 1.36 @@ -162,6 +162,7 @@ #:numberp #:incf #:decf + #:float-digits ) (:export #:+ #:- @@ -225,6 +226,7 @@ #:numberp #:incf #:decf + #:float-digits ) ;; Constants (:export #:+pi+)

1 0

[oct-cvs] Oct commit: oct qd-complex.lisp qd-package.lisp
by rtoy 28 Aug '07

28 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv28331 Modified Files: qd-complex.lisp qd-package.lisp Log Message: qd-complex.lisp: o Add ADD1 and SUB1 methods so we can use 1+ and 1- on quad-doubles. o Add INCF and DECF macros to support quad-doubles. qd-package.lisp: o Forgot to shadow REALP, COMPLEXP, and NUMBERP, previously. o Shadow and export INCF and DECF. --- /project/oct/cvsroot/oct/qd-complex.lisp 2007/08/28 14:12:53 1.31 +++ /project/oct/cvsroot/oct/qd-complex.lisp 2007/08/28 16:01:08 1.32 @@ -23,14 +23,16 @@ ;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;;;; OTHER DEALINGS IN THE SOFTWARE. -;; Most of this code taken from CMUCL and slightly modified to support -;; QD-COMPLEX. - (in-package #:qd) (defmethod add1 ((a qd-complex)) (make-instance 'qd-complex - :real (qd-value (add1 (realpart a))) + :real (add-qd-d (qd-value (realpart a)) 1d0) + :imag (qd-value (imagpart a)))) + +(defmethod sub1 ((a qd-complex)) + (make-instance 'qd-complex + :real (sub-qd-d (qd-value (realpart a)) 1d0) :imag (qd-value (imagpart a)))) (defmethod two-arg-/ ((a qd-real) (b rational)) @@ -230,6 +232,33 @@ (defmethod coerce ((number qd-complex) (type (eql 'qd-complex))) number) +;; These two macros are borrowed from CMUCL. +(defmacro incf (place &optional (delta 1) &environment env) + "The first argument is some location holding a number. This number is + incremented by the second argument, DELTA, which defaults to 1." + (multiple-value-bind (dummies vals newval setter getter) + (get-setf-expansion place env) + (let ((d (gensym))) + `(let* (,@(mapcar #'list dummies vals) + (,d ,delta) + (,(car newval) (+ ,getter ,d))) + ,setter)))) + +(defmacro decf (place &optional (delta 1) &environment env) + "The first argument is some location holding a number. This number is + decremented by the second argument, DELTA, which defaults to 1." + (multiple-value-bind (dummies vals newval setter getter) + (get-setf-expansion place env) + (let ((d (gensym))) + `(let* (,@(mapcar #'list dummies vals) + (,d ,delta) + (,(car newval) (- ,getter ,d))) + ,setter)))) + + +;; Most of this code taken from CMUCL and slightly modified to support +;; QD-COMPLEX. + (declaim (inline square)) (defun square (x) (declare (type qd-real x)) @@ -604,6 +633,7 @@ (result (qd-complex-tanh iz))) (complex (imagpart result) (- (realpart result))))) +;; End of implementation of complex functions from CMUCL. (defmethod qasin ((x qd-complex)) (qd-complex-asin x)) --- /project/oct/cvsroot/oct/qd-package.lisp 2007/08/28 00:56:18 1.34 +++ /project/oct/cvsroot/oct/qd-package.lisp 2007/08/28 16:01:08 1.35 @@ -157,6 +157,11 @@ #:signum #:coerce #:random + #:realp + #:complexp + #:numberp + #:incf + #:decf ) (:export #:+ #:- @@ -218,6 +223,8 @@ #:realp #:complexp #:numberp + #:incf + #:decf ) ;; Constants (:export #:+pi+)

1 0

[oct-cvs] Oct commit: oct qd-complex.lisp
by rtoy 28 Aug '07

28 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv3944 Modified Files: qd-complex.lisp Log Message: Add ADD1 method for QD-COMPLEX. --- /project/oct/cvsroot/oct/qd-complex.lisp 2007/08/28 00:56:18 1.30 +++ /project/oct/cvsroot/oct/qd-complex.lisp 2007/08/28 14:12:53 1.31 @@ -28,6 +28,11 @@ (in-package #:qd) +(defmethod add1 ((a qd-complex)) + (make-instance 'qd-complex + :real (qd-value (add1 (realpart a))) + :imag (qd-value (imagpart a)))) + (defmethod two-arg-/ ((a qd-real) (b rational)) (make-instance 'qd-real :value (div-qd (qd-value a) (qd-value (float b #q0)))))

1 0

[oct-cvs] Oct commit: oct qd-complex.lisp qd-package.lisp
by rtoy 28 Aug '07

28 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv27512 Modified Files: qd-complex.lisp qd-package.lisp Log Message: qd-package.lisp: o Shadow REALP, COMPLEXP, and NUMBERP qd-complex.lisp: o Extend REALP, COMPLEXP, and NUMBERP to recognize QD-REAL and QD-COMPLEX types. --- /project/oct/cvsroot/oct/qd-complex.lisp 2007/08/27 17:49:19 1.29 +++ /project/oct/cvsroot/oct/qd-complex.lisp 2007/08/28 00:56:18 1.30 @@ -679,3 +679,15 @@ (defmethod qphase ((z qd-complex)) (atan (imagpart z) (realpart z))) + +(defun realp (x) + (or (typep x 'qd-real) + (cl:realp x))) + +(defun complexp (x) + (or (typep x 'qd-complex) + (cl:complexp x))) + +(defun numberp (x) + (or (realp x) + (complexp x))) --- /project/oct/cvsroot/oct/qd-package.lisp 2007/08/26 14:37:48 1.33 +++ /project/oct/cvsroot/oct/qd-package.lisp 2007/08/28 00:56:18 1.34 @@ -215,6 +215,9 @@ #:signum #:coerce #:random + #:realp + #:complexp + #:numberp ) ;; Constants (:export #:+pi+)

1 0

[oct-cvs] Oct commit: oct qd-class.lisp
by rtoy 27 Aug '07

27 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv13325 Modified Files: qd-class.lisp Log Message: o Fix typo in DESCRIBE-OBJECT for QD-REAL. o Add DESCRIBE-OJBECT method for QD-COMPLEX. o Add defgeneric's for COERCE and RANDOM. --- /project/oct/cvsroot/oct/qd-class.lisp 2007/08/27 17:49:19 1.21 +++ /project/oct/cvsroot/oct/qd-class.lisp 2007/08/27 19:12:22 1.22 @@ -95,10 +95,17 @@ (defmethod describe-object ((q qd-real) stream) (multiple-value-bind (q0 q1 q2 q3) (qd-parts (qd-value q)) - (format stream "~&~S is a quad-double with components ~ + (format stream "~&~S is a QD-REAL with components ~ ~% ~A, ~A, ~A, ~A~%" q q0 q1 q2 q3))) +(defmethod describe-object ((q qd-complex) stream) + (format stream "~&~S is a QD-COMPLEX" q) + (format stream "~&It has components~&REAL: ") + (describe (realpart q)) + (format stream "~&IMAG: ") + (describe (imagpart q))) + (defgeneric add1 (a) (:documentation "Add 1")) @@ -240,3 +247,10 @@ (defgeneric qphase (x) (:documentation "Phase of X")) + +(defgeneric coerce (x type) + (:documentation "COERCE")) + +(defgeneric random (x &optional state) + (:documentation "RANDOM")) +

1 0

[oct-cvs] Oct commit: oct rt-tests.lisp
by rtoy 27 Aug '07

27 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv1830 Added Files: rt-tests.lisp Log Message: Tests using the RT framework. --- /project/oct/cvsroot/oct/rt-tests.lisp 2007/08/27 18:05:12 NONE +++ /project/oct/cvsroot/oct/rt-tests.lisp 2007/08/27 18:05:12 1.1 ;;;; -*- Mode: lisp -*- ;;;; ;;;; Copyright (c) 2007 Raymond Toy ;;;; ;;;; Permission is hereby granted, free of charge, to any person ;;;; obtaining a copy of this software and associated documentation ;;;; files (the "Software"), to deal in the Software without ;;;; restriction, including without limitation the rights to use, ;;;; copy, modify, merge, publish, distribute, sublicense, and/or sell ;;;; copies of the Software, and to permit persons to whom the ;;;; Software is furnished to do so, subject to the following ;;;; conditions: ;;;; ;;;; The above copyright notice and this permission notice shall be ;;;; included in all copies or substantial portions of the Software. ;;;; ;;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ;;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ;;;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ;;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT ;;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ;;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;;;; OTHER DEALINGS IN THE SOFTWARE. (in-package #:qd) ;; Compute how many bits are the same for two numbers EST and TRUE. ;; Return T if they are identical. (defun bit-accuracy (est true) (let* ((diff (abs (- est true))) (err (float (if (zerop true) diff (/ diff (abs true))) 1d0))) (if (zerop diff) t (- (log err 2))))) (defun check-accuracy (limit est true) (let ((bits (bit-accuracy est true))) (if (numberp bits) (if (< bits limit) (list bits limit est true))))) (defvar *null* (make-broadcast-stream)) ;;; Some simple tests from the Yozo Hida's qd package. ;; Pi via Machin's formula (rt:deftest oct.pi.machin (let* ((*standard-output* *null*) (val (make-instance 'qd-real :value (qdi::test2))) (true qd:+pi+)) (check-accuracy 213 val true)) nil) ;; Pi via Salamin-Brent algorithm (rt:deftest oct.pi.salamin-brent (let* ((*standard-output* *null*) (val (make-instance 'qd-real :value (qdi::test3))) (true qd:+pi+)) (check-accuracy 202 val true)) nil) ;; Pi via Borweign's Quartic formula (rt:deftest oct.pi.borweign (let* ((*standard-output* *null*) (val (make-instance 'qd-real :value (qdi::test4))) (true qd:+pi+)) (check-accuracy 211 val true)) nil) ;; e via Taylor series (rt:deftest oct.e.taylor (let* ((*standard-output* *null*) (val (make-instance 'qd-real :value (qdi::test5))) (true (make-instance 'qd-real :value qdi::+qd-e+))) (check-accuracy 212 val true)) nil) ;; log(2) via Taylor series (rt:deftest oct.log2.taylor (let* ((*standard-output* *null*) (val (make-instance 'qd-real :value (qdi::test6))) (true (make-instance 'qd-real :value qdi::+qd-log2+))) (check-accuracy 212 val true)) nil) ;;; Tests of atan where we know the analytical result (rt:deftest oct.atan.1 (let* ((arg (/ (sqrt #q3))) (y (/ (atan arg) +pi+)) (true (/ #q6))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan.2 (let* ((arg (sqrt #q3)) (y (/ (atan arg) +pi+)) (true (/ #q3))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan.3 (let* ((arg #q1) (y (/ (atan arg) +pi+)) (true (/ #q4))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan.4 (let* ((arg #q1q100) (y (/ (atan arg) +pi+)) (true #q.5)) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan.5 (let* ((arg #q-1q100) (y (/ (atan arg) +pi+)) (true #q-.5)) (check-accuracy 212 y true)) nil) (defun atan-qd/duplication (arg) (make-instance 'qd-real :value (qdi::atan-qd/duplication (qd-value arg)))) ;;; Tests of atan where we know the analytical result. Same tests, ;;; but using the atan duplication formula. (rt:deftest oct.atan/dup.1 (let* ((arg (/ (sqrt #q3))) (y (/ (atan-qd/duplication arg) +pi+)) (true (/ #q6))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan/dup.2 (let* ((arg (sqrt #q3)) (y (/ (atan-qd/duplication arg) +pi+)) (true (/ #q3))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan/dup.3 (let* ((arg #q1) (y (/ (atan-qd/duplication arg) +pi+)) (true (/ #q4))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan/dup.4 (let* ((arg #q1q100) (y (/ (atan-qd/duplication arg) +pi+)) (true #q.5)) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan/dup.5 (let* ((arg #q-1q100) (y (/ (atan-qd/duplication arg) +pi+)) (true #q-.5)) (check-accuracy 212 y true)) nil) ;;; Tests of atan where we know the analytical result. Same tests, ;;; but using a CORDIC implementation. (defun atan-qd/cordic (arg) (make-instance 'qd-real :value (qdi::atan-qd/cordic (qd-value arg)))) (rt:deftest oct.atan/cordic.1 (let* ((arg (/ (sqrt #q3))) (y (/ (atan-qd/cordic arg) +pi+)) (true (/ #q6))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan/cordic.2 (let* ((arg (sqrt #q3)) (y (/ (atan-qd/cordic arg) +pi+)) (true (/ #q3))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan/cordic.3 (let* ((arg #q1) (y (/ (atan-qd/cordic arg) +pi+)) (true (/ #q4))) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan/cordic.4 (let* ((arg #q1q100) (y (/ (atan-qd/cordic arg) +pi+)) (true #q.5)) (check-accuracy 212 y true)) nil) (rt:deftest oct.atan/cordic.5 (let* ((arg #q-1q100) (y (/ (atan-qd/cordic arg) +pi+)) (true #q-.5)) (check-accuracy 212 y true)) nil) ;;; Tests of sin where we know the analytical result. (rt:deftest oct.sin.1 (let* ((arg (/ +pi+ 6)) (y (sin arg)) (true #q.5)) (check-accuracy 212 y true)) nil) (rt:deftest oct.sin.2 (let* ((arg (/ +pi+ 4)) (y (sin arg)) (true (sqrt #q.5))) (check-accuracy 212 y true)) nil) (rt:deftest oct.sin.3 (let* ((arg (/ +pi+ 3)) (y (sin arg)) (true (/ (sqrt #q3) 2))) (check-accuracy 212 y true)) nil) ;;; Tests of tan where we know the analytical result. (rt:deftest oct.tan.1 (let* ((arg (/ +pi+ 6)) (y (tan arg)) (true (/ (sqrt #q3)))) (check-accuracy 212 y true)) nil) (rt:deftest oct.tan.2 (let* ((arg (/ +pi+ 4)) (y (tan arg)) (true #q1)) (check-accuracy 212 y true)) nil) (rt:deftest oct.tan.3 (let* ((arg (/ +pi+ 3)) (y (tan arg)) (true (sqrt #q3))) (check-accuracy 212 y true)) nil) ;;; Tests of tan where we know the analytical result. Uses CORDIC ;;; algorithm. (defun tan/cordic (arg) (make-instance 'qd-real :value (qdi::tan-qd/cordic (qd-value arg)))) (rt:deftest oct.tan/cordic.1 (let* ((arg (/ +pi+ 6)) (y (tan/cordic arg)) (true (/ (sqrt #q3)))) (check-accuracy 211 y true)) nil) (rt:deftest oct.tan/cordic.2 (let* ((arg (/ +pi+ 4)) (y (tan/cordic arg)) (true #q1)) (check-accuracy 211 y true)) nil) (rt:deftest oct.tan/cordic.3 (let* ((arg (/ +pi+ 3)) (y (tan/cordic arg)) (true (sqrt #q3))) (check-accuracy 210 y true)) nil) ;;; Tests of asin where we know the analytical result. (rt:deftest oct.asin.1 (let* ((arg #q.5) (y (asin arg)) (true (/ +pi+ 6))) (check-accuracy 212 y true)) nil) (rt:deftest oct.asin.2 (let* ((arg (sqrt #q.5)) (y (asin arg)) (true (/ +pi+ 4))) (check-accuracy 212 y true)) nil) (rt:deftest oct.asin.3 (let* ((arg (/ (sqrt #q3) 2)) (y (asin arg)) (true (/ +pi+ 3))) (check-accuracy 212 y true)) nil) ;;; Tests of log. (rt:deftest oct.log.1 (let* ((arg #q2) (y (log arg)) (true (make-instance 'qd-real :value qdi::+qd-log2+))) (check-accuracy 212 y true)) nil) (rt:deftest oct.log.2 (let* ((arg #q10) (y (log arg)) (true (make-instance 'qd-real :value qdi::+qd-log10+))) (check-accuracy 207 y true)) nil) (rt:deftest oct.log.3 (let* ((arg (+ 1 (scale-float #q1 -80))) (y (log arg)) (true #q8.2718061255302767487140834995607996176476940491239977084112840149578911975528492q-25)) (check-accuracy 212 y true)) nil) ;;; Tests of log using Newton iteration. (defun log/newton (arg) (make-instance 'qd-real :value (qdi::log-qd/newton (qd-value arg)))) (rt:deftest oct.log/newton.1 (let* ((arg #q2) (y (log/newton arg)) (true (make-instance 'qd-real :value qdi::+qd-log2+))) (check-accuracy 212 y true)) nil) (rt:deftest oct.log/newton.2 (let* ((arg #q10) (y (log/newton arg)) (true (make-instance 'qd-real :value qdi::+qd-log10+))) (check-accuracy 207 y true)) nil) (rt:deftest oct.log/newton.3 (let* ((arg (+ 1 (scale-float #q1 -80))) (y (log/newton arg)) (true #q8.2718061255302767487140834995607996176476940491239977084112840149578911975528492q-25)) (check-accuracy 212 y true)) nil) ;;; Tests of log using AGM. (defun log/agm (arg) (make-instance 'qd-real :value (qdi::log-qd/agm (qd-value arg)))) (rt:deftest oct.log/agm.1 (let* ((arg #q2) (y (log/agm arg)) (true (make-instance 'qd-real :value qdi::+qd-log2+))) (check-accuracy 203 y true)) nil) (rt:deftest oct.log/agm.2 (let* ((arg #q10) (y (log/agm arg)) (true (make-instance 'qd-real :value qdi::+qd-log10+))) (check-accuracy 205 y true)) nil) (rt:deftest oct.log/agm.3 (let* ((arg (+ 1 (scale-float #q1 -80))) (y (log/agm arg)) (true #q8.2718061255302767487140834995607996176476940491239977084112840149578911975528492q-25)) (check-accuracy 123 y true)) nil) ;;; Tests of log using AGM2, a faster variaton of AGM. (defun log/agm2 (arg) (make-instance 'qd-real :value (qdi::log-qd/agm2 (qd-value arg)))) (rt:deftest oct.log/agm2.1 (let* ((arg #q2) (y (log/agm2 arg)) (true (make-instance 'qd-real :value qdi::+qd-log2+))) (check-accuracy 203 y true)) nil) (rt:deftest oct.log/agm2.2 (let* ((arg #q10) (y (log/agm2 arg)) (true (make-instance 'qd-real :value qdi::+qd-log10+))) (check-accuracy 205 y true)) nil) [147 lines skipped]

1 0

[oct-cvs] Oct commit: oct oct-test.system
by rtoy 27 Aug '07

27 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv1684 Modified Files: oct-test.system Log Message: Add comment on where to get RT. --- /project/oct/cvsroot/oct/oct-test.system 2007/08/27 17:51:02 1.1 +++ /project/oct/cvsroot/oct/oct-test.system 2007/08/27 18:04:31 1.2 @@ -23,6 +23,8 @@ ;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;;;; OTHER DEALINGS IN THE SOFTWARE. +;; This requres the RT package. You can obtain a copy from +;; http://www.cliki.net/RT. (require :rt) (mk:defsystem oct-extras

1 0

[oct-cvs] Oct commit: oct oct-test.system oct.system
by rtoy 27 Aug '07

27 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv31223 Modified Files: oct.system Added Files: oct-test.system Log Message: Moved OCT-TEST system to its own file. --- /project/oct/cvsroot/oct/oct.system 2007/08/25 17:08:48 1.20 +++ /project/oct/cvsroot/oct/oct.system 2007/08/27 17:51:02 1.21 @@ -70,17 +70,3 @@ )) -(mk:defsystem oct-extras - :source-pathname (make-pathname :directory (pathname-directory *load-pathname*)) - :depends-on ("oct") - :components - ((:file "qd-extra"))) - -(mk:defsystem oct-test - :source-pathname (make-pathname :directory (pathname-directory *load-pathname*)) - :depends-on ("oct" "oct-extras") - :components - ((:file "qd-test") - (:file "tests") - (:file "branch-test"))) - --- /project/oct/cvsroot/oct/oct-test.system 2007/08/27 17:51:02 NONE +++ /project/oct/cvsroot/oct/oct-test.system 2007/08/27 17:51:02 1.1 ;;;; -*- Mode: lisp -*- ;;;; ;;;; Copyright (c) 2007 Raymond Toy ;;;; ;;;; Permission is hereby granted, free of charge, to any person ;;;; obtaining a copy of this software and associated documentation ;;;; files (the "Software"), to deal in the Software without ;;;; restriction, including without limitation the rights to use, ;;;; copy, modify, merge, publish, distribute, sublicense, and/or sell ;;;; copies of the Software, and to permit persons to whom the ;;;; Software is furnished to do so, subject to the following ;;;; conditions: ;;;; ;;;; The above copyright notice and this permission notice shall be ;;;; included in all copies or substantial portions of the Software. ;;;; ;;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ;;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ;;;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ;;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT ;;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ;;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;;;; OTHER DEALINGS IN THE SOFTWARE. (require :rt) (mk:defsystem oct-extras :source-pathname (make-pathname :directory (pathname-directory *load-pathname*)) :depends-on ("oct") :components ((:file "qd-extra"))) (mk:defsystem oct-test :source-pathname (make-pathname :directory (pathname-directory *load-pathname*)) :depends-on ("oct" "oct-extras") :components ((:file "qd-test") ;;(:file "tests") (:file "branch-test") (:file "rt-tests")))

1 0

[oct-cvs] Oct commit: oct qd-class.lisp qd-complex.lisp qd-const.lisp qd-format.lisp qd-io.lisp qd-methods.lisp qd-test.lisp timing.lisp
by rtoy 27 Aug '07

27 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv30973 Modified Files: qd-class.lisp qd-complex.lisp qd-const.lisp qd-format.lisp qd-io.lisp qd-methods.lisp qd-test.lisp timing.lisp Log Message: Use uninterned symbols for IN-PACKAGE. --- /project/oct/cvsroot/oct/qd-class.lisp 2007/08/25 17:08:48 1.20 +++ /project/oct/cvsroot/oct/qd-class.lisp 2007/08/27 17:49:19 1.21 @@ -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 #:qd) (define-symbol-macro * cl:*) (define-symbol-macro - cl:-) --- /project/oct/cvsroot/oct/qd-complex.lisp 2007/08/26 14:37:48 1.28 +++ /project/oct/cvsroot/oct/qd-complex.lisp 2007/08/27 17:49:19 1.29 @@ -26,7 +26,7 @@ ;; Most of this code taken from CMUCL and slightly modified to support ;; QD-COMPLEX. -(in-package "QD") +(in-package #:qd) (defmethod two-arg-/ ((a qd-real) (b rational)) (make-instance 'qd-real :value (div-qd (qd-value a) --- /project/oct/cvsroot/oct/qd-const.lisp 2007/08/25 17:08:48 1.15 +++ /project/oct/cvsroot/oct/qd-const.lisp 2007/08/27 17:49:19 1.16 @@ -23,7 +23,7 @@ ;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;;;; OTHER DEALINGS IN THE SOFTWARE. -(in-package "QDI") +(in-package #:qdi) (defconstant +qd-zero+ (make-qd-d 0d0)) --- /project/oct/cvsroot/oct/qd-format.lisp 2007/08/25 17:08:48 1.4 +++ /project/oct/cvsroot/oct/qd-format.lisp 2007/08/27 17:49:19 1.5 @@ -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 #:qd) (defun qd-scale-exponent (original-x) (let* ((x original-x)) --- /project/oct/cvsroot/oct/qd-io.lisp 2007/08/25 17:08:48 1.13 +++ /project/oct/cvsroot/oct/qd-io.lisp 2007/08/27 17:49:19 1.14 @@ -23,7 +23,7 @@ ;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;;;; OTHER DEALINGS IN THE SOFTWARE. -(in-package "QDI") +(in-package #:qdi) ;; Smallest exponent for a double-float. (eval-when (:compile-toplevel :load-toplevel :execute) --- /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/26 14:37:48 1.48 +++ /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/27 17:49:19 1.49 @@ -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 #:qd) (defconstant +pi+ (make-instance 'qd-real :value qdi:+qd-pi+)) --- /project/oct/cvsroot/oct/qd-test.lisp 2007/08/25 18:49:11 1.17 +++ /project/oct/cvsroot/oct/qd-test.lisp 2007/08/27 17:49:19 1.18 @@ -24,7 +24,7 @@ ;;;; OTHER DEALINGS IN THE SOFTWARE. -(in-package "QDI") +(in-package #:qdi) ;; Compute to how many bits EST and TRUE are equal. If they are ;; identical, return T. --- /project/oct/cvsroot/oct/timing.lisp 2007/08/25 18:49:27 1.1 +++ /project/oct/cvsroot/oct/timing.lisp 2007/08/27 17:49:19 1.2 @@ -25,7 +25,7 @@ ;;; Some simple timing tests -(in-package "OCT") +(in-package #:oct) (defun time-add (&optional (n 100000)) (declare (fixnum n))

1 0

[oct-cvs] Oct commit: oct .cvsignore
by rtoy 27 Aug '07

27 Aug '07

Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv15495 Modified Files: .cvsignore Log Message: Ignore more fasl types. --- /project/oct/cvsroot/oct/.cvsignore 2007/08/25 16:16:53 1.1 +++ /project/oct/cvsroot/oct/.cvsignore 2007/08/27 13:10:50 1.2 @@ -1,2 +1,4 @@ *.ppcf +*.sparcf +*.x86f *.err

1 0