Commit 80a474b4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Respect 100-character width limit.

parent 8fd8939b
...@@ -15,8 +15,8 @@ ...@@ -15,8 +15,8 @@
#:compile-condition #:compile-file-error #:compile-warned-error #:compile-failed-error #:compile-condition #:compile-file-error #:compile-warned-error #:compile-failed-error
#:compile-warned-warning #:compile-failed-warning #:compile-warned-warning #:compile-failed-warning
#:check-lisp-compile-results #:check-lisp-compile-warnings #:check-lisp-compile-results #:check-lisp-compile-warnings
#:*uninteresting-conditions* #:*uninteresting-compiler-conditions* #:*uninteresting-loader-conditions* #:*uninteresting-conditions* #:*usual-uninteresting-conditions*
#:*usual-uninteresting-conditions* #:*uninteresting-compiler-conditions* #:*uninteresting-loader-conditions*
;; Types ;; Types
#+sbcl #:sb-grovel-unknown-constant-condition #+sbcl #:sb-grovel-unknown-constant-condition
;; Functions & Macros ;; Functions & Macros
...@@ -502,7 +502,7 @@ If that given type is NIL, use the currently configured *WARNINGS-FILE-TYPE* ins ...@@ -502,7 +502,7 @@ If that given type is NIL, use the currently configured *WARNINGS-FILE-TYPE* ins
(equal (pathname-type file) type))) (equal (pathname-type file) type)))
(defun check-deferred-warnings (files &optional context-format context-arguments) (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." re-intern and raise any warnings that are still meaningful."
(let ((file-errors nil) (let ((file-errors nil)
(failure-p nil) (failure-p nil)
......
...@@ -241,7 +241,8 @@ Returns two values: \(A B C\) and \(1 2 3\)." ...@@ -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." 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 (or start end) (setf strings (subseq strings start end)))
(when key (setf strings (mapcar key strings))) (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)) :element-type (strings-common-element-type strings))
:with pos = 0 :with pos = 0
:for input :in strings :for input :in strings
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment