/[cmucl]/src/code/fd-stream.lisp
ViewVC logotype

Diff of /src/code/fd-stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by ram, Fri May 24 17:02:25 1991 UTC revision 1.16 by wlott, Sat Nov 9 02:47:09 1991 UTC
# Line 70  Line 70 
70    ;;    ;;
71    ;;; Number of bytes per element.    ;;; Number of bytes per element.
72    (element-size 1 :type index)    (element-size 1 :type index)
73    (element-type 'base-character) ; The type of element being transfered.    (element-type 'base-char)   ; The type of element being transfered.
74    (fd -1 :type fixnum)        ; The file descriptor    (fd -1 :type fixnum)        ; The file descriptor
75    ;;    ;;
76    ;; Controls when the output buffer is flushed.    ;; Controls when the output buffer is flushed.
# Line 890  non-server method is also significantly Line 890  non-server method is also significantly
890                  (fd-stream-bout stream) #'ill-bout)                  (fd-stream-bout stream) #'ill-bout)
891            (setf (fd-stream-out stream)            (setf (fd-stream-out stream)
892                  (or (if (eql size 1)                  (or (if (eql size 1)
893                        (pick-output-routine 'base-character                        (pick-output-routine 'base-char
894                                             (fd-stream-buffering stream)))                                             (fd-stream-buffering stream)))
895                      #'ill-out)                      #'ill-out)
896                  (fd-stream-bout stream) routine))                  (fd-stream-bout stream) routine))
# Line 1127  non-server method is also significantly Line 1127  non-server method is also significantly
1127                         &key                         &key
1128                         (input nil input-p)                         (input nil input-p)
1129                         (output nil output-p)                         (output nil output-p)
1130                         (element-type 'base-character)                         (element-type 'base-char)
1131                         (buffering :full)                         (buffering :full)
1132                         timeout                         timeout
1133                         file                         file
# Line 1228  non-server method is also significantly Line 1228  non-server method is also significantly
1228  (defun open (filename  (defun open (filename
1229               &key               &key
1230               (direction :input)               (direction :input)
1231               (element-type 'base-character)               (element-type 'base-char)
1232               (if-exists nil if-exists-given)               (if-exists nil if-exists-given)
1233               (if-does-not-exist nil if-does-not-exist-given))               (if-does-not-exist nil if-does-not-exist-given))
1234    "Return a stream which reads from or writes to Filename.    "Return a stream which reads from or writes to Filename.
1235    Defined keywords:    Defined keywords:
1236     :direction - one of :input, :output, :io, or :probe     :direction - one of :input, :output, :io, or :probe
1237     :element-type - Type of object to read or write, default BASE-CHARACTER     :element-type - Type of object to read or write, default BASE-CHAR
1238     :if-exists - one of :error, :new-version, :rename, :rename-and-delete,     :if-exists - one of :error, :new-version, :rename, :rename-and-delete,
1239                         :overwrite, :append, :supersede or nil                         :overwrite, :append, :supersede or nil
1240     :if-does-not-exist - one of :error, :create or nil     :if-does-not-exist - one of :error, :create or nil

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5