In OF-CLASS-P, remove warning about a variable type.

parent 4496a850
......@@ -577,7 +577,7 @@ Returns T if X belongs to TYPE; NIL otherwise."
(let ((x-cpl (class-precedence-list x-class)))
(if (instancep class)
(member class x-cpl :test #'eq)
(dolist (c x-cpl nil)
(dolist (c x-cpl)
(declare (class c))
(when (eq (class-name c) class)
(return t)))))))))
......
Markdown is supported
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