diff options
author | Darren Bane <dbane@tilde.institute> | 2021-04-20 15:47:49 +0100 |
---|---|---|
committer | Darren Bane <dbane@tilde.institute> | 2021-04-20 15:47:49 +0100 |
commit | 3e547ec218830ff391859287e404a19775aa37a1 (patch) | |
tree | 58be6ae265d4c556a28ec81381c516809d884c44 /cap-muck.lsp | |
parent | a964f55b4b983b6b286ad61c02cfce819977e6bf (diff) | |
download | lsp-3e547ec218830ff391859287e404a19775aa37a1.tar.gz |
Doc updates
Diffstat (limited to 'cap-muck.lsp')
-rw-r--r-- | cap-muck.lsp | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/cap-muck.lsp b/cap-muck.lsp index fd90626..8cace16 100644 --- a/cap-muck.lsp +++ b/cap-muck.lsp @@ -1,9 +1,3 @@ -(defpackage #:cap-muck - (:use #:openlisp) - (:export - #:main) - ) -(in-package #:cap-muck) (defglobal *terminate-program* nil) (defconstant +bold+ "#\esc[1m") @@ -109,9 +103,7 @@ ()) ;; TODO: Use the reader, for prototype at least? -;; Can switch to postmodern for production. -;; -;; Or dbm? +;; Or dbm? (Espcially for production.) (defun read-room-database () (setq *rooms* '()) (with-open-input-file (file +rdb+) @@ -180,4 +172,5 @@ (read-room-database) (while (not *terminate-program*) (check-for-inputs))) -(provide "cap-muck") +(main) + |