From 957ac97034174931503feba7907d8a54f7f8a6e2 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 10 Aug 2009 22:14:26 +0000
Subject: [PATCH] Compile and load the external format code.

---
 code/extfmts.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/code/extfmts.lisp b/code/extfmts.lisp
index a5eb60b7f..87bd13b0f 100644
--- a/code/extfmts.lisp
+++ b/code/extfmts.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extfmts.lisp,v 1.11 2009/08/10 16:47:41 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extfmts.lisp,v 1.12 2009/08/10 22:14:26 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -275,9 +275,11 @@
   (or (gethash name *external-formats*)
       (and (consp name) (find-external-format name))
       (and (let ((*package* (find-package "STREAM"))
-		 (lisp::*enable-package-locked-errors* nil))
-	     (load (format nil "ext-formats:~(~A~).lisp" name)
-		   :if-does-not-exist nil :external-format :iso8859-1))
+		 (lisp::*enable-package-locked-errors* nil)
+		 (s (open (format nil "ext-formats:~(~A~).lisp" name)
+			  :if-does-not-exist nil :external-format :iso8859-1)))
+	     (when s
+	       (null (nth-value 1 (ext:compile-from-stream s)))))
            (gethash name *external-formats*))))
 
 (defun %composed-ef-name (a b)
-- 
GitLab