9 Jun
2011
9 Jun
'11
7:06 p.m.
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.