Don't declare

quil-lang · Jul 3, 2024 · 3c40620 · 3c40620
1 parent b65cec4
commit 3c40620
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/loader.lisp b/src/loader.lisp
@@ -30,11 +30,10 @@ after initializing callable symbols[^3].
     #+darwin
     (setf sb-thread::*initial-thread* sb-thread:*current-thread*)
     (unwind-protect
-         (locally
-             (declare (sb-ext:muffle-conditions sb-kernel:redefinition-warning style-warning))
-           (handler-bind
-               ((sb-kernel:redefinition-warning #'muffle-warning))
-             (load pathname)))
+         (handler-bind
+             ((sb-kernel:redefinition-warning #'muffle-warning)
+              (style-warning #'muffle-warning))
+           (load pathname))
       #+darwin
       (setf sb-thread::*initial-thread* initial-thread))))