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