[nongnu] externals/sly 276b18c 39/47: abcl: guard against repeated invocation to SLYNK-BACKEND:WRAP

[ELPA Syncer]

branch: externals/sly
commit 276b18cdb8f802799b3a08d6a477bdd6bc0bf727
Author: Mark <evenson.not.org@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    abcl: guard against repeated invocation to SLYNK-BACKEND:WRAP
    
    Bug triggered by loading McCLIM.
    
    * slynk/backend/abcl.lisp: Be more careful before calling warp.
    
    Cherry-picked-from: SLIME commit f02708bcec154d02701a98a86ba5b5f863565ad2
    Co-authored-by: João Távora <joaotavora@gmail.com>
---
 slynk/backend/abcl.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/slynk/backend/abcl.lisp b/slynk/backend/abcl.lisp
index 0750b5a..64bfa11 100644
--- a/slynk/backend/abcl.lisp
+++ b/slynk/backend/abcl.lisp
@@ -95,7 +95,10 @@
   (format stream ">")
   nil)
 
-(wrap 'sys::%print-unreadable-object :more-informative :replace 
'%print-unreadable-object-java-too)
+;;; TODO: move such invocations out of toplevel?  
+(eval-when (:load-toplevel)
+  (unless (get 'sys::%print-unreadable-object 'sly-backend::sly-wrap)
+    (wrap 'sys::%print-unreadable-object :more-informative :replace 
'%print-unreadable-object-java-too)))
 
 (defimplementation call-with-compilation-hooks (function)
   (funcall function))