Fix bytecode walker for long instructions

clasp-developers · Sep 25, 2023 · f48af23 · f48af23
1 parent fe0b8ed
commit f48af23
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/lisp/kernel/lsp/bytecode-introspect.lisp b/src/lisp/kernel/lsp/bytecode-introspect.lisp
@@ -42,7 +42,7 @@
            for ,op = (cmpref::decode-instr (aref ,bsym ,ip))
            for ,mnemonic = (intern (string-upcase (first ,op)) "KEYWORD")
            if (eql ,mnemonic :long)
-             do (setf ,longp t)
+             do (setf ,longp t ,ip (1+ ,ip))
            else
              do (let ((,opip ,ip))
                   (incf ,ip)