2 (defpackage :lineal.shell
3 (:use
:cl
:lineal
:lineal.overload
))
4 (in-package :lineal.shell
)
6 (defun greeting (infixp)
7 (format t
"~&Welcome to Lineal, ")
8 (format t
"using ~:[prefix~;infix~] notation." infixp
)
9 (format t
"~%To leave, use exit or quit.")
12 ;;; Main loop for shell.
14 (let ((infixp (symbol-value
15 'lineal.devvars
::use-infix-p
)))
18 (do ((str (read-line) (read-line)))
19 ((or (string= "quit" str
)
20 (string= "exit" str
)))
22 (process-input-from-string
27 (declare (ignore condit
))))))