Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |