diff -uNr TEST.gcl/gcl/pcl/sys-package.lisp agcl/agcl/pcl/sys-package.lisp
--- TEST.gcl/gcl/pcl/sys-package.lisp	Wed Oct  9 05:46:34 2002
+++ agcl/agcl/pcl/sys-package.lisp	Wed Nov  6 21:36:19 2002
@@ -1,21 +1,21 @@
 
 
 ;;; Definitions for package SLOT-ACCESSOR-NAME of type ESTABLISH
-(LISP::MAKE-PACKAGE "SLOT-ACCESSOR-NAME" :USE LISP::NIL :NICKNAMES
+;(LISP::MAKE-PACKAGE "SLOT-ACCESSOR-NAME" :USE LISP::NIL :NICKNAMES
     '("S-A-N"))
 ;(LISP::IN-PACKAGE "SLOT-ACCESSOR-NAME" :USE LISP::NIL :NICKNAMES
 ;    '("S-A-N"))
 
 ;;; Definitions for package PCL of type ESTABLISH
-(LISP::MAKE-PACKAGE "PCL" :USE LISP::NIL)
+;(LISP::MAKE-PACKAGE "PCL" :USE LISP::NIL)
 ;(LISP::IN-PACKAGE "PCL" :USE LISP::NIL)
 
 ;;; Definitions for package ITERATE of type ESTABLISH
-(LISP::MAKE-PACKAGE "ITERATE" :USE LISP::NIL)
+;(LISP::MAKE-PACKAGE "ITERATE" :USE LISP::NIL)
 ;(LISP::IN-PACKAGE "ITERATE" :USE LISP::NIL)
 
 ;;; Definitions for package WALKER of type ESTABLISH
-(LISP::MAKE-PACKAGE "WALKER" :USE LISP::NIL)
+;(LISP::MAKE-PACKAGE "WALKER" :USE LISP::NIL)
 ;(LISP::IN-PACKAGE "WALKER" :USE LISP::NIL)
 
 ;;; Definitions for package SLOT-ACCESSOR-NAME of type EXPORT