blob: c7dafb6cb91a892e6d83727a588455eb8788ed95 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
diff --git a/contrib/swank-presentation-streams.lisp b/contrib/swank-presentation-streams.lisp
index 0c24bda..bd5a990 100644
--- a/contrib/swank-presentation-streams.lisp
+++ b/contrib/swank-presentation-streams.lisp
@@ -65,7 +65,7 @@ be sensitive and remember what object it is in the repl if predicate is true"
(funcall ,continue)))))
;;; Get pretty printer patches for SBCL at load (not compile) time.
-#+sbcl
+#+#:disable-dangerous-patching ; #+sbcl
(eval-when (:load-toplevel)
(handler-bind ((simple-error
(lambda (c)
|