X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-extensions.lisp;h=e6b24a3a0dd71344f7c2c5777938575ff8caea91;hb=5d04a95274c9ddaebbcd6ddffc5d646e2c25598c;hp=1918c8705a93bfa5e44394e5cb1858c17b3559cc;hpb=a01e7ac2e8a9f3afae8f759381a0829fceb5bfde;p=sbcl.git

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index 1918c87..e6b24a3 100644
--- a/src/code/late-extensions.lisp
+++ b/src/code/late-extensions.lisp
@@ -124,6 +124,8 @@ EXPERIMENTAL: Interface subject to change."
              (error "Invalid first argument to COMPARE-AND-SWAP: ~S" place))))))))
 
 (macrolet ((def (name lambda-list ref &optional set)
+             #!+compare-and-swap-vops
+             (declare (ignore ref set))
              `(defun ,name (,@lambda-list old new)
                 #!+compare-and-swap-vops
                 (,name ,@lambda-list old new)