From 6c445495ae3699a6c48cf1ae8ab853c808076c6b Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 22 Nov 2004 14:31:37 +0000
Subject: [PATCH] LOAD must save the value of *READTABLE*

---
 src/c/load.d | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/c/load.d b/src/c/load.d
index 8963db8be..4211888c7 100644
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -349,13 +349,14 @@ NOT_A_FILENAME:
 			  filename);
 	}
 	bds_bind(@'*package*', symbol_value(@'*package*'));
+	bds_bind(@'*readtable*', symbol_value(@'*readtable*'));
 	bds_bind(@'*load-pathname*', filename);
 	bds_bind(@'*load-truename*', cl_truename(filename));
 	if (Null(function))
 		ok = si_load_source(filename, verbose, print);
 	else
 		ok = funcall(4, function, filename, verbose, print);
-	bds_unwind_n(3);
+	bds_unwind_n(4);
 	if (!Null(ok))
 		FEerror("LOAD: Could not load file ~S (Error: ~S)",
 			2, filename, ok);