mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-03-09 06:30:32 -07:00
Detection of missing packages in the reader was accidentally deactivated.
This commit is contained in:
parent
1ec501768e
commit
c4af381d02
5 changed files with 7 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue