src/base/debug.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Debug helpers.
   4 ;;;
   5
   6 (in-package :iolib.base)
   7
   8 (defvar *safety-checks*
   9   #+iolib-debug t #-iolib-debug nil
  10   "Enables safety checks throught the IOLib codebase.")
  11
  12 (defmacro debug-only (&body body)
  13   (when *safety-checks*
  14     `(progn ,@body)))
  15
  16 (defmacro debug-only* (&body body)
  17   `(when *safety-checks*
  18      (progn ,@body)))
  19
  20 (defmacro production-only (&body body)
  21   (unless *safety-checks*
  22     `(progn ,@body)))
  23
  24 (defmacro production-only* (&body body)
  25   `(unless *safety-checks*
  26      ,@body))