anchor.diff:               :initarg :compiler
                :initform (error "compiler must be either :bytecode or :lisp-to-c. Can not be NIL"))))
   
  -(defclass clasp (single-exe-lisp-exe) ())
  -
   (defclass acl (single-exe-lisp-exe) ())
   ;; Lispwork was not verified, as I don't have a license,
   ;; and the free personal edition doesn't have
   ;; a command line executable, only GUI.
   (defclass lispworks (single-exe-lisp-exe) ())
   
  -
  +(defclass clasp (single-exe-lisp-exe) ())
   ;;;
   ;;; Implementation
   ;;;
  
positive.code:           ,@(prepend-each "--eval" form-strings)
            "--eval" "(sb-ext:quit)")))
  
  (defmethod make-command-line ((lisp-exe clasp) form-strings)
    (cons (exe-path lisp-exe)
          `("--norc"
            "--eval (setq clasp-cleavir::*use-ast-interpreter* nil)"
            ,@(prepend-each "--eval" form-strings)
            "--eval" "(core:quit)")))
  
  (defmethod make-command-line ((lisp-exe cmucl) form-strings)
    (cons (exe-path lisp-exe)
          `("-noinit"
  
negative.code:           "-eval" "(load-all-patches)"
            ,@(prepend-each "-eval" form-strings)
            "-eval" "(lispworks:quit)")))
  
  (defmethod make-command-line ((lisp-exe clasp) form-strings)
    (cons (exe-path lisp-exe)
          `("--norc"
            #+(or) "--eval (setq clasp-cleavir::*use-ast-interpreter* nil)"
            ,@(prepend-each "--eval" form-strings)
            "--eval" "(core:quit)")))
  
  ;;; Timeouts: waiting for the process and killing the process tree on timeout;
  ;;; also detecting the machine hibernation while the process is running.
  