X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1-translators.lisp;h=eb93a2e4dfc0a533e25c7db295503fcfa6de5f67;hb=e73a30c901ab234291aefc9f1e73507650628892;hp=0bd616168f100ee663b98e004fadf55bcb0630a1;hpb=de66d0244088badaf0898195d3112b62e11727ea;p=sbcl.git

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index 0bd6161..eb93a2e 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -430,7 +430,7 @@
 		 '(lambda named-lambda instance-lambda lambda-with-lexenv))
 	 (ir1-convert-lambdalike
 			  thing
-			  :debug-name (debug-namify "#'~S" thing)
+			  :debug-name (debug-namify "#'" thing)
 			  :allow-debug-catch-tag t))
 	((legal-fun-name-p thing)
 	 (find-lexically-apparent-fun
@@ -544,8 +544,8 @@
                       (processing-decls (decls vars nil next result)
                         (let ((fun (ir1-convert-lambda-body
                                     forms vars
-                                    :debug-name (debug-namify "LET ~S"
-                                                              bindings))))
+                                    :debug-name (debug-namify "LET "
+							      bindings))))
                           (reference-leaf start ctran fun-lvar fun))
                         (values next result))))
             (ir1-convert-combination-args fun-lvar ctran next result values))))))
@@ -625,7 +625,7 @@
                              (ir1-convert-lambda d
                                                  :source-name n
                                                  :debug-name (debug-namify
-                                                              "FLET ~S" n)
+                                                              "FLET " n)
                                                  :allow-debug-catch-tag t))
                            names defs)))
         (processing-decls (decls nil fvars next result)
@@ -647,7 +647,7 @@
 					 (make-functional
 					  :%source-name name
 					  :%debug-name (debug-namify
-							"LABELS placeholder ~S"
+							"LABELS placeholder "
 							name)))
 				       names))
 	     ;; (like PAIRLIS but guaranteed to preserve ordering:)
@@ -660,7 +660,7 @@
 			  (ir1-convert-lambda def
 					      :source-name name
 					      :debug-name (debug-namify
-							   "LABELS ~S" name)
+							   "LABELS " name)
 					      :allow-debug-catch-tag t))
 			names defs))))
 
@@ -833,7 +833,7 @@
   (let ((fun (ir1-convert-lambda
 	      `(lambda ()
 		 (return-from ,tag (%unknown-values)))
-	      :debug-name (debug-namify "escape function for ~S" tag))))
+	      :debug-name (debug-namify "escape function for " tag))))
     (setf (functional-kind fun) :escape)
     (reference-leaf start next result fun)))