Added the read-history and write-history functions.

cl-readline.lisp

@@ -1041,6 +1041,17 @@ function returns previous value of the parameter."
 (defcfun ("rl_clear_history" clear-history) :void
   "Clear the history list by deleting all of the entries.")
 
+(defcfun ("read_history" read-history) :int
+  "Add the contents of filename to the history list, a line at a
+time."
+  (filename :string))
+
+(defcfun ("write_history" write-history) :int
+  "Write the current history to filename, overwriting filename if
+necessary."
+  (filename :string))
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                        ;;
 ;;                            Signal Handling                             ;;

doc/cl-readline.texi

@@ -821,6 +821,16 @@ been enabled. The function returns previous value of the parameter.
 Clear the history list by deleting all of the entries.
 @end defun
 
+@defun read-history filename
+Add the contents of filename to the history list, a line at a
+time.
+@end defun
+
+@defun write-history filename
+Write the current history to filename, overwriting filename if
+necessary.
+@end defun
+
 @node Signal Handling
 @chapter Signal Handling
 

package.lisp

@@ -130,6 +130,8 @@
    #:variable-dumper
    #:set-paren-blink-timeout
    #:clear-history
+   #:read-history
+   #:write-history
    ;; Signal Handling
    #:cleanup-after-signal
    #:free-line-state