Changeset 3d37e3b9346092b58e820723ae20f114dc912d44

Show
Ignore:
Timestamp:
03/08/11 06:01:06 (3 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:
1 added
4 modified

Legend:

Unmodified
Added
Removed
  • oct.asd

    r535d25 r3d37e3  
    5555   (:file "qd-methods" 
    5656          :depends-on ("qd-class")) 
     57   (:file "qd-reader" 
     58          :depends-on ("qd-methods")) 
    5759   (:file "qd-format" 
    58           :depends-on ("qd-methods")) 
     60          :depends-on ("qd-methods" "qd-reader")) 
    5961   (:file "qd-complex" 
    60           :depends-on ("qd-methods")) 
     62          :depends-on ("qd-methods" "qd-reader")) 
    6163   (:file "qd-elliptic" 
    62           :depends-on ("qd-methods")) 
     64          :depends-on ("qd-methods" "qd-reader")) 
    6365   )) 
    6466 
  • qd-complex.lisp

    r84f9bb r3d37e3  
    2525 
    2626(in-package #:oct) 
     27 
     28(eval-when (:compile-toplevel :load-toplevel :execute) 
     29  (setf *readtable* *oct-readtable*)) 
    2730 
    2831(defmethod add1 ((a qd-complex)) 
  • qd-elliptic.lisp

    rf86bc7 r3d37e3  
    2424 
    2525(in-package #:oct) 
     26 
     27(eval-when (:compile-toplevel :load-toplevel :execute) 
     28  (setf *readtable* *oct-readtable*)) 
    2629 
    2730(declaim (inline descending-transform ascending-transform)) 
  • qd-format.lisp

    rbc4055 r3d37e3  
    2525 
    2626(in-package #:oct) 
     27 
     28(eval-when (:compile-toplevel :load-toplevel :execute) 
     29  (setf *readtable* *oct-readtable*)) 
    2730 
    2831(defun qd-scale-exponent (original-x)