Fix for clisp compatibility

njm64 · Feb 10, 2023 · 2468418 · 2468418
1 parent 14c9dee
commit 2468418
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/decode.lisp b/decode.lisp
@@ -7,9 +7,9 @@
 
 (defun read-operand (operand-type)
   (ecase operand-type
-    (#.+operand-type-word+ (fetch-u16))
-    (#.+operand-type-byte+ (fetch-u8))
-    (#.+operand-type-var+ (read-var (fetch-u8)))))
+    (0 (fetch-u16))
+    (1 (fetch-u8))
+    (2 (read-var (fetch-u8)))))
 
 (defun decode-operand-types (b)
   (loop for pos from 6 downto 0 by 2