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