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

Diff of /gcl/ansi-tests/do-external-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 111  Line 111 
111      (make-array 3 :element-type etype      (make-array 3 :element-type etype
112                  :displaced-to name0 :displaced-index-offset 1)))                  :displaced-to name0 :displaced-index-offset 1)))
113    
114    ;;; Free declaration scope tests
115    
116    (deftest do-external-symbols.16
117      (block done
118        (let ((x :bad))
119          (declare (special x))
120          (let ((x :good))
121            (do-external-symbols (s (return-from done x))
122              (declare (special x))))))
123      :good)
124    
125    (deftest do-external-symbols.17
126      (let ((x :good))
127        (declare (special x))
128        (let ((x :bad))
129          (do-external-symbols (s "CL-TEST" x)
130            (declare (special x)))))
131      :good)
132    
133  ;;; Error tests  ;;; Error tests
134    
135  (def-macro-test do-external-symbols.error.1  (def-macro-test do-external-symbols.error.1

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