More explicit error message at end of compilation time.

This commit is contained in:
jjgarcia 2002-11-28 09:43:19 +00:00
parent ffbfd24425
commit 69712a6b5a

View file

@ -351,7 +351,8 @@ Cannot compile ~a."
(when (probe-file h-pathname) (delete-file h-pathname))
(when (probe-file data-pathname) (delete-file data-pathname))
(when (probe-file o-pathname) (delete-file o-pathname))
(format t "~&;;; No FASL generated.~%")
(format t "~&;;; Due to errors in the compilation process, no FASL was generated.
;;; Search above for the \"Error:\" tag to find the error messages.~%")
(setq *error-p* t)
(values nil t t))
))