anchor.diff:              (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.
   ;;;
  
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*)
  