anchor.diff:  			 (verbose *compile-verbose*)
   			 (print *compile-print*)
   			 (external-format :default))
  -	(declare (ignore external-format print))
  +    (declare (ignore external-format print))
  +    (let ((old-input-file input-file))
  +	  (setq input-file (resolve-lisp-file-path input-file))
  +	  (unless input-file
  +	    (error "Can't resolve lisp file path ~S" old-input-file)))
   	(setq output-file (compile-file-pathname input-file :output-file output-file))
   				
   	(let* ((*fasl-output-buffer* (make-array #x2000 :element-type 'byte :fill-pointer 0 :adjustable t))
  
positive.code: ;;;;                6/27/08  RGC  Enhanced LOAD to allow the extension to be unspecified. 
  ;;;;                              In this case it assume ".lisp" unless there is a newer 
  ;;;;                              file with the extension ".fasl".
  ;;;;
  ;;;;
  ;;;; JPM 9/28/01
  
negative.code: 		        (print *load-print*) 
                  (if-does-not-exist t) 
                  (external-format :default))
     (declare (ignore external-format))
     (let ((old-path path))
  	 (setf path (or (resolve-load-path path)
  					;; try to find file in the Corman Lisp installation directory.
  					(resolve-load-path (concatenate 'string
  													(cl::cormanlisp-directory)
  													(if (stringp path)
  														path
  														(namestring path))))))
  	 (unless path
  	   (error "Can't resolve load path for file ~S" old-path)))
  	 (if (path-is-fasl-file-name path)
  	   (return-from load (load-fasl-file path :verbose verbose :print print)))
  	(let* ((*package* *package*)
  		   (*print-level* *print-level*)
  		   (*read-level* *read-level*)
  