nikodemus/linedit — Issue #2: linedit and .sbcl_history file
Author: ckairaba
Created: 2012-01-19 14:59:12+00:00
State: open

Hi nikodemus
I tried to add these following lines in my .sbclrc file. Unfortunately, it doesn't work. I just want to load the content of .sbcl_history file before the sbcl repl.
Why do I get the error "There is no applicable method for the generic function
#" ?
when called with arguments?

The code :
(if (member "--no-linedit" sb-ext:*posix-argv* ....
....
(require :linedit)
(funcall (intern "INSTALL-REPL" ....)

(defun load-sbcl-history ()
(with-open-file (str
(merge-pathnames ".sbcl_history" (user-homedir-pathname))
:direction :input)
(do ((line (read-line str nil 'eof) (read-line str nil 'eof)))
((eql line 'eof))
(linedit::buffer-push line linedit::*history*))))
(load-sbcl-history)

faithfully