blob: bb4724e7944cb4eeeb728545a4f70c873bd3a8f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
diff -u xmls-1.1.orig/xmls.lisp xmls-1.1/xmls.lisp
--- xmls-1.1.orig/xmls.lisp 2004-07-16 11:32:10.000000000 -0500
+++ xmls-1.1/xmls.lisp 2004-08-06 23:45:36.448546176 -0500
@@ -12,7 +12,10 @@
(defvar *strip-comments* t)
(defvar *compress-whitespace* t)
(defvar *test-verbose* nil)
-(defvar *whitespace* (remove-duplicates '(#\Newline #\Space #\Tab #\Return #\Linefeed)))
+
+(eval-when (:execute :load-toplevel :compile-toplevel)
+ (defvar *whitespace* (remove-duplicates '(#\Newline #\Space #\Tab #\Return #\Linefeed))))
+
(defvar *entities*
#(("lt;" #\<)
("gt;" #\>)
|
GitWeb
