1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
6 (in-package :iolib.base
)
8 (defparameter *safety-checks
* t
9 "Enables safety checks throught the IOLib codebase.
10 ACHTUNG!!! Don't disable this unless you're very confident about the quality of the code in IOLib.")
12 (defmacro debug-only
(&body body
)
16 (defmacro debug-only
* (&body body
)
17 `(when *safety-checks
*
20 (defmacro production-only
(&body body
)
21 (unless *safety-checks
*
24 (defmacro production-only
* (&body body
)
25 `(unless *safety-checks
*