/[gcl]/gcl/ansi-tests/beyond-ansi/errors-data-and-control-flow-2.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/beyond-ansi/errors-data-and-control-flow-2.lsp

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

revision 1.4 by pfdietz, Tue Jun 14 13:12:45 2005 UTC revision 1.5 by pfdietz, Fri Aug 12 11:38:17 2005 UTC
# Line 83  Line 83 
83  (def-all-error-test destructuring-bind.3  (def-all-error-test destructuring-bind.3
84    (typef '(or symbol cons))    (typef '(or symbol cons))
85    #'(lambda (x) `(destructuring-bind ,x nil)))    #'(lambda (x) `(destructuring-bind ,x nil)))
86    (def-error-test destructuring-bind.4 (destructuring-bind (x) '(a) nil (declare) x))
87    
88  ;;; LET  ;;; LET
89    
# Line 101  Line 102 
102  (def-all-error-test let.12 'symbolp  (def-all-error-test let.12 'symbolp
103    #'(lambda (x) `(let ((,x)) nil)))    #'(lambda (x) `(let ((,x)) nil)))
104    
105    (def-error-test let.13 (let ((x 0) (x 1)) x))
106    
107  ;;; LET*  ;;; LET*
108    
109  (def-error-test let*.1 (let*))  (def-error-test let*.1 (let*))

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