X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbackq.lisp;h=49d1ba8549a94dbbd740c452be3db44260351efc;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=839314158f046f9a354d57eebc39d9dc886c21de;hpb=ac0bb62cb48dcba68b07e0a1eb5573de92373c7c;p=sbcl.git

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index 8393141..49d1ba8 100644
--- a/src/code/backq.lisp
+++ b/src/code/backq.lisp
@@ -186,13 +186,10 @@
 		(cons 'backq-list* thing))))
 	((eq flag 'vector)
 	 (list 'backq-vector thing))
-	(t (cons (cdr
-		  (assoc flag
-			 '((cons . backq-cons)
-			   (list . backq-list)
-			   (append . backq-append)
-			   (nconc . backq-nconc))
-			 :test #'equal))
+	(t (cons (ecase flag
+		   ((list) 'backq-list)
+		   ((append) 'backq-append)
+		   ((nconc) 'backq-nconc))
 		 thing))))
 
 ;;;; magic BACKQ- versions of builtin functions
@@ -249,4 +246,12 @@
   '(backq-comma backq-comma-at backq-comma-dot backq-list
     backq-list* backq-append backq-nconc backq-cons backq-vector))
 
+;;; Since our backquote is installed on the host lisp, and since
+;;; developers make mistakes with backquotes and commas too, let's
+;;; ensure that we can report errors rather than get an undefined
+;;; function condition on %READER-ERROR.
+#+sb-xc-host ; proper definition happens for the target
+(defun %reader-error (stream format-string &rest format-args)
+  (bug "READER-ERROR on stream ~S: ~?" stream format-string format-args))
+
 (/show0 "done with backq.lisp")