- (ft "~&Its proper name is ~S." name)
- (ft "~&Its name is ~S, but this is not a proper name." name))
- (ft "It has no name (the name is NIL).~%")))
- (ft "~&~@<The direct superclasses are: ~:S, and the direct~%~
- subclasses are: ~:S. The class precedence list is:~2I~_~S~I~_~
- There are ~S methods specialized for this class.~:>~%"
+ (ft "~&~@<Its proper name is ~S.~@:>" name)
+ (ft "~&~@<Its name is ~S, but this is not a proper name.~@:>"
+ name))
+ (ft "~&~@<It has no name (the name is NIL).~@:>")))
+ (ft "~&~@<The direct superclasses are: ~:S, and the direct ~
+ subclasses are: ~:S.~I~_The class is ~:[not ~;~]finalized~
+ ~:[. ~;; its class precedence list is:~2I~_~:*~S.~]~I~_~
+ There ~[are~;is~:;are~] ~:*~S method~:P specialized for ~
+ this class.~:@>~%"