fix use of defpurefun

A defpurefun selector function was being declared in the top-level module, and which used qualified names to access columns directly in the bin module. This should have actually been reported as a syntax error. Instead, defun should be used and this changes it accordingly.
Consensys · Jan 10, 2025 · 2a83367 · 2a83367
1 parent 8720bd5
commit 2a83367
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/bin/lookups/bin_into_binreftable.lisp b/bin/lookups/bin_into_binreftable.lisp
@@ -1,4 +1,4 @@
-(defpurefun (selector-bin-to-binreftable)
+(defun (selector-bin-to-binreftable)
   (+ bin.IS_AND bin.IS_OR bin.IS_XOR bin.IS_NOT))
 
 (deflookup

diff --git a/logdata/lookups/logdata-to-rlprcpt.lisp b/logdata/lookups/logdata-to-rlprcpt.lisp
@@ -1,4 +1,4 @@
-(defpurefun (sel-logdata-to-rlptxnrcpt)
+(defun (sel-logdata-to-rlptxnrcpt)
   logdata.LOGS_DATA)
 
 (deflookup

diff --git a/loginfo/lookups/loginfo-into-logdata.lisp b/loginfo/lookups/loginfo-into-logdata.lisp
@@ -1,4 +1,4 @@
-(defpurefun (sel-loginfo-to-logdata)
+(defun (sel-loginfo-to-logdata)
   loginfo.TXN_EMITS_LOGS)
 
 (deflookup