Sun Feb  7 16:06:42 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Qt XML Stream Lint Example.
diff -rN -u old-qt.examples/cl-smoke.qt.examples.asd new-qt.examples/cl-smoke.qt.examples.asd
--- old-qt.examples/cl-smoke.qt.examples.asd	2014-10-30 07:35:49.000000000 +0100
+++ new-qt.examples/cl-smoke.qt.examples.asd	2014-10-30 07:35:49.000000000 +0100
@@ -25,6 +25,7 @@
                       :depends-on ("package")
                       :components
                       ((:file "analog-clock")
+                       (:file "xmlstreamlint")
                        (:file "colliding-mice")))))))
              ;;(:module "origami"
              ;;        :depends-on ("package")
diff -rN -u old-qt.examples/src/qt/xmlstreamlint.lisp new-qt.examples/src/qt/xmlstreamlint.lisp
--- old-qt.examples/src/qt/xmlstreamlint.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-qt.examples/src/qt/xmlstreamlint.lisp	2014-10-30 07:35:49.000000000 +0100
@@ -0,0 +1,66 @@
+;;; Copyright (c) 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
+;;; Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).
+;;; Contact: Qt Software Information (qt-info@nokia.com)
+;;;
+;;; This file is part of the examples of the Qt Toolkit.
+;;;
+;;; $QT_BEGIN_LICENSE:LGPL$
+;;; Commercial Usage
+;;; Licensees holding valid Qt Commercial licenses may use this file in
+;;; accordance with the Qt Commercial License Agreement provided with the
+;;; Software or, alternatively, in accordance with the terms contained in
+;;; a written agreement between you and Nokia.
+;;;
+;;; GNU Lesser General Public License Usage
+;;; Alternatively, this file may be used under the terms of the GNU Lesser
+;;; General Public License version 2.1 as published by the Free Software
+;;; Foundation and appearing in the file LICENSE.LGPL included in the
+;;; packaging of this file.  Please review the following information to
+;;; ensure the GNU Lesser General Public License version 2.1 requirements
+;;; will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
+;;;
+;;; In addition, as a special exception, Nokia gives you certain
+;;; additional rights. These rights are described in the Nokia Qt LGPL
+;;; Exception version 1.0, included in the file LGPL_EXCEPTION.txt in this
+;;; package.
+;;;
+;;; GNU General Public License Usage
+;;; Alternatively, this file may be used under the terms of the GNU
+;;; General Public License version 3.0 as published by the Free Software
+;;; Foundation and appearing in the file LICENSE.GPL included in the
+;;; packaging of this file.  Please review the following information to
+;;; ensure the GNU General Public License version 3.0 requirements will be
+;;; met: http://www.gnu.org/copyleft/gpl.html.
+;;;
+;;; If you are unsure which license is appropriate for your use, please
+;;; contact the sales department at qt-sales@nokia.com.
+;;; $QT_END_LICENSE$
+
+(in-package :qt.examples)
+
+;; Small example using only qt.core
+
+(defun xml-lint (input-file-path)
+  "Reads the XML from the file at INPUT-FILE-PATH and returns a copy."
+  (qt:with-core-app ()
+    (let ((input-file (make-instance 'qt:file
+                                     :arg0 input-file-path)))
+      (unless (cxx:exists input-file)
+        (error "File ~A does not exist." input-file-path))
+      (unless (cxx:open input-file qt:iodevice.+read-only+)
+        (error "Failed to open file ~A." input-file-path))
+      
+      (let* ((reader (make-instance 'qt:xml-stream-reader
+                                    :arg0 input-file))
+             (output (make-instance 'qt:byte-array))
+             (writer (make-instance 'qt:xml-stream-writer
+                                    :arg0 output)))
+        (loop until (cxx:at-end reader) do
+             (cxx:read-next reader)
+             (when (cxx:has-error reader)
+               (error "Error: ~A in file ~A at line ~A, column ~A."
+                      (cxx:error-string reader)
+                      input-file-path
+                      (cxx:line-number reader) (cxx:column-number reader)))
+             (cxx:write-current-token writer reader))
+        (cxx:data output)))))