From 80a474b49e8da9a69cb1cda0faabe2ed0645b6d9 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Tue, 12 Nov 2013 17:21:37 -0500 Subject: [PATCH] Respect 100-character width limit. --- uiop/lisp-build.lisp | 6 +++--- uiop/utility.lisp | 3 ++- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/uiop/lisp-build.lisp b/uiop/lisp-build.lisp index d0bcf182e..55484893d 100644 --- a/uiop/lisp-build.lisp +++ b/uiop/lisp-build.lisp @@ -15,8 +15,8 @@ #:compile-condition #:compile-file-error #:compile-warned-error #:compile-failed-error #:compile-warned-warning #:compile-failed-warning #:check-lisp-compile-results #:check-lisp-compile-warnings - #:*uninteresting-conditions* #:*uninteresting-compiler-conditions* #:*uninteresting-loader-conditions* - #:*usual-uninteresting-conditions* + #:*uninteresting-conditions* #:*usual-uninteresting-conditions* + #:*uninteresting-compiler-conditions* #:*uninteresting-loader-conditions* ;; Types #+sbcl #:sb-grovel-unknown-constant-condition ;; Functions & Macros @@ -502,7 +502,7 @@ If that given type is NIL, use the currently configured *WARNINGS-FILE-TYPE* ins (equal (pathname-type file) type))) (defun check-deferred-warnings (files &optional context-format context-arguments) - "Given a list of FILES in which deferred warnings were saved by CALL-WITH-SAVED-DEFERRED-WARNINGS, + "Given a list of FILES containing deferred warnings saved by CALL-WITH-SAVED-DEFERRED-WARNINGS, re-intern and raise any warnings that are still meaningful." (let ((file-errors nil) (failure-p nil) diff --git a/uiop/utility.lisp b/uiop/utility.lisp index 32d02774a..2fb6716e3 100644 --- a/uiop/utility.lisp +++ b/uiop/utility.lisp @@ -241,7 +241,8 @@ Returns two values: \(A B C\) and \(1 2 3\)." NIL is interpreted as an empty string. A character is interpreted as a string of length one." (when (or start end) (setf strings (subseq strings start end))) (when key (setf strings (mapcar key strings))) - (loop :with output = (make-string (loop :for s :in strings :sum (if (characterp s) 1 (length s))) + (loop :with output = (make-string (loop :for s :in strings + :sum (if (characterp s) 1 (length s))) :element-type (strings-common-element-type strings)) :with pos = 0 :for input :in strings -- GitLab