X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fshow.lisp;h=c4abb219ec0e2a4993b67b73dcd3341658fa2141;hb=fbe6e22af842835f7c70309f4d48064ca3984ad0;hp=b1ecc30b47c450bcd606a62a96562ab16b594158;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git

diff --git a/src/code/show.lisp b/src/code/show.lisp
index b1ecc30..c4abb21 100644
--- a/src/code/show.lisp
+++ b/src/code/show.lisp
@@ -13,6 +13,21 @@
 (in-package "SB!INT")
 
 ;;;; various SB-SHOW-dependent forms
+;;;;
+;;;; In general, macros named /FOO
+;;;;   * are for debugging/tracing
+;;;;   * expand into nothing unless :SB-SHOW is in the target
+;;;;     features list
+;;;; Often, they also do nothing at runtime if */SHOW* is NIL, but
+;;;; this is not always true for some very-low-level ones.
+;;;;
+;;;; (I follow the "/FOO for debugging/tracing expressions" naming
+;;;; rule and several other naming conventions in all my Lisp
+;;;; programming when possible, and then set Emacs to display comments
+;;;; in one shade of blue, tracing expressions in another shade of
+;;;; blue, and declarations and assertions in a yellowish shade, so
+;;;; that it's easy to separate them from the "real code" which
+;;;; actually does the work of the program. -- WHN 2001-05-07)
 
 ;;; Set this to NIL to suppress output from /SHOW-related forms.
 #!+sb-show (defvar */show* t)
@@ -101,8 +116,8 @@
 		    #!+sb-show
 		    (sb!sys:%primitive print
 				       ,(concatenate 'simple-string "/" s)))))
-(defmacro /noshow0 (s)
-  (declare (ignore s)))
+(defmacro /noshow0 (&rest rest)
+  (declare (ignore rest)))
 
 ;;; low-level display of a string, works even early in cold init
 (defmacro /primitive-print (thing)