0.8.0.6:

[sbcl.git] / tests / walk.impure.lisp

diff --git a/tests/walk.impure.lisp b/tests/walk.impure.lisp
index c44c1ae..693000b 100644 (file)
--- 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."))))
          ""))
 \f
+;; old PCL hung up on it
+(defmethod #:foo ()
+  (defun #:bar ()))
+\f
 (quit :unix-status 104)