Parent Directory | Revision Log | Patch
revision 1.11 by pfdietz, Fri Nov 5 03:33:22 2004 UTC | revision 1.12 by pfdietz, Sat Jan 8 02:41:29 2005 UTC | |
---|---|---|
# | Line 298 | Line 298 |
298 | (eqlt x (funcall x))) | (eqlt x (funcall x))) |
299 | t) | t) |
300 | ||
301 | ;;; Test that free declarations do not affect argument forms | |
302 | ||
303 | (deftest labels.41 | |
304 | (let ((x :bad)) | |
305 | (declare (special x)) | |
306 | (let ((x :good)) | |
307 | (labels ((%f (&optional (y x)) | |
308 | (declare (special x)) | |
309 | y)) | |
310 | (%f)))) | |
311 | :good) | |
312 | ||
313 | (deftest labels.42 | |
314 | (let ((x :bad)) | |
315 | (declare (special x)) | |
316 | (let ((x :good)) | |
317 | (labels ((%f (&key (y x)) | |
318 | (declare (special x)) | |
319 | y)) | |
320 | (%f)))) | |
321 | :good) | |
322 | ||
323 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |