HCoop
/
clinton
/
parenscript.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
46ec115
)
Added &OPTIONAL to DESTRUCTURING-BIND. Currently it's just ignored (next step woudl...
origin/HEAD
origin/master
author
Daniel Gackle
<danielgackle@gmail.com>
Thu, 17 Sep 2009 23:47:52 +0000
(17:47 -0600)
committer
Daniel Gackle
<danielgackle@gmail.com>
Fri, 18 Sep 2009 19:46:17 +0000
(13:46 -0600)
src/lib/ps-macro-lib.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/lib/ps-macro-lib.lisp
b/src/lib/ps-macro-lib.lisp
index
78af135
..
56b88dc
100644
(file)
--- a/
src/lib/ps-macro-lib.lisp
+++ b/
src/lib/ps-macro-lib.lisp
@@
-160,6
+160,8
@@
(atom (second bindings)))
(bind-rest (second bindings))
(error "~a is invalid in destructuring list." bindings)))
+ ((eq (car bindings) '&optional)
+ (destructuring-wrap arr n (cdr bindings) body :setf? setf?))
(t (let ((var (car bindings))
(inner-body (destructuring-wrap arr (1+ n) (cdr bindings) body :setf? setf?)))
(cond ((null var) inner-body)