remove trailing spaces at empty lines in *.lisp

diff --git a/js-html.lisp b/js-html.lisp
index 2f670fb..5bfda60 100644 (file)
--- a/js-html.lisp
+++ b/js-html.lisp
@@ -24,7 +24,7 @@
             (cond ((keywordp form)
                    (push (format nil "<~A/>"
                                  (string-downcase (symbol-name form))) res))
-                  
+
                   ((atom form)
                    (push form res))
 
@@ -34,7 +34,7 @@
                      (push (format nil "<~A>" node-name) res)
                      (map nil #'handle-form (cdr form))
                      (push (format nil "</~A>" node-name) res)))
-                
+
                   ((and (consp form)
                         (consp (first form))
                         (keywordp (caar form)))

diff --git a/js.lisp b/js.lisp
index 7754ccf..640b4b5 100644 (file)
--- a/js.lisp
+++ b/js.lisp
@@ -131,7 +131,7 @@
     (format t "value-string-lists: ~S~%" value-string-lists)
 
     ;;; collect single value-string-lists until line full
-    
+
     (do* ((string-lists value-string-lists (cdr string-lists))
          (string-list (car string-lists) (car string-lists))
          (cur-elt start)
@@ -154,7 +154,7 @@
       (when join-after
        (unless (null (cdr string-lists))
          (funcall append-to-last string-list join-after)))
-      
+
       (if (and collect (= (length string-list) 1))
          (progn
            #+nil
@@ -263,7 +263,7 @@ this macro."
     `(setf (gethash ,(symbol-name name) *js-macro-toplevel*)
       #'(lambda (&rest ,lambda-list)
          (destructuring-bind ,args ,lambda-list ,@body)))))
-  
+
 (defun js-expand-form (expr)
   "Expand a javascript form."
   (cond ((atom expr)
@@ -273,9 +273,9 @@ this macro."
               (js-expand-form (let ((*js-macro-env* macro-env))
                                 (funcall js-macro)))
               expr)))
-       
+
        ((js-compiler-macro-form-p expr) expr)
-       
+
        ((equal (first expr) 'quote) expr)
 
        (t (let ((js-macro (lookup-macro (car expr))))
@@ -979,7 +979,7 @@ this macro."
                   :stmts (nconc (when (var-names single-defvar) (list single-defvar))
                                 defvars
                                 (mapcar #'js-compile-to-statement body)))))
-                                
+
 ;;; iteration
 
 (defjsclass js-for (statement)
@@ -1336,7 +1336,7 @@ prefix)."
                         "javascript:"
                         (string-join (js-to-statement-strings
                                       (js-compile (cons 'progn body)) 0) " "))))
-  
+
 
 (defmacro js (&rest body)
   `(js* '(progn ,@body)))

diff --git a/js2.lisp b/js2.lisp
index 30b4de4..60a1d38 100644 (file)
--- a/js2.lisp
+++ b/js2.lisp
@@ -143,7 +143,7 @@
       (setf join-before ""))
 
     ;;; collect single value-string-lists until line full
-    
+
     (do* ((string-lists value-string-lists (cdr string-lists))
          (string-list (car string-lists) (car string-lists))
          (cur-elt start)
@@ -164,7 +164,7 @@
       (when join-after
        (unless (null (cdr string-lists))
          (funcall append-to-last string-list join-after)))
-      
+
       (if (and collect (= (length string-list) 1))
          (progn
            #+nil
@@ -263,7 +263,7 @@ this macro."
     `(setf (gethash ',name *js-macro-toplevel*)
       #'(lambda (&rest ,lambda-list)
          (destructuring-bind ,args ,lambda-list ,@body)))))
-  
+
 (defun js-expand-form (expr)
   "Expand a javascript form."
   (cond ((atom expr)
@@ -273,9 +273,9 @@ this macro."
               (js-expand-form (let ((*js-macro-env* macro-env))
                                 (funcall js-macro)))
               expr)))
-       
+
        ((js-compiler-macro-form-p expr) expr)
-       
+
        ((equal (first expr) 'quote) expr)
 
        (t (let ((js-macro (lookup-macro (car expr))))
@@ -824,7 +824,7 @@ this macro."
                   :stmts (nconc (when (var-names single-defvar) (list single-defvar))
                                 defvars
                                 (mapcar #'js-compile-to-statement body)))))
-                                
+
 ;;; iteration
 
 (defclass js-for (statement)

diff --git a/package.lisp b/package.lisp
index 03564d8..dd8480a 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -50,7 +50,7 @@
    ;; function definition
    #:defun
    #:lambda
-   
+
    ;; object literals
    #:create
    #:slot-value
@@ -133,7 +133,7 @@
    #:with-unique-js-names
    #:gen-js-name
    #:gen-js-name-string
-   
+
    ;; CSS
    #:css
    #:css-to-string

diff --git a/ref2test.lisp b/ref2test.lisp
index 390ab09..c701144 100644 (file)
--- a/ref2test.lisp
+++ b/ref2test.lisp
@@ -15,7 +15,7 @@
 ;; so do not edit this file.
 (def-suite ref-tests)
 (in-suite ref-tests)~%~%") ; a double-quote for emacs: "
-  
+
 (defun make-reference-tests-dot-lisp()
   (let ((built "")
         heading

diff --git a/reference.lisp b/reference.lisp
index ae01222..9e55820 100644 (file)
--- a/reference.lisp
+++ b/reference.lisp
@@ -755,7 +755,7 @@ a-variable  => aVariable
    => while (film.isNotFinished()) {
         this.eat(new Popcorn);
       }
-      
+
 ;;;# The `CASE' statement
 ;;;t \index{CASE}
 ;;;t \index{switch}

diff --git a/tutorial.lisp b/tutorial.lisp
index 1bfc722..25bda8a 100644 (file)
--- a/tutorial.lisp
+++ b/tutorial.lisp
@@ -392,7 +392,7 @@ document.write(LINKORNOT == 1 ?
        (setf (aref *preloaded-images* i) (new *Image)
              (slot-value (aref *preloaded-images* i) 'src)
              (aref photos i))))
-   
+
    (defun apply-effect ()
      (when (and document.all photoslider.filters)
        (let ((trans photoslider.filters.reveal-trans))
@@ -400,17 +400,17 @@ document.write(LINKORNOT == 1 ?
                (floor (* (random) 23)))
          (trans.stop)
          (trans.apply))))
-   
+
    (defun play-effect ()
      (when (and document.all photoslider.filters)
        (photoslider.filters.reveal-trans.play)))
 
    (defvar *which* 0)
-   
+
    (defun keep-track ()
      (setf window.status
            (+ "Image " (1+ *which*) " of " photos.length)))
-   
+
    (defun backward ()
      (when (> *which* 0)
        (decf *which*)
@@ -419,7 +419,7 @@ document.write(LINKORNOT == 1 ?
              (aref photos *which*))
        (play-effect)
        (keep-track)))
-   
+
    (defun forward ()
      (when (< *which* (1- photos.length))
        (incf *which*)
@@ -428,7 +428,7 @@ document.write(LINKORNOT == 1 ?
              (aref photos *which*))
        (play-effect)
        (keep-track)))
-   
+
    (defun transport ()
      (setf window.location (aref photoslink *which*)))))