common-lisp/fake-readline.lisp

   1 ;; For some reason MKCL fails to find libreadline.so as a result cl-readline
   2 ;; fails. To avoid conditionals in the code we fake the cl-readline interface
   3 ;; and use it in asdf definitions when running under MKCL
   4 (defpackage   :cl-readline
   5   (:nicknames :rl)
   6   (:use :common-lisp))
   7
   8 (in-package :cl-readline)
   9
  10 (defun readline (&keys prompt already-prompted num-chars
  11                        erase-empty-line add-history novelty-check)
  12   (declare (ignorable ignored))
  13   (format *standard-output* prompt)
  14   (force-output *standard-output*)
  15   (read-line *standard-input* nil))
  16
  17 (defun register-function (&rest ignored)
  18   (declare (ignorable ignored)))