/[gcl]/gcl/ansi-tests/handler-case.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/handler-case.lsp

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

revision 1.6 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.7 by pfdietz, Sat Jan 8 15:50:32 2005 UTC
# Line 199  Line 199 
199  (deftest handler-case.28  (deftest handler-case.28
200    (handler-case (error "foo") (error () (declare (optimize speed))))    (handler-case (error "foo") (error () (declare (optimize speed))))
201    nil)    nil)
202    
203    ;;; Free declaration scope
204    
205    (deftest handler-case.29
206      (let ((x :bad))
207        (declare (special x))
208        (let ((x :good))
209          (handler-case nil
210                        (:no-error (z &aux (y x))
211                                   (declare (special x) (ignore z))
212                                   y))))
213      :good)

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

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