Removed incorrect type declaration.

This commit is contained in:
Gerd Heber 2015-08-14 19:51:50 -05:00
parent f909237c5c
commit a90925c6cf

View File

@ -100,7 +100,6 @@ for all Kenzo objects of the same type in relation with this object. Return
the list of object numbers. the list of object numbers.
------------------------------------------------------------------------------" ------------------------------------------------------------------------------"
(let ((k-list (k idnm))) (let ((k-list (k idnm)))
(declare (list k-list))
(unless k-list (unless k-list
(return-from kd2 nil)) (return-from kd2 nil))
(setf k-list (list k-list)) (setf k-list (list k-list))