about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorDarren Bane <darren.bane@gmail.com>2021-05-14 23:47:35 +0100
committerDarren Bane <darren.bane@gmail.com>2021-05-14 23:47:35 +0100
commitaf38818bb582e212b5f52566a71cede0d1675d29 (patch)
treec35d0b1e3fb12e94d8af6b7080ad532e0169e69d
parent0c2561d21d59254669dea0b662946d82fcc7c50c (diff)
downloadlsp-af38818bb582e212b5f52566a71cede0d1675d29.tar.gz
Making changes
-rw-r--r--basic.lsp3
-rw-r--r--cap-muck.lsp11
2 files changed, 13 insertions, 1 deletions
diff --git a/basic.lsp b/basic.lsp
index 09efc5c..a91cc1c 100644
--- a/basic.lsp
+++ b/basic.lsp
@@ -9,7 +9,7 @@
 (defclass <exp-int> (<expression>) ((int :accessor int)))
 (defclass <exp-var> (<expression>) ((var :accessor var)))
 (defclass <exp-str> (<expression>) ((str :accessor str)))
-(defclass <exp-unr> (<expression>) ((op :accessor op) (exp :accessor exp)))
+(defclass <exp-unr> (<expression>) ((op :accessor op) (expr :accessor expr)))
 (defclass <exp-bin> (<expression>) ((exp1 :accessor exp1) (op :accessor op) (exp2 :accessor exp2)))
 
 (defclass <command> () () (:abstractp t))
@@ -268,6 +268,7 @@
 
 ;;;; Program evaluation
 (defun run (state)
+   )
 
 ;;; Finishing touches
 
diff --git a/cap-muck.lsp b/cap-muck.lsp
index 8cace16..36bffba 100644
--- a/cap-muck.lsp
+++ b/cap-muck.lsp
@@ -1,5 +1,8 @@
+;;; See https://github.com/chazu/16k_muds/tree/master/drveg%40pacbell.net
+
 (defglobal *terminate-program* nil)
 
+;; Hmm, I now think procedural interfaces are better than protocols
 (defconstant +bold+ "#\esc[1m")
 (defconstant +unbold+ "#\esc[0m")
 (defconstant +q+ #\")
@@ -167,6 +170,13 @@
   (with-open-output-file (file +adb+)
     (mapcar (lambda (a) (print-object a file)) *avatars*)))
 
+(defun establish-connection ()
+    (let ((c (create (class <connection-type>))))
+        (say c "Welcome to CapMUCK!")
+        (say c "Commands are all upper case, like HELP.")
+        (say c "")
+        (say c +name-prompt+)))
+
 (defun main ()
   (read-avatar-database)
   (read-room-database)
@@ -174,3 +184,4 @@
          (check-for-inputs)))
 (main)
 
+