Parent Directory | Revision Log | Patch
revision 1.2 by camm, Wed Oct 9 03:46:33 2002 UTC | revision 1.3 by pfdietz, Sun Oct 13 15:53:24 2002 UTC | |
---|---|---|
# | Line 156 | Line 156 |
156 | *subtype-table*) | *subtype-table*) |
157 | 0) | 0) |
158 | ||
159 | (defconstant +float-types+ '(long-float double-float short-float single-float)) | (defparameter +float-types+ |
160 | '(long-float double-float short-float single-float)) | |
161 | ||
162 | (defun types-4-body () | (defun types-4-body () |
163 | (let ((parent-table (make-hash-table :test #'equal)) | (let ((parent-table (make-hash-table :test #'equal)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |