[nongnu] elpa/sly ed17d2c2bd: * contrib/slynk-mrepl.lisp (mrepl): Fix SBCL-related bug.

[ELPA Syncer]

branch: elpa/sly
commit ed17d2c2bd7aead0fbb09c3d22861c80a522a097
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    * contrib/slynk-mrepl.lisp (mrepl): Fix SBCL-related bug.
    
    SBCL reuses conses.
    
    Closes #626
---
 contrib/slynk-mrepl.lisp | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/contrib/slynk-mrepl.lisp b/contrib/slynk-mrepl.lisp
index 6bf6a8630a..a84336ce95 100644
--- a/contrib/slynk-mrepl.lisp
+++ b/contrib/slynk-mrepl.lisp
@@ -30,14 +30,15 @@
    (pending-errors :initform nil :accessor mrepl-pending-errors))
   (:documentation "A listener implemented in terms of a channel.")
   (:default-initargs
-   :initial-env `((cl:*package* . ,cl:*package*)
-                  (cl:*default-pathname-defaults*
-                   . ,cl:*default-pathname-defaults*)
-                  (*) (**) (***)
-                  (/) (//) (///)
-                  (+) (++) (+++)
-                  (*history* . ,(make-array 40 :fill-pointer 0
-                                               :adjustable t)))))
+   :initial-env (copy-tree ; github#626
+                 `((cl:*package* . ,cl:*package*)
+                   (cl:*default-pathname-defaults*
+                    . ,cl:*default-pathname-defaults*)
+                   (*) (**) (***)
+                   (/) (//) (///)
+                   (+) (++) (+++)
+                   (*history* . ,(make-array 40 :fill-pointer 0
+                                             :adjustable t))))))
 
 (defmethod print-object ((r mrepl) stream)
   (print-unreadable-object (r stream :type t)