genworks.lisp 1.17 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
;;
;; Copyright 2002-2011, 2012 Genworks International and Genworks BV 
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;

;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;; 
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Affero General Public License for more details.
;; 
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file.  If not, see
;; <http://www.gnu.org/licenses/>.
;; 

(in-package :com.genworks.lisp)


#+allegro (eval-when (:compile-toplevel :load-toplevel :execute) (require :pxml))
(defun parse-xml (xml-string &rest args)
  #+allegro (apply #'net.xml.parser:parse-xml xml-string args)
  #-allegro (declare (ignore xml-string))
  #-allegro (warn "No XML parser found - please implement compatible call to net.xml.parser:parse-xml for the currently running lisp.~%"))