~mdw
/
lisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
anaphora.lisp: Rewrite `asetf' to use `with-places/gensyms'.
[lisp]
/
optparse.lisp
diff --git
a/optparse.lisp
b/optparse.lisp
index
73d9619
..
a949128
100644
(file)
--- a/
optparse.lisp
+++ b/
optparse.lisp
@@
-447,8
+447,8
@@
(setf (get ',name 'opthandler) ',func)
(defun ,func (,var ,arg ,@args)
,@docs ,@decls
+ (declare (ignorable ,arg))
(with-locatives ,var
- (declare (ignorable ,arg))
,@body))
',name))))