diff options
| author | Darren Bane <darren.bane@gmail.com> | 2022-02-12 01:15:47 +0000 |
|---|---|---|
| committer | Darren Bane <darren.bane@gmail.com> | 2022-02-12 01:15:47 +0000 |
| commit | fa161002e603eb29990351c292920ef2b717a071 (patch) | |
| tree | e201826f8efb25b22e0f5da9dc5687b9e71ec294 | |
| parent | 0a35cee67a6f8812db39806ed1f6b5975dea478b (diff) | |
| parent | 3f26f5eeaeb94fc05db3b7f19982ed5eb4104c2d (diff) | |
| download | lsp-fa161002e603eb29990351c292920ef2b717a071.tar.gz | |
Merge branch 'master' of tilde.institute:public_repos/lsp
| -rw-r--r-- | basic.lsp | 2 | ||||
| -rwxr-xr-x | btech-m.lsp | 19 |
2 files changed, 20 insertions, 1 deletions
diff --git a/basic.lsp b/basic.lsp index 93d0769..0662a09 100644 --- a/basic.lsp +++ b/basic.lsp @@ -203,7 +203,7 @@ ((or (char= c #\<) (char= c #\>)) (forward cl) (if (>= (current cl) (size cl)) - (crate (class <lsymbol>) 's (create-string 1 c)) + (create (class <lsymbol>) 's (create-string 1 c)) (let ((cs (elt (string cl) (current cl)))) (cond ((and (char= c #\<) (char= cs #\=)) (forward cl) diff --git a/btech-m.lsp b/btech-m.lsp new file mode 100755 index 0000000..43f976c --- /dev/null +++ b/btech-m.lsp @@ -0,0 +1,19 @@ +(defclass <unit> () ((name :initarg n :reader name) + (tp :initarg tp :reader tp) + (pv :initarg p :reader pv))) +(defconstant +mad-3r+ (create (class <unit>) + 'n 'marauder + 'tp 'bm + 'p 42 + 'sz 3 + 'tmm 1 + 'mv 8 + 'role 'sniper + 'skill 3 + 'damage #(2 3 3) + 'ov 1 + 'a 0 + 's 0 + 'crit + 'id)) + |