/[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.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)

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

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