Add: note about why we append _ to some instr class names

1 files changed, 4 insertions, 0 deletions

diff --git a/src/instr.lisp b/src/instr.lisp
index db13941..fe80ecb 100644
--- a/src/instr.lisp
+++ b/src/instr.lisp
@@ -18,6 +18,10 @@
     (defun expand-instr-plist (plist)
       (destructuring-bind (&key instr code type) plist
         (let* ((class-name
+                 ;; `select` names two instructions, so we add this
+                 ;; machinery to check for two instructions with the
+                 ;; same name, and to append `_` to the class name
+                 ;; whenever name collision is detected
                  (let ((class-name (intern (string-upcase (first instr)))))
                    (cl:if (gethash class-name defined)
                           (intern (format nil "~a_" class-name))