Add stub ASM-FUNCTION class

2025-05-22 12:51:04 +02:00 · 2025-05-22 12:51:04 +02:00 · 12d1a905fe
commit 12d1a905fe
parent 38406c80ee
1 changed files with 5 additions and 2 deletions
--- a/wip-duuqnd/user-side-compiler/asm-function.lisp
+++ b/wip-duuqnd/user-side-compiler/asm-function.lisp
@ -2,6 +2,9 @@

 ;;; STUB, TODO

+(defclass asm-function ()
+  ((%name :accessor name :initarg :name)))
+
 (define-transformation (token (token-name asm-function))
-  ;; TODO: Create table of asm functions that this can draw from
-  nil)
+  ;; TODO: Choose from a list, don't just create like this
+  (make-instance 'asm-function :name (name token)))