Commit ab69cf9e authored by Eric Timmons's avatar Eric Timmons
Browse files

client: Ensure *print-readably* is set to NIL in CLPM subprocess 

Temporary fix for #13 where ECL cannot READ BASE-STRINGs printed readably by
SBCL.
parent 8166a804

client/proc.lisp

+3 −1
Changes for client/proc.lisp: 3 added lines, 1 removed line.
Original line number Diff line number Diff line
@@ -119,7 +119,9 @@ with #." 
  (let ((stream (uiop:process-info-input (clpm-proc-info proc)))

        (string (with-standard-io-syntax

                  (let ((*package* (find-package :clpm-client)))

                    (prin1-to-string command)))))

                    (prin1-to-string `(progn

                                        (setf *print-readably* nil)

                                        ,command))))))

    (when read-eval-p

      (setf string (uiop:strcat "#." string)))

    (with-dribble-stream (dribble *clpm-dribble*)