diff options
Diffstat (limited to 'stdlib/ifa.tl')
-rw-r--r-- | stdlib/ifa.tl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/stdlib/ifa.tl b/stdlib/ifa.tl index 93bc1bd1..e9ec989d 100644 --- a/stdlib/ifa.tl +++ b/stdlib/ifa.tl @@ -24,6 +24,7 @@ ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ;; POSSIBILITY OF SUCH DAMAGE. + (defmacro ifa (:env e :form f test then : else) (flet ((candidate-p (form) (not (or (constantp form e) (symbolp form))))) |