anchor.diff:              (let ((process (#+openmcl ccl:run-program
                               #+(or cmu scl) ext:run-program
                               #+sbcl sb-ext:run-program
  -                            command arglist :output s :error :output
  +                            command arglist #-win32 :output #-win32 s
  +                            :error :output
                               #+sbcl :search #+sbcl t)))
  +              #+win32
  +              (write-line "note: SBCL on windows can't redirect output.")
                 (setq exit-code
                       #+openmcl (nth-value
                                  1 (ccl:external-process-status process))
  
positive.code: 
  ;;;# Grovelling
  
  (defparameter *cc* "gcc")
  (defvar *cc-flags*)
  
  ;;; The header of the intermediate C file.
  
negative.code: 
  #+allegro
  (defun %invoke (command arglist)
    (let ((cmd #-mswindows (concatenate 'vector (list command command) arglist)
               #+mswindows (format nil "~A~{ ~A~}" command arglist)))
      (multiple-value-bind (output error-output exit-code)
          (excl.osi:command-output cmd :whole t)
        (declare (ignore error-output))
  