X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=39dadfb15d47981b4256e43193bcc32fa6425248;hb=cbaa1997bb097a55d108df592ac3b7eb4a703fff;hp=357d7114c60b2425c0b1370cbea8516c50a2ea4f;hpb=0aafa73007d42f2bc8e626f98a243019b7e63284;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 357d711..39dadfb 100644
--- 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."