Parent Directory | Revision Log | Patch
revision 1.2 by camm, Sun Sep 14 02:43:05 2003 UTC | revision 1.3 by camm, Sat Nov 27 22:19:35 2004 UTC | |
---|---|---|
# | Line 200 | Line 200 |
200 | ||
201 | (defun inspect-number (number) | (defun inspect-number (number) |
202 | (case (type-of number) | (case (type-of number) |
203 | (fixnum (format t "~S - fixnum (32 bits)" number)) | (fixnum (format t "~S - fixnum" number)) |
204 | (bignum (format t "~S - bignum" number)) | (bignum (format t "~S - bignum" number)) |
205 | (ratio | (ratio |
206 | (format t "~S - ratio" number) | (format t "~S - ratio" number) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |