Fix use of asdf:component-relative-pathname to avoid unportable :unspecific
authorDavid Lichteblau <david@lichteblau.com>
Tue, 14 Jun 2011 14:31:04 +0000 (14 16:31 +0200)
committerDavid Lichteblau <david@radon.(none)>
Tue, 14 Jun 2011 14:31:04 +0000 (14 16:31 +0200)
src/parse/html-parser.lisp

index ea72962..1fdd457 100644 (file)
 
 (defparameter sgml::*simple-catalog*
   (let ((base
-        (merge-pathnames
-         (make-pathname :directory '(:relative "resources") :type :unspecific)
-         (asdf:component-relative-pathname
-          (asdf:find-system :closure-html)))))
+        (make-pathname
+        :name nil
+        :type nil
+        :defaults (merge-pathnames
+                   "resources/"
+                   (asdf:component-relative-pathname
+                    (asdf:find-system :closure-html))))))
     (loop
        :for (name . filename)
        :in '(("-//W3O//DTD W3 HTML 3.0//EN" . "dtd/HTML-3.0")