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

Rewrite ENSURE-VALID-FILE-EXTENSION to allow the CONTINUE restart do what it should. Change the variable that rules the behavior to EXT::*UNKNOWN-FILE-TYPES* so that it can be set in ~/.eclrc without loading the compiler.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-05-17 13:29:33 +02:00
parent 78d5ab27f1
commit fa2cb50c1e
1 changed files with 18 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

31
src/cmp/cmpmain.lsp
View file

@ -470,27 +470,32 @@ static cl_object VV[VM];
#+dlopen
(apply #'builder :shared-library args))
(defvar *ignore-extensions* '())
(defvar ext::*unknown-file-types* '())
(defun ensure-valid-file-extension (pathname)
(force-output)
(let* ((type (pathname-type pathname)))
(cond ((null type)
(warn "The output from COMPILE-FILE, ~A has no extension. ECL will refuse to load it." pathname))
((member type *ignore-extensions*))
((null (assoc type ext::*load-hooks* :test #'string=))
(restart-case
(cerror "Ignore error and do not prompt again."
"~%COMPILE-FILE has been invoked with a value of :OUTPUT-FILE
(flet ((register-extension (type)
(push (cons type #'si::load-binary) ext::*load-hooks*)))
(force-output)
(let* ((type (pathname-type pathname)))
(cond ((null type)
(warn "The output from COMPILE-FILE, ~A has no extension. ECL will refuse to load it." pathname))
((eq ext::*unknown-file-types* :register)
(register-extension type))
((member type ext::*unknown-file-types* :test #'string=))
((null (assoc type ext::*load-hooks* :test #'string=))
(restart-case
(error "~%COMPILE-FILE has been invoked with a value of :OUTPUT-FILE
~A
The file type is not a supported binary file type. If you do not register
this file type with ECL, it will refuse to load this file. To permanently
register this file type with ECL you can add
(push '(~S . si::load-binary) ext::*load-hooks*)
to your ~~/.eclrc file."
pathname type type)
(register () :report "Register file type for later use with LOAD."
(push (cons type #'si::load-binary) ext::*load-hooks*)))))))
pathname type type)
(continue () :report "Ignore error and do not prompt again."
(push type ext::*unknown-file-types*))
(register () :report "Register file type for later use with LOAD."
(register-extension type))))))))
(defun compile-file (input-pathname &rest args
&key