From 4ae82c64d8f219666c2f8315a8a5ab9e30a1c1af Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sat, 29 Oct 2022 15:37:18 +0200
Subject: WIP
---
src/lisp/core.lisp.in | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
(limited to 'src/lisp/core.lisp.in')
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))))
--
cgit v1.2.3