diff options
| -rw-r--r-- | src/instr.lisp | 4 |
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)) |