/[gcl]/gcl/ansi-tests/prog.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/prog.lsp

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

revision 1.2 by pfdietz, Sun Apr 20 22:59:26 2003 UTC revision 1.3 by pfdietz, Sat Jan 8 13:35:39 2005 UTC
# Line 71  Line 71 
71          (return 'bad))          (return 'bad))
72    2)    2)
73    
74    (deftest prog.11
75      (let ((x :bad))
76        (declare (special x))
77        (let ((x :good))
78          (prog ((y x))
79                (declare (special x))
80                (return y))))
81      :good)
82    
83  (def-macro-test prog.error.1 (prog nil))  (def-macro-test prog.error.1 (prog nil))
84    
85  ;;; Tests of PROG*  ;;; Tests of PROG*
# Line 141  Line 150 
150          (return 'bad))          (return 'bad))
151    2)    2)
152    
153    (deftest prog*.11
154      (let ((x :bad))
155        (declare (special x))
156        (let ((x :good))
157          (prog* ((y x))
158                 (declare (special x))
159                 (return y))))
160      :good)
161    
162  (def-macro-test prog*.error.1 (prog* nil))  (def-macro-test prog*.error.1 (prog* nil))

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

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