diff options
| author | Darren Bane <dbane@tilde.institute> | 2022-01-07 11:47:45 +0000 |
|---|---|---|
| committer | Darren Bane <dbane@tilde.institute> | 2022-01-07 11:47:45 +0000 |
| commit | 1942ee886453a3650666c9c731dcc3f64a798db1 (patch) | |
| tree | 65cfe6cb93d914fadaa4286f0df221a4c0c61c18 | |
| parent | 83a8c55f433c3c18ef0b189042a0ef13ac2598b5 (diff) | |
| download | lsp-1942ee886453a3650666c9c731dcc3f64a798db1.tar.gz | |
Local changes
| -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 5209832..03e4edb 100644 --- a/basic.lsp +++ b/basic.lsp @@ -201,7 +201,7 @@ ((or (char= c #\<) (char= c #\>)) (forward cl) (if (>= (current cl) (size cl)) - (crate (class <lsymbols>) 's c) + (create (class <lsymbols>) 's 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)) + |