anchor.diff:  ;; FIXME: Disabled input, as it usually seems to hang.
   (define-command (com-run :name "Run" :command-table application-commands :menu t
   			 :provide-output-destination-keyword t)
  -  ((program 'string :prompt "command")
  -   (args '(sequence string) :default nil :prompt "args"))
  +  ((program 'string :prompt "Command")
  +   (args '(sequence string) :default nil :prompt "Arguments"))
     (run-program program args :wait t :input nil))
   
   ;; I could replace this command with a keyword to COM-RUN..
  
positive.code: 			     :command-table lisp-commands
                               :menu t
  			     :provide-output-destination-keyword t)
      ((string 'clim:string :prompt "string")
       &key
       (package '(or package-name package) :prompt "in package" :default nil)
       (domain '(member symbols classes functions variables command-tables) :prompt "domain" :default 'symbols))
    (let ((real-package (when package
                          (if (typep package 'package)
                              package
  
negative.code:         **  *
          *   (first values)))
  
  ;;; The background evaluation feature is neat, but there are thread
  ;;; safety issues doing output to streams, special variables have
  ;;; unexpected values, and input doesn't work right due to racing to
  ;;; read from the event queue. Sadly, I am forced to disable it by
  ;;; default.
  
  (defparameter *use-background-eval* nil
    "Perform evaluation in a background thread, which can be interrupted.")
  
  (define-command (com-eval :menu t :command-table lisp-commands)
  