[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

rtoy rtoy at common-lisp.net
Mon Aug 27 17:49:21 UTC 2007


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




More information about the oct-cvs mailing list