X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=e6b08db185a47b8e80f81e78ed24dff9dd9ec13b;hb=2b0c46508938b606e70cd6f2bb51506d44e45262;hp=c31626092d8b53668093f84a730e121be4aedeab;hpb=95f17ca63742f8c164309716b35bc25545a849a6;p=sbcl.git diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp index c316260..e6b08db 100644 --- a/src/pcl/methods.lisp +++ b/src/pcl/methods.lisp @@ -1639,8 +1639,10 @@ (t (multiple-value-bind (dfun cache info) (make-final-dfun-internal gf - (list (list (find-class 'sb-kernel::control-stack-exhausted)) - (list (find-class 'sb-kernel::heap-exhausted-error)) + (list (list (find-class + 'sb-kernel::control-stack-exhausted)) + (list (find-class + 'sb-kernel::heap-exhausted-error)) (list (find-class 'restart)))) (setq po-cache cache) (set-dfun gf dfun cache info))))))