diff --git a/src/lsp/mp.lsp b/src/lsp/mp.lsp
index e65026ded..63c7dc1de 100644
--- a/src/lsp/mp.lsp
+++ b/src/lsp/mp.lsp
@@ -83,7 +83,7 @@ WITHOUT-INTERRUPTS in:
        (when si:*interrupts-enabled*
          (si::check-pending-interrupts)))))
 
-(defmacro with-lock ((lock &rest options) &body body)
+(defmacro with-lock ((lock-form &rest options) &body body)
   #-threads
   `(progn ,@body)
   ;; Why do we need %count? Even if get-lock succeeeds, an interrupt may
@@ -102,7 +102,7 @@ WITHOUT-INTERRUPTS in:
        (without-interrupts
            (unwind-protect
                 (with-restored-interrupts
-                    (mp::get-lock ,lock, @options)
+                    (mp::get-lock ,lock)
                   (locally ,@body))
              (when (> (mp:lock-count ,lock) ,count)
                (mp::giveup-lock ,lock)))))))