diff options
author | Darren Bane <dbane@tilde.institute> | 2020-10-22 17:41:56 +0100 |
---|---|---|
committer | Darren Bane <dbane@tilde.institute> | 2020-10-22 17:41:56 +0100 |
commit | 36a8373ce5198bd7887b29774d5a5b0052902d27 (patch) | |
tree | 35a74eaf1d175b5f1cb161ca3f5dc2dedc584e22 /cparse.lisp | |
parent | 7e300b255434529cd4cc26542f67442c577e7c47 (diff) | |
parent | 851f5d17ba7f22a54779b04e34bbde2917a2c10d (diff) | |
download | lsp-36a8373ce5198bd7887b29774d5a5b0052902d27.tar.gz |
Merge branch 'master' of /home/dbane/public_repos/lsp
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") |