-
Notifications
You must be signed in to change notification settings - Fork 17
/
Copy pathlisp-parser.elc
60 lines (56 loc) · 14.4 KB
/
lisp-parser.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
;ELC
;;; Compiled by toups@deluge on Tue Feb 1 17:47:23 2011
;;; from file /home/toups/elisp/utils/lisp-parser.el
;;; in Emacs version 23.1.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`lisp-parser.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\210\301\303!\210\304\305!\210\306\307!\211\310\311\312\"L\210\313\314\315\316\317\320\321D\322FE\"\210)\301\207" [#:--cl-also-ok-in-ids-- require monad-parse cl provide lisp-parser make-symbol "--also-ok-in-ids--" coerce "!@$%^&*_+-={}:.?/|" list defalias other-id-char\? lambda (&rest --cl-rest--) apply #[(#1=#:G42147 x) "\302 J\"\207" [x #1# in] 3] quote --cl-rest--] 9)
(defalias '=other-id-char #[nil "\300\301!\207" [=satisfies other-id-char\?] 2])
(byte-code "\300 \301\302!!\207" [=other-id-char ->in "|"] 3)
(defalias '=id-char #[nil "\300\301 \302 \"\207" [parser-plus-2 alphanumeric =other-id-char] 3])
(byte-code "\300 \301\302!!\207" [=id-char ->in "ab"] 3)
(defalias '=lisp-symbol #[nil "\306\307!\211 CL\210\306\310!\211J\311\234L\210\306\312!\211\313\nJ\314\"CL\210\306\315!\211 J\311\234L\210\306\316!\211 \313\nJ\317\"CL\210\306\320!\211 J\311\234L\210\fJ\321\322 !\323\324\325\326\327D\327D\327\fD\327 D\327\nD\327D\330\257 E\".\207" [#1=#:--cl-lambda-seq-as-sym42179-- monad-parse #2=#:--cl-monad42173-- #3=#:--cl-lambda-seq-as-sym42183-- #4=#:--cl-m-bind42174-- #5=#:--cl-lambda-seq-as-sym42187-- make-symbol "--lambda-seq-as-sym42179--" "--monad42173--" 0 "--lambda-seq-as-sym42183--" tbl :m-bind "--m-bind42174--" "--lambda-seq-as-sym42187--" :m-return "--m-return42175--" one-or-more =id-char lambda (&rest --cl-rest--) apply #[(#6=#:G42197 #7=#:G42198 #8=#:G42199 #9=#:G42200 #10=#:G42201 #11=#:G42202 &rest #12=#:G42188) "G\305 \306\"\203 \302J\307\234\fJ\310\311\303J\312\"!!*\202$ \313\314 \315#)\207" [#12# #13=#:G42189 #14=#:--cl-lambda-seq-as-sym42193-- #15=#:--cl-_-- #6# arity-match (1 exactly) 0 read coerce string error "Unable to find an arity match for %d args in fn %s." lambda] 5] quote --cl-rest-- #16=#:--cl-m-return42175--] 14])
(defalias '=numeric-sequence #[nil "\306\307!\211 CL\210\306\310!\211J\311\234L\210\306\312!\211\313\nJ\314\"CL\210\306\315!\211 J\311\234L\210\306\316!\211 \313\nJ\317\"CL\210\306\320!\211 J\311\234L\210\fJ\321\322 !\323\324\325\326\327D\327D\327\fD\327 D\327\nD\327D\330\257 E\".\207" [#1=#:--cl-lambda-seq-as-sym42234-- monad-parse #2=#:--cl-monad42228-- #3=#:--cl-lambda-seq-as-sym42238-- #4=#:--cl-m-bind42229-- #5=#:--cl-lambda-seq-as-sym42242-- make-symbol "--lambda-seq-as-sym42234--" "--monad42228--" 0 "--lambda-seq-as-sym42238--" tbl :m-bind "--m-bind42229--" "--lambda-seq-as-sym42242--" :m-return "--m-return42230--" one-or-more =digit-char lambda (&rest --cl-rest--) apply #[(#6=#:G42252 #7=#:G42253 #8=#:G42254 #9=#:G42255 #10=#:G42256 #11=#:G42257 &rest #12=#:G42243) "G\305 \306\"\203 \302J\307\234\fJ\310\303J\311\"!*\202\" \312\313 \314#)\207" [#12# #13=#:G42244 #14=#:--cl-lambda-seq-as-sym42248-- #15=#:--cl-_-- #6# arity-match (1 exactly) 0 coerce string error "Unable to find an arity match for %d args in fn %s." lambda] 4] quote --cl-rest-- #16=#:--cl-m-return42230--] 14])
(defalias '=int #[nil "\306\307!\211 CL\210\306\310!\211J\311\234L\210\306\312!\211\313\nJ\314\"CL\210\306\315!\211 J\311\234L\210\306\316!\211 \313\nJ\317\"CL\210\306\320!\211 J\311\234L\210\fJ\321\322\323\324!\323\325!\"!\326\327\330\331\332 D\332D\332\fD\332 D\332\nD\332D\333\257 E\".\207" [#1=#:--cl-lambda-seq-as-sym42289-- monad-parse #2=#:--cl-monad42283-- #3=#:--cl-lambda-seq-as-sym42293-- #4=#:--cl-m-bind42284-- #5=#:--cl-lambda-seq-as-sym42297-- make-symbol "--lambda-seq-as-sym42289--" "--monad42283--" 0 "--lambda-seq-as-sym42293--" tbl :m-bind "--m-bind42284--" "--lambda-seq-as-sym42297--" :m-return "--m-return42285--" zero-or-one =or =char->string 45 43 lambda #6=(&rest --cl-rest--) apply #[(#7=#:G42337 #8=#:G42338 #9=#:G42339 #10=#:G42340 #11=#:G42341 #12=#:G42342 &rest #13=#:G42298) "G\306 \307\"\203J \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314 \315\316\317\320\321 D\321\nD\321D\321D\321\fD\321D\321D\321D\322\257 E\"*\202O \323\324 \315#)\207" [#13# #14=#:G42299 #15=#:--cl-lambda-seq-as-sym42303-- #16=#:--cl-sign-- #9# #7# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym42303--" "--sign--" 0 =numeric-sequence lambda #6# apply #[(#17=#:G42329 #18=#:G42330 #19=#:G42331 #20=#:G42332 #21=#:G42333 #22=#:G42334 #23=#:G42335 #24=#:G42336 &rest #25=#:G42320) "G\306 \307\"\203 \302J\310\234\fJ\311J\303JP!!*\202$ \312\313 \314#)\207" [#25# #26=#:G42321 #27=#:--cl-lambda-seq-as-sym42325-- #28=#:--cl-s-- #19# #17# arity-match (1 exactly) 0 string-to-number error #29="Unable to find an arity match for %d args in fn %s." lambda] 4] quote --cl-rest-- error #29# #8# #10# #11# #12#] 16] quote --cl-rest-- #30=#:--cl-m-return42285--] 14])
(defalias '=char->string #[(char) "\306\307!\211 CL\210\306\310!\211J\311\234L\210\306\312!\211\313\nJ\314\"CL\210\306\315!\211 J\311\234L\210\306\316!\211 \313\nJ\317\"CL\210\306\320!\211 J\311\234L\210\fJ\321!\322\323\324\325\326D\326D\326\fD\326 D\326\nD\326D\327\257 E\".\207" [#1=#:--cl-lambda-seq-as-sym42374-- monad-parse #2=#:--cl-monad42368-- #3=#:--cl-lambda-seq-as-sym42378-- #4=#:--cl-m-bind42369-- #5=#:--cl-lambda-seq-as-sym42382-- make-symbol "--lambda-seq-as-sym42374--" "--monad42368--" 0 "--lambda-seq-as-sym42378--" tbl :m-bind "--m-bind42369--" "--lambda-seq-as-sym42382--" :m-return "--m-return42370--" =char lambda (&rest --cl-rest--) apply #[(#6=#:G42392 #7=#:G42393 #8=#:G42394 #9=#:G42395 #10=#:G42396 #11=#:G42397 &rest #12=#:G42383) "G\305 \306\"\203 \302J\307\234\fJ\310\303JC\311\"!*\202# \312\313 \314#)\207" [#12# #13=#:G42384 #14=#:--cl-lambda-seq-as-sym42388-- #15=#:--cl-_-- #6# arity-match (1 exactly) 0 coerce string error "Unable to find an arity match for %d args in fn %s." lambda] 4] quote --cl-rest-- #16=#:--cl-m-return42370-- char] 14])
(defalias '=number #[nil "\300\301 \302 \"\207" [=or =float =int] 3])
(defalias '=float #[nil "\306\307!\211 CL\210\306\310!\211J\311\234L\210\306\312!\211\313\nJ\314\"CL\210\306\315!\211 J\311\234L\210\306\316!\211 \313\nJ\317\"CL\210\306\320!\211 J\311\234L\210\fJ\321\322\323\324!\323\325!\"!\326\327\330\331\332 D\332D\332\fD\332 D\332\nD\332D\333\257 E\".\207" [#1=#:--cl-lambda-seq-as-sym42429-- monad-parse #2=#:--cl-monad42423-- #3=#:--cl-lambda-seq-as-sym42433-- #4=#:--cl-m-bind42424-- #5=#:--cl-lambda-seq-as-sym42437-- make-symbol "--lambda-seq-as-sym42429--" "--monad42423--" 0 "--lambda-seq-as-sym42433--" tbl :m-bind "--m-bind42424--" "--lambda-seq-as-sym42437--" :m-return "--m-return42425--" zero-or-one =or =char->string 43 45 lambda #6=(&rest --cl-rest--) apply #[(#7=#:G42543 #8=#:G42544 #9=#:G42545 #10=#:G42546 #11=#:G42547 #12=#:G42548 &rest #13=#:G42438) "G\306 \307\"\203L \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315 !\316\317\320\321\322 D\322\nD\322D\322D\322\fD\322D\322D\322D\323\257 E\"*\202Q \324\325 \316#)\207" [#13# #14=#:G42439 #15=#:--cl-lambda-seq-as-sym42443-- #16=#:--cl-sign-- #9# #7# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym42443--" "--sign--" 0 zero-or-more =digit-char lambda #6# apply #[(#17=#:G42535 #18=#:G42536 #19=#:G42537 #20=#:G42538 #21=#:G42539 #22=#:G42540 #23=#:G42541 #24=#:G42542 &rest #25=#:G42460) "G\306 \307\"\203S \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315!\316\317\320\321\322 D\322\nD\322D\322D\322D\322D\322\fD\322D\322D\322D\323\257E\"*\202X \324\325 \316#)\207" [#25# #26=#:G42461 #27=#:--cl-lambda-seq-as-sym42465-- #28=#:--cl-p1-- #21# #17# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym42465--" "--p1--" 0 =char 46 lambda #6# apply #[(#29=#:G42525 #30=#:G42526 #31=#:G42527 #32=#:G42528 #33=#:G42529 #34=#:G42530 #35=#:G42531 #36=#:G42532 #37=#:G42533 #38=#:G42534 &rest #39=#:G42482) "G\306 \307\"\203\\ \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315 !\316\317\320\321\322 D\322\nD\322D\322D\322D\322D\322D\322D\322\fD\322D\322 D\322 D\323\257E\"*\202a \324\325 \316#)\207" [#39# #40=#:G42483 #41=#:--cl-lambda-seq-as-sym42487-- #42=#:--cl-dot-- #35# #29# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym42487--" "--dot--" 0 one-or-more =digit-char lambda #6# apply #[(#43=#:G42513 #44=#:G42514 #45=#:G42515 #46=#:G42516 #47=#:G42517 #48=#:G42518 #49=#:G42519 #50=#:G42520 #51=#:G42521 #52=#:G42522 #53=#:G42523 #54=#:G42524 &rest #55=#:G42504) "G\306 \307\"\203# \302J\310\234\fJ\311JJ\312\303JR!!*\202( \313\314 \315#)\207" [#55# #56=#:G42505 #57=#:--cl-lambda-seq-as-sym42509-- #58=#:--cl-p2-- #49# #47# arity-match (1 exactly) 0 string-to-number "." error #59="Unable to find an arity match for %d args in fn %s." lambda #45#] 6] quote --cl-rest-- error #59# #30# #31# #32# #33# #34# #36# #37# #38#] 20] quote --cl-rest-- error #59# #18# #19# #20# #22# #23# #24#] 18] quote --cl-rest-- error #59# #8# #10# #11# #12#] 16] quote --cl-rest-- #60=#:--cl-m-return42425--] 14])
(byte-code "\302\303\304\"\210\303\305\303!\210\210)\306\302\207" [#:defunc-val42549 space defalias =escaped-quote #[nil "\306\307!\211 CL\210\306\310!\211J\311\234L\210\306\312!\211\313\nJ\314\"CL\210\306\315!\211 J\311\234L\210\306\316!\211 \313\nJ\317\"CL\210\306\320!\211 J\311\234L\210\fJ\321\322!\323\324\325\326\327D\327D\327\fD\327 D\327\nD\327D\330\257 E\".\207" [#:--cl-lambda-seq-as-sym42581-- monad-parse #:--cl-monad42575-- #:--cl-lambda-seq-as-sym42585-- #:--cl-m-bind42576-- #:--cl-lambda-seq-as-sym42589-- make-symbol "--lambda-seq-as-sym42581--" "--monad42575--" 0 "--lambda-seq-as-sym42585--" tbl :m-bind "--m-bind42576--" "--lambda-seq-as-sym42589--" :m-return "--m-return42577--" =string "\\\"" lambda (&rest --cl-rest--) apply #[(#1=#:G42599 #:G42600 #:G42601 #:G42602 #:G42603 #:G42604 &rest #2=#:G42590) "G\305 \306\"\203 \302J\307\234\fJ\303J\205 \310!*\202# \311\312 \313#)\207" [#2# #:G42591 #:--cl-lambda-seq-as-sym42595-- #:--cl-_-- #1# arity-match (1 exactly) 0 34 error "Unable to find an arity match for %d args in fn %s." lambda] 4] quote --cl-rest-- #:--cl-m-return42577--] 14] byte-compile 32] 3)
(defalias '=spaces #[nil "\300\301\302!!\207" [zero-or-more =char 32] 3])
(defalias '=space #[nil "\300\301!\207" [=char 32] 2])
(defalias '=lisp-atom #[nil "\306\307!\211 CL\210\306\310!\211J\311\234L\210\306\312!\211\313\nJ\314\"CL\210\306\315!\211 J\311\234L\210\306\316!\211 \313\nJ\317\"CL\210\306\320!\211 J\311\234L\210\fJ\321 \322\323\324\325\326D\326D\326\fD\326 D\326\nD\326D\327\257 E\".\207" [#1=#:--cl-lambda-seq-as-sym42636-- monad-parse #2=#:--cl-monad42630-- #3=#:--cl-lambda-seq-as-sym42640-- #4=#:--cl-m-bind42631-- #5=#:--cl-lambda-seq-as-sym42644-- make-symbol "--lambda-seq-as-sym42636--" "--monad42630--" 0 "--lambda-seq-as-sym42640--" tbl :m-bind "--m-bind42631--" "--lambda-seq-as-sym42644--" :m-return "--m-return42632--" =spaces lambda #6=(&rest --cl-rest--) apply #[(#7=#:G42684 #8=#:G42685 #9=#:G42686 #10=#:G42687 #11=#:G42688 #12=#:G42689 &rest #13=#:G42645) "G\306 \307\"\203P \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315 \316 \317 #\320\321\322\323\324 D\324\nD\324D\324D\324\fD\324D\324D\324D\325\257 E\"*\202U \326\327 \320#)\207" [#13# #14=#:G42646 #15=#:--cl-lambda-seq-as-sym42650-- #16=#:--cl-_-- #9# #7# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym42650--" "--_--" 0 =or =number =lisp-string =lisp-symbol lambda #6# apply #[(#17=#:G42676 #18=#:G42677 #19=#:G42678 #20=#:G42679 #21=#:G42680 #22=#:G42681 #23=#:G42682 #24=#:G42683 &rest #25=#:G42667) "G\305 \306\"\203 \302J\307\234\fJ\303J!*\202 \310\311 \312#)\207" [#25# #26=#:G42668 #27=#:--cl-lambda-seq-as-sym42672-- #28=#:--cl-atom-- #19# arity-match (1 exactly) 0 error #29="Unable to find an arity match for %d args in fn %s." lambda] 4] quote --cl-rest-- error #29# #8# #10# #11# #12#] 16] quote --cl-rest-- #30=#:--cl-m-return42632--] 14])
(byte-code "\301\302\303\"\210\302\304\302!\210\210)\301\207" [#:defunc-val42690 defalias =lisp-string #[nil "\306\307!\211 CL\210\306\310!\211J\311\234L\210\306\312!\211\313\nJ\314\"CL\210\306\315!\211 J\311\234L\210\306\316!\211 \313\nJ\317\"CL\210\306\320!\211 J\311\234L\210\fJ\321\322!\323\324\325\326\327D\327D\327\fD\327 D\327\nD\327D\330\257 E\".\207" [#:--cl-lambda-seq-as-sym42722-- monad-parse #:--cl-monad42716-- #:--cl-lambda-seq-as-sym42726-- #:--cl-m-bind42717-- #:--cl-lambda-seq-as-sym42730-- make-symbol "--lambda-seq-as-sym42722--" "--monad42716--" 0 "--lambda-seq-as-sym42726--" tbl :m-bind "--m-bind42717--" "--lambda-seq-as-sym42730--" :m-return "--m-return42718--" =char 34 lambda #1=(&rest --cl-rest--) apply #[(#2=#:G42802 #3=#:G42803 #4=#:G42804 #5=#:G42805 #6=#:G42806 #7=#:G42807 &rest #8=#:G42731) "G\306 \307\"\203Q \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315\316 \317\320!\"!\321\322\323\324\325 D\325\nD\325D\325D\325\fD\325D\325D\325 D\326\257 E\"*\202V \327\330 \321#)\207" [#8# #:G42732 #:--cl-lambda-seq-as-sym42736-- #:--cl-_-- #4# #2# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym42736--" "--_--" 0 zero-or-more =or =escaped-quote =satisfies #[(c) "\302\301J\303\")\207" [c #:--cl-c-- != 34] 3] lambda #1# apply #[(#9=#:G42794 #10=#:G42795 #11=#:G42796 #12=#:G42797 #13=#:G42798 #14=#:G42799 #15=#:G42800 #16=#:G42801 &rest #17=#:G42753) "G\306 \307\"\203S \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315!\316\317\320\321\322 D\322\nD\322D\322D\322D\322D\322\fD\322D\322D\322D\323\257E\"*\202X \324\325 \316#)\207" [#17# #:G42754 #:--cl-lambda-seq-as-sym42758-- #:--cl-contents-- #13# #9# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym42758--" "--contents--" 0 =char 34 lambda #1# apply #[(#18=#:G42784 #:G42785 #:G42786 #:G42787 #19=#:G42788 #:G42789 #:G42790 #:G42791 #:G42792 #:G42793 &rest #20=#:G42775) "G\306 \307\"\203 \302J\310\234\fJ\311\312J!\313\"!*\202$ \314\315 \316#)\207" [#20# #:G42776 #:--cl-lambda-seq-as-sym42780-- #:--cl-_-- #19# #18# arity-match (1 exactly) 0 coerce flatten string error #21="Unable to find an arity match for %d args in fn %s." lambda] 4] quote --cl-rest-- error #21# #10# #11# #12# #14# #15# #16#] 18] quote --cl-rest-- error #21# #3# #5# #6# #7#] 16] quote --cl-rest-- #:--cl-m-return42718--] 14] byte-compile] 3)