From 184d0324c093292bcbf180ead62b274d79b16e89 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 8 May 2025 22:06:21 +0200 Subject: [PATCH] Fix broken INSTRUCTION-LENGTH --- wip-duuqnd/user-side-compiler/instruction.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/wip-duuqnd/user-side-compiler/instruction.lisp b/wip-duuqnd/user-side-compiler/instruction.lisp index 7018930..8e0a599 100644 --- a/wip-duuqnd/user-side-compiler/instruction.lisp +++ b/wip-duuqnd/user-side-compiler/instruction.lisp @@ -69,12 +69,12 @@ (:indirect-y indirect-y-mixin)))))) (defgeneric instruction-length (object) - (:method (immediate-mixin) 2) - (:method (implied-mixin) 1) - (:method (accumulator-mixin) 1) - (:method (zero-page-mixin) 2) - (:method (relative-mixin) 2) - (:method (absolute-mixin) 3)) + (:method ((obj immediate-mixin)) 2) + (:method ((obj implied-mixin)) 1) + (:method ((obj accumulator-mixin)) 1) + (:method ((obj zero-page-mixin)) 2) + (:method ((obj relative-mixin)) 2) + (:method ((obj absolute-mixin)) 3)) (defclass branching-mixin () ((%branch-next :accessor branch-next :initarg :branch-next)))