sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

small revision

Browse source
This commit is contained in:
polos 2017-10-11 19:46:32 +02:00
parent 92254383a6
commit 5d78c081e1
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lib/gui.lisp
View file

@ -396,14 +396,13 @@
(with-open-file (s *history-file* :direction :input)
(x:while-it (read-line s nil nil)
(setf (svref tmp (next-index)) x:it)))
(next-index)
(dotimes (n (min i *max-history*))
(x:while (not (svref tmp (index)))
(next-index))
(vector-push-extend (svref tmp (index))
*history*)
(next-index))
(setf *history-index* (length *history*))))))) ; 1 after last
(let ((max (min (1+ i) *max-history*)))
(when (< max *max-history*)
(setf i -1))
(dotimes (n max)
(vector-push-extend (svref tmp (next-index))
*history*))
(setf *history-index* (length *history*)))))))) ; 1 after last
(let (out)
(defun history-ini ()