Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

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