diff options
author | Darren Bane <darren.bane@gmail.com> | 2020-11-19 23:50:27 +0000 |
---|---|---|
committer | Darren Bane <darren.bane@gmail.com> | 2020-11-19 23:50:27 +0000 |
commit | 8b8ca0515fe6f68b774f766f7e4f49ec26ba6590 (patch) | |
tree | 56a5c98a61169b9af67fb9ae530c23a845125149 | |
parent | 6e7cdcd4280f5330229ec9c943b9caf090846452 (diff) | |
download | lsp-8b8ca0515fe6f68b774f766f7e4f49ec26ba6590.tar.gz |
Try fix loading error
-rw-r--r-- | basic.lsp | 2 | ||||
-rw-r--r-- | parsing.lsp (renamed from parse.lsp) | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/basic.lsp b/basic.lsp index 7f13acd..11771e9 100644 --- a/basic.lsp +++ b/basic.lsp @@ -2,7 +2,7 @@ (require "abs-syn") (require "lex") -(require "parse") +(require "parsing") (defpackage #:basic (:use #:openlisp) (:export diff --git a/parse.lsp b/parsing.lsp index 9bedee3..e79451a 100644 --- a/parse.lsp +++ b/parsing.lsp @@ -1,14 +1,14 @@ -(defpackage #:parse +(defpackage #:parsing (:use #:openlisp #:lex #:abs-syn) (:export #:parse)) -(in-package #:parse) +(in-package #:parsing) (defclass <exp-elem> () () (:abstractp t)) (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) ()) +(defclass <elem-lp> (<exp-elem>) ()) (defun unr-symb (s) (cond ((string= s "!") 'not) @@ -30,7 +30,7 @@ (let* ((cl (init-lex str)) (tok (lexer cl))) (cond ((instancep tok (class <lint>)) - (make-instance (class <line>) 'n n 'c (parse-cmd cl))) + (create (class <line>) 'n n 'c (parse-cmd cl))) ((instancep tok (class <lident>)) (cond ((string= (ident tok) "LIST") (create (class <phrase-list>))) |