Verified Commit 061d8e28 authored by Vladimir Sedach's avatar Vladimir Sedach
Browse files

Fix nconc clobbering of (declare (special …)) declarations

parent 28919764
......@@ -402,12 +402,12 @@ Parenscript now implements implicit return, update your code! Things like (lambd
(with-ps-gensyms (decls)
`(multiple-value-bind (,decls ,var) (parse-body ,block)
(let ((*special-variables*
(append (loop for decl in ,decls
nconcing
(loop for (id . rest) in (cdr decl)
if (eq id 'special)
nconc rest))
*special-variables*)))
(nconc
(loop for decl in ,decls nconc
(loop for (decl-type . decl-args) in (cdr decl)
if (eq decl-type 'special)
append decl-args))
*special-variables*)))
,@body))))
(defun maybe-rename-lexical-var (x symbols-in-bindings)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment