Ignore:
Timestamp:
Feb 20, 2005, 11:24:10 PM (15 years ago)
Author:
bryan
Message:

rewrite stream-external-format as a generic function.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-sysio.lisp

    r929 r943  
    616616                fstream))))))))
    617617
    618 (defun stream-external-format (stream)
    619   "Return the actual external format for file-streams, otherwise :DEFAULT."
    620   (etypecase stream
    621     (file-stream (file-stream-external-format stream))
    622     (broadcast-stream (let* ((last (last-broadcast-stream stream)))
    623                         (if last
    624                           (stream-external-format last)
    625                           :default)))))
     618(defmethod stream-external-format ((s file-stream))
     619  (file-stream-external-format s))
     620
     621(defmethod stream-external-format ((s broadcast-stream))
     622  (let* ((last (last-broadcast-stream s)))
     623    (if last
     624        (stream-external-format s)
     625        :default)))
    626626
    627627;;; Under the circumstances, this is a very slow way of saying
Note: See TracChangeset for help on using the changeset viewer.