From 3d3e681cc7391c5ee1b0b00b641e9ccbb1d098f1 Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Sun, 6 Mar 2016 14:26:46 +0100 Subject: [PATCH] Previously missed whitespace canonicalizations --- contrib/sb-concurrency/package.lisp | 2 +- contrib/sb-concurrency/tests/package.lisp | 2 +- contrib/sb-grovel/sb-grovel.texinfo | 2 +- contrib/sb-posix/macros.lisp | 2 +- contrib/sb-queue/package.lisp | 2 +- contrib/sb-queue/sb-queue.asd | 2 +- contrib/sb-simple-streams/package.lisp | 2 +- contrib/sb-simple-streams/string.lisp | 2 +- contrib/sb-sprof/sb-sprof.texinfo | 4 ++-- doc/manual/backmatter.texinfo | 4 ++-- doc/manual/compiler.texinfo | 4 ++-- doc/manual/ffi.texinfo | 10 +++++----- src/assembly/alpha/array.lisp | 2 +- src/code/cold-init.lisp | 2 +- src/compiler/fixup-type.lisp | 2 +- tests/mop-22.impure-cload.lisp | 2 +- tests/mop-6.impure-cload.lisp | 2 +- 17 files changed, 24 insertions(+), 24 deletions(-) diff --git a/contrib/sb-concurrency/package.lisp b/contrib/sb-concurrency/package.lisp index 942ce61a1..ea6e0a846 100644 --- a/contrib/sb-concurrency/package.lisp +++ b/contrib/sb-concurrency/package.lisp @@ -56,4 +56,4 @@ "FRLOCK-READ-END" "GRAB-FRLOCK-WRITE-LOCK" "RELEASE-FRLOCK-WRITE-LOCK" - )) \ No newline at end of file + )) diff --git a/contrib/sb-concurrency/tests/package.lisp b/contrib/sb-concurrency/tests/package.lisp index bffd113ef..7328fc257 100644 --- a/contrib/sb-concurrency/tests/package.lisp +++ b/contrib/sb-concurrency/tests/package.lisp @@ -2,4 +2,4 @@ (in-package :cl-user) (defpackage :sb-concurrency-test - (:use :cl :sb-thread :sb-concurrency :sb-rt)) \ No newline at end of file + (:use :cl :sb-thread :sb-concurrency :sb-rt)) diff --git a/contrib/sb-grovel/sb-grovel.texinfo b/contrib/sb-grovel/sb-grovel.texinfo index 8c7b0aa92..ab8104fa5 100644 --- a/contrib/sb-grovel/sb-grovel.texinfo +++ b/contrib/sb-grovel/sb-grovel.texinfo @@ -44,7 +44,7 @@ Add it as a component in your system. e.g. (:use :cl :asdf :sb-grovel :sb-alien)) (in-package :example-package.system) - + (defsystem example-system :depends-on (sb-grovel) :components diff --git a/contrib/sb-posix/macros.lisp b/contrib/sb-posix/macros.lisp index aa69c474f..f8bdc7c91 100644 --- a/contrib/sb-posix/macros.lisp +++ b/contrib/sb-posix/macros.lisp @@ -149,4 +149,4 @@ a FILE-STREAM designating the underlying file-descriptor." (defun ,lisp-name ,(mapcar #'first arguments) (alien-funcall (extern-alien ,c-name (function ,return-type ,@(mapcar #'second arguments))) - ,@(mapcar #'first arguments)))))) \ No newline at end of file + ,@(mapcar #'first arguments)))))) diff --git a/contrib/sb-queue/package.lisp b/contrib/sb-queue/package.lisp index 1710f06f4..314af994f 100644 --- a/contrib/sb-queue/package.lisp +++ b/contrib/sb-queue/package.lisp @@ -22,4 +22,4 @@ "QUEUE-COUNT" "QUEUE-EMPTY-P" "QUEUE-NAME" - "QUEUEP")) \ No newline at end of file + "QUEUEP")) diff --git a/contrib/sb-queue/sb-queue.asd b/contrib/sb-queue/sb-queue.asd index aa67ca2e2..9ab07c1d5 100644 --- a/contrib/sb-queue/sb-queue.asd +++ b/contrib/sb-queue/sb-queue.asd @@ -22,4 +22,4 @@ (defmethod asdf:perform ((o asdf:test-op) (c (eql (asdf:find-system :sb-queue)))) - :pass) \ No newline at end of file + :pass) diff --git a/contrib/sb-simple-streams/package.lisp b/contrib/sb-simple-streams/package.lisp index 8e80524df..f2972f7af 100644 --- a/contrib/sb-simple-streams/package.lisp +++ b/contrib/sb-simple-streams/package.lisp @@ -75,4 +75,4 @@ (defgeneric stream-file-position (stream &optional position)) (defgeneric stream-file-length (stream)) (export '(stream-file-position stream-file-length)) -||# \ No newline at end of file +||# diff --git a/contrib/sb-simple-streams/string.lisp b/contrib/sb-simple-streams/string.lisp index 3b85a2b0e..1bd604e1e 100644 --- a/contrib/sb-simple-streams/string.lisp +++ b/contrib/sb-simple-streams/string.lisp @@ -115,4 +115,4 @@ (defmethod device-open ((stream xp-simple-stream) options) #| do something |# - stream) \ No newline at end of file + stream) diff --git a/contrib/sb-sprof/sb-sprof.texinfo b/contrib/sb-sprof/sb-sprof.texinfo index 5a5ff0208..be4298ae3 100644 --- a/contrib/sb-sprof/sb-sprof.texinfo +++ b/contrib/sb-sprof/sb-sprof.texinfo @@ -57,7 +57,7 @@ during :loop t :show-progress t) (cpu-test 24)) - + ;;;; Allocation profiling (defun foo (&rest args) @@ -152,7 +152,7 @@ depth of more than two levels is only supported on x86 and x86-64. @include var-sb-sprof-star-max-samples-star.texinfo @include var-sb-sprof-star-sample-interval-star.texinfo - + @subsection Credits @code{sb-sprof} is an SBCL port, with enhancements, of Gerd diff --git a/doc/manual/backmatter.texinfo b/doc/manual/backmatter.texinfo index e4358435b..aa8495fa4 100644 --- a/doc/manual/backmatter.texinfo +++ b/doc/manual/backmatter.texinfo @@ -7,13 +7,13 @@ @node Function Index @comment node-name, next, previous, up @appendix Function Index - + @printindex fn @node Variable Index @comment node-name, next, previous, up @appendix Variable Index - + @printindex vr @node Type Index diff --git a/doc/manual/compiler.texinfo b/doc/manual/compiler.texinfo index a6cd1daf0..da0d349d9 100644 --- a/doc/manual/compiler.texinfo +++ b/doc/manual/compiler.texinfo @@ -317,7 +317,7 @@ much of the second message as in common with the first. For example: ; ; caught STYLE-WARNING: ; undefined function: PLOQ - + ; ==> ; (ROQ (PLOQ (+ Y 3))) ; @@ -668,7 +668,7 @@ macro back to a function and declare it inline. Some more subtle problems are caused by incorrect declarations that can't be detected at compile time. Consider this code: - + @lisp (do ((pos 0 (position #\a string :start (1+ pos)))) ((null pos)) diff --git a/doc/manual/ffi.texinfo b/doc/manual/ffi.texinfo index b6395ede0..d44e40902 100644 --- a/doc/manual/ffi.texinfo +++ b/doc/manual/ffi.texinfo @@ -526,7 +526,7 @@ variable definitions, each of the form The names of the variables are established as symbol-macros; the bindings have lexical scope, and may be assigned with @code{setq} or @code{setf}. - + The @code{with-alien} macro also establishes a new scope for named structures and unions. Any @var{type} specified for a variable may contain named structure or union types with the slots specified. @@ -578,7 +578,7 @@ of the declared @code{type}. Someday, they may well be implemented using the @acronym{ANSI} @code{define-symbol-macro} mechanism, but as of SBCL 0.7.5, they are still implemented using an older more-or-less parallel mechanism inherited from CMUCL. - + For example, to access a C-level counter @var{foo}, one could write @lisp @@ -733,7 +733,7 @@ primitive: @var{alien-function} is called with the supplied The @var{alien-function} is an arbitrary run-time expression; to refer to a constant function, use @code{extern-alien} or a value defined by @code{define-alien-routine}. - + The type of @code{alien-function} must be @code{(alien (function ...))} or @code{(alien (* (function ...)))}. The function type is used to determine how to call the function (as though it was declared @@ -1076,7 +1076,7 @@ struct c_struct int x; char *s; @}; - + struct c_struct *c_function (i, s, r, a) int i; char *s; @@ -1085,7 +1085,7 @@ struct c_struct *c_function (i, s, r, a) @{ int j; struct c_struct *r2; - + printf("i = %d\n", i); printf("s = %s\n", s); printf("r->x = %d\n", r->x); diff --git a/src/assembly/alpha/array.lisp b/src/assembly/alpha/array.lisp index f1aefb69d..c14c212a8 100644 --- a/src/assembly/alpha/array.lisp +++ b/src/assembly/alpha/array.lisp @@ -175,4 +175,4 @@ ;; Restore the return address. (inst addq code-tn retaddr lip)) -|# \ No newline at end of file +|# diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp index 167b7b6f4..c67b07aeb 100644 --- a/src/code/cold-init.lisp +++ b/src/code/cold-init.lisp @@ -133,7 +133,7 @@ (write expr) (terpri) (funcall f expr))) - + (encapsulate-1 'find-package (lambda (f designator) diff --git a/src/compiler/fixup-type.lisp b/src/compiler/fixup-type.lisp index 6cfd887af..30bd42b13 100644 --- a/src/compiler/fixup-type.lisp +++ b/src/compiler/fixup-type.lisp @@ -9,4 +9,4 @@ (specifier-type (sb!vm:saetp-specifier saetp)))) sb!vm:*specialized-array-element-type-properties*)) -(!defun-from-collected-cold-init-forms !fixup-type-cold-init) \ No newline at end of file +(!defun-from-collected-cold-init-forms !fixup-type-cold-init) diff --git a/tests/mop-22.impure-cload.lisp b/tests/mop-22.impure-cload.lisp index 0fe9377a7..53dd00df7 100644 --- a/tests/mop-22.impure-cload.lisp +++ b/tests/mop-22.impure-cload.lisp @@ -52,4 +52,4 @@ (make-instance 'incomplete) t 1 (make-condition 'error) (find-class 'incomplete) 3) - t)) \ No newline at end of file + t)) diff --git a/tests/mop-6.impure-cload.lisp b/tests/mop-6.impure-cload.lisp index 64bb8f359..71005b119 100644 --- a/tests/mop-6.impure-cload.lisp +++ b/tests/mop-6.impure-cload.lisp @@ -71,4 +71,4 @@ (with-test (:name (:compute-slots :funcallable-standard-clas :function)) (let ((r (make-instance 'funcallable-rearranged-class))) (set-funcallable-instance-function r (lambda (x) (list "Hello, World!" x))) - (assert (equal (funcall r 3) '("Hello, World!" 3))))) \ No newline at end of file + (assert (equal (funcall r 3) '("Hello, World!" 3))))) -- 2.11.4.GIT