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 p
On Sat, Nov 16, 2013 at 5:21 PM, FAU 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
> (pathname-
On Sat, Nov 16, 2013 at 5:21 PM, FAU wrote:
> 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)
>
> (defu
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
)
;;; foo.lisp