This commit is contained in:
Gerd Heber 2015-08-14 19:55:32 -05:00
commit 3c5f86cada

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.
------------------------------------------------------------------------------"
(let ((k-list (k idnm)))
(declare (list k-list))
(unless k-list
(return-from kd2 nil))
(setf k-list (list k-list))