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 2015-10-27 04:36:26.000000000 +0000 +++ new-Oh, Ducks!/package.lisp 2015-10-27 04:36:26.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 2015-10-27 04:36:26.000000000 +0000 +++ new-Oh, Ducks!/selectors.lisp 2015-10-27 04:36:26.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))