anchor.diff:         ;; NB: not currently available on ABCL, Corman, Genera, MCL
          (or #+(or allegro clisp clozure cmu gcl lispworks sbcl scl xcl)
              (first (raw-command-line-arguments))
  -           #+ecl (si:argv 0) #+mkcl (mkcl:argv 0)))
  +           #+(or clasp ecl) (si:argv 0) #+mkcl (mkcl:argv 0)))
         (t ;; argv[0] is the name of the interpreter.
          ;; The wrapper script can export __CL_ARGV0. cl-launch does as of 4.0.1.8.
          (getenvp "__CL_ARGV0"))))
  
positive.code: The transformations and constraint checks are done in this order,
  which is also the order in the lambda-list:
  
  WANT-PATHNAME checks that pathname (after parsing if needed) is not null.
  Otherwise, if the pathname is NIL, ensure-pathname returns NIL.
  WANT-LOGICAL checks that pathname is a LOGICAL-PATHNAME
  
negative.code:     (setf *stdout*
            #.(or #+clozure 'ccl::*stdout*
                  #+(or cmu scl) 'system:*stdout*
                  #+(or clasp ecl) 'ext::+process-standard-output+
                  #+sbcl 'sb-sys:*stdout*
                  '*standard-output*)))
  
  