Parent Directory | Revision Log | Patch
revision 1.12 by pfdietz, Sat Jan 8 02:41:29 2005 UTC | revision 1.13 by pfdietz, Sat Jan 8 11:11:05 2005 UTC | |
---|---|---|
# | Line 320 | Line 320 |
320 | (%f)))) | (%f)))) |
321 | :good) | :good) |
322 | ||
323 | (deftest labels.43 | |
324 | (let ((x :bad)) | |
325 | (declare (special x)) | |
326 | (let ((x :good)) | |
327 | (labels () (declare (special x))) | |
328 | x)) | |
329 | :good) | |
330 | ||
331 | (deftest labels.44 | |
332 | (let ((x :bad)) | |
333 | (declare (special x)) | |
334 | (let ((x :good)) | |
335 | (labels ((%f () (declare (special x))))) | |
336 | x)) | |
337 | :good) | |
338 | ||
339 | (deftest labels.45 | |
340 | (let ((x :bad)) | |
341 | (declare (special x)) | |
342 | (let ((x :good)) | |
343 | (labels ((%f () (declare (special x)))) | |
344 | x))) | |
345 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |