From 3e547ec218830ff391859287e404a19775aa37a1 Mon Sep 17 00:00:00 2001 From: Darren Bane Date: Tue, 20 Apr 2021 15:47:49 +0100 Subject: Doc updates --- cap-muck.lsp | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'cap-muck.lsp') 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) + -- cgit 1.4.1-2-gfad0