Late initialize quasiquote

src/lisp/kernel/cleavir/activate-clasp-readtables-for-eclector.lisp

@@ -123,31 +123,6 @@
 
 (in-package :sys)
 
-(defun pprint-quote (stream list &rest noise)
-  (declare (ignore noise))
-  (if (and (consp list)
-	   (consp (cdr list))
-	   (null (cddr list)))
-      (case (car list)
-	(function
-	 (write-string "#'" stream)
-	 (write-object (cadr list) stream))
-	(quote
-	 (write-char #\' stream)
-	 (write-object (cadr list) stream))
-        (eclector.reader:quasiquote
-         (write-char #\` stream)
-         (write-object (cadr list) stream))
-        (eclector.reader:unquote
-         (write-char #\, stream)
-         (write-object (cadr list) stream))
-        (eclector.reader:unquote-splicing
-         (write-string ",@" stream)
-         (write-object (cadr list) stream))
-	(t
-	 (pprint-fill stream list)))
-      (pprint-fill stream list)))
-
 (defmethod print-object ((l cons) stream)
   (if (cdr l)
       (case (first l)
@@ -166,4 +141,6 @@
 
 (setf inravina-intrinsic::*initial-pprint-dispatch* (inravina:copy-pprint-dispatch inravina-intrinsic:*client* nil t)
       inravina-intrinsic::*standard-pprint-dispatch* (inravina:copy-pprint-dispatch inravina-intrinsic:*client* nil t)
-      *print-pprint-dispatch* (inravina:copy-pprint-dispatch inravina-intrinsic:*client* t))
+      *print-pprint-dispatch* (inravina:copy-pprint-dispatch inravina-intrinsic:*client* nil))
+
+(inravina::find-unquote-symbols)