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

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

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

revision 1.7 by pfdietz, Fri Jul 1 03:32:03 2005 UTC revision 1.8 by pfdietz, Fri Jul 1 11:26:50 2005 UTC
# Line 336  Line 336 
336           nil))))           nil))))
337    :good)    :good)
338    
339    (deftest lambda.64
340      (let ((x :bad))
341        (declare (special x))
342        (flet ((%f () x))
343          ((lambda (x &aux (y (%f)))
344             (declare (type t y) (special x))
345             y)
346           :good)))
347      :good)
348    
349  ;;; Tests of lambda as a macro  ;;; Tests of lambda as a macro
350    
351  (deftest lambda.macro.1  (deftest lambda.macro.1

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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