Changeset 3d37e3b9346092b58e820723ae20f114dc912d44

Timestamp:

03/08/11 06:01:06 (2 years ago)

Author:

Raymond Toy <toy.raymond@…>

Children:

68432cb1855605c346216788f1aa64517a96a808

Parents:

6c91244701c5867328a58c94d2118db6e09310d1

git-committer:

Raymond Toy <toy.raymond@…> (03/08/11 06:01:06)

Message:

Move #Q reader functions to new file qd-reader.lisp.

qd-reader.lisp:
o New file containing #Q reader functions.
o Create a new readtable containing our reader functions so we don't

destructively modify the default *readtable*.

oct.asd:
o Add qd-reader.lisp.

qd-complex.lisp:
qd-elliptic.lisp:
qd-format.lisp:
o Set the *readtable* to *oct-readtable* before compiling these

files.

Files:

• oct.asd (modified) (1 diff)
• qd-complex.lisp (modified) (1 diff)
• qd-elliptic.lisp (modified) (1 diff)
• qd-format.lisp (modified) (1 diff)
• qd-reader.lisp (added)

oct.asd

@@ -55 +55 @@
    (:file "qd-methods"
           :depends-on ("qd-class"))
+   (:file "qd-reader"
+          :depends-on ("qd-methods"))
    (:file "qd-format"
-          :depends-on ("qd-methods"))
+          :depends-on ("qd-methods" "qd-reader"))
    (:file "qd-complex"
-          :depends-on ("qd-methods"))
+          :depends-on ("qd-methods" "qd-reader"))
    (:file "qd-elliptic"
-          :depends-on ("qd-methods"))
+          :depends-on ("qd-methods" "qd-reader"))
    ))
 

qd-complex.lisp

@@ -25 +25 @@
 
 (in-package #:oct)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setf *readtable* *oct-readtable*))
 
 (defmethod add1 ((a qd-complex))

qd-elliptic.lisp

@@ -24 +24 @@
 
 (in-package #:oct)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setf *readtable* *oct-readtable*))
 
 (declaim (inline descending-transform ascending-transform))

qd-format.lisp

@@ -25 +25 @@
 
 (in-package #:oct)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setf *readtable* *oct-readtable*))
 
 (defun qd-scale-exponent (original-x)