Changeset 3d37e3


Ignore:
Timestamp:
03/08/11 14:01:06 (4 years ago)
Author:
Raymond Toy <toy.raymond@…>
Branches:
master, cvs-ids
Children:
68432c
Parents:
6c9124
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 edited

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)
Note: See TracChangeset for help on using the changeset viewer.