0.6.11.17:

[sbcl.git] / src / code / target-pathname.lisp

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 357d711..39dadfb 100644 (file)
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -570,7 +570,6 @@ a host-structure or string."
                                 (%pathname-host pathname))
                                :lower)))))
 
-;;; PATHNAME-TYPE
 (defun pathname-type (pathname &key (case :local))
   #!+sb-doc
   "Accessor for the pathname's name."
@@ -583,7 +582,6 @@ a host-structure or string."
                                 (%pathname-host pathname))
                                :lower)))))
 
-;;; PATHNAME-VERSION
 (defun pathname-version (pathname)
   #!+sb-doc
   "Accessor for the pathname's version."