From 12d1a905fe4d26f599364b6fd02b9dd2c8a1a540 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 22 May 2025 12:51:04 +0200 Subject: [PATCH] Add stub ASM-FUNCTION class --- wip-duuqnd/user-side-compiler/asm-function.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/wip-duuqnd/user-side-compiler/asm-function.lisp b/wip-duuqnd/user-side-compiler/asm-function.lisp index da0ff12..fdb39b1 100644 --- 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)))