From c2fde9fdd09088671e399ac9afc9b61b5bc0661d Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 17 Jul 2025 19:02:37 +0200 Subject: [PATCH] Comment out incorrect optimization --- wip-duuqnd/user-side-compiler/middle/optimizations.lisp | 1 + 1 file changed, 1 insertion(+) 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)