X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-extensions.lisp;h=08dbd5732986cd62ac76bf9f6a5d51848b9a4f1b;hb=83097ed630d4efdb79bd0bc91f21014f4365f008;hp=1918c8705a93bfa5e44394e5cb1858c17b3559cc;hpb=3c8b7b5089ae068f3dcdf84d7545562ac33e67be;p=sbcl.git

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index 1918c87..08dbd57 100644
--- a/src/code/late-extensions.lisp
+++ b/src/code/late-extensions.lisp
@@ -126,6 +126,8 @@ EXPERIMENTAL: Interface subject to change."
 (macrolet ((def (name lambda-list ref &optional set)
              `(defun ,name (,@lambda-list old new)
                 #!+compare-and-swap-vops
+                (declare (ignore ref set))
+                #!+compare-and-swap-vops
                 (,name ,@lambda-list old new)
                 #!-compare-and-swap-vops
                 (let ((current (,ref ,@lambda-list)))