/[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.17 by pfdietz, Sat May 15 18:52:08 2004 UTC revision 1.18 by pfdietz, Sat Jan 8 02:41:29 2005 UTC
# Line 455  Line 455 
455    (signals-error    (signals-error
456     (flet ((%f (&key) :bad)) (%f nil nil))     (flet ((%f (&key) :bad)) (%f nil nil))
457     program-error)     program-error)
   t)  
458      t)
459    
460    ;;; Free declarations do not affect argument forms
461    
462    (deftest flet.62
463      (let ((x :bad))
464        (declare (special x))
465        (let ((x :good))
466          (flet ((%f (&optional (y x))
467                     (declare (special x))
468                     y))
469            (%f))))
470      :good)
471    
472    (deftest flet.63
473      (let ((x :bad))
474        (declare (special x))
475        (let ((x :good))
476          (flet ((%f (&key (y x))
477                     (declare (special x))
478                     y))
479            (%f))))
480      :good)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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