From 30909eee9baffe5d173010ba1174fcb6b8885c49 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 20 Dec 1991 18:16:30 +0000
Subject: [PATCH] Upped the safety and debug-info for pathname and filesys.

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

diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 05bf18f3c..c2f85fd26 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -140,8 +140,10 @@
 (comf "target:code/serve-event")
 (pushnew :serve-event *features*)
 (comf "target:code/fd-stream")
-(comf "target:code/pathname")
-(comf "target:code/filesys")
+(with-compilation-unit ; Until this code is shaken down more...
+  (:optimize '(optimize (safety 2) (debug 2)))
+  (comf "target:code/pathname")
+  (comf "target:code/filesys"))
 (comf "target:code/load")
 
 (comf "target:code/eval")
-- 
GitLab