r11859: Canonicalize whitespace

[xmlutils.git] / pxml-test.cl

diff --git a/pxml-test.cl b/pxml-test.cl
index 0392f70b322ca4745e4e490b4c07825431b98ebd..733d8644cd8be6689eae15d6ae21c8b710920496 100644 (file)
--- a/pxml-test.cl
+++ b/pxml-test.cl
@@ -1,9 +1,9 @@
 ;;
-;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA 
+;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
 ;;
 ;; This code is free software; you can redistribute it and/or
 ;; modify it under the terms of the version 2.1 of
-;; the GNU Lesser General Public License as published by 
+;; the GNU Lesser General Public License as published by
 ;; the Free Software Foundation, as clarified by the AllegroServe
 ;; prequel found in license-allegroserve.txt.
 ;;
@@ -12,15 +12,15 @@
 ;; merchantability or fitness for a particular purpose.  See the GNU
 ;; Lesser General Public License for more details.
 ;;
-;; Version 2.1 of the GNU Lesser General Public License is in the file 
+;; Version 2.1 of the GNU Lesser General Public License is in the file
 ;; license-lgpl.txt that was distributed with this file.
 ;; If it is not present, you can access it from
 ;; http://www.gnu.org/copyleft/lesser.txt (until superseded by a newer
-;; version) or write to the Free Software Foundation, Inc., 59 Temple Place, 
+;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 
-;; Change Log 
+;; Change Log
 ;;
 ;; 10/14/00 add namespace example; xml-error related change
 
@@ -40,18 +40,18 @@
 
 (defun test-one-file (int external-callback)
   (let ((filename (concatenate 'string (format nil "~3,'0d" int) ".xml")))
-    (equalp (with-open-file (p filename) 
-             (parse-xml p :external-callback external-callback
-                        :content-only t))
-           (with-open-file (p (concatenate 'string "out/" filename))
-             (parse-xml p)))))
+    (equalp (with-open-file (p filename)
+              (parse-xml p :external-callback external-callback
+                         :content-only t))
+            (with-open-file (p (concatenate 'string "out/" filename))
+              (parse-xml p)))))
 
 (defun test-some-files (max &key skip-list external-callback)
   (dotimes (i max)
     (if* (member (+ 1 i) skip-list) then
-           (format t "i: ~s skipping...~%" (+ 1 i))
+            (format t "i: ~s skipping...~%" (+ 1 i))
        else
-           (format t "i: ~s equalp: ~s~%" (+ 1 i) (test-one-file (+ 1 i) external-callback)))))
+            (format t "i: ~s equalp: ~s~%" (+ 1 i) (test-one-file (+ 1 i) external-callback)))))
 
 ;; have to be in valid/sa directory when this is run
 (defun test-sa-files ()
@@ -67,19 +67,19 @@
 
 (defun test-one-bad-file (filename external-callback)
   (ignore-errors
-   (with-open-file (p filename) 
+   (with-open-file (p filename)
      (parse-xml p :external-callback external-callback
-               :content-only t))))
+                :content-only t))))
 
 (defun test-some-bad-files (max external-callback)
   (dotimes (i max)
     (let* ((index (+ 1 i))
-          (filename (concatenate 'string (format nil "~3,'0d" index) ".xml")))
+           (filename (concatenate 'string (format nil "~3,'0d" index) ".xml")))
       (multiple-value-bind (val error)
-         (test-one-bad-file filename external-callback) 
-       (format t "i: ~s error: ~s~%"
-               index (if error
-                         (simple-condition-format-arguments error) val))))))
+          (test-one-bad-file filename external-callback)
+        (format t "i: ~s error: ~s~%"
+                index (if error
+                          (simple-condition-format-arguments error) val))))))
 
 ;; have to be in not-wf/sa directory when this is run
 (defun test-not-wf-sa-files ()
@@ -103,8 +103,8 @@
   (setf var-name (uri-path var-name))
   (if* (equal var-name "null") then nil
      else
-         (let ((string (eval (intern var-name (find-package :user)))))
-           (make-string-input-stream string))))
+          (let ((string (eval (intern var-name (find-package :user)))))
+            (make-string-input-stream string))))
 
 (defvar *xml-example-string*
     "<?xml version='1.0' encoding='utf-8'?>