+ (eq s *the-class-file-stream*) (eq s *the-class-string-stream*)
+ ;; This probably shouldn't be mixed in with certain other
+ ;; classes, too, but it seems to work both with STANDARD-OBJECT
+ ;; and FUNCALLABLE-STANDARD-OBJECT
+ (eq s *the-class-sequence*)))