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

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

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

revision 1.4 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.5 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 143  Line 143 
143    (member 'z '(a b c d) :key nil)    (member 'z '(a b c d) :key nil)
144    nil)    nil)
145    
146  (deftest member-20  ;;; Keyword tests
147    
148    (deftest member.allow-other-keys.1
149    (member 'b '(a b c) :bad t :allow-other-keys t)    (member 'b '(a b c) :bad t :allow-other-keys t)
150    (b c))    (b c))
151    
152  (deftest member-21  (deftest member.allow-other-keys.2
153      (member 'b '(a b c) :allow-other-keys t :bad t)
154      (b c))
155    
156    (deftest member.allow-other-keys.3
157      (member 'b '(a b c) :allow-other-keys t)
158      (b c))
159    
160    (deftest member.allow-other-keys.4
161      (member 'b '(a b c) :allow-other-keys nil)
162      (b c))
163    
164    (deftest member.allow-other-keys.5
165      (member 'b '(a b c) :allow-other-keys 17 :allow-other-keys nil '#:x t)
166      (b c))
167    
168    (deftest member.keywords.6
169    (member 'b '(a b c) :test #'eq :test (complement #'eq))    (member 'b '(a b c) :test #'eq :test (complement #'eq))
170    (b c))    (b c))
171    

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

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