diff options
| -rw-r--r-- | hyperquirks.lisp | 10 |
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 |