anchor.diff:  (export '(#:compile-dll) 'ccl)
   
   (setq cl::*COMPILER-WARN-ON-UNDEFINED-FUNCTION* 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: 			 (verbose *compile-verbose*)
  			 (print *compile-print*)
  			 (external-format :default))
      (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))
  