Fri Nov 13 05:26:45 UTC 2009  pix@kepibu.org
  * fix compile
diff -rN -u old-Oh, Ducks!/unification-templates.lisp new-Oh, Ducks!/unification-templates.lisp
--- old-Oh, Ducks!/unification-templates.lisp	2013-11-26 16:38:55.000000000 +0000
+++ new-Oh, Ducks!/unification-templates.lisp	2013-11-26 16:38:56.000000000 +0000
@@ -120,7 +120,7 @@
                         ;; Urg.  I may be doing something wrong here. :P
                         (if (and (listp document) (listp (car document)))
                             document
-                            (list document)))))
+                            (list document))))
 
 
 (defmethod css-select ((selector css-type-selector) (element cons))
@@ -157,6 +157,7 @@
 ;; type-defines-selectors
 ;; Under this implementation strategy, CSS selectors themselves would be
 ;; implemented for elements.
+#|
 (defgeneric css-combinator:child (a b))
 (defgeneric css-combinator:descendant (a b))
 (defgeneric css-combinator:adjacent (a b))
@@ -165,5 +166,5 @@
 (defgeneric css-selector:element-type (element element-type))
 (defgeneric css-selector:class (element class))
 (defgeneric css-selector:element-id (element element-id))
-
+|#