Changeset 272

Timestamp:

Jan 13, 2004, 4:47:48 PM (21 years ago)

Author:

Gary Byers

Message:

(SATISFIES (OUTPUT-STREAM-P)). (The thing that's catching these things is
a half-bootstrapped type system, but I'd have liked to have seen that
one a lot earlier ...)

File:

• trunk/ccl/lib/pprint.lisp (modified) (1 diff)

trunk/ccl/lib/pprint.lisp

@@ -2137 +2137 @@
               (if (output-stream-p s)
                 s
-                (require-type s '(satisfies (output-stream-p))))))
+                (require-type s '(satisfies output-stream-p)))))
                 
     (let ((*format-control-string* control-string)