Changeset 34 for trunk/wavelet.lisp

Timestamp:

03/11/08 01:34:13 (8 months ago)

Author:

lhealy

Message:

The classes/types in the different contexts are now gathered together
in one place, in *type-names* for the types and in *data-class-name*
for data classes, populated by #'add-data-class. Both defdata and
defmfun-all use the table and so mapping between various names is
consistent. The data class names are now different, *-double-float
and *-single-float replaces *-double and *-single. The regression
tests give the same results as before.

Files:

• trunk/wavelet.lisp (modified) (3 diffs)

trunk/wavelet.lisp

@@ -1 +1 @@
 ;; Wavelet transforms.
 ;; Liam Healy, Mon Nov 26 2007 - 20:43
-;; Time-stamp: <2008-02-23 18:49:16EST wavelet.lisp>
+;; Time-stamp: <2008-03-09 19:29:17EDT wavelet.lisp>
 ;; $Id$
 
@@ -388 +388 @@
    setting the others to zero.  See GSL manual Section 30.4."
   (letm ((n (length cl-data))
-         (vector (vector-double cl-data))
+         (vector (vector-double-float cl-data))
          (wavelet (wavelet *daubechies-wavelet* 4))
          (workspace (wavelet-workspace n)))
     (wavelet-transform-forward wavelet vector 1 workspace)
-    (letm ((absvector (vector-double n))
+    (letm ((absvector (vector-double-float n))
            (permutation (permutation n)))
       (dotimes (i n)
@@ -409 +409 @@
   "Simpler example, with only a Daubechies wavelet forward transformation."
   (letm ((n (length cl-data))
-         (vector (vector-double cl-data))
+         (vector (vector-double-float cl-data))
          (wavelet (wavelet *daubechies-wavelet* 4))
          (workspace (wavelet-workspace n)))