From 5151c5af5a39b83306de1b9dbb575b97cb96ad98 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 2 Nov 1994 17:37:44 +0000
Subject: [PATCH] Purify after loading PCL.

---
 tools/clxcom.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp
index 1609a9d21..460aea716 100644
--- a/tools/clxcom.lisp
+++ b/tools/clxcom.lisp
@@ -8,7 +8,9 @@
   (make-package "XLIB" :use '("LISP")))
 
 #+(and (not pcl) (not no-pcl-clx))
-(load "target:pcl/pclload")
+(progn
+  (load "target:pcl/pclload")
+  (ext:purify))
 
 (pushnew :clx-ansi-common-lisp *features*)
 
-- 
GitLab