From f971b9a38c4e071f63357869383fcd30d765ae06 Mon Sep 17 00:00:00 2001 From: SANO Masatoshi Date: Tue, 13 Jun 2017 17:48:47 +0900 Subject: [PATCH] fix error --- lisp/util-dump.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/util-dump.lisp b/lisp/util-dump.lisp index 4ee100f..4f12460 100644 --- a/lisp/util-dump.lisp +++ b/lisp/util-dump.lisp @@ -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)