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

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

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

revision 1.5 by pfdietz, Sat Aug 2 18:35:19 2003 UTC revision 1.6 by pfdietz, Thu Aug 14 00:48:50 2003 UTC
# Line 150  Line 150 
150    (assoc 10 '((1 a) (5 b) (8 c) (11 d) (12 e)) :test-not #'>=)    (assoc 10 '((1 a) (5 b) (8 c) (11 d) (12 e)) :test-not #'>=)
151    (11 d))    (11 d))
152    
153    ;;; Special case: the nil key does not match the nil pair
154    
155    (deftest assoc.28
156      (assoc nil '((a . b) nil (c . d) (nil . e) (nil . f) nil (g . h)))
157      (nil . e))
158    
159    (deftest assoc.29
160      (assoc nil '((a . b) nil (c . d) (nil . e) (nil . f) nil (g . h))
161             :test #'eq)
162      (nil . e))
163    
164    (deftest assoc.30
165      (let () (assoc nil '((a . b) nil (c . d) (nil . e) (nil . f) nil (g . h))))
166      (nil . e))
167    
168    (deftest assoc.31
169      (let () (assoc nil '((a . b) nil (c . d) (nil . e) (nil . f) nil (g . h))
170                     :test #'eq))
171      (nil . e))
172    
173  ;;; :test & :test-not together are harmless  ;;; :test & :test-not together are harmless
174    
175  (defharmless assoc.test-and-test-not.1  (defharmless assoc.test-and-test-not.1

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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