/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

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

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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