Ok so I've come up with something which seems to work. Please have a
look at this. Is this a viable solution?
Again here's the foo.lisp file:
;;; foo.lisp
(defpackage :foo
(:use :cl)
(:export :foo))
(in-package :foo)
(defun foo ()
#+foo1.0
:foo1.0
#+foo1.1
:foo1.1
)
;;;
On Sat, Nov 16, 2013 at 5:21 PM, FAU f...@riseup.net wrote:
(defmethod output-files ((operation compile-op) (component foo-file))
(let ((l (multiple-value-list (call-next-method
(apply #'values (mapcar #'(lambda (p)
(make-pathname* :directory (append
I corrected it to your advice accordingly.
(defmethod output-files ((operation compile-op) (component foo-file))
(multiple-value-bind (pathnames translatep)
(call-next-method)
(values (mapcar #'(lambda (p)
(make-pathname* :directory (append
(pathname-directory