From 22ec82daaf96dcf2dff32d075cc6ea28beef9a10 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 14 Apr 2004 03:32:47 +0000
Subject: [PATCH] Get rid of some compilation warning by exporting the exported
 symbols in the WALKER package.

---
 pcl/defsys.lisp | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/pcl/defsys.lisp b/pcl/defsys.lisp
index b84c8623d..a43a1cdf1 100644
--- a/pcl/defsys.lisp
+++ b/pcl/defsys.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.35 2004/01/09 04:34:17 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.36 2004/04/14 03:32:47 rtoy Exp $")
 ;;;
 ;;; Some support stuff for compiling and loading PCL.  It would be nice if
 ;;; there was some portable make-system we could all agree to share for a
@@ -55,7 +55,18 @@
 
 (in-package :cl-user)
 
-(defpackage "WALKER" (:use :common-lisp :ext))
+(defpackage "WALKER"
+  (:use "COMMON-LISP" "EXT")
+  (:export "DEFINE-WALKER-TEMPLATE"
+	   "WALK-FORM"
+	   "WALK-FORM-EXPAND-MACROS-P"
+	   "NESTED-WALK-FORM"
+	   "VARIABLE-LEXICAL-P"
+	   "VARIABLE-SPECIAL-P"
+	   "VARIABLE-GLOBALLY-SPECIAL-P"
+	   "*VARIABLE-DECLARATIONS*"
+	   "VARIABLE-DECLARATION"
+	   "MACROEXPAND-ALL"))
 (defpackage "PCL" (:use :walker :common-lisp :ext))
 (in-package "PCL")
 
@@ -66,7 +77,7 @@
 ;;; 
 (defvar *the-pcl-package* (find-package :pcl))
 
-(defvar *pcl-system-date* "$Date: 2004/01/09 04:34:17 $")
+(defvar *pcl-system-date* "$Date: 2004/04/14 03:32:47 $")
 
 (setf (getf ext:*herald-items* :pcl)
       `("    CLOS based on Gerd's PCL " ,(subseq *pcl-system-date* 7 26)))
-- 
GitLab