From e2db5788739174fe304620fbff9e12eda3c0d976 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Fri, 1 Sep 2000 16:38:05 +0000
Subject: [PATCH] Fix define-walker-template for compiler-let to target
 ext:compiler-let.

---
 pcl/walk.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/walk.lisp b/pcl/walk.lisp
index 62af126b1..f1e96344e 100644
--- a/pcl/walk.lisp
+++ b/pcl/walk.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.17 2000/07/06 08:47:10 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.18 2000/09/01 16:38:05 pw Exp $")
 ;;;
 ;;; A simple code walker, based IN PART on: (roll the credits)
 ;;;   Larry Masinter's Masterscope
@@ -392,7 +392,7 @@
 
 (define-walker-template BLOCK                (NIL NIL REPEAT (EVAL)))
 (define-walker-template CATCH                (NIL EVAL REPEAT (EVAL)))
-(define-walker-template COMPILER-LET         walk-compiler-let)
+(define-walker-template ext:COMPILER-LET     walk-compiler-let)
 (define-walker-template DECLARE              walk-unexpected-declare)
 (define-walker-template EVAL-WHEN            (NIL QUOTE REPEAT (EVAL)))
 (define-walker-template FLET                 walk-flet)
-- 
GitLab