/[gcl]/gcl/ansi-tests/cons-test-04.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-04.lsp

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

revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.6 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 258  Line 258 
258            :test-not (complement #'equal) :key nil)            :test-not (complement #'equal) :key nil)
259    (aaa "AAA" "aaa" #\a))    (aaa "AAA" "aaa" #\a))
260    
261  (deftest adjoin-other-keys-1  (deftest adjoin.allow-other-keys.1
262    (adjoin 'a '(b c) :bad t :allow-other-keys t)    (adjoin 'a '(b c) :bad t :allow-other-keys t)
263    (a b c))    (a b c))
264    
265  (deftest adjoin-other-keys-2  (deftest adjoin.allow-other-keys.2
266    (adjoin 'a '(b c) :allow-other-keys t :foo t)    (adjoin 'a '(b c) :allow-other-keys t :foo t)
267    (a b c))    (a b c))
268    
269    (deftest adjoin.allow-other-keys.3
270      (adjoin 'a '(b c) :allow-other-keys t)
271      (a b c))
272    
273    (deftest adjoin.allow-other-keys.4
274      (adjoin 'a '(b c) :allow-other-keys nil)
275      (a b c))
276    
277    (deftest adjoin.allow-other-keys.5
278      (adjoin 'a '(b c) :allow-other-keys t :allow-other-keys nil 'bad t)
279      (a b c))
280    
281  (deftest adjoin-repeat-key  (deftest adjoin-repeat-key
282    (adjoin 'a '(b c) :test #'eq :test (complement #'eq))    (adjoin 'a '(b c) :test #'eq :test (complement #'eq))
283    (a b c))                                                (a b c))                                            

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