/[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.21 by pfdietz, Sat May 14 12:16:28 2005 UTC revision 1.22 by pfdietz, Sat Jun 25 01:23:01 2005 UTC
# Line 24  Line 24 
24  ;;; the local function declaration  ;;; the local function declaration
25  (deftest flet.4  (deftest flet.4
26    (block %f    (block %f
27      (flet ((%f (&optional (x (return-from %f 10)))      (flet ((%f (&optional (x (return-from %f :good)))
28                 20))                 nil))
29        (%f)))        (%f)
30    10)        :bad))
31      :good)
32    
33  (deftest flet.5  (deftest flet.5
34    (flet ((%f () (return-from %f 15) 35))    (flet ((%f () (return-from %f 15) 35))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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