AK
Size: a a a
AK
y
y
SA
SA
SA
SD
SA
SA
SA
SA
SA
SA
(defmacro defconstexpr (name lambda-list &body body)
`(progn
(define-compiler-macro ,name (&whole form ,@lambda-list &environment env)
(labels ((,name ,lambda-list
,@body))
(if (and ,@(loop :for arg :in lambda-list
:collect `(constantp ,arg env)))
(,name ,@lambda-list)
form)))
(defun ,name ,lambda-list
,@body)))
SA
SA
AE
AE
AE