Unlock kernel functions on CCL

yitzchak · Feb 21, 2023 · d33a8dc · d33a8dc
1 parent fed5734
commit d33a8dc
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/code/locks.lisp b/code/locks.lisp
@@ -98,19 +98,25 @@
   #+(or allegro clisp cmucl)
     `(with-unlocked-packages/fallback (quote ,packages)
                                       (lambda () ,@body))
+  #+ccl
+    `(let ((ccl:*warn-if-redefine-kernel* nil))
+       ,@body)
   #+ecl
     `(ext:with-unlocked-packages ,packages ,@body)
   #+sb-package-locks
     `(sb-ext:with-unlocked-packages ,packages ,@body)
-  #-(or allegro clisp cmucl ecl sb-package-locks)
+  #-(or allegro ccl clisp cmucl ecl sb-package-locks)
     `(progn ,@body))
 
 (defmacro with-locked-packages ((&rest packages) &body body)
   (declare (ignorable packages))
   #+(or allegro clisp cmucl ecl sb-package-locks)
     `(with-locked-packages/fallback (quote ,packages)
                                     (lambda () ,@body))
-  #-(or allegro clisp cmucl ecl sb-package-locks)
+  #+ccl
+    `(let ((ccl:*warn-if-redefine-kernel* t))
+       ,@body)
+  #-(or allegro ccl clisp cmucl ecl sb-package-locks)
     `(progn ,@body))
 
 (defun package-implementation-packages (&optional (package *package*))