Commit a01a8083 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

compile-file* already calls with-muffled-compiler-conditions, perform-lisp-compilation needn't.

Add a *compile-check* hook for a default compile-check argument.
Also, add back a pathname kludge for GCL until the issue gets fixed.
parent 4e5bc499
......@@ -100,15 +100,14 @@
warnings-file) outputs
(call-with-around-compile-hook
c #'(lambda (&rest flags)
(with-muffled-compiler-conditions ()
(apply 'compile-file* input-file
:output-file output-file
:external-format (component-external-format c)
:warnings-file warnings-file
(append
#+clisp (list :lib-file lib-file)
#+(or ecl mkcl) (list :object-file object-file)
flags (compile-op-flags o)))))))
(apply 'compile-file* input-file
:output-file output-file
:external-format (component-external-format c)
:warnings-file warnings-file
(append
#+clisp (list :lib-file lib-file)
#+(or ecl mkcl) (list :object-file object-file)
flags (compile-op-flags o))))))
(check-lisp-compile-results output warnings-p failure-p
"~/asdf-action::format-action/" (list (cons o c))))))
......
......@@ -30,7 +30,7 @@
#:enable-deferred-warnings-check #:disable-deferred-warnings-check
#:current-lisp-file-pathname #:load-pathname
#:lispize-pathname #:compile-file-type #:call-around-hook
#:compile-file* #:compile-file-pathname*
#:compile-file* #:compile-file-pathname* #:*compile-check*
#:load* #:load-from-string #:combine-fasls)
(:intern #:defaults #:failure-p #:warnings-p #:s #:y #:body))
(in-package :uiop/lisp-build)
......@@ -602,8 +602,11 @@ possibly in a different process. Otherwise just call THUNK."
(funcall *output-translation-function*
(apply 'compile-file-pathname input-file keys)))))
(defvar *compile-check* nil
"A hook for user-defined compile-time invariants")
(defun* (compile-file*) (input-file &rest keys
&key compile-check output-file warnings-file
&key (compile-check *compile-check*) output-file warnings-file
#+clisp lib-file #+(or ecl mkcl) object-file #+sbcl emit-cfasl
&allow-other-keys)
"This function provides a portable wrapper around COMPILE-FILE.
......
......@@ -53,6 +53,9 @@ that is a list and not a string."
((or (null directory)
(and (consp directory) (member (first directory) '(:absolute :relative))))
directory)
#+gcl
((consp directory)
(cons :relative directory))
(t
(error (compatfmt "~@<Unrecognized pathname directory component ~S~@:>") directory))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment