John Lorentzson
3b8c906d75
TODO: Populate the table based on the asm source code declaration comments and signal an error when a named function is missing.
14 lines
469 B
Common Lisp
14 lines
469 B
Common Lisp
(in-package #:user-side-compiler)
|
|
|
|
(defvar *asm-functions* (make-hash-table :test #'equalp))
|
|
|
|
(defclass asm-function ()
|
|
((%name :accessor name :initarg :name)))
|
|
|
|
(define-transformation (token (token-name asm-function))
|
|
(multiple-value-bind (asm-function existsp)
|
|
(gethash (name token) *asm-functions*)
|
|
(if existsp
|
|
asm-function
|
|
(setf (gethash (name token) *asm-functions*)
|
|
(make-instance 'asm-function :name (name token))))))
|