Updates for bytecode

Author: yitzchak

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

@@ -160,20 +160,6 @@
 	 (pprint-fill stream list)))
       (pprint-fill stream list)))
 
-(defparameter +eclector-magic-forms+
-  '((eclector.reader:quasiquote pprint-quote)
-    (eclector.reader:unquote pprint-quote)
-    (eclector.reader:unquote-splicing pprint-quote)))
-
-(progn
-  (setf (pprint-dispatch-table-read-only-p *standard-pprint-dispatch*) nil)
-  (dolist (magic-form +eclector-magic-forms+)
-    (set-pprint-dispatch `(cons (eql ,(first magic-form)))
-			 (symbol-function (second magic-form))
-                         0 *standard-pprint-dispatch*))
-  (setf *print-pprint-dispatch* (copy-pprint-dispatch nil)
-        (pprint-dispatch-table-read-only-p *standard-pprint-dispatch*) t))
-
 (defmethod print-object ((l cons) stream)
   (if (cdr l)
       (case (first l)
@@ -189,3 +175,7 @@
         (otherwise
          (call-next-method)))
       (call-next-method)))
+
+(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))