anchor.diff:  		        (print *load-print*) 
                   (if-does-not-exist t) 
                   (external-format :default))
  -    (declare (ignore external-format))
  -    (setf path (resolve-load-path path))	
  -    (if (path-is-fasl-file-name path)
  -		(return-from load (load-fasl-file path :verbose verbose :print print)))
  +   (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*)
  
positive.code: 			 (verbose *compile-verbose*)
  			 (print *compile-print*)
  			 (external-format :default))
  	(declare (ignore external-format print))
  	(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))
  
negative.code:             (mapc (function do-it) (cdr form))
              (do-it form))))
  
  (defun resolve-lisp-file-path (file)
    "Checks if supplied file exists with well-known Lisp files extensions. If the check fails this functions returns NIL."
    (let ((res))
  	(if (and (pathname-type file)
  			 (setq res (probe-file file)))
  		res
  		(or (probe-file (make-pathname :name file
  									   :type "lisp"
  									   :version nil))
  			(probe-file (make-pathname :name file
  									   :type "lsp"
  									   :version nil))
  			(probe-file (make-pathname :name file
  									   :type "cl"
  									   :version nil))))))
  
  ;;;
  ;;; Common Lisp COMPILE-FILE-PATHNAME function.
  ;;;
  