X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fmain.lisp;h=dcc7ca0c4573b732192e8d5bc4de4d29a3855b2d;hp=749c765949ce775f3aa7d99d3d9f9c372d564e50;hb=e4737223ae0336868aecd6af14ac09947655fde6;hpb=fe712aa779be8210646dd5a74a665644232de3cb

diff --git a/src/main/main.lisp b/src/main/main.lisp
index 749c765..dcc7ca0 100644
--- a/src/main/main.lisp
+++ b/src/main/main.lisp
@@ -23,12 +23,10 @@ ARGUMENTS AND VALUES:
 
 DESCRIPTION:
 
-  RUN implements a very simple REPL."
- (loop
-  :for str := (progn (format t "> ") (force-output) (read-line))
-  :while str
-  :do (p (e (r str))))
- (sb-ext:exit))
+  RUN starts up the CLNL system."
+
+ (sb-thread:make-thread #'clnl-cli:run)
+ (clnl-interface:run))
 
 (defun boot ()
  "BOOT => RESULT