/[gcl]/gcl/ansi-tests/let.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/let.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sat Oct 12 14:45:33 2002 UTC revision 1.2 by pfdietz, Sat Oct 12 15:24:56 2002 UTC
# Line 65  Line 65 
65            x))            x))
66    (1 nil 1))    (1 nil 1))
67    
68    (deftest let.12
69      (let ((x 0))
70        (values
71         (let ((x 20)
72               (x (1+ x)))
73           x)
74         x))
75      1 0)
76    
77  (deftest let.13  (deftest let.13
78    (flet ((%f () (declare (special x))    (flet ((%f () (declare (special x))
79               (if (boundp 'x) x 10)))               (if (boundp 'x) x 10)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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