lQuery Syntax Macro (v2)

(defmacro $ (&rest actions)
  `(let ((working-nodes (list *LQUERY-MASTER-DOCUMENT*)))
     (progn
       ,@(loop for action in actions collect
              `(setf working-nodes
                    ,(if (stringp action)
                         `(css:query ,action working-nodes)
                         `(,(find-symbol (mkstr 'nodefun- (car action)) :lquery)
                            working-nodes
                            ,@(cdr action))))))

     working-nodes)))