[api change] for >> and ?> macros

1 files changed, 5 insertions, 5 deletions

diff --git a/hyperquirks.lisp b/hyperquirks.lisp
index 2c7de1a..dd65b4f 100644
--- a/hyperquirks.lisp
+++ b/hyperquirks.lisp
@@ -54,8 +54,8 @@ returned from.
                        (expander (rest body)))))))
      `(block () ,@(expander body))))
 
-(defmacro >> ((ob) &rest accessors)
-  "Chain access to OB. "
+(defmacro >> (ob &rest accessors)
+  "Chain access to OB."
   (let* ((tmpvar
            (gensym))
          (block-name
@@ -71,17 +71,17 @@ returned from.
            ,@body))))
 
 
-(defmacro ?> ((ob &optional default (test 'null)) &rest accessors)
+(defmacro ?> ((&key default (test 'null)) ob &rest accessors)
   "Chain access to OB, returning DEFAULT the first time TEST returns null.
 E.g. 
 
 
 > (let ((num-tree '(1 (2 3 (4 5) 6))))
-    (?> (num-tree) second third fourth))
+    (?> num-tree second third fourth))
 NIL
 
 > (let ((num-tree '(1 (2 3 (4 5) 6))))
-    (?> (num-tree) second third first))
+    (?> num-tree second third first))
 4
 "
   (let* ((tmpvar