common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix error

Browse source
This commit is contained in:
SANO Masatoshi 2017-06-13 17:48:47 +09:00
parent db87c36214
commit f971b9a38c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/util-dump.lisp
View file

@ -102,8 +102,8 @@ This is a portable implementation."
(set (second i) (third i)))
((and (listp i)
(eql (first i) 'pushnew)
(not (find (second i) (third i) :test #'equal)))
(set (third i) (cons (second i) (third i))))
(not (find (second i) (symbol-value (third i)) :test #'equal)))
(set (third i) (cons (second i) (symbol-value (third i)))))
((symbolp i)
(funcall i))
((listp i)