Parent Directory | Revision Log | Patch
revision 1.12 by pfdietz, Wed Nov 27 04:22:36 2002 UTC | revision 1.13 by pfdietz, Fri Nov 29 21:48:06 2002 UTC | |
---|---|---|
# | Line 356 the condition to go uncaught if it canno | Line 356 the condition to go uncaught if it canno |
356 | (defun is-t-or-nil (e) | (defun is-t-or-nil (e) |
357 | (or (eqt e t) (eqt e nil))) | (or (eqt e t) (eqt e nil))) |
358 | ||
359 | (declaim (special *subtype-table*)) | |
360 | ||
361 | (defun types-6-body () | (defun types-6-body () |
362 | (loop | (loop |
363 | for p in *subtype-table* count | for p in *subtype-table* count |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |