anchor.diff:    (if (not (equal args nil))
         (setf *lisp-executable* (car args))
         (lm-error "pl-lisp-executable" "args must be a string")))
  -
  
positive.code: #+ccl (defvar *lisp-type* 'ccl)
  #+sbcl (defvar *lisp-type* 'sbcl)
  #+clisp (defvar *lisp-type* 'clisp)
  #-(or ccl sbcl clisp) (lm-error "lisps.lisp" "unable to support this lisp")
  
  (defun buildexe (outstream fname package toplevel &optional (lisp 'default))
    (if *debugging*
  
negative.code:       (lm-error "pl-compile-file" "args length incorrect")
        (setf *compile-files* (append *compile-files* args))))
  
  (defun disable-debugger ()
    #+sbcl (setf *debugger-hook* (lambda (c h)
  				 (declare (ignore h))
  