[Sbcl-commits] CVS: sbcl/src/pcl methods.lisp,1.88,1.89

[Gabor M. <me...@us...>]

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv12824/src/pcl

Modified Files:
	methods.lisp 
Log Message:
1.0.25.50: detect binding and alien stack exhaustion

Alien stack exhaustion machinery only works on x86oids.


Index: methods.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/methods.lisp,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -d -r1.88 -r1.89
--- methods.lisp	16 Feb 2009 21:18:37 -0000	1.88
+++ methods.lisp	16 Feb 2009 22:23:09 -0000	1.89
@@ -1642,6 +1642,10 @@
                             (list (list (find-class
                                          'sb-kernel::control-stack-exhausted))
                                   (list (find-class
+                                         'sb-kernel::binding-stack-exhausted))
+                                  (list (find-class
+                                         'sb-kernel::alien-stack-exhausted))
+                                  (list (find-class
                                          'sb-kernel::heap-exhausted-error))
                                   (list (find-class 'restart))))
                          (setq po-cache cache)