diff --git a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp index 7862965..40044b2 100644 --- a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp +++ b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp @@ -121,9 +121,9 @@ (defun emit-load-data (data) (if (or (member (strategy (allocation-details data)) - '(:accumulator :direct-to-argvec)) - (equal *last-instruction* (list :store data)) - (equal *last-instruction* (list :load data))) + '(:accumulator :direct-to-argvec)) + (equal *last-instruction* (list :store data)) + (equal *last-instruction* (list :load data))) (setf *last-instruction* '(:useless)) (progn (if (eql (strategy (allocation-details data)) :constant)