From c4af381d0223ac7b76a1fe2510e44eebb2895b70 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Mon, 30 Aug 2010 11:20:07 +0200
Subject: [PATCH] Detection of missing packages in the reader was accidentally
 deactivated.

---
 src/CHANGELOG           | 2 ++
 src/c/read.d            | 2 +-
 src/clos/conditions.lsp | 1 +
 src/lsp/assert.lsp      | 1 +
 src/lsp/top.lsp         | 2 ++
 5 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index f2b43b6ca..64ed4db68 100755
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -33,6 +33,8 @@ ECL 10.5.1:
 
  - RENAME-FILE was not able to rename directories.
 
+ - Detection of missing packages in the reader was accidentally deactivated.
+
 * Visible changes:
 
  - "fasb" is now a valid FASL file type, accepted by ECL even in absence of
diff --git a/src/c/read.d b/src/c/read.d
index 986c7d74d..c07f72538 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -2537,7 +2537,7 @@ read_VV(cl_object block, void (*entry_point)(cl_object))
 				2, CAR(x), block->cblock.name);
 			}
 		} end_loop_for_on(x);
-                old_eptbc = cl_core.packages_to_be_created;
+                /* old_eptbc = cl_core.packages_to_be_created; */
 		if (VVtemp) {
 			block->cblock.temp_data = NULL;
 			block->cblock.temp_data_size = 0;
diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index 288562102..201f2beb5 100644
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -790,6 +790,7 @@ format strings of the error message.  ARGS are the arguments to the format
 strings."
   (declare (inline apply) ;; So as not to get bogus frames in debugger
 	   (ignore error-name)
+	   #-ecl-min
            (c::policy-debug-ihs-frame))
   (let ((condition (coerce-to-condition datum args 'simple-error 'error)))
     (cond
diff --git a/src/lsp/assert.lsp b/src/lsp/assert.lsp
index 23db6ac5f..c40334087 100644
--- a/src/lsp/assert.lsp
+++ b/src/lsp/assert.lsp
@@ -17,6 +17,7 @@
   (list (eval (read *query-io*))))
 
 (defun wrong-type-argument (object type &optional place function)
+  #-ecl-min
   (declare (c::policy-debug-ihs-frame))
   (tagbody again
      (restart-case
diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index cd422b3cc..b084a299f 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -552,6 +552,7 @@ Use special code 0 to cancel this operation.")
 		 ((:prompt-hook *tpl-prompt-hook*) *tpl-prompt-hook*)
   		 (broken-at nil)
 		 (quiet nil))
+  #-ecl-min
   (declare (c::policy-debug-ihs-frame))
   (let* ((*ihs-base* *ihs-top*)
 	 (*ihs-top* (if broken-at (ihs-search t broken-at) (ihs-top)))
@@ -1443,6 +1444,7 @@ package."
   ;; call *INVOKE-DEBUGGER-HOOK* first, so that *DEBUGGER-HOOK* is not
   ;; called when the debugger is disabled. We adopt this mechanism
   ;; from SBCL.
+  #-ecl-min
   (declare (c::policy-debug-ihs-frame))
   (let ((old-hook *invoke-debugger-hook*))
     (when old-hook