[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: wrap a couple of long lines
From:       "Nikodemus Siivola" <demoss () users ! sourceforge ! net>
Date:       2012-04-19 17:20:40
Message-ID: E1SKv2B-0007Gr-Rf () sfs-ml-1 ! v29 ! ch3 ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  c74d9e986f9da5f04cc60f9b464735d9d5fb6eb7 (commit)
      from  4e7866afc56e4eec4e33dc2d61bd4f0aeed72cfd (commit)

- Log -----------------------------------------------------------------
commit c74d9e986f9da5f04cc60f9b464735d9d5fb6eb7
Author: Nikodemus Siivola <nikodemus@random-state.net>
Date:   Thu Apr 19 13:44:13 2012 +0300

    wrap a couple of long lines
---
 src/code/fd-stream.lisp |   12 +++++++++---
 1 files changed, 9 insertions(+), 3 deletions(-)

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))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL

------------------------------------------------------------------------------
For Developers, A Lot Can Happen In A Second.
Boundary is the first to Know...and Tell You.
Monitor Your Applications in Ultra-Fine Resolution. Try it FREE!
http://p.sf.net/sfu/Boundary-d2dvs2
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits


[prev in list] [next in list] [prev in thread] [next in thread]