1.0.16.19: cleanups motivated by clisp host-2

[sbcl.git] / src / code / late-extensions.lisp

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index 1918c87..08dbd57 100644 (file)
--- 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)))