Commit ebf619a0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix quasiquote for building with xcvb

parent 032b99c2
......@@ -3,8 +3,10 @@
("packages" "matcher" "quasiquote" "clos-match" "mrd-extensions")
("packages" "matcher"
"quasiquote" "pp-quasiquote" "quasiquote-readtable"
"clos-match" "mrd-extensions")
("fare-matcher" "fare-quasiquote-readtable")))
;;;; pretty-printing of backquote expansions
#+xcvb (module (:depends-on ("quasiquote")))
;;;; This software is derived from the CMU CL system via SBCL.
;;;; CMU CL was written at Carnegie Mellon University and released into
;;;; the public domain. The software is in the public domain and is
;;; -*- Mode: Lisp ; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; fare-matcher friendly implementation of Quasiquote
;;; Copyright (c) 2002-2010 Fahree Reedaw <>
;;; Copyright (c) 2002-2011 Fahree Reedaw <>
;;; See README.quasiquote
#+xcvb (module (:depends-on ("packages" "matcher")))
......@@ -13,9 +13,7 @@
;;;; uncomment some of the lines below to disable according simplifications:
;;(pushnew :quasiquote-quotes-literals *features*)
;;(pushnew :quasiquote-at-macro-expansion-time *features*)
(eval-when (:compile-toplevel :load-toplevel :execute)
;; the below instruction enables pattern-matching for the simplifier.
list cl:list
......@@ -57,7 +55,6 @@
(defparameter knil
#+quasiquote-quotes-literals (kwote nil)
#-quasiquote-quotes-literals nil)
(defparameter *quasiquote-level* 0
"current depth of quasiquote nesting")
......@@ -330,5 +327,7 @@ of the result of the top operation applied to the expression"
(set-dispatch-macro-character #\# #\( #'read-hash-paren readtable))
;;(trace quasiquote-expand quasiquote-expand-0 quasiquote-expand-1 expand-unquote)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment