Skip to content
This repository has been archived by the owner on Dec 29, 2018. It is now read-only.

Commit

Permalink
Fix system dependency
Browse files Browse the repository at this point in the history
  • Loading branch information
Tomohiro Matsuyama committed Sep 6, 2012
1 parent c444dde commit 94de50f
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 6 deletions.
4 changes: 2 additions & 2 deletions ruby-parser.asd
Expand Up @@ -5,8 +5,8 @@
:depends-on (#:alexandria :depends-on (#:alexandria
#:iterate #:iterate
#:anaphora #:anaphora
#:alt-match #:optima
#:alt-yacc #:lyacc
#:cl-ppcre #:cl-ppcre
#:closer-mop #:closer-mop
#:parse-number) #:parse-number)
Expand Down
4 changes: 2 additions & 2 deletions src/packages.lisp
Expand Up @@ -2,7 +2,7 @@
(:use #:cl (:use #:cl
#:anaphora #:anaphora
#:iterate #:iterate
#:alt.match) #:optima)
(:shadow #:block #:variable) (:shadow #:block #:variable)
(:import-from #:alexandria (:import-from #:alexandria
#:required-argument #:required-argument
Expand All @@ -17,7 +17,7 @@
(:use #:cl (:use #:cl
#:anaphora #:anaphora
#:iterate #:iterate
#:alt.match #:optima
#:ruby-parser.ast) #:ruby-parser.ast)
(:shadow #:block #:variable) (:shadow #:block #:variable)
(:import-from #:alexandria (:import-from #:alexandria
Expand Down
4 changes: 2 additions & 2 deletions src/parser.lisp
Expand Up @@ -5,7 +5,7 @@
(iter (while (and (consp (car body)) (iter (while (and (consp (car body))
(keywordp (caar body)))) (keywordp (caar body))))
(collect (pop body))))) (collect (pop body)))))
`(alt.yacc:define-parser ,name `(lyacc:define-parser ,name
,@options ,@options
,@(iter (for (name . rhss) in body) ,@(iter (for (name . rhss) in body)
(for new-rhss = (for new-rhss =
Expand Down Expand Up @@ -1240,7 +1240,7 @@


(defun parse-from-stream (stream &key (sexp t)) (defun parse-from-stream (stream &key (sexp t))
(let* ((*state* (make-lexer (make-source-from-stream stream))) (let* ((*state* (make-lexer (make-source-from-stream stream)))
(ast (alt.yacc:parse-with-lexer *state* *parser*))) (ast (lyacc:parse-with-lexer *state* *parser*)))
(if sexp (if sexp
(ast-to-sexp ast) (ast-to-sexp ast)
ast))) ast)))
Expand Down

0 comments on commit 94de50f

Please sign in to comment.