/[gcl]/gcl/ansi-tests/hash-table-p.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/hash-table-p.lsp

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

revision 1.2 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.3 by pfdietz, Sun Jun 26 14:52:06 2005 UTC
# Line 14  Line 14 
14    nil)    nil)
15    
16  (deftest hash-table-p.2  (deftest hash-table-p.2
17    (loop for e in *universe*    (check-type-predicate #'hash-table-p 'hash-table)
18          for p = (typep e 'hash-table)    nil)
         for q = (hash-table-p e)  
         always (if p q (not q)))  
   t)  
19    
20  (deftest hash-table-p.3  (deftest hash-table-p.3
21    (let ((i 0))    (let ((i 0))

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