X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Funix.lisp;h=eace65c5706dc1ccbe6c85322e52c9c56233a631;hb=aa61c7571b33b86981301f34d3acdb66666f53a3;hp=71490821b7c9f95dd66d504ef7d8713057933c0b;hpb=95f5ac2fa70b3f14d052e20f4250166f219dcc39;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 7149082..eace65c 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -697,11 +697,11 @@
 (defun unix-resolve-links (pathname)
   (declare (type simple-string pathname))
   (aver (not (relative-unix-pathname? pathname)))
-  (/show "entering UNIX-RESOLVE-LINKS")
+  (/noshow "entering UNIX-RESOLVE-LINKS")
   (loop with previous-pathnames = nil do
-	(/show pathname previous-pathnames)
+	(/noshow pathname previous-pathnames)
 	(let ((link (unix-readlink pathname)))
-	  (/show link)
+	  (/noshow link)
 	  ;; Unlike the old CMU CL code, we handle a broken symlink by
 	  ;; returning the link itself. That way, CL:TRUENAME on a
 	  ;; broken link returns the link itself, so that CL:DIRECTORY
@@ -720,7 +720,7 @@
 							pathname
 							:from-end t)))
 				 (dir (subseq pathname 0 dir-len)))
-			    (/show dir)
+			    (/noshow dir)
 			    (concatenate 'string dir link))
 			  link))))
 		(if (unix-file-kind new-pathname)