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