From 42c4c7ab988f388e95d14abcb5215192b8c505b7 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sun, 20 Dec 1998 04:30:23 +0000
Subject: [PATCH] Add CMUCL style file-comments; from Peter Van Eynde.

---
 pcl/braid.lisp             | 4 ++++
 pcl/cache.lisp             | 4 ++++
 pcl/cmu-low.lisp           | 4 ++++
 pcl/combin.lisp            | 4 ++++
 pcl/construct.lisp         | 3 +++
 pcl/cpl.lisp               | 4 ++++
 pcl/defclass.lisp          | 4 ++++
 pcl/defcombin.lisp         | 4 ++++
 pcl/defsys.lisp            | 4 ++++
 pcl/dfun.lisp              | 4 ++++
 pcl/dlap.lisp              | 4 ++++
 pcl/dlisp.lisp             | 4 ++++
 pcl/dlisp2.lisp            | 4 ++++
 pcl/dlisp3.lisp            | 4 ++++
 pcl/env.lisp               | 4 ++++
 pcl/extensions.lisp        | 4 ++++
 pcl/fast-init.lisp         | 3 +++
 pcl/fin.lisp               | 4 ++++
 pcl/fngen.lisp             | 4 ++++
 pcl/fsc.lisp               | 4 ++++
 pcl/generic-functions.lisp | 5 +++++
 pcl/init.lisp              | 3 +++
 pcl/iterate.lisp           | 4 ++++
 pcl/lap.lisp               | 4 ++++
 pcl/low.lisp               | 4 ++++
 pcl/macros.lisp            | 4 ++++
 pcl/methods.lisp           | 4 ++++
 pcl/pkg.lisp               | 5 ++++-
 pcl/plap.lisp              | 4 ++++
 pcl/slots-boot.lisp        | 4 ++++
 pcl/slots.lisp             | 4 ++++
 pcl/std-class.lisp         | 4 ++++
 pcl/structure-class.lisp   | 4 ++++
 pcl/user-instances.lisp    | 4 ++++
 pcl/vector.lisp            | 4 ++++
 pcl/walk.lisp              | 6 +++++-
 36 files changed, 143 insertions(+), 2 deletions(-)

diff --git a/pcl/braid.lisp b/pcl/braid.lisp
index 6053e62f7..594a24185 100644
--- a/pcl/braid.lisp
+++ b/pcl/braid.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.14 1998/12/20 04:30:16 dtc Exp $")
+;;;
 ;;; Bootstrapping the meta-braid.
 ;;;
 ;;; The code in this file takes the early definitions that have been saved
diff --git a/pcl/cache.lisp b/pcl/cache.lisp
index 660a93d73..f90160ff2 100644
--- a/pcl/cache.lisp
+++ b/pcl/cache.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cache.lisp,v 1.11 1998/12/20 04:30:16 dtc Exp $")
+;;;
 ;;; The basics of the PCL wrapper cache mechanism.
 ;;;
 
diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp
index 5b5b08368..99de6e97c 100644
--- a/pcl/cmu-low.lisp
+++ b/pcl/cmu-low.lisp
@@ -23,6 +23,10 @@
 ;;;
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
+;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/cmu-low.lisp,v 1.17 1998/12/20 04:30:17 dtc Exp $")
 ;;; 
 ;;; This is the CMU Lisp version of the file low.
 ;;; 
diff --git a/pcl/combin.lisp b/pcl/combin.lisp
index ac83e859d..cb76ac83c 100644
--- a/pcl/combin.lisp
+++ b/pcl/combin.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.8 1998/12/20 04:30:17 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/construct.lisp b/pcl/construct.lisp
index 5c941f7da..2925bbdc3 100644
--- a/pcl/construct.lisp
+++ b/pcl/construct.lisp
@@ -24,6 +24,9 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/construct.lisp,v 1.11 1998/12/20 04:30:18 dtc Exp $")
 ;;;
 ;;; This file defines the defconstructor and other make-instance optimization
 ;;; mechanisms.
diff --git a/pcl/cpl.lisp b/pcl/cpl.lisp
index 6d01615bb..0089e6cc0 100644
--- a/pcl/cpl.lisp
+++ b/pcl/cpl.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cpl.lisp,v 1.8 1998/12/20 04:30:18 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/defclass.lisp b/pcl/defclass.lisp
index d9788634a..7deda0fde 100644
--- a/pcl/defclass.lisp
+++ b/pcl/defclass.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defclass.lisp,v 1.12 1998/12/20 04:30:18 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/defcombin.lisp b/pcl/defcombin.lisp
index a8c2d9b2a..ab09a3cfa 100644
--- a/pcl/defcombin.lisp
+++ b/pcl/defcombin.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defcombin.lisp,v 1.9 1998/12/20 04:30:18 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/defsys.lisp b/pcl/defsys.lisp
index 897405594..b76cafb40 100644
--- a/pcl/defsys.lisp
+++ b/pcl/defsys.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.18 1998/12/20 04:30:18 dtc 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
 ;;; while.  At least until people really get databases and stuff.
diff --git a/pcl/dfun.lisp b/pcl/dfun.lisp
index 97a62e402..89e53ae9e 100644
--- a/pcl/dfun.lisp
+++ b/pcl/dfun.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dfun.lisp,v 1.9 1998/12/20 04:30:19 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/dlap.lisp b/pcl/dlap.lisp
index 88710c107..d355f374e 100644
--- a/pcl/dlap.lisp
+++ b/pcl/dlap.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/dlap.lisp,v 1.7 1998/12/20 04:30:19 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/dlisp.lisp b/pcl/dlisp.lisp
index f411931e6..e8950e935 100644
--- a/pcl/dlisp.lisp
+++ b/pcl/dlisp.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp.lisp,v 1.5 1998/12/20 04:30:19 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/dlisp2.lisp b/pcl/dlisp2.lisp
index 5b6d3a5b5..2e84dc3a6 100644
--- a/pcl/dlisp2.lisp
+++ b/pcl/dlisp2.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp2.lisp,v 1.6 1998/12/20 04:30:19 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/dlisp3.lisp b/pcl/dlisp3.lisp
index 7e89d5637..9bcd4e631 100644
--- a/pcl/dlisp3.lisp
+++ b/pcl/dlisp3.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dlisp3.lisp,v 1.3 1998/12/20 04:30:19 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/env.lisp b/pcl/env.lisp
index 733b8e387..f872e2700 100644
--- a/pcl/env.lisp
+++ b/pcl/env.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.10 1998/12/20 04:30:19 dtc Exp $")
+;;;
 ;;; Basic environmental stuff.
 ;;;
 
diff --git a/pcl/extensions.lisp b/pcl/extensions.lisp
index 32231cf41..a76786899 100644
--- a/pcl/extensions.lisp
+++ b/pcl/extensions.lisp
@@ -16,6 +16,10 @@
 ;;; Suggestions, bugs, criticism and questions to lange@cs.ucla.edu
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/extensions.lisp,v 1.2 1998/12/20 04:30:19 dtc Exp $")
+;;;
 
 (in-package 'pcl)
 
diff --git a/pcl/fast-init.lisp b/pcl/fast-init.lisp
index b475c5fac..f062adb21 100644
--- a/pcl/fast-init.lisp
+++ b/pcl/fast-init.lisp
@@ -24,6 +24,9 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/fast-init.lisp,v 1.4 1998/12/20 04:30:20 dtc Exp $")
 ;;;
 ;;; This file defines the optimized make-instance functions.
 ;;; 
diff --git a/pcl/fin.lisp b/pcl/fin.lisp
index c5edfc06d..db54b64c0 100644
--- a/pcl/fin.lisp
+++ b/pcl/fin.lisp
@@ -23,6 +23,10 @@
 ;;;
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
+;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fin.lisp,v 1.11 1998/12/20 04:30:20 dtc Exp $")
 ;;;
 
   ;;   
diff --git a/pcl/fngen.lisp b/pcl/fngen.lisp
index 61ae0ac66..0e3b1693b 100644
--- a/pcl/fngen.lisp
+++ b/pcl/fngen.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fngen.lisp,v 1.7 1998/12/20 04:30:20 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/fsc.lisp b/pcl/fsc.lisp
index d0071f598..d7b95a0ed 100644
--- a/pcl/fsc.lisp
+++ b/pcl/fsc.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fsc.lisp,v 1.8 1998/12/20 04:30:20 dtc Exp $")
+;;;
 ;;; This file contains the definition of the FUNCALLABLE-STANDARD-CLASS
 ;;; metaclass.  Much of the implementation of this metaclass is actually
 ;;; defined on the class STD-CLASS.  What appears in this file is a modest
diff --git a/pcl/generic-functions.lisp b/pcl/generic-functions.lisp
index 28721d0ad..b7f57f948 100644
--- a/pcl/generic-functions.lisp
+++ b/pcl/generic-functions.lisp
@@ -1,4 +1,9 @@
 ;;;-*-Mode:LISP; Package:PCL; Base:10; Syntax:Common-lisp -*-
+;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/generic-functions.lisp,v 1.8 1998/12/20 04:30:20 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/init.lisp b/pcl/init.lisp
index b5c77f74a..e1b708364 100644
--- a/pcl/init.lisp
+++ b/pcl/init.lisp
@@ -24,6 +24,9 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/init.lisp,v 1.9 1998/12/20 04:30:20 dtc Exp $")
 ;;;
 ;;; This file defines the initialization and related protocols.
 ;;; 
diff --git a/pcl/iterate.lisp b/pcl/iterate.lisp
index 2b8907669..3c9a306be 100644
--- a/pcl/iterate.lisp
+++ b/pcl/iterate.lisp
@@ -23,6 +23,10 @@
 ;;;
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
+;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/iterate.lisp,v 1.6 1998/12/20 04:30:21 dtc Exp $")
 ;;; 
 ;;; Original source {pooh/n}<pooh>vanmelle>lisp>iterate;4 created 27-Sep-88 12:35:33
 
diff --git a/pcl/lap.lisp b/pcl/lap.lisp
index 3e250fa5a..7adddc864 100644
--- a/pcl/lap.lisp
+++ b/pcl/lap.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/lap.lisp,v 1.7 1998/12/20 04:30:21 dtc Exp $")
+;;;
 
 (in-package 'pcl)
 
diff --git a/pcl/low.lisp b/pcl/low.lisp
index 4b1d4d356..3e35436c9 100644
--- a/pcl/low.lisp
+++ b/pcl/low.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.9 1998/12/20 04:30:21 dtc Exp $")
+;;;
 ;;; This file contains portable versions of low-level functions and macros
 ;;; which are ripe for implementation specific customization.  None of the
 ;;; code in this file *has* to be customized for a particular Common Lisp
diff --git a/pcl/macros.lisp b/pcl/macros.lisp
index e9001c1b8..e1bdca921 100644
--- a/pcl/macros.lisp
+++ b/pcl/macros.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.10 1998/12/20 04:30:21 dtc Exp $")
+;;;
 ;;; Macros global variable definitions, and other random support stuff used
 ;;; by the rest of the system.
 ;;;
diff --git a/pcl/methods.lisp b/pcl/methods.lisp
index 86b8c9847..df4451184 100644
--- a/pcl/methods.lisp
+++ b/pcl/methods.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.12 1998/12/20 04:30:21 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/pkg.lisp b/pcl/pkg.lisp
index 1c3f0e455..55f21b5ad 100644
--- a/pcl/pkg.lisp
+++ b/pcl/pkg.lisp
@@ -24,7 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
-
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/pkg.lisp,v 1.15 1998/12/20 04:30:22 dtc Exp $")
+;;;
 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
 ;;; Note that at this time CMUCL is not in compliance with ANSI
 ;;; specified use of feature names :cltl2 :x3j13 :draft-ansi-cl or :ansi-cl
diff --git a/pcl/plap.lisp b/pcl/plap.lisp
index 622dd5c3c..fd69ba4bf 100644
--- a/pcl/plap.lisp
+++ b/pcl/plap.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/plap.lisp,v 1.8 1998/12/20 04:30:22 dtc Exp $")
+;;;
 
 (in-package 'pcl)
 
diff --git a/pcl/slots-boot.lisp b/pcl/slots-boot.lisp
index ad112f2e0..f0ccfe593 100644
--- a/pcl/slots-boot.lisp
+++ b/pcl/slots-boot.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.6 1998/12/20 04:30:22 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/slots.lisp b/pcl/slots.lisp
index d21dc0751..6fd00f79b 100644
--- a/pcl/slots.lisp
+++ b/pcl/slots.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.9 1998/12/20 04:30:22 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index 88d26fbc0..087445aae 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.18 1998/12/20 04:30:22 dtc Exp $")
+;;;
 
 (in-package :pcl)
 
diff --git a/pcl/structure-class.lisp b/pcl/structure-class.lisp
index 75f678c44..46c812953 100644
--- a/pcl/structure-class.lisp
+++ b/pcl/structure-class.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/structure-class.lisp,v 1.2 1998/12/20 04:30:22 dtc Exp $")
+;;;
 
 (in-package 'pcl)
 
diff --git a/pcl/user-instances.lisp b/pcl/user-instances.lisp
index 1600efc74..0038015f2 100644
--- a/pcl/user-instances.lisp
+++ b/pcl/user-instances.lisp
@@ -18,6 +18,10 @@
 ;;; Suggestions, bugs, criticism and questions to lange@cs.ucla.edu
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/user-instances.lisp,v 1.2 1998/12/20 04:30:23 dtc Exp $")
+;;;
 
 (in-package 'pcl)
 
diff --git a/pcl/vector.lisp b/pcl/vector.lisp
index 52d58a5be..dc6677636 100644
--- a/pcl/vector.lisp
+++ b/pcl/vector.lisp
@@ -24,6 +24,10 @@
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
 ;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/vector.lisp,v 1.12 1998/12/20 04:30:23 dtc Exp $")
+;;;
 ;;; Permutation vectors.
 ;;;
 
diff --git a/pcl/walk.lisp b/pcl/walk.lisp
index 40a066074..4f89b723c 100644
--- a/pcl/walk.lisp
+++ b/pcl/walk.lisp
@@ -23,7 +23,11 @@
 ;;;
 ;;; Suggestions, comments and requests for improvements are also welcome.
 ;;; *************************************************************************
-;;; 
+;;;
+#+cmu
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.15 1998/12/20 04:30:23 dtc Exp $")
+;;;
 ;;; A simple code walker, based IN PART on: (roll the credits)
 ;;;   Larry Masinter's Masterscope
 ;;;   Moon's Common Lisp code walker
-- 
GitLab