Mon Nov 23 13:02:12 UTC 2009 pix@kepibu.org
* Import when-let*, too
diff -rN -u old-Oh, Ducks!/package.lisp new-Oh, Ducks!/package.lisp
--- old-Oh, Ducks!/package.lisp 2013-11-19 21:27:23.000000000 +0000
+++ new-Oh, Ducks!/package.lisp 2013-11-19 21:27:23.000000000 +0000
@@ -2,7 +2,8 @@
(:import-from #:alexandria . #1=(
#:compose
#:curry
- #:rcurry))
+ #:rcurry
+ #:when-let*))
(:export . #1#))
(defpackage #:oh-ducks.traversal
diff -rN -u old-Oh, Ducks!/selectors.lisp new-Oh, Ducks!/selectors.lisp
--- old-Oh, Ducks!/selectors.lisp 2013-11-19 21:27:23.000000000 +0000
+++ new-Oh, Ducks!/selectors.lisp 2013-11-19 21:27:23.000000000 +0000
@@ -85,8 +85,8 @@
(string= (element-id element) (selector-arg selector)))
(defmethod element-matches-p (element (selector nth-child-selector))
- (alexandria:when-let* ((parent (element-parent element))
- (pos (position element (element-children parent) :test #'eq)))
+ (when-let* ((parent (element-parent element))
+ (pos (position element (element-children parent) :test #'eq)))
(= (selector-arg selector) (1+ pos))))
(defmethod element-matches-p (element (selector class-selector))