In compile-file, ensure that :output-file is appended the proper file extension

src/CHANGELOG

@@ -234,6 +234,9 @@ ECL 0.9k:
  - Garbage collection statistics was broken for libraries other than the one
    shipped with ECL.
 
+ - When COMPILE-FILE is provided a value of :OUTPUT-FILE, the file extension
+   ".fas" was not automatically appended.
+
 * Optimization and performance:
 
  - TYPEP now can be optimized if the type argument is a constant.

src/cmp/cmpmain.lsp

@@ -500,7 +500,8 @@ static cl_object VV[VM];
   (setq *compile-file-truename* (truename *compile-file-pathname*))
 
   (when (eq output-file 'T)
-    (setf output-file (compile-file-pathname *compile-file-truename* :type (if system-p :object :fasl))))
+    (setf output-file *compile-file-truename*))
+  (setf output-file (compile-file-pathname output-file :type (if system-p :object :fasl)))
 
   #+PDE (setq sys:*source-pathname* *compile-file-truename*)
 

src/lsp/config.lsp.in

@@ -46,7 +46,7 @@ Returns, as a string, the location of the machine on which ECL runs."
 (defun lisp-implementation-version ()
   "Args:()
 Returns the version of your ECL as a string."
-  "@PACKAGE_VERSION@ (CVS 2008-05-30 23:00)")
+  "@PACKAGE_VERSION@ (CVS 2008-05-31 01:49)")
 
 (defun machine-type ()
   "Args: ()