js-xml integration
Thu May 28 03:14:02 PDT 2009 attila.lendvai@gmail.com
* js-xml integration
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-quasi-quote/cl-quasi-quote.asd new-cl-quasi-quote/cl-quasi-quote.asd
--- old-cl-quasi-quote/cl-quasi-quote.asd 2014-07-31 04:32:45.000000000 -0700
+++ new-cl-quasi-quote/cl-quasi-quote.asd 2014-07-31 04:32:45.000000000 -0700
@@ -149,5 +149,13 @@
:setup-readtable-function "cl-quasi-quote::setup-readtable"
:components
((:module "src"
- :components ((:file "swank-integration")))))
+ :components ((:module "integration"
+ :components ((:file "swank-integration")))))))
+(define-qq-system-connection cl-quasi-quote-xml-and-cl-quasi-quote-js
+ :requires (:cl-quasi-quote :cl-quasi-quote-xml :cl-quasi-quote-js)
+ :setup-readtable-function "cl-quasi-quote::setup-readtable"
+ :components
+ ((:module "src"
+ :components ((:module "integration"
+ :components ((:file "xml-and-js-integration")))))))
diff -rN -u old-cl-quasi-quote/src/integration/swank-integration.lisp new-cl-quasi-quote/src/integration/swank-integration.lisp
--- old-cl-quasi-quote/src/integration/swank-integration.lisp 1969-12-31 16:00:00.000000000 -0800
+++ new-cl-quasi-quote/src/integration/swank-integration.lisp 2014-07-31 04:32:45.000000000 -0700
@@ -0,0 +1,21 @@
+;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
+;;;
+;;; Copyright (c) 2008 by the authors.
+;;;
+;;; See LICENCE for details.
+
+(in-package :cl-quasi-quote)
+
+(dolist (package '("CL-QUASI-QUOTE"
+ "CL-QUASI-QUOTE-JS"
+ "CL-QUASI-QUOTE-XML"
+ "CL-QUASI-QUOTE-PDF"
+ "CL-QUASI-QUOTE-ODF"
+ "CL-QUASI-QUOTE-CSS"))
+ (register-readtable-for-swank
+ (list package)
+ (find-symbol "SETUP-READTABLE"
+ (or (find-package package)
+ (progn
+ (warn "Package ~S is not loaded yet, so registering cl-quasi-quote::setup-readtable in swank for it" package)
+ "CL-QUASI-QUOTE")))))
diff -rN -u old-cl-quasi-quote/src/integration/xml-and-js-integration.lisp new-cl-quasi-quote/src/integration/xml-and-js-integration.lisp
--- old-cl-quasi-quote/src/integration/xml-and-js-integration.lisp 1969-12-31 16:00:00.000000000 -0800
+++ new-cl-quasi-quote/src/integration/xml-and-js-integration.lisp 2014-07-31 04:32:45.000000000 -0700
@@ -0,0 +1,12 @@
+;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
+;;;
+;;; Copyright (c) 2008 by the authors.
+;;;
+;;; See LICENCE for details.
+
+(in-package :cl-quasi-quote)
+
+(def method compatible-transformations? ((a cl-quasi-quote-xml::quasi-quoted-xml-to-quasi-quoted-string) a-next a-rest
+ (b cl-quasi-quote-js::quasi-quoted-js-to-quasi-quoted-string) b-next b-rest)
+ (compatible-transformations? a-next (first a-rest) (rest a-rest)
+ b-next (first b-rest) (rest b-rest)))
diff -rN -u old-cl-quasi-quote/src/swank-integration.lisp new-cl-quasi-quote/src/swank-integration.lisp
--- old-cl-quasi-quote/src/swank-integration.lisp 2014-07-31 04:32:45.000000000 -0700
+++ new-cl-quasi-quote/src/swank-integration.lisp 1969-12-31 16:00:00.000000000 -0800
@@ -1,21 +0,0 @@
-;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
-;;;
-;;; Copyright (c) 2008 by the authors.
-;;;
-;;; See LICENCE for details.
-
-(in-package :cl-quasi-quote)
-
-(dolist (package '("CL-QUASI-QUOTE"
- "CL-QUASI-QUOTE-JS"
- "CL-QUASI-QUOTE-XML"
- "CL-QUASI-QUOTE-PDF"
- "CL-QUASI-QUOTE-ODF"
- "CL-QUASI-QUOTE-CSS"))
- (register-readtable-for-swank
- (list package)
- (find-symbol "SETUP-READTABLE"
- (or (find-package package)
- (progn
- (warn "Package ~S is not loaded yet, so registering cl-quasi-quote::setup-readtable in swank for it" package)
- "CL-QUASI-QUOTE")))))