mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-02-10 09:42:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

revision

Browse source
This commit is contained in:
pls.153 2023-12-02 16:32:54 +01:00
parent 37c1458a71
commit c2966bf4a4
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
examples/cl-repl/lisp/editor.lisp
View file

@ -759,7 +759,8 @@
(defvar *history* (make-array 0 :adjustable t :fill-pointer t))
(defvar *history-index* nil)
(defvar *history-file* (merge-pathnames ".repl-history" (user-homedir-pathname)))
(defvar *history-file* #+(or android ios) ".repl-history"
#-(or android ios) (merge-pathnames ".cl-repl-history" (user-homedir-pathname)))
(defvar *max-history* 100)
(defun read-saved-history ()