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

Prevent double loading caused by the .fas rebuild fix commit.

Browse source
This commit is contained in:
Samium Gromoff 2009-04-13 22:36:53 +04:00 • committed by Juan Jose Garcia Ripoll
parent dda0b05e5b
commit bd85fecd4a
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
contrib/asdf/asdf-ecl.lisp
View file

@ -34,8 +34,9 @@
(defmethod perform ((o load-op) (c cl-source-file))
(loop for i in (input-files o c)
collect (let ((output (compile-file-pathname i)))
(load output))))
unless (string= (pathname-type i) "fas")
collect (let ((output (compile-file-pathname i)))
(load output))))
#+nil
(defmethod output-files ((o load-op) (c cl-source-file))