- (multiple-value-bind (xml error status)
- (kmrcl:command-output (format nil
- "sh -c \"export XML_CATALOG_FILES='~A'; cd ~A; xsltproc --xinclude pprint.xsl ~A\""
- "catalog-debian.xml"
- (namestring (make-pathname :defaults (if (pathname-directory path)
- path
- *default-pathname-defaults*)
- :name nil :type nil))
- (namestring path)))
- (unless (and (zerop status) (or (null error) (zerop (length error))))
- (error "Unable to preprocess XML file ~A, status ~D.~%Error: ~A"
- path status error))
- (setq raw-sexp (net.xml.parser:parse-xml
- (apply #'concatenate 'string xml)
- :content-only nil)))
+ (multiple-value-bind (xml error status)
+ (kmrcl:command-output (format nil
+ "sh -c \"export XML_CATALOG_FILES='~A'; cd ~A; xsltproc --xinclude pprint.xsl ~A\""
+ "catalog-debian.xml"
+ (namestring (make-pathname :defaults (if (pathname-directory path)
+ path
+ *default-pathname-defaults*)
+ :name nil :type nil))
+ (namestring path)))
+ (unless (and (zerop status) (or (null error) (zerop (length error))))
+ (error "Unable to preprocess XML file ~A, status ~D.~%Error: ~A"
+ path status error))
+ (setq raw-sexp (net.xml.parser:parse-xml
+ (apply #'concatenate 'string xml)
+ :content-only nil)))