/[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.6 by pfdietz, Thu Aug 14 00:48:50 2003 UTC revision 1.7 by pfdietz, Thu Aug 14 00:51:27 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  ;;; Special cases: the nil key does not match the nil pair
   
 (deftest assoc.28  
   (assoc nil '((a . b) nil (c . d) (nil . e) (nil . f) nil (g . h)))  
   (nil . e))  
   
 (deftest assoc.29  
   (assoc nil '((a . b) nil (c . d) (nil . e) (nil . f) nil (g . h))  
          :test #'eq)  
   (nil . e))  
154    
155  (deftest assoc.30  (deftest assoc.30
156    (let () (assoc nil '((a . b) nil (c . d) (nil . e) (nil . f) nil (g . h))))    (let () (assoc nil '((a . b) nil (c . d) (nil . e) (nil . f) nil (g . h))))

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

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