changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/std/macs/var.lisp

changeset 698: 96958d3eb5b0
parent: de40bd522c84
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; std/macs/var.lisp --- Dynamic Variable Macros
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :std/macs)
     7 
     8 ;; from HUNCHENTOOT
     9 (defmacro defvar-unbound (name &optional (doc-string ""))
    10   "Convenience macro to declare unbound special variables with a
    11 documentation string."
    12   `(progn
    13      (defvar ,name)
    14      (setf (documentation ',name 'variable) ,doc-string)
    15      ',name))