mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 09:40:21 +03:00
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
19 lines
648 B
Common Lisp
19 lines
648 B
Common Lisp
;; For some reason MKCL fails to find libreadline.so as a result cl-readline
|
|
;; fails. To avoid conditionals in the code we fake the cl-readline interface
|
|
;; and use it in asdf definitions when running under MKCL
|
|
(defpackage :cl-readline
|
|
(:nicknames :rl)
|
|
(:use :common-lisp))
|
|
|
|
(in-package :cl-readline)
|
|
|
|
(defun readline (&keys prompt already-prompted num-chars
|
|
erase-empty-line add-history novelty-check)
|
|
(declare (ignorable ignored))
|
|
(format *standard-output* prompt)
|
|
(force-output *standard-output*)
|
|
(read-line *standard-input* nil))
|
|
|
|
(defun register-function (&rest ignored)
|
|
(declare (ignorable ignored)))
|