Commit e539029e authored by Raymond Toy's avatar Raymond Toy
Browse files

Use uninterned symbols for IN-PACKAGE.

parent 4c3a4193
......@@ -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:-)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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))
......
......@@ -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)
......
......@@ -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+))
......
......@@ -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.
......
......@@ -25,7 +25,7 @@
;;; Some simple timing tests
(in-package "OCT")
(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