diff --git a/src/clos/boot.lsp b/src/clos/boot.lsp index b445a9564..ccee49a82 100644 --- a/src/clos/boot.lsp +++ b/src/clos/boot.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/builtin.lsp b/src/clos/builtin.lsp index 04f80e078..f0c362c03 100644 --- a/src/clos/builtin.lsp +++ b/src/clos/builtin.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/change.lsp b/src/clos/change.lsp index d4ad101dd..099fcb1de 100644 --- a/src/clos/change.lsp +++ b/src/clos/change.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/cmpinit.lsp b/src/clos/cmpinit.lsp index d07419c38..f760b9aa1 100644 --- a/src/clos/cmpinit.lsp +++ b/src/clos/cmpinit.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; (defvar std-compile (symbol-function 'compile-file)) (defun compile-file (file &key (output-file (make-pathname :type "o" :defaults file))) (funcall std-compile diff --git a/src/clos/combin.lsp b/src/clos/combin.lsp index 51174bb91..b6ee250ac 100644 --- a/src/clos/combin.lsp +++ b/src/clos/combin.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; ECoLisp is free software; you can redistribute it and/or diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp index 9812e1464..39cc779fe 100644 --- a/src/clos/conditions.lsp +++ b/src/clos/conditions.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 2001, Juan Jose Garcia-Ripoll ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; diff --git a/src/clos/defclass.lsp b/src/clos/defclass.lsp index b55360186..1d97a86b0 100644 --- a/src/clos/defclass.lsp +++ b/src/clos/defclass.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp index 7762e7852..5329eee50 100644 --- a/src/clos/fixup.lsp +++ b/src/clos/fixup.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/generic.lsp b/src/clos/generic.lsp index 138ef3961..53a980100 100644 --- a/src/clos/generic.lsp +++ b/src/clos/generic.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/init.lsp b/src/clos/init.lsp index af0042908..ae9266856 100644 --- a/src/clos/init.lsp +++ b/src/clos/init.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; (load "../util/system") (load "defsys") (load "cmpinit") diff --git a/src/clos/inspect.lsp b/src/clos/inspect.lsp index 0cf10a937..24a344d2a 100644 --- a/src/clos/inspect.lsp +++ b/src/clos/inspect.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/kernel.lsp b/src/clos/kernel.lsp index 0437ebebd..32aa9f8a5 100644 --- a/src/clos/kernel.lsp +++ b/src/clos/kernel.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/macros.lsp b/src/clos/macros.lsp index 3f5d70621..15bcfeae2 100644 --- a/src/clos/macros.lsp +++ b/src/clos/macros.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/method.lsp b/src/clos/method.lsp index f41d631a3..d23ca25ad 100644 --- a/src/clos/method.lsp +++ b/src/clos/method.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/precomp.lsp b/src/clos/precomp.lsp index daefc652f..401310cb6 100644 --- a/src/clos/precomp.lsp +++ b/src/clos/precomp.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; ECoLisp is free software; you can redistribute it and/or diff --git a/src/clos/print.lsp b/src/clos/print.lsp index c03390967..7f022a6f7 100644 --- a/src/clos/print.lsp +++ b/src/clos/print.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/slot.lsp b/src/clos/slot.lsp index f57cd3aee..3cbcabb73 100644 --- a/src/clos/slot.lsp +++ b/src/clos/slot.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp index d2079fb73..cb6043a4a 100644 --- a/src/clos/standard.lsp +++ b/src/clos/standard.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/stdmethod.lsp b/src/clos/stdmethod.lsp index fc8dd650e..f3d85d328 100644 --- a/src/clos/stdmethod.lsp +++ b/src/clos/stdmethod.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 1992, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp index 503d65e05..b8ae96184 100644 --- a/src/clos/streams.lsp +++ b/src/clos/streams.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;; Copyright (c) 2004, Juan Jose Garcia-Ripoll ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/clos/walk.lsp b/src/clos/walk.lsp index 8f85d5e55..da88d29cd 100644 --- a/src/clos/walk.lsp +++ b/src/clos/walk.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*- +;;;; ;;;-*- Mode:LISP; Package:(WALKER LISP 1000); Base:10; Syntax:Common-lisp -*- ;;; ;;; ************************************************************************* diff --git a/src/cmp/cmpbind.lsp b/src/cmp/cmpbind.lsp index 519b9ab3f..00a5d03c4 100644 --- a/src/cmp/cmpbind.lsp +++ b/src/cmp/cmpbind.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPBIND Variable Binding. ;;;; ;;;; Copyright (c) 1990, Giuseppe Attardi. diff --git a/src/cmp/cmpblock.lsp b/src/cmp/cmpblock.lsp index 321cc2ef6..a9b483994 100644 --- a/src/cmp/cmpblock.lsp +++ b/src/cmp/cmpblock.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp index 4ea333e08..63f3ffbe9 100644 --- a/src/cmp/cmpcall.lsp +++ b/src/cmp/cmpcall.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPCALL Function call. ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmpcatch.lsp b/src/cmp/cmpcatch.lsp index 3a7396a9d..0c0842fd2 100644 --- a/src/cmp/cmpcatch.lsp +++ b/src/cmp/cmpcatch.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpcbk.lsp b/src/cmp/cmpcbk.lsp index cf0fe7407..c4a3d6194 100644 --- a/src/cmp/cmpcbk.lsp +++ b/src/cmp/cmpcbk.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPCBK -- Callbacks: lisp functions that can be called from the C world ;;;; Copyright (c) 2003, Juan Jose Garcia-Ripoll. diff --git a/src/cmp/cmpct.lsp b/src/cmp/cmpct.lsp index 2b9413535..1468b51f4 100644 --- a/src/cmp/cmpct.lsp +++ b/src/cmp/cmpct.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPCT -- Optimizer for several constant values ;;;; Copyright (c) 2003, Juan Jose Garcia Ripoll. diff --git a/src/cmp/cmpdefs.lsp b/src/cmp/cmpdefs.lsp index 5728d6962..fc0fb879e 100644 --- a/src/cmp/cmpdefs.lsp +++ b/src/cmp/cmpdefs.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp index 7f4a9893f..29afa336b 100644 --- a/src/cmp/cmpenv.lsp +++ b/src/cmp/cmpenv.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpeval.lsp b/src/cmp/cmpeval.lsp index 4b0138c41..24d4a3228 100644 --- a/src/cmp/cmpeval.lsp +++ b/src/cmp/cmpeval.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPEVAL -- The Expression Dispatcher. ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmpexit.lsp b/src/cmp/cmpexit.lsp index d3b8ef389..f9acd5dbc 100644 --- a/src/cmp/cmpexit.lsp +++ b/src/cmp/cmpexit.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index 47c7bdde3..2ed02ca88 100644 --- a/src/cmp/cmpffi.lsp +++ b/src/cmp/cmpffi.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPFFI -- Foreign functions interface. ;;;; Copyright (c) 2003, Juan Jose Garcia-Ripoll. diff --git a/src/cmp/cmpflet.lsp b/src/cmp/cmpflet.lsp index 03b306125..0794f7597 100644 --- a/src/cmp/cmpflet.lsp +++ b/src/cmp/cmpflet.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPFLET Flet, Labels, and Macrolet. ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmpfun.lsp b/src/cmp/cmpfun.lsp index dd9535f62..fa40d7e97 100644 --- a/src/cmp/cmpfun.lsp +++ b/src/cmp/cmpfun.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPFUN Library functions. ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmpif.lsp b/src/cmp/cmpif.lsp index 8b4dcf10b..093f6344a 100644 --- a/src/cmp/cmpif.lsp +++ b/src/cmp/cmpif.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpinit.lsp b/src/cmp/cmpinit.lsp index 41e9413cb..dd75acaeb 100644 --- a/src/cmp/cmpinit.lsp +++ b/src/cmp/cmpinit.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; (in-package 'compiler) diff --git a/src/cmp/cmpinline.lsp b/src/cmp/cmpinline.lsp index 72af9327d..a846137cc 100644 --- a/src/cmp/cmpinline.lsp +++ b/src/cmp/cmpinline.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmplam.lsp b/src/cmp/cmplam.lsp index 5b8744834..5dae01e12 100644 --- a/src/cmp/cmplam.lsp +++ b/src/cmp/cmplam.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmplet.lsp b/src/cmp/cmplet.lsp index afb31e399..6d90363bd 100644 --- a/src/cmp/cmplet.lsp +++ b/src/cmp/cmplet.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPLET Let and Let*. ;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmploc.lsp b/src/cmp/cmploc.lsp index b3db0a1ed..d4572cb0a 100644 --- a/src/cmp/cmploc.lsp +++ b/src/cmp/cmploc.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpmac.lsp b/src/cmp/cmpmac.lsp index 6fff185ba..77634e29e 100644 --- a/src/cmp/cmpmac.lsp +++ b/src/cmp/cmpmac.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;; ---------------------------------------------------------------------- ;;; Macros only used in the code of the compiler itself: diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index 9ea5d0aca..7cf44a595 100644 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; Copyright (c) 2001, Juan Jose Garcia Ripoll diff --git a/src/cmp/cmpmap.lsp b/src/cmp/cmpmap.lsp index f74dc2d93..a4ff45f2a 100644 --- a/src/cmp/cmpmap.lsp +++ b/src/cmp/cmpmap.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpmulti.lsp b/src/cmp/cmpmulti.lsp index 713c2da48..cbde3047d 100644 --- a/src/cmp/cmpmulti.lsp +++ b/src/cmp/cmpmulti.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpname.lsp b/src/cmp/cmpname.lsp index f2a910703..f57639aec 100644 --- a/src/cmp/cmpname.lsp +++ b/src/cmp/cmpname.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 2007, Juan Jose Garcia Ripoll. ;;;; ;;;; This program is free software; you can redistribute it and/or @@ -42,7 +44,7 @@ machine." (encode-number-in-name (sxhash pathname)) "_" (encode-number-in-name (get-universal-time))))) - (cmpnote "Creating tag: ~S" tag) + (cmpnote "Creating tag: ~S for ~S" tag pathname) tag)) (defun init-name-tag (init-name) diff --git a/src/cmp/cmpnum.lsp b/src/cmp/cmpnum.lsp index ce58b4f38..bc471df4e 100644 --- a/src/cmp/cmpnum.lsp +++ b/src/cmp/cmpnum.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPNUM -- Optimizer for numerical expressions. ;;;; Copyright (c) 2005, Juan Jose Garcia Ripoll diff --git a/src/cmp/cmpspecial.lsp b/src/cmp/cmpspecial.lsp index f79be0856..4e348fad8 100644 --- a/src/cmp/cmpspecial.lsp +++ b/src/cmp/cmpspecial.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPSPECIAL Miscellaneous special forms. ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmpstack.lsp b/src/cmp/cmpstack.lsp index 34607c068..9c0c19750 100644 --- a/src/cmp/cmpstack.lsp +++ b/src/cmp/cmpstack.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 2006, Juan Jose Garcia-Ripoll ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/cmp/cmptag.lsp b/src/cmp/cmptag.lsp index 2907cdbc5..d249c54c6 100644 --- a/src/cmp/cmptag.lsp +++ b/src/cmp/cmptag.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPTAG -- Tagbody and Go. ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmptest.lsp b/src/cmp/cmptest.lsp index 6a1507545..308a27977 100644 --- a/src/cmp/cmptest.lsp +++ b/src/cmp/cmptest.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp index 1c69aee7b..8373cd020 100644 --- a/src/cmp/cmptop.lsp +++ b/src/cmp/cmptop.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPTOP -- Compiler top-level. ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmptype.lsp b/src/cmp/cmptype.lsp index bfb4a4db7..83201ab6a 100644 --- a/src/cmp/cmptype.lsp +++ b/src/cmp/cmptype.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmputil.lsp b/src/cmp/cmputil.lsp index 28e6cb67d..ef2dff665 100644 --- a/src/cmp/cmputil.lsp +++ b/src/cmp/cmputil.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; CMPUTIL -- Miscellaneous Functions. ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp index 529dd38a2..1924d5fd8 100644 --- a/src/cmp/cmpvar.lsp +++ b/src/cmp/cmpvar.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp index da735128a..695772fb6 100644 --- a/src/cmp/cmpwt.lsp +++ b/src/cmp/cmpwt.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp index 711c06e13..89ff52e4d 100644 --- a/src/cmp/sysfun.lsp +++ b/src/cmp/sysfun.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; ;;; CMPSYSFUN Database for system functions. ;;; ;;; Copyright (c) 2003, Juan Jose Garcia Ripoll diff --git a/src/cmp/test.lsp b/src/cmp/test.lsp index f46139956..814c0a088 100644 --- a/src/cmp/test.lsp +++ b/src/cmp/test.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*- +;;;; (in-package 'system) diff --git a/src/lsp/arraylib.lsp b/src/lsp/arraylib.lsp index b59f9c622..ee1a61b9f 100644 --- a/src/lsp/arraylib.lsp +++ b/src/lsp/arraylib.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/assert.lsp b/src/lsp/assert.lsp index 153d4b9a9..04df50bb5 100644 --- a/src/lsp/assert.lsp +++ b/src/lsp/assert.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/autoload.lsp b/src/lsp/autoload.lsp index 0503cd655..ef8ea6387 100644 --- a/src/lsp/autoload.lsp +++ b/src/lsp/autoload.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/cmdline.lsp b/src/lsp/cmdline.lsp index 53b10c01b..8c48a3ea6 100644 --- a/src/lsp/cmdline.lsp +++ b/src/lsp/cmdline.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; cmdline.lsp -- command line processing ;;;; ;;;; Copyright (c) 2005, Juan Jose Garcia-Ripoll diff --git a/src/lsp/cmpinit.lsp b/src/lsp/cmpinit.lsp index 906072351..a832b7fef 100644 --- a/src/lsp/cmpinit.lsp +++ b/src/lsp/cmpinit.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; (in-package "SYSTEM") diff --git a/src/lsp/cmuutil.lsp b/src/lsp/cmuutil.lsp index 15ac53c0e..72bb84bb4 100644 --- a/src/lsp/cmuutil.lsp +++ b/src/lsp/cmuutil.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;; ********************************************************************** ;;; This code was written as part of the CMU Common Lisp project at ;;; Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lsp/defmacro.lsp b/src/lsp/defmacro.lsp index 0a5e72d63..f0e886916 100644 --- a/src/lsp/defmacro.lsp +++ b/src/lsp/defmacro.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/defpackage.lsp b/src/lsp/defpackage.lsp index ad902e9da..fa2def78a 100644 --- a/src/lsp/defpackage.lsp +++ b/src/lsp/defpackage.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;; -*- Mode: LISP; Syntax: Common-lisp; Base: 10; Package: (DEFPACKAGE :COLON-MODE :EXTERNAL) -*- ;;; ;;; THE BOEING COMPANY diff --git a/src/lsp/defstruct.lsp b/src/lsp/defstruct.lsp index 925e64115..325065bb1 100644 --- a/src/lsp/defstruct.lsp +++ b/src/lsp/defstruct.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/describe.lsp b/src/lsp/describe.lsp index e4b5905f6..a91aa2597 100644 --- a/src/lsp/describe.lsp +++ b/src/lsp/describe.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/evalmacros.lsp b/src/lsp/evalmacros.lsp index 591befd1c..d043f1e8c 100644 --- a/src/lsp/evalmacros.lsp +++ b/src/lsp/evalmacros.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/export.lsp b/src/lsp/export.lsp index a1230cb8c..fd40e1020 100644 --- a/src/lsp/export.lsp +++ b/src/lsp/export.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp index 48161217a..d349f14ce 100644 --- a/src/lsp/ffi.lsp +++ b/src/lsp/ffi.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 2001, Juan Jose Garcia-Ripoll ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/lsp/format.lsp b/src/lsp/format.lsp index c5439f55c..f627fac46 100644 --- a/src/lsp/format.lsp +++ b/src/lsp/format.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;; -*- Package: FORMAT -*- ;;; ;;; ********************************************************************** diff --git a/src/lsp/helpfile.lsp b/src/lsp/helpfile.lsp index 65bb9636b..a469f6c9a 100644 --- a/src/lsp/helpfile.lsp +++ b/src/lsp/helpfile.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 2001, Juan Jose Garcia-Ripoll. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/lsp/init.lsp b/src/lsp/init.lsp index 56a082c70..4d636d672 100644 --- a/src/lsp/init.lsp +++ b/src/lsp/init.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;(load "../cmp/init") diff --git a/src/lsp/iolib.lsp b/src/lsp/iolib.lsp index 62e1a18e2..29b6be26f 100644 --- a/src/lsp/iolib.lsp +++ b/src/lsp/iolib.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/listlib.lsp b/src/lsp/listlib.lsp index 2f03dad04..59444b603 100644 --- a/src/lsp/listlib.lsp +++ b/src/lsp/listlib.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1995, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/lsp/loop.lsp b/src/lsp/loop.lsp index 7780bbc23..9662dfbd4 100644 --- a/src/lsp/loop.lsp +++ b/src/lsp/loop.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;; -*- Mode:LISP; Syntax:Common-Lisp; Package:LOOP; Base:10; Lowercase:T -*- ;;; ************************************************************************* ;;; ******* Common Lisp ******** LOOP Iteration Macro *********************** diff --git a/src/lsp/loop2.lsp b/src/lsp/loop2.lsp index 4066c6db7..1fadfd470 100755 --- a/src/lsp/loop2.lsp +++ b/src/lsp/loop2.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;; -*- Mode: LISP; Syntax: Common-lisp; Base: 10; Lowercase:T -*- ;;;> ;;;> Portions of LOOP are Copyright (c) 1986 by the Massachusetts Institute of Technology. diff --git a/src/lsp/mislib.lsp b/src/lsp/mislib.lsp index c282d112c..7d753284b 100644 --- a/src/lsp/mislib.lsp +++ b/src/lsp/mislib.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/module.lsp b/src/lsp/module.lsp index 6f337b584..1cba5ec11 100644 --- a/src/lsp/module.lsp +++ b/src/lsp/module.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/mp.lsp b/src/lsp/mp.lsp index 8ca6021f9..4ccc20052 100644 --- a/src/lsp/mp.lsp +++ b/src/lsp/mp.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; MP.LSP -- Multiprocessing capabilities. ;;;; Copyright (c) 2003, Juan Jose Garcia-Ripoll diff --git a/src/lsp/numlib.lsp b/src/lsp/numlib.lsp index 9bc8166af..fec41a369 100644 --- a/src/lsp/numlib.lsp +++ b/src/lsp/numlib.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/packlib.lsp b/src/lsp/packlib.lsp index d2119f02f..68989a3db 100644 --- a/src/lsp/packlib.lsp +++ b/src/lsp/packlib.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/pprint.lsp b/src/lsp/pprint.lsp index 0a2620858..538175732 100644 --- a/src/lsp/pprint.lsp +++ b/src/lsp/pprint.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;; -*- Package: PRETTY-PRINT -*- ;;; ;;; ********************************************************************** diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index 281a83729..ca7171c43 100644 --- a/src/lsp/predlib.lsp +++ b/src/lsp/predlib.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/proclaim.lsp b/src/lsp/proclaim.lsp index f9fa24240..957ff89c9 100644 --- a/src/lsp/proclaim.lsp +++ b/src/lsp/proclaim.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; (in-package "SYSTEM") (proclaim '(FTYPE (FUNCTION (T T T) T) DEFMACRO*)) (proclaim '(FTYPE (FUNCTION (T T T) T) DM-VL)) diff --git a/src/lsp/seq.lsp b/src/lsp/seq.lsp index f9a23c3b4..463f16333 100644 --- a/src/lsp/seq.lsp +++ b/src/lsp/seq.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/seqlib.lsp b/src/lsp/seqlib.lsp index bf1f1e705..cb7180c98 100644 --- a/src/lsp/seqlib.lsp +++ b/src/lsp/seqlib.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/setf.lsp b/src/lsp/setf.lsp index 92ae4f719..5ac57fe17 100644 --- a/src/lsp/setf.lsp +++ b/src/lsp/setf.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya. ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp index f7f69dfea..671052a72 100644 --- a/src/lsp/top.lsp +++ b/src/lsp/top.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; top.lsp -- Top-level loop, break loop, and error handlers ;;;; ;;;; Copyright (c) 1990, Giuseppe Attardi. diff --git a/src/lsp/trace.lsp b/src/lsp/trace.lsp index a87e6323f..36589ad2a 100644 --- a/src/lsp/trace.lsp +++ b/src/lsp/trace.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; ;;;; Copyright (c) 1990, Giuseppe Attardi. ;;;; ;;;; This program is free software; you can redistribute it and/or diff --git a/src/lsp/util.lsp b/src/lsp/util.lsp index 914358923..fbf6743fd 100644 --- a/src/lsp/util.lsp +++ b/src/lsp/util.lsp @@ -1,3 +1,5 @@ +;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*- +;;;; (in-package "COMPILER") (defvar file-list '( "defmacro.lsp" "evalmacros.lsp" "top.lsp"