From 28891eb28376f84c2d588aaffa7aff5100063c6b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 19 Jan 2006 18:00:19 +0000 Subject: [PATCH] r10880: Automated commit for Debian build of kmrcl upstream-version-1.85 --- buff-input.lisp | 21 ++++++++++++--------- debian/changelog | 6 ++++++ 2 files changed, 18 insertions(+), 9 deletions(-) diff --git a/buff-input.lisp b/buff-input.lisp index d5b54be..4868ba1 100644 --- a/buff-input.lisp +++ b/buff-input.lisp @@ -167,13 +167,16 @@ (if (eql c +eof-char+) eof linebuffer))) (declare (character c)) (cond - ((char= c #\Newline) - (unless (zerop pos) - (setf (fill-pointer linebuffer) (1- pos))) - (setf done t)) - ((char= +eof-char+) - (setf done t)) - (t - (setf (char linebuffer pos) c) - (incf pos))))))) + ((>= pos +max-line+) + (warn "Line overflow") + (setf done t)) + ((char= c #\Newline) + (when (plusp pos) + (setf (fill-pointer linebuffer) (1- pos))) + (setf done t)) + ((char= +eof-char+) + (setf done t)) + (t + (setf (char linebuffer pos) c) + (incf pos))))))) diff --git a/debian/changelog b/debian/changelog index fdbfb14..5ed1dc8 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.85-1) unstable; urgency=low + + * New release + + -- Kevin M. Rosenberg Thu, 19 Jan 2006 10:55:21 -0700 + cl-kmrcl (1.84-2) unstable; urgency=low * New upstream URI -- 2.34.1