From fcb80285531d92041ca236f300172784d6549c7d Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Sat, 5 May 2001 23:34:47 +0000
Subject: [PATCH] From Fred Gilham:

Remove some walker-template forms that are not correct for cmucl.
---
 pcl/walk.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pcl/walk.lisp b/pcl/walk.lisp
index 3a9876393..b7eeba3ff 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.20 2000/11/16 15:47:40 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.21 2001/05/05 23:34:47 pw Exp $")
 ;;;
 ;;; A simple code walker, based IN PART on: (roll the credits)
 ;;;   Larry Masinter's Masterscope
@@ -452,12 +452,13 @@
 ;;;
 ;;; And the extra templates...
 ;;;
+#|| These are macros in CMUCL
 (define-walker-template DO      walk-do)
 (define-walker-template DO*     walk-do*)
 (define-walker-template PROG    walk-prog)
 (define-walker-template PROG*   walk-prog*)
 (define-walker-template COND    (NIL REPEAT ((TEST REPEAT (EVAL)))))
-
+||#
 
 
 (defvar walk-form-expand-macros-p nil)
-- 
GitLab