Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (12 sloc) 502 Bytes
(in-package :tagger.internal)
(defmacro cltl1-eval-when ((&rest args) &body body)
`(eval-when (,@(mapcar (lambda (k)
(case k
(compile :compile-toplevel)
(load :load-toplevel)
(eval :execute)))
args))
,@body))
(defmacro defun-compile-time (name args &body body)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(defun ,name ,args ,@body)))
Something went wrong with that request. Please try again.