|
Revision 34, 0.6 kB
(checked in by lhealy, 9 months ago)
|
|
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.
|
-
Property svn:keywords set to
Id
|
| Line | |
|---|
| 1 | ;; Blocks of data |
|---|
| 2 | ;; Liam Healy, Mon Mar 27 2006 - 12:28 |
|---|
| 3 | ;; Time-stamp: <2008-03-09 18:54:10EDT block.lisp> |
|---|
| 4 | ;; $Id$ |
|---|
| 5 | |
|---|
| 6 | (in-package :gsl) |
|---|
| 7 | |
|---|
| 8 | ;;; Block definition |
|---|
| 9 | (cffi:defcstruct block |
|---|
| 10 | (size size) |
|---|
| 11 | (data :pointer)) |
|---|
| 12 | |
|---|
| 13 | (add-data-class block double-float block-double-float block "block") |
|---|
| 14 | (add-data-class block single-float block-single-float block "block") |
|---|
| 15 | (add-data-class block fixnum block-fixnum block "block") |
|---|
| 16 | (add-data-class block complex block-complex block "block") |
|---|
| 17 | |
|---|
| 18 | (defdata block double-float) |
|---|
| 19 | (defdata block single-float) |
|---|
| 20 | (defdata block fixnum) |
|---|
| 21 | (defdata block complex) |
|---|
