-
Notifications
You must be signed in to change notification settings - Fork 2
/
readtables.lisp
33 lines (25 loc) · 950 Bytes
/
readtables.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
;;; -*- Mode: Lisp ; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; See README.
(in-package :scribble)
(eval-now
(defreadtable :scribble-racket-mixin
(:merge :fare-quasiquote-mixin)
(:macro-char #\[ #'read-paren-list)
(:macro-char #\] #'unbalanced-paren)
(:macro-char #\{ #'read-paren-list)
(:macro-char #\} #'unbalanced-paren)
(:macro-char #\| #'forbidden-pipe-macro)
(:macro-char #\@ #'read-at-syntax))
(defreadtable :scribble-skribe-mixin
(:macro-char #\[ #'read-skribe-bracket)
(:macro-char #\] #'unbalanced-paren))
(defreadtable :scribble-both-mixin
(:fuze :scribble-racket-mixin :scribble-skribe-mixin))
(defreadtable :scribble-racket
(:fuze :standard :scribble-racket-mixin))
(defreadtable :scribble-skribe
(:fuze :standard :scribble-skribe-mixin))
(defreadtable :scribble-both
(:fuze :standard :scribble-both-mixin))
(defreadtable :scribble
(:merge :scribble-both)))