From 2df78d6e4472a73f40b5ddf9fbc729b9cdf39080 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Tue, 14 Jun 2011 16:31:04 +0200
Subject: [PATCH] Fix use of asdf:component-relative-pathname to avoid
 unportable :unspecific

---
 src/parse/html-parser.lisp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/parse/html-parser.lisp b/src/parse/html-parser.lisp
index ea72962..1fdd457 100644
--- a/src/parse/html-parser.lisp
+++ b/src/parse/html-parser.lisp
@@ -33,10 +33,13 @@
 
 (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")
-- 
2.11.4.GIT