208 |
;;; Common Lisp BUG: |
;;; Common Lisp BUG: |
209 |
;;; Common Lisp should have destructuring-bind. |
;;; Common Lisp should have destructuring-bind. |
210 |
;;; |
;;; |
211 |
(defmacro destructuring-bind (pattern form &body body) |
;#-gcl |
212 |
|
; FIXME use regular destructuring-bind |
213 |
|
(defmacro pcl-destructuring-bind (pattern form &body body) |
214 |
(multiple-value-bind (ignore declares body) |
(multiple-value-bind (ignore declares body) |
215 |
(extract-declarations body) |
(extract-declarations body) |
216 |
(declare (ignore ignore)) |
(declare (ignore ignore)) |