/[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.29 by ram, Wed Aug 4 12:23:30 1993 UTC revision 1.30 by ram, Wed Aug 4 12:26:25 1993 UTC
# Line 1443  non-server method is also significantly Line 1443  non-server method is also significantly
1443  ;;;  ;;;
1444  (defun file-name (stream &optional new-name)  (defun file-name (stream &optional new-name)
1445    (when (typep stream 'fd-stream)    (when (typep stream 'fd-stream)
1446        (cond (arg1        (cond (new-name
1447               (setf (fd-stream-pathname stream) arg1)               (setf (fd-stream-pathname stream) new-name)
1448               (setf (fd-stream-file stream) (unix-namestring arg1 nil))               (setf (fd-stream-file stream)
1449                       (unix-namestring new-name nil))
1450               t)               t)
1451              (t              (t
1452               (fd-stream-pathname stream)))))               (fd-stream-pathname stream)))))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

  ViewVC Help
Powered by ViewVC 1.1.5