mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
13 lines
236 B
Common Lisp
13 lines
236 B
Common Lisp
(defsmacro test-macro (x)
|
|
;; goos macro
|
|
`(+ ,x 2)
|
|
)
|
|
|
|
(defmacro test-macro (x)
|
|
;; goal macro which calls a goos macro of the same name
|
|
(let ((goos-expansion (test-macro x)))
|
|
`(+ ,goos-expansion 3)
|
|
)
|
|
)
|
|
|
|
(test-macro 15) |