Remove copyright notice and untabify.

Code/Loop/loop-defmacro.lisp

@@ -1,19 +1,7 @@
-;;;; Copyright (c) 2014
-;;;;
-;;;;     Robert Strandh ([email protected])
-;;;;
-;;;; all rights reserved. 
-;;;;
-;;;; Permission is hereby granted to use this software for any 
-;;;; purpose, including using, modifying, and redistributing it.
-;;;;
-;;;; The software is provided "as-is" with no warranty.  The user of
-;;;; this software assumes any responsibility of the consequences. 
-
 (cl:in-package #:sicl-loop)
 
 (defmacro loop (&rest forms)
   (let ((end-tag (gensym)))
     `(macrolet ((loop-finish ()
-		  `(go ,',end-tag)))
+                  `(go ,',end-tag)))
        ,(expand-body forms end-tag))))

Code/Loop/name-clause.lisp

@@ -1,15 +1,3 @@
-;;;; Copyright (c) 2014
-;;;;
-;;;;     Robert Strandh ([email protected])
-;;;;
-;;;; all rights reserved. 
-;;;;
-;;;; Permission is hereby granted to use this software for any 
-;;;; purpose, including using, modifying, and redistributing it.
-;;;;
-;;;; The software is provided "as-is" with no warranty.  The user of
-;;;; this software assumes any responsibility of the consequences. 
-
 (cl:in-package #:sicl-loop)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -42,10 +30,10 @@
 
 (define-parser name-clause-parser
   (consecutive (lambda (named name)
-		 (declare (ignore named))
-		 (make-instance 'name-clause
-		   :name name))
-	       (keyword-parser 'named)
-	       (singleton #'identity #'symbolp)))
+                 (declare (ignore named))
+                 (make-instance 'name-clause
+                   :name name))
+               (keyword-parser 'named)
+               (singleton #'identity #'symbolp)))
 
 (add-clause-parser 'name-clause-parser)

Code/Loop/packages.lisp

@@ -1,23 +1,8 @@
-;;;; Copyright (c) 2008, 2009, 2010, 2011, 2012, 2013, 2014
-;;;;
-;;;;     Robert Strandh ([email protected])
-;;;; 
-;;;; all rights reserved. 
-;;;;
-;;;; Permission is hereby granted to use this software for any 
-;;;; purpose, including using, modifying, and redistributing it.
-;;;;
-;;;; The software is provided "as-is" with no warranty.  The user of
-;;;; this software assumes any responsibility of the consequences. 
-
-;;;; This file is part of the loop module of the SICL project.
-;;;; See the file SICL.text for a description of the project. 
-
 (cl:in-package #:common-lisp-user)
 
 (defpackage #:sicl-loop
   (:use #:common-lisp
-	#:sicl-additional-conditions)
+        #:sicl-additional-conditions)
   (:shadow
    ;; We use TYPE as an accessor for a TYPE-SPEC so we need to shadow
    ;; this name.
@@ -28,8 +13,8 @@
    )
   (:export #:define-parser
            #:expand-body
-	   #:clause
-	   #:subclauses-mixin
-	   #:var-and-type-spec-mixin
-	   #:compound-forms-mixin
-	   #:loop-return-clause-mixin))
+           #:clause
+           #:subclauses-mixin
+           #:var-and-type-spec-mixin
+           #:compound-forms-mixin
+           #:loop-return-clause-mixin))