Check the correct value of `find-symbol', because `nil' is false.
(let ((home (car assoc)))
(dolist (symbol (cdr assoc))
(let ((name (symbol-name symbol)))
(let ((home (car assoc)))
(dolist (symbol (cdr assoc))
(let ((name (symbol-name symbol)))
- (unless (find-symbol name package)
+ (unless (nth-value 1 (find-symbol name package))
(format *error-output* ";; unexported: ~S~%" symbol))
(setf (gethash name homes) home)))))
(dolist (symbol symbols)
(format *error-output* ";; unexported: ~S~%" symbol))
(setf (gethash name homes) home)))))
(dolist (symbol symbols)