anchor.diff:  (in-package :SWShell)
   
   (defvar *transform-help-strings* '(("at" . "[op] Focuses on definition of op")
  +				   ("move" . "[f l n p w a s r] Focus on neighboring expressions (first last next previous widen all search reverse-search)")
  +				   ("m" . "Abbreviation for move")
   				   ("simplify" . "[rules] Applies rewriting simplifier with supplied rules.")
   				   ("fold" . "[op] folds first occurrence of definition of op")
   				   ("unfold" . "[op] unfolds first occurrence of op")
  
positive.code:   (let ((prev (pop *transform-commands*)))
      (if (functionp prev)
  	(funcall prev acts)
  	(previous-multi-command (cons prev acts)))))
  
  (defun finish-previous-multi-command ()
    (when (and (not (null *transform-commands*))
  	     (loop for x in *transform-commands* thereis (functionp x)))
      (let ((prev-result (previous-multi-command nil)))
        (when prev-result
  	(push prev-result *transform-commands*)))))
  
  (defun parse-qid (qid-str)
  
negative.code: 			(cl-user::sw-help argstr) ; refers to *transform-help-strings*
  			))
  	   (at                 (at-command (parse-qid argstr)))
  	   ((move m)           (move-command (string-spec::split argstr)))
  	   ((f l n p w a s r)  (move-command (cons (string-downcase (string command))
  						   (string-spec::split argstr))))
  	   ((simplify simp s)  (simplify-command argstr)    )
  	   ;((apply a)       (cl-user::ls     (or argstr "")))
  	   ((fold f)           (apply-command argstr 'Script::mkFold))
  