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

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

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

revision 1.6 by pfdietz, Sun Oct 13 16:44:49 2002 UTC revision 1.7 by pfdietz, Sat Jan 11 21:23:27 2003 UTC
# Line 353  Line 353 
353           (%g :x 'worse))))           (%g :x 'worse))))
354    good)    good)
355    
356    ;;; Test that [:&]allow-other-keys suppress errors for illegal keywords
357    ;;; or odd numbers of keyword arguments
358    
359    (deftest flet.41
360      (classify-error
361       (flet ((%f (&key (a :good)) a))
362         (%f :allow-other-keys t :b)))
363      :good)
364    
365    (deftest flet.42
366      (classify-error
367       (flet ((%f (&key (a :good)) a))
368         (%f :allow-other-keys t 10 20)))
369      :good)
370    
371    (deftest flet.43
372      (classify-error
373       (flet ((%f (&key (a :good) &allow-other-keys) a))
374         (%f :b)))
375      :good)
376    
377    (deftest flet.44
378      (classify-error
379       (flet ((%f (&key (a :good) &allow-other-keys) a))
380         (%f 10 20)))
381      :good)

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