0.pre7.68:

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

diff --git a/tests/walk.impure.lisp b/tests/walk.impure.lisp
index b874f10..8642df7 100644 (file)
--- a/tests/walk.impure.lisp
+++ b/tests/walk.impure.lisp
@@ -37,8 +37,8 @@
                  #'(lambda (x y env)
                      (format t "~&Form: ~S ~3T Context: ~A" x y)
                      (when (symbolp x)
-                       (let ((lexical (variable-lexical-p x env))
-                             (special (variable-special-p x env)))
+                       (let ((lexical (var-lexical-p x env))
+                             (special (var-special-p x env)))
                          (when lexical
                            (format t ";~3T")
                            (format t "lexically bound"))
@@ -940,7 +940,7 @@ Form: NIL   Context: EVAL; bound: NIL
                         #'(lambda (form context env)
                             (declare (ignore context))
                             (when (and (symbolp form)
-                                       (variable-lexical-p form env))
+                                       (var-lexical-p form env))
                               (push form the-lexical-variables))
                             form))
              (or (and (= (length the-lexical-variables) 3)