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-22 03:00:32.000000000 +0000
+++ new-Oh, Ducks!/package.lisp	2013-11-22 03:00:33.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-22 03:00:32.000000000 +0000
+++ new-Oh, Ducks!/selectors.lisp	2013-11-22 03:00:33.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))