Changeset 5413

Timestamp:

Oct 23, 2006, 3:42:05 PM (18 years ago)

Author:

Gary Byers

Message:

Use NORMALIZE-EXTERNAL-FORMAT in (SETF STREAM-EXTERNAL-FORMAT) methods.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -301 +301 @@
 
 (defmethod (setf stream-external-format) (new (s t))
-  (check-type new 'external-format)
+  (normalize-external-format (stream-domain s) new)
   (report-bad-arg s 'stream))
 
 (defmethod (setf stream-external-format) (new (s t))
-  (check-type new 'external-format)
+  (normalize-external-format (stream-domain s) new)
   (stream-external-format s))
 
@@ -4089 +4089 @@
     (unless (open-stream-p s)  (format out " ~s" :closed))))
 
+
+                 
+
 (defstruct (string-stream-ioblock (:include ioblock))
   string)