diff options
author | Darren Bane <darren.bane@gmail.com> | 2020-12-04 00:47:27 +0000 |
---|---|---|
committer | Darren Bane <darren.bane@gmail.com> | 2020-12-04 00:47:27 +0000 |
commit | 078ae5a0780015dfff775196d675fb23f0367060 (patch) | |
tree | 753dc46d086657f1b557c6ed59a38fb42adb7a53 /cparse.lisp | |
parent | da9f8c68fb8048a559626ea2d327a04b65c432c7 (diff) | |
download | lsp-078ae5a0780015dfff775196d675fb23f0367060.tar.gz |
Can't get past that OpenLisp error; go back to sbcl
Diffstat (limited to 'cparse.lisp')
-rw-r--r-- | cparse.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparse.lisp b/cparse.lisp index 602dc76..31d7817 100644 --- a/cparse.lisp +++ b/cparse.lisp @@ -27,7 +27,7 @@ ((string= s ">") 'great))) (defun parse (str) - (let* ((cl (init-lex str)) + (let* ((cl (make-instance (find-class '<string-lexer>) 's str)) (tok (lexer cl))) (cond ((instancep tok (find-class '<lint>)) (make-instance (find-class '<line>) 'n n 'c (parse-cmd cl))) |