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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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