From a08ad6d10320c1334869c6b65708f537104058a2 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 29 Apr 2021 12:41:13 +0200
Subject: [PATCH] Fix DEFDEF in Maclisp 6502 assembler.

It seems necessary to quote the list for the macro to work.
---
 src/klotz/{defdef.9 => defdef.10} | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 rename src/klotz/{defdef.9 => defdef.10} (98%)

diff --git a/src/klotz/defdef.9 b/src/klotz/defdef.10
similarity index 98%
rename from src/klotz/defdef.9
rename to src/klotz/defdef.10
index a642428d..12a6b1ea 100755
--- a/src/klotz/defdef.9
+++ b/src/klotz/defdef.10
@@ -106,7 +106,7 @@
   `(progn 'compile
 	  (declare (special ,name))
 	  (putprop ',name ,nbytes 'INSTRUCTION-LENGTH)
-	  (putprop ',name ,(process-pattern pattern) 'ADDRESS-MODE-PATTERN)
+	  (putprop ',name ',(process-pattern pattern) 'ADDRESS-MODE-PATTERN)
 	  (putprop ',name
 		   #'(lambda (OP ,@(variables-in-pattern pattern))
 		       ,@forms)