/[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.8 by pfdietz, Sat Jan 11 23:04:36 2003 UTC revision 1.9 by pfdietz, Sat Feb 1 04:39:54 2003 UTC
# Line 380  Line 380 
380  ;;;   (flet ((%f (&key (a :good) &allow-other-keys) a))  ;;;   (flet ((%f (&key (a :good) &allow-other-keys) a))
381  ;;;     (%f 10 20)))  ;;;     (%f 10 20)))
382  ;;;  :good)  ;;;  :good)
383    
384    
385    (deftest flet.45
386      (flet ((nil () 'a)) (nil))
387      a)
388    
389    (deftest flet.46
390      (flet ((t () 'b)) (t))
391      b)
392    

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

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