diff options
author | Darren Bane <dbane@tilde.institute> | 2020-07-30 23:01:26 +0100 |
---|---|---|
committer | Darren Bane <dbane@tilde.institute> | 2020-07-30 23:01:26 +0100 |
commit | 628c87c1a75e48c34888031f2aca3695b5a704cf (patch) | |
tree | 52d0841ee0bd19c2dbe46871d4108379bef29465 /cbtech.lisp | |
parent | bd88ae0b1da3e48032a251ce779f347329a52ed7 (diff) | |
download | lsp-628c87c1a75e48c34888031f2aca3695b5a704cf.tar.gz |
Maybe CL is better after all
Diffstat (limited to 'cbtech.lisp')
-rwxr-xr-x | cbtech.lisp | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/cbtech.lisp b/cbtech.lisp new file mode 100755 index 0000000..15eda5a --- /dev/null +++ b/cbtech.lisp @@ -0,0 +1,18 @@ +(require "ccmd") +(require "cbuiltins") +(defpackage #:cbtech + (:use #:common-lisp #:ccmd #:cbuiltins) + (:export + #:main)) +(in-package #:cbtech) +;; Favour symbols & objects over C-like numbers +(defconstant +cmds+ (list + (create-tab #'bt-quit "QUIT" 1) + (create-tab #'help "help" 2) + (create-tab #'look "look" 2))) +(defun main () + (format *standard-output* "> ") + (let* ((tab (lookup (parse (read-line)) +cmds+)) + (f (fun tab))) + (funcall f))) ; I *think* this is better than (flet ... +(provide "cbtech") |