Detection of missing packages in the reader was accidentally deactivated.

This commit is contained in:
Juan Jose Garcia Ripoll 2010-08-30 11:20:07 +02:00
parent 1ec501768e
commit c4af381d02
5 changed files with 7 additions and 1 deletions

View file

@ -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

View file

@ -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;

View file

@ -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

View file

@ -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

View file

@ -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