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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Tue Jan 4 15:29:02 2005 UTC revision 1.3 by pfdietz, Sun Jun 26 14:52:06 2005 UTC
# Line 33  Line 33 
33    t)    t)
34    
35  (deftest readtablep.2  (deftest readtablep.2
36    (loop for x in *universe*    (check-type-predicate #'readtablep 'readtable)
         unless (if (typep x 'readtable) (readtablep x)  
                  (not (readtablep x)))  
         collect x)  
37    nil)    nil)
38    
39  (deftest readtablep.3  (deftest readtablep.3

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