quasiquote-readtable.lisp 662 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
;;; -*- Mode: Lisp ; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; named readtables for fare-quasiquote
;;; Copyright (c) 2011-2011 Fahree Reedaw <fare@tunes.org>
;;; See README.quasiquote

#+xcvb (module (:depends-on ("quasiquote" (:asdf "named-readtables"))))

(in-package :fare-quasiquote)

(eval-now
  (named-readtables:defreadtable :fare-quasiquote-mixin
    (:macro-char #\` #'read-read-time-backquote)
    (:macro-char #\, #'read-comma)
    (:macro-char #\# :dispatch)
    (:dispatch-macro-char #\# #\( #'read-hash-paren))

  (named-readtables:defreadtable :fare-quasiquote
    (:fuze :standard :fare-quasiquote-mixin)))

20
;; (in-readtable :fare-quasiquote)