anchor.diff:  
              ((lisp l)  (if (null argstr)
                             (format t "Error: ~a requires an argument" *raw-command*)
  -                        (with-break-possibility (lisp-value (multiple-value-list (eval (read-from-string argstr)))))))
  +                          (with-break-possibility (lisp-value (multiple-value-list (eval (read-from-string argstr)))))))
              (cl        (with-break-possibility (cl-user::cl argstr)))
              (ld        (with-break-possibility (cl-user::ld argstr)))
              (cf        (cl-user::cf argstr))
  
positive.code:                                                            (cl-user::norm-unitid-str (cadr inp_elts)))))
                                   (results (Refs::usedBy_*-3 (list qid) (list qid) spc))
                                   (cl:*print-length* nil))
                              ;(format t "qid: ~a~%spc: ~a~%" qid (cadr inp_elts))
                              (when (not (null (car results)))
                                (format t "Ops: ~a~%" (reverse (map 'list #'MetaSlang::PrintQualifiedId (car results)))))
                              (when (not (null (cdr results)))
  
negative.code:                                     (funcall command com-argstr)))
                                (format t "Unknown command: ~a." command)))))
             ((trace-rewrites trr) (setq MetaSlangRewriter::traceRewriting 2)
              (format t "Rewrite tracing turned on.")
              (values))
             ((untrace-rewrites untrr) (setq MetaSlangRewriter::traceRewriting 0)
              (format t "Rewrite tracing turned off.")
              (values))
             ;;      (bash      (cl-user::bash argstr))
             ;;
             (t
              (format t "Unknown command `~a'. Type `help' to see available commands."
  