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

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

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

revision 1.9 by pfdietz, Sat Jan 17 18:38:50 2004 UTC revision 1.10 by pfdietz, Sat Jan 8 02:07:05 2005 UTC
# Line 119  Line 119 
119       (return-from done 'good)))       (return-from done 'good)))
120    good)    good)
121    
122    ;;; Check that free declarations do not apply to the init forms
123    
124    (deftest let.17
125      (let ((x :bad))
126        (declare (special x))
127        (let ((x :good)) ;; lexical binding
128          (let ((y x))
129            (declare (special x)) ;; free declaration
130            y)))
131      :good)
132    
133  ;;; Tests for LET*  ;;; Tests for LET*
134    
# Line 227  Line 237 
237       10       10
238       (return-from done 'good)))       (return-from done 'good)))
239    good)    good)
240    
241    ;;; Check that free declarations do not apply to the init forms
242    
243    (deftest let*.17
244      (let ((x :bad))
245        (declare (special x))
246        (let ((x :good)) ;; lexical binding
247          (let* ((y x))
248            (declare (special x)) ;; free declaration
249            y)))
250      :good)
251    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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