Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: cpc26/solr
base: master
...
head fork: franzinc/solr
compare: release4401_release_point
  • 2 commits
  • 3 files changed
  • 0 commit comments
  • 1 contributor
Commits on Dec 04, 2011
Shiro Kawai Make sure necessary libraries are loaded at execution time. a86f1a7
Commits on Dec 05, 2011
Shiro Kawai Turn of *print-pretty* while formatting XML messages
If *print-pretty* is non-nil, net.xml.generator uses pretty p
rinter to indent generated XML nicely, but the output may be
incomplete if other parameters such as *print-level* etc. are
accidentally set.
60df191
Showing with 9 additions and 6 deletions.
  1. +6 −0 package.lisp
  2. +0 −4 solr.asd
  3. +3 −2 solr.lisp
View
6 package.lisp
@@ -1,4 +1,10 @@
;; -*- mode: common-lisp -*-
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (require :aserve)
+ (require :datetime)
+ (require :net-xml-generator))
+
(defpackage :solr
(:use :cl :excl
:util.date-time
View
4 solr.asd
@@ -2,10 +2,6 @@
(in-package :cl-user)
-(require :aserve)
-(require :datetime)
-(require :net-xml-generator)
-
(asdf:defsystem :solr
:name "Solr"
:author "Shiro Kawai / Franz Inc."
View
5 solr.lisp
@@ -69,8 +69,9 @@
(defmacro xml->string (&body body)
(let ((s (gensym)))
`(with-output-to-string (,s)
- (with-xml-generation (,s)
- ,@body))))
+ (let ((*print-pretty* nil))
+ (with-xml-generation (,s)
+ ,@body)))))
;;;
;;; Updating

No commit comments for this range

Something went wrong with that request. Please try again.