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

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

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

revision 1.5 by pfdietz, Tue Mar 4 14:14:31 2003 UTC revision 1.6 by pfdietz, Sat Apr 19 04:30:43 2003 UTC
# Line 221  Line 221 
221         (%f))         (%f))
222       10       10
223       (return-from done 'good)))       (return-from done 'good)))
   good)  
224      good)
225    
226    ;;; Check that nil keyword arguments do not enable the default values
227    
228    (deftest labels.28
229      (labels ((%f (&key (a 'wrong)) a)) (%f :a nil))
230      nil)
231    
232    (deftest labels.29
233      (labels ((%f (&key (a 'wrong a-p)) (list a (not a-p)))) (%f :a nil))
234      (nil nil))
235    
236    (deftest labels.30
237      (labels ((%f (&key ((:a b) 'wrong)) b)) (%f :a nil))
238      nil)
239    
240    (deftest labels.31
241      (labels ((%f (&key ((:a b) 'wrong present?)) (list b (not present?))))
242        (%f :a nil))
243      (nil nil))
244    
245    (deftest labels.32
246      (labels ((%f (&key) 'good))
247        (%f :allow-other-keys nil))
248      good)
249    
250    (deftest labels.33
251      (labels ((%f (&key) 'good))
252        (%f :allow-other-keys t))
253      good)
254    
255    (deftest labels.34
256      (labels ((%f (&key) 'good))
257        (%f :allow-other-keys t :a 1 :b 2))
258      good)
259    
260    (deftest labels.35
261      (labels ((%f (&key &allow-other-keys) 'good))
262        (%f :a 1 :b 2))
263      good)

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