From ffa1f24355bc2ce6bee74a133d1c492753fe7c6d Mon Sep 17 00:00:00 2001 From: Alex Wood Date: Sat, 13 Jul 2024 08:16:40 -0400 Subject: [PATCH] Fix disassembly of parse-key-args --- disassemble.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/disassemble.lisp b/disassemble.lisp index 8684f17..b292670 100644 --- a/disassemble.lisp +++ b/disassemble.lisp @@ -69,7 +69,7 @@ finally (cl:return (values (list* (first desc) longp args) ip))))) (defun %display-instruction (name longp args textify-operand) - (if (string= name "parse-key-args") + (if (string= name "PARSE-KEY-ARGS") ;; We special case this despite the keys-arg thing because it's ;; just pretty weird all around. (let* ((more-start (second (first args))) @@ -79,7 +79,7 @@ (keys (third args)) (framestart (second (fourth args)))) ;; Print - (format t "~& ~:[~;long ~]~(~a~)~:[~;-aok~] ~d ~d '~s ~d" + (format t "~& ~:[~;long ~]~(~a~)~:[~;-aok~] ~d ~d ~a ~d" longp name aokp more-start key-count (funcall textify-operand keys key-count) framestart)) ;; Normal case