Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv32041 Modified Files: branch-test.lisp qd-class.lisp qd-complex.lisp qd-format.lisp qd-methods.lisp rt-tests.lisp tests.lisp timing2.lisp Log Message: Use package #:oct, not #:qd. --- /project/oct/cvsroot/oct/branch-test.lisp 2007/08/25 18:49:27 1.1 +++ /project/oct/cvsroot/oct/branch-test.lisp 2007/10/13 02:14:43 1.2 @@ -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)) --- /project/oct/cvsroot/oct/qd-class.lisp 2007/09/19 17:30:04 1.26 +++ /project/oct/cvsroot/oct/qd-class.lisp 2007/10/13 02:14:43 1.27 @@ -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:-) --- /project/oct/cvsroot/oct/qd-complex.lisp 2007/09/18 12:46:36 1.37 +++ /project/oct/cvsroot/oct/qd-complex.lisp 2007/10/13 02:14:43 1.38 @@ -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 --- /project/oct/cvsroot/oct/qd-format.lisp 2007/08/29 14:37:42 1.6 +++ /project/oct/cvsroot/oct/qd-format.lisp 2007/10/13 02:14:43 1.7 @@ -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)) --- /project/oct/cvsroot/oct/qd-methods.lisp 2007/10/10 15:24:07 1.62 +++ /project/oct/cvsroot/oct/qd-methods.lisp 2007/10/13 02:14:43 1.63 @@ -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+) --- /project/oct/cvsroot/oct/rt-tests.lisp 2007/09/18 03:05:56 1.2 +++ /project/oct/cvsroot/oct/rt-tests.lisp 2007/10/13 02:14:43 1.3 @@ -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. --- /project/oct/cvsroot/oct/tests.lisp 2007/08/25 18:49:27 1.1 +++ /project/oct/cvsroot/oct/tests.lisp 2007/10/13 02:14:43 1.2 @@ -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))) --- /project/oct/cvsroot/oct/timing2.lisp 2007/10/11 18:59:05 1.2 +++ /project/oct/cvsroot/oct/timing2.lisp 2007/10/13 02:14:43 1.3 @@ -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)