From 53d30a4705f940736f11cebb4f22df29e2fb9f32 Mon Sep 17 00:00:00 2001 From: cxxxr Date: Wed, 21 Mar 2018 23:28:05 +0900 Subject: [PATCH 1/2] add setup --- lisp/install-lispworks.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/install-lispworks.lisp b/lisp/install-lispworks.lisp index 8c78ec0..97cce08 100644 --- a/lisp/install-lispworks.lisp +++ b/lisp/install-lispworks.lisp @@ -1,5 +1,5 @@ (defpackage :roswell.install.lispworks - (:use :cl :roswell.util)) + (:use :cl :roswell.util :roswell.install)) (in-package :roswell.install.lispworks) (defparameter *code* @@ -91,5 +91,5 @@ (defun lispworks (type) (case type (:help '(help)) - (:install '(install)) + (:install '(install setup)) (:list))) From 5bf539430cec9c15c4fc8457c27f4f1a4dfaff1c Mon Sep 17 00:00:00 2001 From: cxxxr Date: Thu, 22 Mar 2018 00:00:17 +0900 Subject: [PATCH 2/2] fix build program --- lisp/install-lispworks.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/install-lispworks.lisp b/lisp/install-lispworks.lisp index 97cce08..7af7fb1 100644 --- a/lisp/install-lispworks.lisp +++ b/lisp/install-lispworks.lisp @@ -11,7 +11,8 @@ (loop :until (null args) :for arg := (pop args) :do (cond ((string= arg \"--eval\") - (eval (read-from-string (pop args)))))))) + (eval (read-from-string (pop args))))))) + (lw:start-tty-listener)) (pushnew '(\"Main\" (:priority 60000000 :restart-action :continue) main) mp:*initial-processes*)