V(
((make-instance ... ) (make-instance ... ) (make-instance ... ) ... )
а проверять чтоб значит нужно?:
(defun list-of (struct lst)
(and (struct-p (car lst) (list-of (struct (cdr lst))))))
(defun list-of (struct lst)
(and (struct-p (car lst) (list-of (struct (cdr lst))))))
