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