/[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.44 by pw, Tue Jul 14 18:12:15 1998 UTC revision 1.45 by pw, Thu Jul 16 13:30:45 1998 UTC
# Line 1260  non-server method is also significantly Line 1260  non-server method is also significantly
1260                         :overwrite, :append, :supersede or nil                         :overwrite, :append, :supersede or nil
1261     :if-does-not-exist - one of :error, :create or nil     :if-does-not-exist - one of :error, :create or nil
1262    See the manual for details."    See the manual for details."
1263      (declare (ignore external-format))
   (unless (eq external-format :default)  
     (error "Only :DEFAULT is acceptable for :EXTERNAL-FORMAT."))  
1264    
1265    ;; First, make sure that DIRECTION is valid. Allow it to be changed if not.    ;; First, make sure that DIRECTION is valid. Allow it to be changed if not.
1266    (setf direction    (setf direction

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

  ViewVC Help
Powered by ViewVC 1.1.5