18 lines
197 B
Common Lisp
18 lines
197 B
Common Lisp
|
|
(defmacro until (cnd body)
|
|
(list 'while '(not (eval cnd))
|
|
body
|
|
))
|
|
|
|
|
|
|
|
(def stop nil)
|
|
|
|
|
|
(until stop
|
|
(do
|
|
(def line (input2 "=> "))
|
|
(if (= line "!q")
|
|
(set! stop #t)
|
|
(print line))
|
|
)) |