From 551080b729b642c80b8e299249fc9135d3218a04 Mon Sep 17 00:00:00 2001 From: Luca Capello Date: Sun, 22 Jan 2006 21:57:42 +0000 Subject: [PATCH] remove trailing spaces at empty lines in *.lisp --- js-html.lisp | 4 ++-- js.lisp | 14 +++++++------- js2.lisp | 12 ++++++------ package.lisp | 4 ++-- ref2test.lisp | 2 +- reference.lisp | 2 +- tutorial.lisp | 12 ++++++------ 7 files changed, 25 insertions(+), 25 deletions(-) diff --git a/js-html.lisp b/js-html.lisp index 2f670fb..5bfda60 100644 --- 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 "" node-name) res))) - + ((and (consp form) (consp (first form)) (keywordp (caar form))) diff --git a/js.lisp b/js.lisp index 7754ccf..640b4b5 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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*))))) -- 2.20.1