X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fbackq.lisp;h=b82b4641ac874eeede936189c0ba93d6ce34cebd;hb=56a972e201d117a8d5d769527f2bafd23cba7de9;hp=32cbdcf13be92bddc006d989bcb65a615c098f4a;hpb=c53ec09694206092fd3aa933adade5e5d5b343d2;p=sbcl.git

diff --git a/src/code/backq.lisp b/src/code/backq.lisp
index 32cbdcf..b82b464 100644
--- a/src/code/backq.lisp
+++ b/src/code/backq.lisp
@@ -244,4 +244,17 @@
   (set-macro-character #\, #'comma-macro))
 #+sb-xc-host (!backq-cold-init)
 
+;;; The pretty-printer needs to know about our special tokens
+(defvar *backq-tokens*
+  '(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")