/[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.7 by pfdietz, Sat Jan 11 21:23:27 2003 UTC revision 1.8 by pfdietz, Sat Jan 11 23:04:36 2003 UTC
# Line 356  Line 356 
356  ;;; Test that [:&]allow-other-keys suppress errors for illegal keywords  ;;; Test that [:&]allow-other-keys suppress errors for illegal keywords
357  ;;; or odd numbers of keyword arguments  ;;; or odd numbers of keyword arguments
358    
359  (deftest flet.41  ;;; Note -- These are apparently bad tests! -- PFD
360    (classify-error  ;;;(deftest flet.41
361     (flet ((%f (&key (a :good)) a))  ;;;  (classify-error
362       (%f :allow-other-keys t :b)))  ;;;   (flet ((%f (&key (a :good)) a))
363    :good)  ;;;     (%f :allow-other-keys t :b)))
364    ;;;  :good)
365  (deftest flet.42  ;;;
366    (classify-error  ;;;(deftest flet.42
367     (flet ((%f (&key (a :good)) a))  ;;;  (classify-error
368       (%f :allow-other-keys t 10 20)))  ;;;   (flet ((%f (&key (a :good)) a))
369    :good)  ;;;     (%f :allow-other-keys t 10 20)))
370    ;;;  :good)
371  (deftest flet.43  ;;;
372    (classify-error  ;;;(deftest flet.43
373     (flet ((%f (&key (a :good) &allow-other-keys) a))  ;;;  (classify-error
374       (%f :b)))  ;;;   (flet ((%f (&key (a :good) &allow-other-keys) a))
375    :good)  ;;;     (%f :b)))
376    ;;;  :good)
377  (deftest flet.44  ;;;
378    (classify-error  ;;;(deftest flet.44
379     (flet ((%f (&key (a :good) &allow-other-keys) a))  ;;;  (classify-error
380       (%f 10 20)))  ;;;   (flet ((%f (&key (a :good) &allow-other-keys) a))
381    :good)  ;;;     (%f 10 20)))
382    ;;;  :good)

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

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