>> Thanks for thinking with me on this.
OK. I believe the following definition might make
each of Stelian, you and I happy. Can you try it?
(defun* compile-file-pathname*
(input-file &rest keys &key output-file &allow-other-keys)
(if (absolute-pathname-p output-file)
(apply 'compile-file-pathname
(make-pathname :host nil :device nil
:defaults (lispize-pathname input-file))
keys)
(apply-output-translations
(apply 'compile-file-pathname
(truenamize (lispize-pathname input-file))
keys))))
—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
All programmers are playwrights and all computers are lousy actors.
_______________________________________________
asdf-devel mailing list
[email protected]
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
