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))