X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcross-misc.lisp;h=70d6f35816b41bfa27968fba9e31609d14d32a82;hb=408ed62925d643c163f0e9fc7b3fd41cce65fbea;hp=597756a1ea0e76ea00658e01998cd58477c1763d;hpb=a6e22347785e8ce3eaf13013cfc69d6aac9c8c0e;p=sbcl.git

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 597756a..70d6f35 100644
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -39,6 +39,10 @@
   (declare (ignore table))
   `(progn ,@body))
 
+(defmacro with-locked-system-table ((table) &body body)
+  (declare (ignore table))
+  `(progn ,@body))
+
 (defmacro defglobal (name value &rest doc)
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      (defparameter ,name