lQuery Syntax Macro

(defmacro $ (selector-or-nodes &rest modifiers)
  (if (not selector-or-nodes)
      `*LQUERY-MASTER-DOCUMENT*
      `(let ((working-nodes *LQUERY-MASTER-DOCUMENT*))
         ,(if (stringp selector-or-nodes)
              `(setf working-nodes (css:query ,selector-or-nodes working-nodes))
              `(setf working-nodes ,selector-or-nodes))

         (if (not (listp working-nodes))
             (setf working-nodes (list working-nodes)))

         ,(if modifiers
              `(progn
                 ,@(loop for mod in modifiers collect
                        `(setf working-nodes (,(find-symbol (mkstr 'nodefun- (car mod)) :lquery)
                                               working-nodes
                                               ,@(cdr mod))))))

         working-nodes)))