Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sun Apr 20 22:59:26 2003 UTC | revision 1.3 by pfdietz, Sat Jan 8 13:35:39 2005 UTC | |
---|---|---|
# | Line 71 | Line 71 |
71 | (return 'bad)) | (return 'bad)) |
72 | 2) | 2) |
73 | ||
74 | (deftest prog.11 | |
75 | (let ((x :bad)) | |
76 | (declare (special x)) | |
77 | (let ((x :good)) | |
78 | (prog ((y x)) | |
79 | (declare (special x)) | |
80 | (return y)))) | |
81 | :good) | |
82 | ||
83 | (def-macro-test prog.error.1 (prog nil)) | (def-macro-test prog.error.1 (prog nil)) |
84 | ||
85 | ;;; Tests of PROG* | ;;; Tests of PROG* |
# | Line 141 | Line 150 |
150 | (return 'bad)) | (return 'bad)) |
151 | 2) | 2) |
152 | ||
153 | (deftest prog*.11 | |
154 | (let ((x :bad)) | |
155 | (declare (special x)) | |
156 | (let ((x :good)) | |
157 | (prog* ((y x)) | |
158 | (declare (special x)) | |
159 | (return y)))) | |
160 | :good) | |
161 | ||
162 | (def-macro-test prog*.error.1 (prog* nil)) | (def-macro-test prog*.error.1 (prog* nil)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |