X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fwalk.impure.lisp;h=693000baf83140fab52958884d9560ca46555328;hb=bfa4310e41dcd011ca9d139f29be1c5757b41378;hp=c44c1ae3b12b47da9e41b9d1f563b64eaec42850;hpb=ed7ba4dad8a79726fdfeba5aa12e276ea852c540;p=sbcl.git

diff --git a/tests/walk.impure.lisp b/tests/walk.impure.lisp
index c44c1ae..693000b 100644
--- a/tests/walk.impure.lisp
+++ b/tests/walk.impure.lisp
@@ -950,4 +950,8 @@ Form: NIL   Context: EVAL; bound: NIL
                  (error "Walker didn't do lexical variables of a closure properly."))))
          ""))
 
+;; old PCL hung up on it
+(defmethod #:foo ()
+  (defun #:bar ()))
+
 (quit :unix-status 104)