Commit 0c6467d8 authored by dtc's avatar dtc

Add CMUCL style file-comment's; from Peter Van Eynde.

parent 5631922e
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/attributes.lisp,v 1.5 1998/12/19 15:21:14 dtc Exp $")
;;; The special variable *window-attributes* is an alist containg:
;;; (drawable attributes attribute-changes geometry geometry-changes)
......
......@@ -18,6 +18,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/buffer.lisp,v 1.7 1998/12/19 15:21:14 dtc Exp $")
;; A few notes:
;;
......
......@@ -18,6 +18,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/bufmac.lisp,v 1.4 1998/12/19 15:21:15 dtc Exp $")
(in-package :xlib)
......
......@@ -15,6 +15,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/clx.lisp,v 1.10 1998/12/19 15:21:15 dtc Exp $")
;; Primary Interface Author:
;; Robert W. Scheifler
......
......@@ -18,6 +18,9 @@
;;;
;;; Franz Incorporated provides this software "as is" without express or
;;; implied warranty.
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/defsystem.lisp,v 1.5 1998/12/19 15:21:15 dtc Exp $")
;;; #+ features used in this file
;;; clx-ansi-common-lisp
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/depdefs.lisp,v 1.5 1998/12/19 15:21:15 dtc Exp $")
(in-package :xlib)
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/dependent.lisp,v 1.10 1998/12/19 15:21:16 dtc Exp $")
(in-package :xlib)
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/display.lisp,v 1.7 1998/12/19 15:21:16 dtc Exp $")
(in-package :xlib)
......
......@@ -14,6 +14,9 @@
;;; Texas Instruments Incorporated provides this document "as is" without
;;; express or implied warranty.
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/doc.lisp,v 1.4 1998/12/19 15:21:16 dtc Rel $")
;; Version 4
......
......@@ -15,6 +15,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/fonts.lisp,v 1.5 1998/12/19 15:21:17 dtc Exp $")
(in-package :xlib)
......
......@@ -41,6 +41,9 @@
;;; lisps will have problems. Fortunately, most other lisps don't care,
;;; because they don't run in a multi-processing shared-address space
;;; environment.
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/gcontext.lisp,v 1.6 1998/12/19 15:21:17 dtc Exp $")
(in-package :xlib)
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/graphics.lisp,v 1.5 1998/12/19 15:21:17 dtc Exp $")
(in-package :xlib)
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/image.lisp,v 1.8 1998/12/19 15:21:17 dtc Exp $")
(in-package :xlib)
......
......@@ -24,6 +24,9 @@
;;; Date Author Description
;;; -------------------------------------------------------------------------------------
;;; 12/10/87 LGO Created
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/input.lisp,v 1.6 1998/12/19 15:21:18 dtc Exp $")
(in-package :xlib)
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/keysyms.lisp,v 1.2 1998/12/19 15:21:18 dtc Exp $")
(in-package :xlib)
......
......@@ -15,6 +15,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/macros.lisp,v 1.5 1998/12/19 15:21:18 dtc Exp $")
;;; CLX basicly implements a very low overhead remote procedure call
;;; to the server. This file contains macros which generate the code
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/manager.lisp,v 1.6 1998/12/19 15:21:20 dtc Exp $")
(in-package :xlib)
......
......@@ -10,6 +10,9 @@
;;; documentation, and that the name MIT not be used in advertising or
;;; publicity pertaining to distribution of the software without specific,
;;; written prior permission.
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/package.lisp,v 1.4 1998/12/19 15:21:20 dtc Exp $")
;;; The CLtL way
......
......@@ -15,6 +15,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/requests.lisp,v 1.5 1998/12/19 15:21:20 dtc Exp $")
(in-package :xlib)
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/resource.lisp,v 1.9 1998/12/19 15:21:20 dtc Exp $")
(in-package :xlib)
......
......@@ -17,6 +17,9 @@
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/text.lisp,v 1.5 1998/12/19 15:21:20 dtc Exp $")
(in-package :xlib)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment