Parent Directory | Revision Log | Patch
revision 1.11 by pfdietz, Mon Aug 4 12:28:37 2003 UTC | revision 1.12 by pfdietz, Wed Sep 3 10:36:15 2003 UTC | |
---|---|---|
# | Line 136 | Line 136 |
136 | ||
137 | (defvar *reals* (append *integers* *floats* *ratios*)) | (defvar *reals* (append *integers* *floats* *ratios*)) |
138 | ||
139 | (defvar *rationals* (append *integers* *ratios*)) | |
140 | ||
141 | (defun try-to-read-chars (&rest namelist) | (defun try-to-read-chars (&rest namelist) |
142 | (loop | (loop |
143 | for name in namelist append | for name in namelist append |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |