diff options
| -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)) + |