Get working on OSX

[clnl] / src / main / main.lisp

diff --git a/src/main/main.lisp b/src/main/main.lisp
index 749c765949ce775f3aa7d99d3d9f9c372d564e50..dcc7ca0c4573b732192e8d5bc4de4d29a3855b2d 100644 (file)
--- 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