imenu/text files were truncated when > 200 lines - clic - Clic is an command line interactive client for gopher written in Common LISP	Err	bitreich.org	70
hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	bitreich.org	70
1Log	/scm/clic/log.gph	bitreich.org	70
1Files	/scm/clic/files.gph	bitreich.org	70
1Refs	/scm/clic/refs.gph	bitreich.org	70
1Tags	/scm/clic/tag	bitreich.org	70
1README	/scm/clic/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/clic/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit 26a0eee532a51e2d82d31e7b8e791c34b1cc7cde	/scm/clic/commit/26a0eee532a51e2d82d31e7b8e791c34b1cc7cde.gph	bitreich.org	70
1parent 8e4fb9b8579b02bd71c70cc83492ce2a39f18f54	/scm/clic/commit/8e4fb9b8579b02bd71c70cc83492ce2a39f18f54.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu, 31 May 2018 13:36:15 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
imenu/text files were truncated when > 200 lines	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |       8 ++++++--	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 6 insertions(+), 2 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -96,7 +96,7 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun copy-array(from)	Err	bitreich.org	70
i   "return a new array containing the same elements as the parameter"	Err	bitreich.org	70
i-  (let ((dest (make-array 200	Err	bitreich.org	70
i+  (let ((dest (make-array (length from)	Err	bitreich.org	70
i                           :fill-pointer 0	Err	bitreich.org	70
i                           :initial-element nil	Err	bitreich.org	70
i                           :adjustable t)))	Err	bitreich.org	70
i@@ -297,8 +297,12 @@	Err	bitreich.org	70
i      ;; not binary	Err	bitreich.org	70
i      ;; for each line we receive we store it in *buffer*	Err	bitreich.org	70
i      (loop for line = (read-line stream nil nil)	Err	bitreich.org	70
i+        count line into lines	Err	bitreich.org	70
i         while line	Err	bitreich.org	70
i         do	Err	bitreich.org	70
i+        ;; increase array size if needed	Err	bitreich.org	70
i+          (when (= lines (- (array-total-size *buffer*) 1))	Err	bitreich.org	70
i+            (adjust-array *buffer* (+ 200 (array-total-size *buffer*))))	Err	bitreich.org	70
i           (vector-push line *buffer*)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; we store the duration of the connection	Err	bitreich.org	70
i@@ -322,7 +326,7 @@	Err	bitreich.org	70
i (defun filter-line(text)	Err	bitreich.org	70
i   "display only lines containg text"	Err	bitreich.org	70
i   (setf *previous-buffer* (copy-array *buffer*))	Err	bitreich.org	70
i-  (setf *buffer* (make-array 200	Err	bitreich.org	70
i+  (setf *buffer* (make-array 400	Err	bitreich.org	70
i                              :fill-pointer 0	Err	bitreich.org	70
i                              :initial-element nil	Err	bitreich.org	70
i                              :adjustable t))	Err	bitreich.org	70
.