;; Turns out to be easier to do this by hand.
(let ((ds (and (eq (token-type scanner) :id)
(let ((kw (token-value scanner)))
- (or (and (boundp '*module-type-map*)
- (gethash kw *module-type-map*))
- (gethash kw *declspec-map*))))))
+ (or (gethash kw *declspec-map*)
+ (and (boundp '*module-type-map*)
+ (gethash kw *module-type-map*)))))))
(cond ((or (not ds) (and predicate (not (funcall predicate ds))))
(values (list indicator) nil nil))
((and (typep ds 'declspec) (ds-taggedp ds))