OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix asd file for ASDF 3.3

Browse Source 
Follow convention for secondary system names.

Fix to find the DTD pathname the correct ASDF 2+ way.
This commit is contained in:
Francois-Rene Rideau
2017-03-28 09:47:03 -04:00
committed by Pierre R. Mai
parent 9365c4b93c
commit 6bdee6e7dc
2 changed files with 22 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
xml/catalog.lisp
View File

@ -226,14 +226,12 @@
(warn "ignoring catalog error: ~A" c))))
(defparameter *catalog-dtd*
(let* ((cxml
(slot-value (asdf:find-system :cxml) 'asdf::relative-pathname))
(dtd (merge-pathnames "catalog.dtd" cxml)))
(with-open-file (s dtd :element-type '(unsigned-byte 8))
(let ((bytes
(make-array (file-length s) :element-type '(unsigned-byte 8))))
(read-sequence bytes s)
bytes))))
(let ((dtd (asdf:system-relative-pathname :cxml "catalog.dtd")))
(with-open-file (s dtd :element-type '(unsigned-byte 8))
(let ((bytes
(make-array (file-length s) :element-type '(unsigned-byte 8))))
(read-sequence bytes s)
bytes))))
(defun parse-catalog-file/strict (uri)
(let* ((*catalog* nil)