X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=fa366dbb21b5ab1b043f6e8b94cc7c1019293caf;hb=5ce77b3465434e396aa2d7670138a7e7741f3dae;hp=0e9ba01c102a9ccafa5c652119b8ad920a0a5ec3;hpb=0c25cf1e8e49095969378ab356a5516f29d4c139;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 0e9ba01..fa366db 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -186,7 +186,7 @@
   (with-ir1-environment-from-node (lambda-bind (main-entry fun))
     (let ((res (ir1-convert-lambda (make-xep-lambda-expression fun)
 				   :debug-name (debug-namify
-						"XEP for ~A"
+						"XEP for "
 						(leaf-debug-name fun)))))
       (setf (functional-kind res) :external
 	    (leaf-ever-used res) t
@@ -345,7 +345,7 @@
                           (ir1-convert-lambda
                            (functional-inline-expansion original-functional)
                            :debug-name (debug-namify
-                                        "local inline ~A"
+                                        "local inline "
                                         (leaf-debug-name
                                          original-functional)))))))
           (cond (losing-local-functional
@@ -546,7 +546,7 @@
 	    `(lambda ,vars
 	       (declare (ignorable ,@ignores))
 	       (%funcall ,entry ,@args))
-	    :debug-name (debug-namify "hairy function entry ~S"
+	    :debug-name (debug-namify "hairy function entry "
 				      (lvar-fun-name
 				       (basic-combination-fun call)))))))
     (convert-call ref call new-fun)
@@ -632,7 +632,7 @@
 			   (progn
 			     (ignores dummy val)
                              (unless (eq name :allow-other-keys)
-                               (setq loser name))))
+                               (setq loser (list name)))))
 		(let ((info (lambda-var-arg-info var)))
 		  (when (eq (arg-info-key info) name)
 		    (ignores dummy)
@@ -641,7 +641,7 @@
 
 	(when (and loser (not (optional-dispatch-allowp fun)) (not allowp))
 	  (compiler-warn "function called with unknown argument keyword ~S"
-			 loser)
+			 (car loser))
 	  (setf (basic-combination-kind call) :error)
 	  (return-from convert-more-call)))