--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -36,6 +36,10 @@
      ,@forms))
 
 (defmacro with-locked-hash-table ((table) &body body)
+  (declare (ignore table))
+  `(progn ,@body))
+
+(defmacro with-locked-system-table ((table) &body body)
   (declare (ignore table))
   `(progn ,@body))