It should be bound in general use, but depending on it makes testing
unnecessarily difficult.
(defmethod coerce-property-value
((value string) (type (eql :id)) (wanted (eql :type)))
(defmethod coerce-property-value
((value string) (type (eql :id)) (wanted (eql :type)))
- (or (gethash value *module-type-map*)
+ (or (and (boundp '*module-type-map*)
+ (gethash value *module-type-map*))
(gethash value *declspec-map*)
(error "Unknown type `~A'." value)))
(gethash value *declspec-map*)
(error "Unknown type `~A'." value)))