/[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.12 by pfdietz, Sat Jan 17 12:44:01 2004 UTC revision 1.13 by pfdietz, Sat Jan 8 13:35:39 2005 UTC
# Line 112  Line 112 
112    (destructuring-bind (&rest x &key) nil x)    (destructuring-bind (&rest x &key) nil x)
113    nil)    nil)
114    
115    (deftest destructuring-bind.25
116      (let ((x :bad))
117        (declare (special x))
118        (let ((x :good))
119          (destructuring-bind (y) (list x)
120            (declare (special x))
121            y)))
122      :good)
123    
124    (deftest destructuring-bind.26
125      (destructuring-bind (x) (list 1))
126      nil)
127    
128    (deftest destructuring-bind.27
129      (destructuring-bind (x) (list 1)
130        (declare (optimize)))
131      nil)
132    
133    (deftest destructuring-bind.28
134      (destructuring-bind (x) (list 1)
135        (declare (optimize))
136        (declare))
137      nil)
138    
139  ;;; Error cases  ;;; Error cases
140    
141  #|  #|

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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