diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2022-10-29 15:37:18 +0200 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2022-12-05 18:48:51 +0200 |
| commit | 4ae82c64d8f219666c2f8315a8a5ab9e30a1c1af (patch) | |
| tree | c6b6cdec7660f287802ae1397e0dce087969a375 /src/lisp | |
| parent | 088873fbc7f92c3d8d582f29eb44e39a136e944d (diff) | |
| download | open-axiom-new-build.tar.gz | |
WIPnew-build
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 4fce2768..d5e36548 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -423,7 +423,10 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (progn (setq *read-default-float-format* 'double-float) - (setq *load-verbose* nil))) + (setq *load-print* nil) + (setq *load-verbose* nil) + (setq *compile-print* nil) + (setq *compile-verbose* nil))) ;; True means that the base Lisp system uses conventional C-style ;; program linking model, whereby programs are constructed by linking @@ -673,6 +676,7 @@ (defun |getFileType|(file) (let ((file-type (pathname-type file))) (cond ((or (equal "clisp" file-type) + (equal "cl" file-type) (equal "lsp" file-type)) |$LispFileType|) (t file-type)))) |