From: Nikodemus Siivola Date: Thu, 19 Apr 2012 10:44:13 +0000 (+0300) Subject: wrap a couple of long lines X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c74d9e986f9da5f04cc60f9b464735d9d5fb6eb7;p=sbcl.git wrap a couple of long lines --- diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index b973113..2f4e9e6 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -1079,7 +1079,9 @@ (catch 'eof-input-catcher (setf decode-break-reason (block decode-break-reason - (input-at-least ,stream-var ,(if (consp bytes) (car bytes) `(setq size ,bytes))) + (input-at-least ,stream-var ,(if (consp bytes) + (car bytes) + `(setq size ,bytes))) (let* ((byte (sap-ref-8 (buffer-sap ibuf) (buffer-head ibuf)))) (declare (ignorable byte)) ,@(when (consp bytes) @@ -1579,7 +1581,9 @@ (setf decode-break-reason (block decode-break-reason (setf byte (sap-ref-8 sap head) - size ,(if (consp in-size-expr) (cadr in-size-expr) in-size-expr) + size ,(if (consp in-size-expr) + (cadr in-size-expr) + in-size-expr) char ,in-expr) (incf head size) nil)) @@ -1599,7 +1603,9 @@ (setf decode-break-reason (block decode-break-reason (setf byte (sap-ref-8 sap head) - size ,(if (consp in-size-expr) (cadr in-size-expr) in-size-expr) + size ,(if (consp in-size-expr) + (cadr in-size-expr) + in-size-expr) char ,in-expr) (incf head size) nil))