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-18 02:23:55.000000000 +0000
+++ new-Oh, Ducks!/unification-templates.lisp 2013-11-18 02:23:55.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))
-
+|#