| 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 |
| 369 | 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)) |