mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-31 14:50:50 -08:00
Code Issues Projects Releases Packages Wiki Activity

Require the compiler explicitely so that asdf-ecl.lisp works

Browse source
This commit is contained in:
jgarcia 2008-02-02 23:54:56 +00:00
parent 8edb65a501
commit f51d745abb
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
contrib/asdf/asdf.lisp
View file

@ -193,6 +193,7 @@ and NIL NAME and TYPE components"
((name :accessor component-name :initarg :name :documentation
"Component name: designator for a string composed of portable pathname characters")
(version :accessor component-version :initarg :version)
(original-depends-on :accessor component-original-depends-on :initarg :original-depends-on :initform nil)
(in-order-to :initform nil :initarg :in-order-to)
;;; XXX crap name
(do-first :initform nil :initarg :do-first)
@ -749,6 +750,7 @@ system."))
(defclass compile-op (operation)
((proclamations :initarg :proclamations :accessor compile-op-proclamations :initform nil)
(system-p :initarg :system-p :accessor compile-op-system-p :initform nil)
(on-warnings :initarg :on-warnings :accessor operation-on-warnings
:initform *compile-file-warnings-behaviour*)
(on-failure :initarg :on-failure :accessor operation-on-failure
@ -770,7 +772,8 @@ system."))
(output-file (car (output-files operation c))))
(multiple-value-bind (output warnings-p failure-p)
(compile-file source-file
:output-file output-file)
:output-file output-file
:system-p (compile-op-system-p operation))
;(declare (ignore output))
(when warnings-p
(case (operation-on-warnings operation)
@ -1099,6 +1102,7 @@ Returns the new tree (which probably shares structure with the old one)"
:name (coerce-name name)
:pathname pathname
:parent parent
:original-depends-on depends-on
other-args)
(when (typep ret 'module)
(setf (module-default-component-class ret)
@ -1312,6 +1316,7 @@ output to *VERBOSE-OUT*. Returns the shell's exit code."
;; Hook into ECL's require/provide
#+ecl
(progn
(require 'cmp)
(defun module-provide-asdf (name)
(handler-bind ((style-warning #'muffle-warning))
(let* ((*verbose-out* (make-broadcast-stream))