base/definitions.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Various definers
   4 ;;;
   5
   6 (in-package :iolib.base)
   7
   8 (defmacro defconstant (name value &optional documentation)
   9   (destructuring-bind (name &key (test ''eql))
  10       (ensure-list name)
  11     (macroexpand-1
  12      `(define-constant ,name ,value
  13         :test ,test
  14         ,@(when documentation `(:documentation ,documentation))))))