149c149,150
<      :fmakunbound '(#:perform #:explain #:output-files #:operation-done-p)
---
>      :fmakunbound '(#:perform #:explain #:output-files #:operation-done-p
>                     #:component-relative-pathname)
253c254
<   (subseq "VERSION:1.640" (1+ (length "VERSION"))))
---
>   (subseq "VERSION:1.641" (1+ (length "VERSION"))))
573,575c574
<   (si:getenv x)
<   #+abcl
<   (ext:getenv x))
---
>   (si:getenv x))
658,660c657,658
<       (parse-integer (read-line stream))))))
<       ;; (handler-case (parse-integer (read-line stream))
<       ;;   (error () (error "Unable to find out user ID")))))))
---
>       (handler-case (parse-integer (read-line stream))
>         (error () (error "Unable to find out user ID")))))))
698a697,699
> (defun lispize-pathname (input-file)
>   (make-pathname :type "lisp" :defaults input-file))
> 
1490c1491
<          (output (compile-file-pathname (first input) :type :fasl)))
---
>          (output (compile-file-pathname (lispize-pathname (first input)) :type :fasl)))
1524,1528c1525,1530
<   #-:broken-fasl-loader
<   (list #-ecl (compile-file-pathname (component-pathname c))
<         #+ecl (compile-file-pathname (component-pathname c) :type :object)
<         #+ecl (compile-file-pathname (component-pathname c) :type :fasl))
<   #+:broken-fasl-loader (list (component-pathname c)))
---
>   (let ((p (lispize-pathname (component-pathname c))))
>     #-:broken-fasl-loader
>     (list #-ecl (compile-file-pathname p)
>           #+ecl (compile-file-pathname p :type :object)
>           #+ecl (compile-file-pathname p :type :fasl))
>     #+:broken-fasl-loader (list p)))
1551c1553
<           :collect (let ((output (compile-file-pathname i)))
---
>           :collect (let ((output (compile-file-pathname (lispize-pathname i))))
2041,2044c2043
<     #+abcl
<     (ext:run-shell-command command :output *verbose-out*)
< 
<     #-(or openmcl clisp lispworks allegro scl cmu sbcl ecl abcl)
---
>     #-(or openmcl clisp lispworks allegro scl cmu sbcl ecl)
2515c2514
<           (truenamize (make-pathname :type "lisp" :defaults input-file))
---
>           (truenamize (lispize-pathname input-file))
