From 81d731b234e975ed3f9e2deac613a7689eb73046 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Wed, 24 May 2023 17:53:56 +0200
Subject: [PATCH] [remove] quiet compiler, remove pde from defun

---
 src/cmp/cmpglobals.lsp | 2 +-
 src/cmp/cmpmain.lsp    | 5 +----
 src/cmp/cmputil.lsp    | 1 +
 src/lsp/evalmacros.lsp | 2 ++
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/cmp/cmpglobals.lsp b/src/cmp/cmpglobals.lsp
index dee9c1696..85f37c9e0 100644
--- a/src/cmp/cmpglobals.lsp
+++ b/src/cmp/cmpglobals.lsp
@@ -49,7 +49,7 @@ progress. The default value is T.")
 running the compiler. It may be updated by running ")
 
 (defvar *suppress-compiler-messages*
-  #+ecl-min 'compiler-debug-note #-ecl-min 'compiler-note
+  #+ecl-min 'compiler-note #-ecl-min 'compiler-note
   "A type denoting which compiler messages and conditions are _not_ displayed.")
 
 (defvar *compiler-break-enable* nil)
diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 1e8c86195..a06c59cca 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -103,10 +103,7 @@ compiled successfully, returns the pathname of the compiled file."
             (return)))))
   (when (and system-p load (not *cross-compiling*))
     (error "Cannot load system files."))
-  (cmpprogress "~&;;;~%;;; Compiling ~a~:[~; for target ~a~]."
-               (namestring input-pathname)
-               *cross-compiling*
-               *target-identifier*)
+  (cmpprogress "~&;;; Compiling ~a." (namestring input-pathname))
   (let* ((input-file (truename *compile-file-pathname*))
          (*compile-file-truename* input-file)
          (*compiler-in-use* *compiler-in-use*)
diff --git a/src/cmp/cmputil.lsp b/src/cmp/cmputil.lsp
index 20f81f3e6..2f9d7c17d 100644
--- a/src/cmp/cmputil.lsp
+++ b/src/cmp/cmputil.lsp
@@ -101,6 +101,7 @@
   nil)
 
 (defun cmpprogress (&rest args)
+  #+ (or)
   (when *compile-verbose*
     (apply #'format t args)))
 
diff --git a/src/lsp/evalmacros.lsp b/src/lsp/evalmacros.lsp
index 95140fc97..3d364d4b8 100644
--- a/src/lsp/evalmacros.lsp
+++ b/src/lsp/evalmacros.lsp
@@ -105,6 +105,8 @@ VARIABLE doc and can be retrieved by (DOCUMENTATION 'SYMBOL 'VARIABLE)."
     (when *dump-defun-definitions*
       (print function)
       (setq function `(si::bc-disassemble ,function)))
+    `(si::fset ',name ,global-function)
+    #+ (or)
     `(progn
        ,(ext:register-with-pde whole `(si::fset ',name ,global-function))
        ,@(si::expand-set-documentation name 'function doc-string)