/[gcl]/gcl/ansi-tests/destructuring-bind.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/destructuring-bind.lsp

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

revision 1.7 by pfdietz, Sat Apr 19 18:17:51 2003 UTC revision 1.8 by pfdietz, Sun Apr 20 22:59:25 2003 UTC
# Line 129  Line 129 
129  ;;;  (classify-error (destructuring-bind x))  ;;;  (classify-error (destructuring-bind x))
130  ;;;  program-error)  ;;;  program-error)
131    
132    (deftest destructuring-bind.error.7
133      (classify-error (funcall (macro-function 'destructuring-bind)))
134      program-error)
135    
136    (deftest destructuring-bind.error.8
137      (classify-error (funcall (macro-function 'destructuring-bind)
138                               '(destructuring-bind (a . b) '(1 2) nil)))
139      program-error)
140    
141    (deftest destructuring-bind.error.9
142      (classify-error (funcall (macro-function 'destructuring-bind)
143                               '(destructuring-bind (a . b) '(1 2) nil)
144                               nil nil))
145      program-error)
146    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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