Emacs modelines for better editing

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

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

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

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

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

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.
 ;;;;

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

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

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

src/clos/init.lsp

@@ -1,3 +1,5 @@
+;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*-
+;;;;
 (load "../util/system")
 (load "defsys")
 (load "cmpinit")

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

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

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

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

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

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

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

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

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

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

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 -*-
 ;;;
 ;;; *************************************************************************

src/cmp/cmpbind.lsp

@@ -1,3 +1,5 @@
+;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*-
+;;;;
 ;;;;  CMPBIND  Variable Binding.
 ;;;;
 ;;;;  Copyright (c) 1990, Giuseppe Attardi.

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.
 ;;;;

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.

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.
 ;;;;

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.

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.

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.
 ;;;;

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.
 ;;;;

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.

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.
 ;;;;

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.

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.

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.

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.
 ;;;;

src/cmp/cmpinit.lsp

@@ -1,3 +1,5 @@
+;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*-
+;;;;
 
 (in-package 'compiler)
 

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.
 ;;;;

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.
 ;;;;

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.

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.
 ;;;;

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:
 

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

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.
 ;;;;

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.
 ;;;;

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)

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

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.

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

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.

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.
 ;;;;

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.

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.
 ;;;;

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.

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.
 ;;;;

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.
 ;;;;

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

src/cmp/test.lsp

@@ -1,3 +1,5 @@
+;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: C -*-
+;;;;
 
 (in-package 'system)
 

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.
 ;;;;

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.
 ;;;;

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.
 ;;;;

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

src/lsp/cmpinit.lsp

@@ -1,3 +1,5 @@
+;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*-
+;;;;
 
 (in-package "SYSTEM")
 

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.

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.
 ;;;;

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

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.
 ;;;;

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.
 ;;;;

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.
 ;;;;

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.
 ;;;;

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

src/lsp/format.lsp

@@ -1,3 +1,5 @@
+;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*-
+;;;;
 ;;; -*- Package: FORMAT -*-
 ;;;
 ;;; **********************************************************************

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

src/lsp/init.lsp

@@ -1,3 +1,5 @@
+;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*-
+;;;;
 
 ;(load "../cmp/init")
 

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.
 ;;;;

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

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 ***********************

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.

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.
 ;;;;

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.
 ;;;;

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

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.
 ;;;;

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.
 ;;;;

src/lsp/pprint.lsp

@@ -1,3 +1,5 @@
+;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*-
+;;;;
 ;;; -*- Package: PRETTY-PRINT -*-
 ;;;
 ;;; **********************************************************************

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.
 ;;;;

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))

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.
 ;;;;

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.
 ;;;;

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.
 ;;;;

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.

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

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"