diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp index 05bf18f3c687b2a01ca4bb054ec2676343a1d9d1..c2f85fd2684b388d1cae558ba81a064fad9a2f8f 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")