From b06a92e75c28e3bc21c02ce5fbb0885fbf539aae Mon Sep 17 00:00:00 2001 From: "Tarn W. Burton" Date: Tue, 16 May 2023 07:36:41 -0400 Subject: [PATCH] Late initialize quasiquote --- ...ctivate-clasp-readtables-for-eclector.lisp | 29 ++----------------- 1 file changed, 3 insertions(+), 26 deletions(-) diff --git a/src/lisp/kernel/cleavir/activate-clasp-readtables-for-eclector.lisp b/src/lisp/kernel/cleavir/activate-clasp-readtables-for-eclector.lisp index 025eef5df0..cd35db8227 100644 --- a/src/lisp/kernel/cleavir/activate-clasp-readtables-for-eclector.lisp +++ b/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)