- ;; definition yet, we know one is planned. (But if this
- ;; function name was already declared as a structure
- ;; accessor, then that was already been taken care of.)
- (unless (info :function :accessor-for name)
- (proclaim-as-fun-name name)
- (note-name-defined name :function))
+ ;; definition yet, we know one is planned.
+ ;;
+ ;; Other consequences of we-know-you're-a-function-now
+ ;; are appropriate too, e.g. any MACRO-FUNCTION goes away.
+ (proclaim-as-fun-name name)
+ (note-name-defined name :function)