Commit ebf619a0 by Francois-Rene Rideau

Fix quasiquote for building with xcvb

parent 032b99c2
......@@ -3,8 +3,10 @@
(:fullname
"fare-matcher"
:depends-on
("packages" "matcher" "quasiquote" "clos-match" "mrd-extensions")
("packages" "matcher"
"quasiquote" "pp-quasiquote" "quasiquote-readtable"
"clos-match" "mrd-extensions")
:build-depends-on
("fare-utils")
:supersedes-asdf
("fare-matcher")))
("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 <fare@tunes.org>
;;; Copyright (c) 2002-2011 Fahree Reedaw <fare@tunes.org>
;;; 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.
(copy-function-matcher
list cl:list
......@@ -57,7 +55,6 @@
(defparameter knil
#+quasiquote-quotes-literals (kwote nil)
#-quasiquote-quotes-literals nil)
);eval-when
(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))
t)
);eval-when
;;(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