X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwalk.lisp;h=c8401d43c31febb28f4e37b8dfc029aebc862e82;hb=3a2c2a2217f77e0d1a44a581c83e0311ebc2594a;hp=dcdd282619eb3eccb9a6161a25ad9f129f53b9bc;hpb=7d581fab3987ff7cd8a4633b5db2cfd0126f54c0;p=sbcl.git

diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index dcdd282..c8401d4 100644
--- a/src/pcl/walk.lisp
+++ b/src/pcl/walk.lisp
@@ -540,12 +540,8 @@
 (defun walk-template-handle-repeat (form template stop-form context env)
   (if (eq form stop-form)
       (walk-template form (cdr template) context env)
-      (walk-template-handle-repeat-1 form
-				     template
-				     (car template)
-				     stop-form
-				     context
-				     env)))
+      (walk-template-handle-repeat-1
+       form template (car template) stop-form context env)))
 
 (defun walk-template-handle-repeat-1 (form template repeat-template
 					   stop-form context env)
@@ -554,7 +550,7 @@
 	 (if (null repeat-template)
 	     (walk-template stop-form (cdr template) context env)
 	     (error "while handling code walker REPEAT:
-		     ~%ran into STOP while still in REPEAT template")))
+                     ~%ran into STOP while still in REPEAT template")))
 	((null repeat-template)
 	 (walk-template-handle-repeat-1
 	   form template (car template) stop-form context env))