-
Notifications
You must be signed in to change notification settings - Fork 17
/
Copy pathmicrostack.elc
106 lines (102 loc) · 23.3 KB
/
microstack.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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
;ELC
;;; Compiled by toups@deluge on Fri Mar 25 14:41:17 2011
;;; from file /home/toups/elisp/utils/microstack.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 "`microstack.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\303\304!\210\303\305!\210\303\306!\210\303\307!\210\303\310!\210\311\312!\210\313\314\315\"\210\314\316\314!\210\210)\313\317\320\"\210\317\316\317!\210 \210)\313\321\322\"\210\321\316\321!\210\n\210)\303\207" [#:defunc-val45003 #:defunc-val45092 #:defunc-val45181 require lisp-parser functional with-stack stack-words multi-methods provide microstack defalias =microstack-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\306\321!\306\322!\306\323! $ %\211 &\324L\210%\324L\210$\324L\210&\325\326\327\330\331$D\331%D\331&D\331#D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210%\325\326\327\333\331$D\331%D\331&D\331#D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210$\325\326\327\334\331$D\331%D\331&D\331#D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210\fJ\335\336 \337 \340 #\341\325\326\327\342\331$D\331%D\331&D\331#D\331D\331\fD\331 D\331\nD\331D\332\257\fE!\". \207" [#:--cl-lambda-seq-as-sym45035-- monad-parse #:--cl-monad45029-- #:--cl-lambda-seq-as-sym45039-- #:--cl-m-bind45030-- #:--cl-lambda-seq-as-sym45043-- make-symbol "--lambda-seq-as-sym45035--" "--monad45029--" 0 "--lambda-seq-as-sym45039--" tbl :m-bind "--m-bind45030--" "--lambda-seq-as-sym45043--" :m-return "--m-return45031--" "----cl-var--45046--" "----cl-var--45045--" "----cl-var--45044--" nil lambda #1=(&rest --cl-rest--) apply #[(#:G45047 #:G45048 #:G45049 #2=#:G45050 #:G45051 #:G45052 #:G45053 #:G45054 #:G45055 x) "J !\207" [#2# x] 2] quote --cl-rest-- #[(#:G45056 #:G45057 #:G45058 #:G45059 #:G45060 #3=#:G45061 #:G45062 #:G45063 #:G45064 v f) "J \n\"\207" [#3# v f] 3] #[(#:G45065 #:G45066 #:G45067 #:G45068 #:G45069 #4=#:G45070 #:G45071 #:G45072 #:G45073 v f) "J \n\"\207" [#4# v f] 3] =or letter =space =other-id-char byte-compile #[(#:G45083 #:G45084 #:G45085 #5=#:G45086 #:G45087 #:G45088 #:G45089 #:G45090 #:G45091 &rest #6=#:G45074) "G\305 \306\"\2030 \307\310!\211L\210\307\311!\211\nJ\312\234L\210\fJ J\205+ \313 JC\260!!*\2025 \314\315 \316#)\207" [#6# #:G45075 #:--cl-lambda-seq-as-sym45079-- #:--cl-_-- #5# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym45079--" "--_--" 0 intern error #7="Unable to find an arity match for %d args in fn %s." lambda] 5] #:--cl-m-return45031-- #:--cl---cl-var--45044-- #:--cl---cl-var--45045-- #:--cl---cl-var--45046--] 18 "Parser for a microstack symbol, or a space (no-op)."] byte-compile =escaped-close-bracket #[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\306\321!\306\322!\306\323! \" #\211 $\324L\210#\324L\210\"\324L\210$\325\326\327\330\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210#\325\326\327\333\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210\"\325\326\327\334\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210\fJ\335\336!\337\325\326\327\340\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fE!\". \207" [#:--cl-lambda-seq-as-sym45124-- monad-parse #:--cl-monad45118-- #:--cl-lambda-seq-as-sym45128-- #:--cl-m-bind45119-- #:--cl-lambda-seq-as-sym45132-- make-symbol "--lambda-seq-as-sym45124--" "--monad45118--" 0 "--lambda-seq-as-sym45128--" tbl :m-bind "--m-bind45119--" "--lambda-seq-as-sym45132--" :m-return "--m-return45120--" "----cl-var--45135--" "----cl-var--45134--" "----cl-var--45133--" nil lambda #1# apply #[(#:G45136 #:G45137 #:G45138 #8=#:G45139 #:G45140 #:G45141 #:G45142 #:G45143 #:G45144 x) "J !\207" [#8# x] 2] quote --cl-rest-- #[(#:G45145 #:G45146 #:G45147 #:G45148 #:G45149 #9=#:G45150 #:G45151 #:G45152 #:G45153 v f) "J \n\"\207" [#9# v f] 3] #[(#:G45154 #:G45155 #:G45156 #:G45157 #:G45158 #10=#:G45159 #:G45160 #:G45161 #:G45162 v f) "J \n\"\207" [#10# v f] 3] =string "\\]" byte-compile #[(#:G45172 #:G45173 #:G45174 #11=#:G45175 #:G45176 #:G45177 #:G45178 #:G45179 #:G45180 &rest #12=#:G45163) "G\305 \306\"\203* \307\310!\211L\210\307\311!\211\nJ\312\234L\210\fJ J\205% \313!*\202/ \314\315 \316#)\207" [#12# #:G45164 #:--cl-lambda-seq-as-sym45168-- #:--cl-_-- #11# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym45168--" "--_--" 0 34 error #7# lambda] 5] #:--cl-m-return45120-- #:--cl---cl-var--45133-- #:--cl---cl-var--45134-- #:--cl---cl-var--45135--] 18 "Parse an escaped close bracket."] =single-quote-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\306\321!\306\322!\306\323! \" #\211 $\324L\210#\324L\210\"\324L\210$\325\326\327\330\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210#\325\326\327\333\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210\"\325\326\327\334\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210\fJ\335\336!\337\325\326\327\340\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fE!\". \207" [#:--cl-lambda-seq-as-sym45213-- monad-parse #:--cl-monad45207-- #:--cl-lambda-seq-as-sym45217-- #:--cl-m-bind45208-- #:--cl-lambda-seq-as-sym45221-- make-symbol "--lambda-seq-as-sym45213--" "--monad45207--" 0 "--lambda-seq-as-sym45217--" tbl :m-bind "--m-bind45208--" "--lambda-seq-as-sym45221--" :m-return "--m-return45209--" "----cl-var--45224--" "----cl-var--45223--" "----cl-var--45222--" nil lambda #1# apply #[(#:G45225 #:G45226 #:G45227 #13=#:G45228 #:G45229 #:G45230 #:G45231 #:G45232 #:G45233 x) "J !\207" [#13# x] 2] quote --cl-rest-- #[(#:G45234 #:G45235 #:G45236 #:G45237 #:G45238 #14=#:G45239 #:G45240 #:G45241 #:G45242 v f) "J \n\"\207" [#14# v f] 3] #[(#:G45243 #:G45244 #:G45245 #:G45246 #:G45247 #15=#:G45248 #:G45249 #:G45250 #:G45251 v f) "J \n\"\207" [#15# v f] 3] =char 39 byte-compile #[(#16=#:G45329 #17=#:G45330 #18=#:G45331 #19=#:G45332 #20=#:G45333 #21=#:G45334 #22=#:G45335 #23=#:G45336 #24=#:G45337 &rest #25=#:G45252) "G\306 \307\"\203_ \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315\316 \317\320!\"!\321\322\323\324\325\326 D\326\nD\326D\326D\326D\326 D\326 D\326\fD\326 D\326 D\326 D\327\257E!\"*\202d \330\331 \322#)\207" [#25# #:G45253 #:--cl-lambda-seq-as-sym45257-- #:--cl-_-- #21# #16# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym45257--" "--_--" 0 zero-or-more =or =escaped-close-bracket =satisfies #[(c) "\302\303!\211 L\210\304J\305\")\207" [#:--cl-c-- c make-symbol "--c--" != 39] 4] byte-compile lambda #1# apply #[(#26=#:G45318 #27=#:G45319 #28=#:G45320 #29=#:G45321 #30=#:G45322 #31=#:G45323 #32=#:G45324 #33=#:G45325 #34=#:G45326 #35=#:G45327 #36=#:G45328 &rest #37=#:G45274) "G\306 \307\"\203a \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315!\316\317\320\321\322\323 D\323\nD\323D\323D\323D\323D\323D\323D\323 D\323\fD\323 D\323 D\323 D\324\257E!\"*\202f \325\326 \317#)\207" [#37# #:G45275 #:--cl-lambda-seq-as-sym45279-- #:--cl-contents-- #33# #26# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym45279--" "--contents--" 0 =char 39 byte-compile lambda #1# apply #[(#38=#:G45305 #:G45306 #:G45307 #:G45308 #:G45309 #:G45310 #:G45311 #39=#:G45312 #:G45313 #:G45314 #:G45315 #:G45316 #:G45317 &rest #40=#:G45296) "G\306 \307\"\203+ \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315J!\316\"!*\2020 \317\320 \321#)\207" [#40# #:G45297 #:--cl-lambda-seq-as-sym45301-- #:--cl-_-- #39# #38# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym45301--" "--_--" 0 coerce flatten string error #7# lambda] 5] quote --cl-rest-- error #7# #27# #28# #29# #30# #31# #32# #34# #35# #36#] 22] quote --cl-rest-- error #7# #17# #18# #19# #20# #22# #23# #24#] 20] #:--cl-m-return45209-- #:--cl---cl-var--45222-- #:--cl---cl-var--45223-- #:--cl---cl-var--45224--] 18]] 3)
(defalias '=microstack-string #[nil "\300\301 \302 \"\207" [=or =single-quote-string =lisp-string] 3])
(defalias '=microstack-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\306\321!\306\322!\306\323! \" #\211 $\324L\210#\324L\210\"\324L\210$\325\326\327\330\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210#\325\326\327\333\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210\"\325\326\327\334\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fEL\210\fJ\335\336!\337\325\326\327\340\331\"D\331#D\331$D\331!D\331D\331\fD\331 D\331\nD\331D\332\257\fE!\". \207" [#1=#:--cl-lambda-seq-as-sym45369-- monad-parse #2=#:--cl-monad45363-- #3=#:--cl-lambda-seq-as-sym45373-- #4=#:--cl-m-bind45364-- #5=#:--cl-lambda-seq-as-sym45377-- make-symbol "--lambda-seq-as-sym45369--" "--monad45363--" 0 "--lambda-seq-as-sym45373--" tbl :m-bind "--m-bind45364--" "--lambda-seq-as-sym45377--" :m-return "--m-return45365--" "----cl-var--45380--" "----cl-var--45379--" "----cl-var--45378--" nil lambda #6=(&rest --cl-rest--) apply #[(#7=#:G45381 #8=#:G45382 #9=#:G45383 #10=#:G45384 #11=#:G45385 #12=#:G45386 #13=#:G45387 #14=#:G45388 #15=#:G45389 x) "J !\207" [#10# x] 2] quote --cl-rest-- #[(#16=#:G45390 #17=#:G45391 #18=#:G45392 #19=#:G45393 #20=#:G45394 #21=#:G45395 #22=#:G45396 #23=#:G45397 #24=#:G45398 v f) "J \n\"\207" [#21# v f] 3] #[(#25=#:G45399 #26=#:G45400 #27=#:G45401 #28=#:G45402 #29=#:G45403 #30=#:G45404 #31=#:G45405 #32=#:G45406 #33=#:G45407 v f) "J \n\"\207" [#30# v f] 3] =char 91 byte-compile #[(#34=#:G45485 #35=#:G45486 #36=#:G45487 #37=#:G45488 #38=#:G45489 #39=#:G45490 #40=#:G45491 #41=#:G45492 #42=#:G45493 &rest #43=#:G45408) "G\306 \307\"\203X \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\322\fD\322D\322D\322 D\323\257E!\"*\202] \324\325 \316#)\207" [#43# #44=#:G45409 #45=#:--cl-lambda-seq-as-sym45413-- #46=#:--cl-_-- #39# #34# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym45413--" "--_--" 0 microstack-parser byte-compile lambda #6# apply #[(#47=#:G45474 #48=#:G45475 #49=#:G45476 #50=#:G45477 #51=#:G45478 #52=#:G45479 #53=#:G45480 #54=#:G45481 #55=#:G45482 #56=#:G45483 #57=#:G45484 &rest #58=#:G45430) "G\306 \307\"\203a \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314\315!\316\317\320\321\322\323 D\323\nD\323D\323D\323D\323D\323D\323D\323 D\323\fD\323 D\323 D\323 D\324\257E!\"*\202f \325\326 \317#)\207" [#58# #59=#:G45431 #60=#:--cl-lambda-seq-as-sym45435-- #61=#:--cl-contents-- #54# #47# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym45435--" "--contents--" 0 =char 93 byte-compile lambda #6# apply #[(#62=#:G45461 #63=#:G45462 #64=#:G45463 #65=#:G45464 #66=#:G45465 #67=#:G45466 #68=#:G45467 #69=#:G45468 #70=#:G45469 #71=#:G45470 #72=#:G45471 #73=#:G45472 #74=#:G45473 &rest #75=#:G45452) "G\306 \307\"\203( \310\311!\211L\210\310\312!\211\nJ\313\234L\210\fJ\314J!!*\202- \315\316 \317#)\207" [#75# #76=#:G45453 #77=#:--cl-lambda-seq-as-sym45457-- #78=#:--cl-_-- #69# #62# arity-match (1 exactly) make-symbol "--lambda-seq-as-sym45457--" "--_--" 0 translate-microstack error #79="Unable to find an arity match for %d args in fn %s." lambda] 5] quote --cl-rest-- error #79# #48# #49# #50# #51# #52# #53# #55# #56# #57#] 22] quote --cl-rest-- error #79# #35# #36# #37# #38# #40# #41# #42#] 20] #80=#:--cl-m-return45365-- #81=#:--cl---cl-var--45378-- #82=#:--cl---cl-var--45379-- #83=#:--cl---cl-var--45380--] 18])
#@37 Parser for the microstack language.
(defalias 'microstack-parser #[nil "\300\301\302 \303 \304 \305 $!\207" [zero-or-more =or =number =microstack-symbol =microstack-string =microstack-quote] 6 (#$ . 12289)])
#@114 Parse the microstack language and return the results as a sequence of symbols, numbers, strings. Remove no-ops.
(defalias 'parse-microstack #[(code) "\301\302\303!\304\305 \"@\"\207" [code filter f-not #[(&rest #1=#:clambdal-arglist-45494) "\301\302\303\304\305!C\"\"\207" [#1# apply eq append intern " "] 6] parse-string-det microstack-parser] 5 (#$ . 12504)])
#@30 Dispatch for generic motion.
(defalias 'move-dispatcher #[(object) "\247\203 \301\207<\203 @\207\302\207" [object :char nil] 1 (#$ . 12875)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list --move-default-method default-boundp set-default nil] 3)
#@29 dispatch hierarchy for move
(defvar --move-hierarchy-table nil (#$ . 13166))
(byte-code "\302\207" [*multi-method-heirarchy* --move-hierarchy-table nil] 1)
#@25 dispatch-table for move
(defvar --move-dispatch-table (alist>>) (#$ . 13330))
(byte-code "\304 \305\303\nB\306\303\307\310#\210\311\303!\204 \312\303 \"\210 \313 !\204. \314\315\316 \211#!\210\317 !)\304\207" [--move-dispatch-table #:G45512 current-load-list --move-dispatcher alist>> move-dispatcher put variable-documentation "dispatch-function for move" default-boundp set-default functionp print format "Creating a dispatch function for %S. You may need to define %S before declaring the multimethod if you don't mean to use table-based dispatch." make-keyword-accessor] 5)
#@28 A generic motion function.
(defalias 'move #[(&rest #1=#:multi-move-args45510) "\306\307\n \"\f\310\311\312\"\312\"$\211 \203 \307 \"\202* \313\314\315 \307\n \"#!*\207" [--move-hierarchy-table *multi-method-heirarchy* --move-dispatcher #1# --move-dispatch-table *preferred-dispatch-table* isa-dispatch-memo apply make-resolve-by-table alist move error format "No known method for args %S for multimethod move.\n Dispatch value is: %S" --move-default-method #2=#:multi-move-holder45511] 8 (#$ . 13921)])
(byte-code "\306 \307 \210)\310 \311#)\312 \307 \210)\310 \313\f#)\314 \307 \210)\310 \315#)\316 \307 \210)\310 \317#)\320\311\321\"\210\320\322\321\"\210\320\313\322\"\210\320\317\322\"\210\320\315\322\"\210\323B\324\323!\204h \325\323\326\"\210\326\207" [#:G45513 --move-hierarchy-table *multi-method-heirarchy* --move-dispatch-table #:G45514 #:G45515 #[(movement) "<\203 \211A@)\202 \211u)\207" [movement x n] 2] clear-dispatch-cache alist-equal>> :char #[(movement) "\211A@)v\207" [movement x] 2] :word #[(movement) "\302 \210\211A@)y\207" [movement x beginning-of-line] 2] :line #[(movement) "\302\211A@)!\207" [movement x forward-paragraph] 3] :paragraph derives-from :movement-type :movement-type-with-extent --move-kill-default-method default-boundp set-default nil #:G45516 current-load-list] 4)
#@34 dispatch hierarchy for move-kill
(defvar --move-kill-hierarchy-table nil (#$ . 15280))
(byte-code "\302\207" [*multi-method-heirarchy* --move-kill-hierarchy-table nil] 1)
#@30 dispatch-table for move-kill
(defvar --move-kill-dispatch-table (alist>>) (#$ . 15459))
(byte-code "\304 \305\303\nB\306\303\307\310#\210\311\303!\204 \312\303 \"\210 \313 !\204. \314\315\316 \211#!\210\317 !)\304\207" [--move-kill-dispatch-table #:G45545 current-load-list --move-kill-dispatcher alist>> move-dispatcher put variable-documentation "dispatch-function for move-kill" default-boundp set-default functionp print format "Creating a dispatch function for %S. You may need to define %S before declaring the multimethod if you don't mean to use table-based dispatch." make-keyword-accessor] 5)
#@26 Generic deletion method.
(defalias 'move-kill #[(&rest #1=#:multi-move-kill-args45543) "\306\307\n \"\f\310\311\312\"\312\"$\211 \203 \307 \"\202* \313\314\315 \307\n \"#!*\207" [--move-kill-hierarchy-table *multi-method-heirarchy* --move-kill-dispatcher #1# --move-kill-dispatch-table *preferred-dispatch-table* isa-dispatch-memo apply make-resolve-by-table alist move-kill error format "No known method for args %S for multimethod move-kill.\n Dispatch value is: %S" --move-kill-default-method #2=#:multi-move-kill-holder45544] 8 (#$ . 16075)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list --pre-delete-movement-default-method default-boundp set-default nil] 3)
#@44 dispatch hierarchy for pre-delete-movement
(defvar --pre-delete-movement-hierarchy-table nil (#$ . 16791))
(byte-code "\302\207" [*multi-method-heirarchy* --pre-delete-movement-hierarchy-table nil] 1)
#@40 dispatch-table for pre-delete-movement
(defvar --pre-delete-movement-dispatch-table (alist>>) (#$ . 17000))
(byte-code "\304 \305\303\nB\306\303\307\310#\210\311\303!\204 \312\303 \"\210 \313 !\204. \314\315\316 \211#!\210\317 !)\304\207" [--pre-delete-movement-dispatch-table #:G45548 current-load-list --pre-delete-movement-dispatcher alist>> move-dispatcher put variable-documentation "dispatch-function for pre-delete-movement" default-boundp set-default functionp print format "Creating a dispatch function for %S. You may need to define %S before declaring the multimethod if you don't mean to use table-based dispatch." make-keyword-accessor] 5)
#@32 Handle movement before delete.
(defalias 'pre-delete-movement #[(&rest #1=#:multi-pre-delete-movement-args45546) "\306\307\n \"\f\310\311\312\"\312\"$\211 \203 \307 \"\202* \313\314\315 \307\n \"#!*\207" [--pre-delete-movement-hierarchy-table *multi-method-heirarchy* --pre-delete-movement-dispatcher #1# --pre-delete-movement-dispatch-table *preferred-dispatch-table* isa-dispatch-memo apply make-resolve-by-table alist pre-delete-movement error format "No known method for args %S for multimethod pre-delete-movement.\n Dispatch value is: %S" --pre-delete-movement-default-method #2=#:multi-pre-delete-movement-holder45547] 8 (#$ . 17666)])
(byte-code "\305 \306 \210)\307 \310#)\311\fB\312\311!\204 \313\311\314\"\210\314\207" [#:G45549 --pre-delete-movement-hierarchy-table *multi-method-heirarchy* --pre-delete-movement-dispatch-table current-load-list #[(movement) "\300\207" [nil] 1] clear-dispatch-cache alist-equal>> :movement-type --post-delete-movement-default-method default-boundp set-default nil] 4)
#@45 dispatch hierarchy for post-delete-movement
(defvar --post-delete-movement-hierarchy-table nil (#$ . 18702))
(byte-code "\302\207" [*multi-method-heirarchy* --post-delete-movement-hierarchy-table nil] 1)
#@41 dispatch-table for post-delete-movement
(defvar --post-delete-movement-dispatch-table (alist>>) (#$ . 18914))
(byte-code "\304 \305\303\nB\306\303\307\310#\210\311\303!\204 \312\303 \"\210 \313 !\204. \314\315\316 \211#!\210\317 !)\304\207" [--post-delete-movement-dispatch-table #:G45552 current-load-list --post-delete-movement-dispatcher alist>> move-dispatcher put variable-documentation "dispatch-function for post-delete-movement" default-boundp set-default functionp print format "Creating a dispatch function for %S. You may need to define %S before declaring the multimethod if you don't mean to use table-based dispatch." make-keyword-accessor] 5)
#@32 Handle movement before delete.
(defalias 'post-delete-movement #[(&rest #1=#:multi-post-delete-movement-args45550) "\306\307\n \"\f\310\311\312\"\312\"$\211 \203 \307 \"\202* \313\314\315 \307\n \"#!*\207" [--post-delete-movement-hierarchy-table *multi-method-heirarchy* --post-delete-movement-dispatcher #1# --post-delete-movement-dispatch-table *preferred-dispatch-table* isa-dispatch-memo apply make-resolve-by-table alist post-delete-movement error format "No known method for args %S for multimethod post-delete-movement.\n Dispatch value is: %S" --post-delete-movement-default-method #2=#:multi-post-delete-movement-holder45551] 8 (#$ . 19585)])
(byte-code "\304 \305 \210)\306 \307#)\305\207" [#:G45553 --post-delete-movement-hierarchy-table *multi-method-heirarchy* --post-delete-movement-dispatch-table #[(movement) "\300\207" [nil] 1] clear-dispatch-cache alist-equal>> :movement-type] 4)
(defalias 'bounds-of-thing-at-point-kw #[(kw) "\301\302!!\207" [kw bounds-of-thing-at-point keyword->symbol] 3])
(byte-code "\306 \307 \210)\310 \311#)\312 \307 \210)\310 \311\f# )\307\207" [#:G45554 --pre-delete-movement-hierarchy-table *multi-method-heirarchy* --pre-delete-movement-dispatch-table #:G45555 --post-delete-movement-hierarchy-table #[(movement) "\305@!\211@ A\306\211 A@)!\203 \nb\2027 \307\211 A@)!\203+ b\2027 \310\211 A@)!\2057 \311+\207" [movement thing-bounds start stop x bounds-of-thing-at-point-kw positive\? negative\? zero\? nil] 3] clear-dispatch-cache alist-equal>> :movement-type-with-extent #[(movement) "\305@!\211@ A\306\211 A@)!\203 b\2027 \307\211 A@)!\203+ \nb\2027 \310\211 A@)!\2057 \311+\207" [movement thing-bounds start stop x bounds-of-thing-at-point-kw positive\? negative\? zero\? nil] 3] --post-delete-movement-dispatch-table] 4)
(defalias 'point-in-word\? #[nil "\212`\301v\210\302v\210\303`\"*\207" [pt -1 nil !=] 3])
(byte-code "\305 \306 \210)\307 \310#)\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\211\345\211\346\211\347\350\312\351\352\353\354\355\356\357\360\211\361\211\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201@ \201A \201B \201C \201D \201E !\201F \201D \201G !\201H \201D \201I !\201J \201D \201K !\201L \201D \201M !\201N \201D \201O !\201P \201D \201Q !\201R \201D \201S !\201T \201D \201U !\201V \201W \201X \201Y \201Z \201[ \201\\ \201] \201^ &Z\350\207" [#:G45556 --move-kill-hierarchy-table *multi-method-heirarchy* --move-kill-dispatch-table micro-stack-map #[(movement) "\303\211\304\n!\210`\305\n!\210\306\n!\210`\307 \"*\207" [p2 p1 movement nil pre-delete-movement move post-delete-movement kill-region] 3] clear-dispatch-cache alist-equal>> :movement-type tbl! m move k kill l line w word y sym p paragraph P page e s-expression G make-quantity-of q microstack->quotation Q string->quotation ! call 32 if + - t _ nil 0>push-mark M 0>mark g 1>goto-char x kill-current-region * / = 2>equal N do-n-times L loop { {{ } }} s 1>search-forward S 1>search-forward-regexp c concat o rot intern "," print-stack ":" dup "$" swap "#" length "@" char-at-point->string "." print "%" format "|" compose "^" curry U loop-until u loop-until-char W loop-while i insert] 91)
#@106 Translate the single character symbols to their stack words. Process special microstack behavior words.
(defalias 'translate-microstack #[(code) "\306\211 :\203C @\307\n9\203) \310\f\n\"\211 \203\" C\202% \311\312!)\2028 \n<\2036 \313\314\nDD\2028 \nC! \244 A\211\202 \237+\207" [code #1=#:--cl-var-- el #2=#:--cl-var-- micro-stack-map trans nil reverse tbl error "Unknown microstack word." lisp-val: quote] 5 (#$ . 22855)])
(defalias 'parse-and-translate-microstack #[(code) "\301\302!!\207" [code translate-microstack parse-microstack] 3])
#@114 Evaluate the parsed and translated CODE for a microstack statement. Should be regular stack code at this point.
(defalias 'do-microstack-parsed-translated #[(code) "\301\302B!\207" [code eval |||p] 3 (#$ . 23417)])
#@59 Parse, translated and execute the microstack code in STR.
(defalias 'do-microstack #[(str) "\302!\303 !\304 !\210\305 !*\207" [str code parse-microstack translate-microstack print do-microstack-parsed-translated] 2 (#$ . 23640) "s"])