(if (consp spec) spec (list spec)))
(dolist (spec (cdr item))
(destructuring-bind (label
- &key
- (name (string-downcase label))
- compat
- (taggedp taggedp))
+ &key (name (string-downcase label))
+ compat (taggedp taggedp))
(if (consp spec) spec (list spec))
(let ((ds (make-instance 'declspec
:label label