diff options
author | Darren Bane <darren.bane@gmail.com> | 2020-11-18 23:59:17 +0000 |
---|---|---|
committer | Darren Bane <darren.bane@gmail.com> | 2020-11-18 23:59:17 +0000 |
commit | 6e7cdcd4280f5330229ec9c943b9caf090846452 (patch) | |
tree | 7e7542c9edb9ef9805022ca105f42a56372aad9b /abs-syn.lsp | |
parent | f1dd340e2def134d0641ebbbf92934f69086b643 (diff) | |
download | lsp-6e7cdcd4280f5330229ec9c943b9caf090846452.tar.gz |
Checkpointing from my Mac
Diffstat (limited to 'abs-syn.lsp')
-rw-r--r-- | abs-syn.lsp | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/abs-syn.lsp b/abs-syn.lsp index a339a47..5963381 100644 --- a/abs-syn.lsp +++ b/abs-syn.lsp @@ -1,3 +1,25 @@ +(defpackage #:abs-syn + (:use #:openlisp) + (:export + #:<exp-int> + #:<exp-var> + #:<exp-str> + #:<exp-unr> + #:<exp-bin> + #:<cmd-rem> + #:<cmd-goto> + #:<cmd-print> + #:<cmd-input> + #:<cmd-if> + #:<cmd-let> + #:<phrase-line> + #:<phrase-list> + #:<phrase-run> + #:<phrase-p-end> + #:priority-uop + #:priority-binop)) +(in-package #:abs-syn) + ;; If these were only C enums, without any payload, I'd just use symbols and (error) in the t case. ;; But classes seem better for the associated data, in discriminated unions. @@ -35,3 +57,4 @@ ((eql bin-op 'mod) 4) ((member bin-op '(equal less lesseq great greateq diff)) 3) ((member bin-op '(and or)) 2))) +(provide "abs-syn") |