Plaster
New
List
Login
common-lisp
default
phoe
2020.11.18 18:04:21
(define-compiler-macro make-component (&whole whole type &rest args) (if (and (consp type) (eql 'quote (car type))) (let* ((type (cadr type)) (name (format nil "%MAKE-~A" (symbol-name type))) (constructor (find-symbol name))) (unless constructor (error "Symbol named ~A not found." name)) `(,constructor ,@args)) whole))
Raw
Annotate
Repaste