mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-06 04:10:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

.LSP/.LISP are now recognized lisp-source file name extensions

Browse source
This commit is contained in:
jjgarcia 2005-06-30 09:48:29 +00:00
parent 69b94d6e79
commit d0ee7cde6b
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -43,6 +43,8 @@ ECL 0.9g
to load files with strange extensions (.fas, .fasl, etc) as binary files and
only if this fails, use the source-file loader.
- .LSP/.LISP are now recognized lisp source extensions.
* Errors fixed:
- Now .o files compiled with :SYSTEM-P T with dash in filename load

12
src/cmp/cmpmain.lsp
View file

@ -400,13 +400,11 @@ static cl_object VV[VM];
(setq *compile-file-pathname* input-pathname)
(unless (probe-file *compile-file-pathname*)
(setq *compile-file-pathname* (make-pathname :type "lsp" :defaults input-pathname))
(unless (probe-file *compile-file-pathname*)
(setq *compile-file-pathname* (make-pathname :type "lisp" :defaults input-pathname))
(unless (probe-file *compile-file-pathname*)
(setq *compile-file-pathname* (make-pathname :type NIL :defaults input-pathname))
(unless (probe-file *compile-file-pathname*)
(error 'file-error :pathname input-pathname)))))
(dolist (ext '("lsp" "LSP" "lisp" "LISP")
(error 'file-error :pathname input-pathname))
(setq *compile-file-pathname* (make-pathname :type exit :defaults input-pathname))
(when (probe-file *compile-file-pathname*)
(return))))
(setq *compile-file-truename* (truename *compile-file-pathname*))
#+PDE (setq sys:*source-pathname* *compile-file-truename*)