anchor.diff:    (setq *transform-spec* spc)
     (setq *transform-term* nil)
     (setq *transform-commands* nil)
  -  (setq *undo-stack* nil))
  +  (setq *undo-stack* nil)
  +  (setq *prompt* "** "))
   
   (defun push-state ()
     (push (list *transform-term* *transform-commands*) *undo-stack*))
  
positive.code:       (format t "No transformations")
        (Script::printScript (Script::mkSteps *transform-commands*)))
    (setq *current-command-processor* 'process-sw-shell-command)
    (values))
  
  (defun process-transform-shell-command (command argstr)
  
negative.code: 	   ((left-to-right lr) (apply-command argstr 'Script::mkLeftToRight))
  	   ((right-to-left rl) (apply-command argstr 'Script::mkRightToLeft))
  	   ((simp-standard ss) (interpret-command (Script::mkSimpStandard-0)))
  	   ((abstract-cse cse acse) (interpret-command (Script::mkAbstractCommonExpressions-0)))
  	   ((partial-eval pe)  (interpret-command (Script::mkPartialEval-0)))
  
  	   (pc                 (print-current-term))
  