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
Pipeline #2496 passed with stage
in 1 minute
......@@ -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*)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment