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

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

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

revision 1.1 by pfdietz, Wed Jan 29 00:42:25 2003 UTC revision 1.2 by pfdietz, Mon Feb 17 11:54:02 2003 UTC
# Line 51  Line 51 
51          always (if p q (not q)))          always (if p q (not q)))
52    t)    t)
53    
54    (deftest hash-table-p.3
55      (let ((i 0))
56        (values (hash-table-p (incf i)) i))
57      nil 1)
58    
59    (deftest hash-table-p.error.1
60      (classify-error (hash-table-p))
61      program-error)
62    
63    (deftest hash-table-p.error.2
64      (classify-error (let ((h (make-hash-table))) (hash-table-p h nil)))
65      program-error)
66    
67    
68    
69                            
70    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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