X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=d7d40b0f441e0d14b8a5cd1fdc096a15afed435e;hb=e5d96999ae4388181ddb0c113313f26afbe997e8;hp=e6b08db185a47b8e80f81e78ed24dff9dd9ec13b;hpb=7244742c3a9478d13d813aaae8135973eb4b89aa;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index e6b08db..d7d40b0 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -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)