/[gcl]/gcl/ansi-tests/do-symbols.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/do-symbols.lsp

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

revision 1.4 by pfdietz, Sun Aug 29 22:03:24 2004 UTC revision 1.5 by pfdietz, Sat Jan 8 15:50:32 2005 UTC
# Line 132  Line 132 
132      (make-array 1 :element-type etype      (make-array 1 :element-type etype
133                  :displaced-to name0 :displaced-index-offset 1)))                  :displaced-to name0 :displaced-index-offset 1)))
134    
135    ;;; Free declaration scope tests
136    
137    (deftest do-symbols.16
138      (block done
139        (let ((x :bad))
140          (declare (special x))
141          (let ((x :good))
142            (do-symbols (s (return-from done x))
143              (declare (special x))))))
144      :good)
145    
146    (deftest do-symbols.17
147      (let ((x :good))
148        (declare (special x))
149        (let ((x :bad))
150          (do-symbols (s "CL-TEST" x)
151            (declare (special x)))))
152      :good)
153    
154  (def-macro-test do-symbols.error.1  (def-macro-test do-symbols.error.1
155    (do-symbols (x "CL")))    (do-symbols (x "CL")))
   

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