[Sbcl-devel] Re: [Sbcl-commits] CVS: sbcl/src/code cold-init.lisp,1.34,1.35 exhaust.lisp,1.6,1.7 fd-stream.lisp,1.26,1.27 interr.lisp,1.19,1.20 run-program.lisp,1.28,1.29 stream.lisp,1.27,1.28 toplevel.lisp,1.29,1.30

[Alexey D. <ade...@co...>]

Hello,

Daniel Barlow <da...@us...> writes:

> Index: exhaust.lisp
[...]
> -(defun %detect-stack-exhaustion ()
> -  (when (#!-stack-grows-downward-not-upward sap>=
> -	 #!+stack-grows-downward-not-upward sap<=
> -	 (current-sp)
> -	 *control-stack-exhaustion-sap*)
> -    (let ((*control-stack-exhaustion-sap*
> -	   (revised-control-stack-exhaustion-sap)))
> -      (warn "~@<ordinary control stack soft limit temporarily displaced to ~
> -             allow possible interactive debugging~@:>")
> -      (error "The system control stack was exhausted.")))
> -  ;; FIXME: It'd be good to check other stacks (e.g. binding stack)
> -  ;; here too.
> -  )

Please, remove %DETECT-STACK-EXHAUSTION from
package-data-list.lisp-expr and increase +FASL-FILE-VEIRSION+ in
src/code/early-fasl.lisp.

Regards,
Alexey Dejneka

---
"You've said you removed a bug. Why has the code grown?"