/[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.12 by pfdietz, Tue Mar 4 14:14:31 2003 UTC revision 1.13 by pfdietz, Sat Apr 19 04:30:43 2003 UTC
# Line 437  Line 437 
437       10       10
438       (return-from done 'good)))       (return-from done 'good)))
439    good)    good)
440    
441    ;;; Check that nil keyword arguments do not enable the default values
442    
443    (deftest flet.53
444      (flet ((%f (&key (a 'wrong)) a)) (%f :a nil))
445      nil)
446    
447    (deftest flet.54
448      (flet ((%f (&key (a 'wrong a-p)) (list a (not a-p)))) (%f :a nil))
449      (nil nil))
450    
451    (deftest flet.55
452      (flet ((%f (&key ((:a b) 'wrong)) b)) (%f :a nil))
453      nil)
454    
455    (deftest flet.56
456      (flet ((%f (&key ((:a b) 'wrong present?)) (list b (not present?)))) (%f :a nil))
457      (nil nil))
458    
459    (deftest flet.57
460      (flet ((%f (&key) 'good))
461        (%f :allow-other-keys nil))
462      good)
463    
464    (deftest flet.58
465      (flet ((%f (&key) 'good))
466        (%f :allow-other-keys t))
467      good)
468    
469    (deftest flet.59
470      (flet ((%f (&key) 'good))
471        (%f :allow-other-keys t :a 1 :b 2))
472      good)
473    
474    (deftest flet.60
475      (flet ((%f (&key &allow-other-keys) 'good))
476        (%f :a 1 :b 2))
477      good)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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