10 lines
289 B
Common Lisp
10 lines
289 B
Common Lisp
(in-package #:user-side-compiler)
|
|
|
|
;;; STUB, TODO
|
|
|
|
(defclass asm-function ()
|
|
((%name :accessor name :initarg :name)))
|
|
|
|
(define-transformation (token (token-name asm-function))
|
|
;; TODO: Choose from a list, don't just create like this
|
|
(make-instance 'asm-function :name (name token)))
|