diff options
author | Darren Bane <darren.bane@gmail.com> | 2020-10-12 00:52:56 +0100 |
---|---|---|
committer | Darren Bane <darren.bane@gmail.com> | 2020-10-12 00:52:56 +0100 |
commit | 84d897e941a679529d4f00ea5952196c40656b5f (patch) | |
tree | ece8dcddf6802acb2af5ca95c9c606e68569e290 /cparse.lisp | |
parent | a8b5dbd231cd839449e9e391697c8bde9ae1cede (diff) | |
download | lsp-84d897e941a679529d4f00ea5952196c40656b5f.tar.gz |
Trying to get cbasic.lisp to compile; WIP
Diffstat (limited to 'cparse.lisp')
-rw-r--r-- | cparse.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/cparse.lisp b/cparse.lisp index 5c8c6bb..602dc76 100644 --- a/cparse.lisp +++ b/cparse.lisp @@ -5,7 +5,7 @@ (in-package #:cparse) (defclass <exp-elem> () () (:metaclass <abstract-class>)) -(defclass <elem-exp> (<exp-elem>) ((exp :accessor exp))) +(defclass <elem-exp> (<exp-elem>) ((expr :accessor expr))) (defclass <elem-bin> (<exp-elem>) ((bin-op :accessor bin-op))) (defclass <elem-unr> (<exp-elem>) ((unr-op :accessor unr-op))) (defclass <elem-lp> (<exp-elem) ()) @@ -40,5 +40,4 @@ (make-instance (find-class '<phrase-p-end>))) (t (error "Parse error")))) (t (error "Parse error"))))) - - +(provide "cparse") |