X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ffd-stream.lisp;h=6df3f9f8de1796cda6442c4b4f4a2e5c7e3502d3;hb=6cbe4d8ba6d7bc469d03a72514c789b1f3944878;hp=583345fa5002dd111306630f4875d64402c147a1;hpb=dccfa0f4e378a267744c03b1416accdf9d888987;p=sbcl.git

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index 583345f..6df3f9f 100644
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -1272,6 +1272,8 @@
 
 ;;; This is kind of like FILE-POSITION, but is an internal hack used
 ;;; by the filesys stuff to get and set the file name.
+;;;
+;;; FIXME: misleading name, screwy interface
 (defun file-name (stream &optional new-name)
   (when (typep stream 'fd-stream)
       (cond (new-name