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)))