/[cmucl]/src/code/fd-stream.lisp
ViewVC logotype

Diff of /src/code/fd-stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.79 by rtoy, Fri Apr 23 15:08:15 2004 UTC revision 1.80 by rtoy, Thu Sep 23 22:04:34 2004 UTC
# Line 766  Line 766 
766                            do (setf result                            do (setf result
767                                     (+ (* 256 result)                                     (+ (* 256 result)
768                                        (sap-ref-8 sap (+ head j))))                                        (sap-ref-8 sap (+ head j))))
769                            finally (return (dpb result (byte i 0) -1))))))                            finally (return (if (logbitp (1- i) result)
770                                                  (dpb result (byte i 0) -1)
771                                                  result))))))
772                `(signed-byte ,i)                `(signed-byte ,i)
773                (/ i 8)))))                (/ i 8)))))
774    

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

  ViewVC Help
Powered by ViewVC 1.1.5