mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 22:01:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Change the way pathnames are constructed for compiled files.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-28 10:15:11 +01:00
parent dac5ea7f74
commit 78fa07fee6
1 changed files with 4 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
contrib/asdf/bundle.lisp
View file

@ -18,9 +18,6 @@
;;; The different targets are defined by specialization.
;;;
(defparameter *fasl-type* (pathname-type (compile-file-pathname "foo.lisp"))
"pathname TYPE for lisp FASt Loading files")
(defclass bundle-op (operation)
((build-args :initarg :args :initform nil :accessor bundle-op-build-args)
#+ecl (type :reader bundle-op-type)
@ -290,11 +287,10 @@
(every #'(lambda (c) (typep c 'compiled-file)) (module-components c)))
(defmethod component-relative-pathname ((component compiled-file))
(compile-file-pathname
(coerce-pathname
(or (slot-value component 'relative-pathname)
(component-name component))
:type *fasl-type*)))
(coerce-pathname
(or (slot-value component 'relative-pathname)
(component-name component))
:defaults (compile-file-pathname "foo.lisp")))
(defmethod output-files (o (c compiled-file))
(declare (ignore o c))