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?" |
From: Christophe R. <cs...@ca...> - 2002-07-26 10:04:33
|
On Fri, Jul 26, 2002 at 08:55:44AM +0400, Alexey Dejneka wrote: > Hello, > > Please, remove %DETECT-STACK-EXHAUSTION from > package-data-list.lisp-expr and increase +FASL-FILE-VEIRSION+ in > src/code/early-fasl.lisp. Thanks for this; I've committed these changes in sbcl-0.7.6.8 Cheers, Christophe -- Jesus College, Cambridge, CB5 8BL +44 1223 510 299 http://www-jcsu.jesus.cam.ac.uk/~csr21/ (defun pling-dollar (str schar arg) (first (last +))) (make-dispatch-macro-character #\! t) (set-dispatch-macro-character #\! #\$ #'pling-dollar) |