diff --git a/asdf.lisp b/asdf.lisp
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -2738,7 +2738,7 @@
 
 (defun* oos (operation-class system &rest args
              &key force force-not verbose version &allow-other-keys)
-  (declare (ignore force verbose version))
+  (declare (ignore force force-not verbose version))
   (apply 'operate operation-class system args))
 
 (let ((operate-docstring