diff --git a/wip-duuqnd/user-side-compiler/middle/optimizations.lisp b/wip-duuqnd/user-side-compiler/middle/optimizations.lisp
index 53c1db6..22bff01 100644
--- a/wip-duuqnd/user-side-compiler/middle/optimizations.lisp
+++ b/wip-duuqnd/user-side-compiler/middle/optimizations.lisp
@@ -154,6 +154,7 @@ though I'm pretty sure it can't anyway.")
     (flet ((arg-duplicates-p (a b)
              (or (and (ir-constant-p a) (ir-constant-p b)
                       (eql (ir-constant-value a) (ir-constant-value b)))
+                 #+(or)
                  (and (typep a 'ir-fetchvar) (typep b 'ir-fetchvar)
                       (eql (input (definition a)) (input (definition b)))))))
       (dolist (call calls)