/[gcl]/gcl/ansi-tests/with-slots.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/with-slots.lsp

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

revision 1.3 by pfdietz, Fri Jun 13 12:01:28 2003 UTC revision 1.4 by pfdietz, Sat Jan 8 15:50:32 2005 UTC
# Line 167  Line 167 
167                  (declare (special *x*))                  (declare (special *x*))
168                  (values a b c)))                  (values a b c)))
169    x y z)    x y z)
170    
171    ;;; Free declaration scope test
172    
173    (deftest with-slots.21
174      (block done
175        (let ((x :bad))
176          (declare (special x))
177          (let ((x :good))
178            (with-slots nil (return-from done x)
179                        (declare (special x))))))
180      :good)

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

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