housekeeping
Tue Jun 9 04:22:43 PDT 2009 attila.lendvai@gmail.com
* housekeeping
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-26 04:12:10.000000000 -0700
+++ new-cl-quasi-quote/cl-quasi-quote.asd 2014-07-26 04:12:10.000000000 -0700
@@ -152,8 +152,9 @@
:components ((:module "integration"
:components ((:file "swank-integration")))))))
+;; TODO doesn't work for some reason...
(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)
+ :requires (:cl-quasi-quote-xml :cl-quasi-quote-js)
:setup-readtable-function "cl-quasi-quote::setup-readtable"
:components
((:module "src"
diff -rN -u old-cl-quasi-quote/src/binary.lisp new-cl-quasi-quote/src/binary.lisp
--- old-cl-quasi-quote/src/binary.lisp 2014-07-26 04:12:10.000000000 -0700
+++ new-cl-quasi-quote/src/binary.lisp 2014-07-26 04:12:10.000000000 -0700
@@ -166,6 +166,7 @@
(etypecase node
(vector (write-sequence node stream))
(list (mapc (lambda (node) (write-quasi-quoted-binary node stream)) node))
+ (integer (write-byte node stream))
(delayed-emitting (funcall node))
(binary-quasi-quote (write-quasi-quoted-binary (body-of node) stream)))
(values))
diff -rN -u old-cl-quasi-quote/src/syntax.lisp new-cl-quasi-quote/src/syntax.lisp
--- old-cl-quasi-quote/src/syntax.lisp 2014-07-26 04:12:10.000000000 -0700
+++ new-cl-quasi-quote/src/syntax.lisp 2014-07-26 04:12:10.000000000 -0700
@@ -22,8 +22,8 @@
(pprint-indent :block 2)
(loop :do
(pprint-exit-if-list-exhausted)
- (princ (pprint-pop)))))
- (princ body)))
+ (prin1 (pprint-pop)))))
+ (prin1 body)))
quasi-quote)
@@ -78,7 +78,7 @@
(cond
((destructively-spliced? self) (write-string "."))
((spliced? self) (write-string "@")))
- (princ (form-of self))
+ (prin1 (form-of self))
self)
(def function unquote-node-with-constant-value? (node type)