X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwalk.lisp;h=db24948dc7c1a60d125fbca8e3db862ba9408bde;hb=8b313a75eb6bcc7b1c8eda798c8350b49f94861c;hp=0589bd1725fc8f082fedb0df0ab3c068e439851b;hpb=b0b168c08b31a748150f404398af754f26fd4813;p=sbcl.git

diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index 0589bd1..db24948 100644
--- a/src/pcl/walk.lisp
+++ b/src/pcl/walk.lisp
@@ -632,7 +632,7 @@
 
 (defun walk-unexpected-declare (form context env)
   (declare (ignore context env))
-  (warn "encountered DECLARE ~S in a place where a DECLARE was not expected"
+  (warn "encountered ~S ~_in a place where a DECLARE was not expected"
 	form)
   form)
 
@@ -811,20 +811,6 @@
 	       walked-arglist
 	       walked-body))))
 
-(defun walk-named-lambda (form context old-env)
-  (walker-environment-bind (new-env old-env)
-    (let* ((name (cadr form))
-	   (arglist (caddr form))
-	   (body (cdddr form))
-	   (walked-arglist (walk-arglist arglist context new-env))
-	   (walked-body
-	     (walk-declarations body #'walk-repeat-eval new-env)))
-      (relist* form
-	       (car form)
-	       name
-	       walked-arglist
-	       walked-body))))
-
 (defun walk-setq (form context env)
   (if (cdddr form)
       (let* ((expanded (let ((rforms nil)