changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/lib/doc/reprex.lisp

changeset 698: 96958d3eb5b0
parent: 6432d0ee2750
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes
578
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1
 ;;; reprex.lisp --- Reproducible Examples
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
2
 
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3
 ;; Reproducible Examples API
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4
 
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
5
 ;;; Commentary:
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
6
 
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
7
 ;; ref: https://reprex.tidyverse.org/
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8
 
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
9
 ;;; Code:
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
10
 (in-package :doc)
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
11
 (defvar *reprex-format*)
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
12
 
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
13
 (defgeneric print-reprex (forms &optional stream))
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
14
 
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
15
 (defgeneric format-reprex (formatter forms &optional stream))
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
16
 
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
17
 (defmacro reprex (&body body)
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
18
   "Produce a 'reproducible example' from the forms in BODY."
6432d0ee2750 init reprex
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
19
   `(progn ,@body))