anchor.diff:          (t (ppcre:split (format nil "(?~a)~a" ,,g!m ,(car ,g!a)) ,',g!s)))))
   
   (defun xxx (s c n)
  +  (declare (ignore c n))
     (case (read-char s)
       (#\m (mat (segment-reader s (read-char s) 1) (mods s)))
       (#\d (div (segment-reader s (read-char s) 1) (mods s))) ; divide for split
  
positive.code: (defmacro match (stg &body clauses)
    `(cond
       ,@(loop for (regex . conseq) in clauses
               collect (if (equal regex t)
                         `(t ,@conseq)
                         `((whenmatch (,regex ,stg) ,@conseq))))))
  
  
negative.code:     (t (error "Unknown #~~ mode character"))))
  (set-dispatch-macro-character #\# #\~ 'xxx)
  
  #|
  ;orig
  (lol:defmacro! ifmatch ((test o!s) conseq &optional altern)
    (let* ((dollars (remove-duplicates (remove-if-not #'lol:dollar-symbol-p (lol:flatten conseq))))
           (top (or (car (sort (mapcar #'lol:dollar-symbol-p dollars) #'>)) 0)))
  