/[gcl]/gcl/ansi-tests/types-and-class.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/types-and-class.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26