From 55a3673104cd8569ee9b537f8896664febe0e476 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 24 May 1991 17:03:22 +0000
Subject: [PATCH] Changed the debug-info level for internal functions to be .5,
 which now suppresses arg documentation and function type information.

---
 tools/worldcom.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 608d8f63b..a87e40855 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -13,13 +13,14 @@
 (with-compiler-log-file
     ("target:compile-lisp.log"
      :optimize '(optimize (speed 2) (space 2) (inhibit-warnings 2)
-			  (debug-info #-small 2 #+small 1)
+			  (debug-info #-small 2 #+small .5)
 			  (safety #-small 1 #+small 0))
      :optimize-interface '(optimize-interface (safety #-small 2 #+small 1)
-					      (debug-info 1))
+					      (debug-info .5))
      :context-declarations
      '(((:or :external (:and (:match "%") (:match "SET")))
-	(declare (optimize-interface (safety 2))))
+	(declare (optimize-interface (safety 2) (debug-info 1))
+		 (optimize (debug-info 1))))
        ((:or (:and :external :macro)
 	     (:match "$PARSE-"))
 	(declare (optimize (safety 2))))
-- 
GitLab