branch: externals/sly
commit 276b18cdb8f802799b3a08d6a477bdd6bc0bf727
Author: Mark <evenson.not....@gmail.com>
Commit: João Távora <joaotav...@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 <joaotav...@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))
