/[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.13 by pfdietz, Sat Jan 8 11:11:05 2005 UTC revision 1.14 by pfdietz, Sat Jan 8 13:35:39 2005 UTC
# Line 343  Line 343 
343        (labels ((%f () (declare (special x))))        (labels ((%f () (declare (special x))))
344          x)))          x)))
345    :good)    :good)
346    
347    (deftest labels.46
348      (let ((x :bad))
349        (declare (special x))
350        (let ((x :good))
351          (labels ((%f (&aux (y x))
352                       (declare (special x))
353                       y))
354            (%f))))
355      :good)
356    
357    (deftest labels.47
358      (let ((x :bad))
359        (declare (special x))
360        (let ((x :good))
361          (labels ((%f () x))
362            (declare (special x))
363            (%f))))
364      :good)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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