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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Fri Oct 11 00:38:14 2002 UTC revision 1.5 by pfdietz, Fri Oct 11 00:59:20 2002 UTC
# Line 293  Line 293 
293    (1 2 (:foo a :bar b) a b)    (1 2 (:foo a :bar b) a b)
294    (1 2 (:bar b :foo a) a b))    (1 2 (:bar b :foo a) a b))
295    
296    ;;; Binding of formal parameters that are also special variables
297    (deftest flet.35
298      (let ((x 'bad))
299        (declare (special x))
300        (flet ((%f () x))
301          (flet ((%g (x)
302                     (declare (special x))
303                     (%f)))
304            (%g 'good))))
305      good)
306    
307    (deftest flet.36
308      (let ((x 'bad))
309        (declare (special x))
310        (flet ((%f () x))
311          (flet ((%g (&aux (x 'good))
312                     (declare (special x))
313                     (%f)))
314             (%g))))
315      good)
316    
317    (deftest flet.37
318      (let ((x 'bad))
319        (declare (special x))
320        (flet ((%f () x))
321          (flet ((%g (&rest x)
322                     (declare (special x))
323                     (%f)))
324             (%g 'good))))
325      (good))
326    
327    (deftest flet.38
328      (let ((x 'bad))
329        (declare (special x))
330        (flet ((%f () x))
331          (flet ((%g (&key (x 'good))
332                     (declare (special x))
333                     (%f)))
334             (%g))))
335      good)
336    
337    (deftest flet.39
338      (let ((x 'bad))
339        (declare (special x))
340        (flet ((%f () x))
341          (flet ((%g (&key (x 'bad))
342                     (declare (special x))
343                     (%f)))
344             (%g :x 'good))))
345      good)
346    
347    (deftest flet.40
348      (let ((x 'good))
349        (declare (special x))
350        (flet ((%f () x))
351          (flet ((%g (&key (x 'bad))
352                     (%f)))
353             (%g :x 'worse))))
354      good)
355    
356    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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