;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\306\307\"\203\301\310!\210\2028\311\312\313\314#\210\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210\315\324\325\"\210\314\207" [emacs-version require cl-lib imenu js etags version< "25.0" js2-old-indent defvaralias js2-basic-offset js-indent-level nil defalias js2-proper-indentation js--proper-indentation js2-jsx-indent-line js-jsx-indent-line js2-indent-line js-indent-line js2-re-search-forward js--re-search-forward] 4) #@63 Ecma-262 externs. Never highlighted as undeclared variables. (defvar js2-ecma-262-externs (mapcar 'symbol-name '(Array Boolean Date Error EvalError Function Infinity JSON Math NaN Number Object RangeError ReferenceError RegExp String SyntaxError TypeError URIError decodeURI decodeURIComponent encodeURI encodeURIComponent escape eval isFinite isNaN parseFloat parseInt undefined unescape)) (#$ . 909)) #@121 Browser externs. You can cause these to be included or excluded with the custom variable `js2-include-browser-externs'. (defvar js2-browser-externs (mapcar 'symbol-name '(Attr CDATASection CharacterData Comment DOMException DOMImplementation Document DocumentFragment DocumentType Element Entity EntityReference ExceptionCode NamedNodeMap Node NodeList Notation ProcessingInstruction Text HTMLAnchorElement HTMLAppletElement HTMLAreaElement HTMLBRElement HTMLBaseElement HTMLBaseFontElement HTMLBodyElement HTMLButtonElement HTMLCollection HTMLDListElement HTMLDirectoryElement HTMLDivElement HTMLDocument HTMLElement HTMLFieldSetElement HTMLFontElement HTMLFormElement HTMLFrameElement HTMLFrameSetElement HTMLHRElement HTMLHeadElement HTMLHeadingElement HTMLHtmlElement HTMLIFrameElement HTMLImageElement HTMLInputElement HTMLIsIndexElement HTMLLIElement HTMLLabelElement HTMLLegendElement HTMLLinkElement HTMLMapElement HTMLMenuElement HTMLMetaElement HTMLModElement HTMLOListElement HTMLObjectElement HTMLOptGroupElement HTMLOptionElement HTMLOptionsCollection HTMLParagraphElement HTMLParamElement HTMLPreElement HTMLQuoteElement HTMLScriptElement HTMLSelectElement HTMLStyleElement HTMLTableCaptionElement HTMLTableCellElement HTMLTableColElement HTMLTableElement HTMLTableRowElement HTMLTableSectionElement HTMLTextAreaElement HTMLTitleElement HTMLUListElement DOMConfiguration DOMError DOMException DOMImplementationList DOMImplementationSource DOMLocator DOMStringList NameList TypeInfo UserDataHandler window alert confirm document java navigator prompt screen self top requestAnimationFrame cancelAnimationFrame caches indexedDB isSecureContext origin atob btoa clearInterval clearTimeout createImageBitmap fetch queueMicrotask setInterval setTimeout history location Audio Image Option CSSCharsetRule CSSFontFace CSSFontFaceRule CSSImportRule CSSMediaRule CSSPageRule CSSPrimitiveValue CSSProperties CSSRule CSSRuleList CSSStyleDeclaration CSSStyleRule CSSStyleSheet CSSValue CSSValueList Counter DOMImplementationCSS DocumentCSS DocumentStyle ElementCSSInlineStyle LinkStyle MediaList RGBColor Rect StyleSheet StyleSheetList ViewCSS EventListener EventTarget Event DocumentEvent UIEvent MouseEvent MutationEvent KeyboardEvent DocumentRange Range RangeException XPathResult XMLHttpRequest console)) (#$ . 1320)) #@78 Mozilla Rhino externs. Set `js2-include-rhino-externs' to t to include them. (defvar js2-rhino-externs (mapcar 'symbol-name '(Packages importClass importPackage com org java defineClass deserialize doctest gc help load loadClass print quit readFile readUrl runCommand seal serialize spawn sync toint32 version)) (#$ . 3650)) #@71 Node.js externs. Set `js2-include-node-externs' to t to include them. (defvar js2-node-externs (mapcar 'symbol-name '(__dirname __filename Buffer clearInterval clearTimeout require console exports global module process setInterval setTimeout querystring setImmediate clearImmediate)) (#$ . 3981)) #@192 Khronos typed array externs. Available in most modern browsers and in node.js >= 0.6. If `js2-include-node-externs' or `js2-include-browser-externs' are enabled, these will also be included. (defvar js2-typed-array-externs (mapcar 'symbol-name '(ArrayBuffer Uint8ClampedArray DataView Int8Array Uint8Array Int16Array Uint16Array Int32Array Uint32Array Float32Array Float64Array)) (#$ . 4285)) #@132 ES6 externs. If `js2-include-browser-externs' is enabled and `js2-language-version' is sufficiently high, these will be included. (defvar js2-harmony-externs (mapcar 'symbol-name '(Map Promise Proxy Reflect Set Symbol WeakMap WeakSet)) (#$ . 4685)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable js2-ignored-warnings funcall function #[0 "\300\207" [nil] 1] "A list of warning message types that will not be reported.\n\nPossible values are the keys of `js2-message-table'." :group js2-mode :type (repeat string) js2-highlight-level #[0 "\300\207" [2] 1] "Amount of syntax highlighting to perform.\n0 or a negative value means none.\n1 adds basic syntax highlighting.\n2 adds highlighting of some Ecma built-in properties.\n3 adds highlighting of many Ecma built-in functions." (choice (const :tag "None" 0) (const :tag "Basic" 1) (const :tag "Include Properties" 2) (const :tag "Include Functions" 3))] 8) #@56 Non-nil if running in development mode. Normally nil. (defvar js2-mode-dev-mode-p nil (#$ . 5687)) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301&\210\316\307!\210\306\317\310\311\320DD\321\314\315\304\301&\210\306\322\310\311\323DD\324\314\325\304\301&\210\306\326\310\311\327DD\330\314\331\304\301&\210\306\332\310\311\333DD\334\314\331\304\301&\210\306\335\310\311\336DD\337\314\331\304\301&\210\306\340\310\311\341DD\342\314\331\304\301&\210\306\343\310\311\344DD\345\314\331\304\301&\210\306\346\310\311\347DD\350\314\331\304\301&\210\306\351\310\311\352DD\353\314\331\304\301&\210\306\354\310\311\355DD\356\314\331\304\301&\210\306\357\310\311\360DD\361\314\331\304\301&\210\306\362\310\311\363DD\364\314\331\304\301&\210\306\365\310\311\366DD\367\314\331\304\301&\210\306\370\310\311\371DD\372\314\373\304\301&\210\306\374\310\311\375DD\376\314\331\304\301&\210\306\377\310\311\201@DD\201A\314\331\304\301&\210\306\201B\310\311\201CDD\201D\304\301\314\331&\210\306\201E\310\311\201FDD\201G\314\331\304\301&\210\306\201H\310\311\201IDD\201J\314\331\304\301&\207" [custom-declare-group js2-mode nil "An improved JavaScript mode." :group languages custom-declare-variable js2-idle-timer-delay funcall function #[0 "\300\207" [0.2] 1] "Delay in secs before re-parsing after user makes changes.\nMultiplied by `js2-dynamic-idle-timer-adjust', which see." :type number make-variable-buffer-local js2-dynamic-idle-timer-adjust #[0 "\300\207" [0] 1] "Positive to adjust `js2-idle-timer-delay' based on file size.\nThe idea is that for short files, parsing is faster so we can be\nmore responsive to user edits without interfering with editing.\nThe buffer length in characters (typically bytes) is divided by\nthis value and used to multiply `js2-idle-timer-delay' for the\nbuffer. For example, a 21k file and 10k adjust yields 21k/10k\n== 2, so js2-idle-timer-delay is multiplied by 2.\nIf `js2-dynamic-idle-timer-adjust' is 0 or negative,\n`js2-idle-timer-delay' is not dependent on the file size." js2-concat-multiline-strings #[0 "\300\207" [t] 1] "When non-nil, `js2-line-break' in mid-string will make it a\nstring concatenation. When `eol', the '+' will be inserted at the\nend of the line, otherwise, at the beginning of the next line." (choice (const t) (const eol) (const nil)) js2-mode-show-parse-errors #[0 "\300\207" [t] 1] "True to highlight parse errors." boolean js2-mode-assume-strict #[0 "\300\207" [nil] 1] "Non-nil to start files in strict mode automatically." js2-mode-show-strict-warnings #[0 "\300\207" [t] 1] "Non-nil to emit Ecma strict-mode warnings.\nSome of the warnings can be individually disabled by other flags,\neven if this flag is non-nil." js2-strict-trailing-comma-warning #[0 "\300\207" [nil] 1] "Non-nil to warn about trailing commas in array literals.\nEcma-262-5.1 allows them, but older versions of IE raise an error." js2-strict-missing-semi-warning #[0 "\300\207" [t] 1] "Non-nil to warn about semicolon auto-insertion after statement.\nTechnically this is legal per Ecma-262, but some style guides disallow\ndepending on it." js2-missing-semi-one-line-override #[0 "\300\207" [nil] 1] "Non-nil to permit missing semicolons in one-line functions.\nIn one-liner functions such as `function identity(x) {return x}'\npeople often omit the semicolon for a cleaner look. If you are\nsuch a person, you can suppress the missing-semicolon warning\nby setting this variable to t." js2-strict-inconsistent-return-warning #[0 "\300\207" [t] 1] "Non-nil to warn about mixing returns with value-returns.\nIt's perfectly legal to have a `return' and a `return foo' in the\nsame function, but it's often an indicator of a bug, and it also\ninterferes with type inference (in systems that support it.)" js2-strict-cond-assign-warning #[0 "\300\207" [t] 1] "Non-nil to warn about expressions like if (a = b).\nThis often should have been '==' instead of '='. If the warning\nis enabled, you can suppress it on a per-expression basis by\nparenthesizing the expression, e.g. if ((a = b)) ..." js2-strict-var-redeclaration-warning #[0 "\300\207" [t] 1] "Non-nil to warn about redeclaring variables in a script or function." js2-strict-var-hides-function-arg-warning #[0 "\300\207" [t] 1] "Non-nil to warn about a var decl hiding a function argument." js2-skip-preprocessor-directives #[0 "\300\207" [nil] 1] "Non-nil to treat lines beginning with # as comments.\nUseful for viewing Mozilla JavaScript source code." js2-language-version #[0 "\300\207" [200] 1] "Configures what JavaScript language version to recognize.\nCurrently versions 150, 160, 170, 180 and 200 are supported,\ncorresponding to JavaScript 1.5, 1.6, 1.7, 1.8 and 2.0 (Harmony),\nrespectively. In a nutshell, 1.6 adds E4X support, 1.7 adds let,\nyield, and Array comprehensions, and 1.8 adds function closures." integer js2-instanceof-has-side-effects #[0 "\300\207" [nil] 1] "If non-nil, treats the instanceof operator as having side effects.\nThis is useful for xulrunner apps." js2-getprop-has-side-effects #[0 "\300\207" [nil] 1] "If non-nil, treats the getprop operator as having side effects.\nThis is useful for testing libraries with nontrivial getters and for\ncompilers that use empty getprops to declare interface properties." js2-move-point-on-right-click #[0 "\300\207" [t] 1] "Non-nil to move insertion point when you right-click.\nThis makes right-click context menu behavior a bit more intuitive,\nsince menu operations generally apply to the point. The exception\nis if there is a region selection, in which case the point does -not-\nmove, so cut/copy/paste can work properly.\n\nNote that IntelliJ moves the point, and Eclipse leaves it alone,\nso this behavior is customizable." js2-allow-rhino-new-expr-initializer #[0 "\300\207" [t] 1] "Non-nil to support a Rhino's experimental syntactic construct.\n\nRhino supports the ability to follow a `new' expression with an object\nliteral, which is used to set additional properties on the new object\nafter calling its constructor. Syntax:\n\n new [ ( arglist ) ] [initializer]\n\nHence, this expression:\n\n new Object {a: 1, b: 2}\n\nresults in an Object with properties a=1 and b=2. This syntax is\napparently not configurable in Rhino - it's currently always enabled,\nas of Rhino version 1.7R2." js2-allow-member-expr-as-function-name #[0 "\300\207" [nil] 1] "Non-nil to support experimental Rhino syntax for function names.\n\nRhino supports an experimental syntax configured via the Rhino Context\nsetting `allowMemberExprAsFunctionName'. The experimental syntax is:\n\n function ( [ arg-list ] ) { }\n\nWhere member-expr is a non-parenthesized 'member expression', which\nis anything at the grammar level of a new-expression or lower, meaning\nany expression that does not involve infix or unary operators.\n\nWhen is not a simple identifier, then it is syntactic\nsugar for assigning the anonymous function to the . Hence,\nthis code:\n\n function a.b().c[2] (x, y) { ... }\n\nis rewritten as:\n\n a.b().c[2] = function(x, y) {...}\n\nwhich doesn't seem particularly useful, but Rhino permits it."] 8) #@96 Define a buffer-local variable NAME with VALUE and COMMENT. (fn NAME VALUE &optional COMMENT) (defalias 'js2-deflocal '(macro . #[770 "\300\301F\302\303DDE\207" [progn defvar make-variable-buffer-local quote] 8 (#$ . 12902)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put js2-deflocal edebug-form-spec defvar function-put doc-string-elt 3] 4) #@62 Represents end of stream. Distinct from js2-EOF token type. (defvar js2-EOF_CHAR -1 (#$ . 13277)) (defvar js2-ERROR -1) (defvar js2-EOF 0) (defvar js2-EOL 1) (defvar js2-ENTERWITH 2) (defvar js2-LEAVEWITH 3) (defvar js2-RETURN 4) (defvar js2-GOTO 5) (defvar js2-IFEQ 6) (defvar js2-IFNE 7) (defvar js2-SETNAME 8) (defvar js2-BITOR 9) (defvar js2-BITXOR 10) (defvar js2-BITAND 11) (defvar js2-EQ 12) (defvar js2-NE 13) (defvar js2-LT 14) (defvar js2-LE 15) (defvar js2-GT 16) (defvar js2-GE 17) (defvar js2-LSH 18) (defvar js2-RSH 19) (defvar js2-URSH 20) (defvar js2-ADD 21) (defvar js2-SUB 22) (defvar js2-MUL 23) (defvar js2-DIV 24) (defvar js2-MOD 25) (defvar js2-NOT 26) (defvar js2-BITNOT 27) (defvar js2-POS 28) (defvar js2-NEG 29) (defvar js2-NEW 30) (defvar js2-DELPROP 31) (defvar js2-TYPEOF 32) (defvar js2-GETPROP 33) (defvar js2-GETPROPNOWARN 34) (defvar js2-SETPROP 35) (defvar js2-GETELEM 36) (defvar js2-SETELEM 37) (defvar js2-CALL 38) (defvar js2-NAME 39) (defvar js2-NUMBER 40) (defvar js2-STRING 41) (defvar js2-NULL 42) (defvar js2-THIS 43) (defvar js2-FALSE 44) (defvar js2-TRUE 45) (defvar js2-SHEQ 46) (defvar js2-SHNE 47) (defvar js2-REGEXP 48) (defvar js2-BINDNAME 49) (defvar js2-THROW 50) (defvar js2-RETHROW 51) (defvar js2-IN 52) (defvar js2-INSTANCEOF 53) (defvar js2-LOCAL_LOAD 54) (defvar js2-GETVAR 55) (defvar js2-SETVAR 56) (defvar js2-CATCH_SCOPE 57) (defvar js2-ENUM_INIT_KEYS 58) (defvar js2-ENUM_INIT_VALUES 59) (defvar js2-ENUM_INIT_ARRAY 60) (defvar js2-ENUM_NEXT 61) (defvar js2-ENUM_ID 62) (defvar js2-THISFN 63) (defvar js2-RETURN_RESULT 64) (defvar js2-ARRAYLIT 65) (defvar js2-OBJECTLIT 66) (defvar js2-GET_REF 67) (defvar js2-SET_REF 68) (defvar js2-DEL_REF 69) (defvar js2-REF_CALL 70) (defvar js2-REF_SPECIAL 71) (defvar js2-YIELD 72) (defvar js2-DEFAULTNAMESPACE 73) (defvar js2-ESCXMLATTR 74) (defvar js2-ESCXMLTEXT 75) (defvar js2-REF_MEMBER 76) (defvar js2-REF_NS_MEMBER 77) (defvar js2-REF_NAME 78) (defvar js2-REF_NS_NAME 79) (defvar js2-first-bytecode js2-ENTERWITH) (defvar js2-last-bytecode js2-REF_NS_NAME) (defvar js2-TRY 80) (defvar js2-SEMI 81) (defvar js2-LB 82) (defvar js2-RB 83) (defvar js2-LC 84) (defvar js2-RC 85) (defvar js2-LP 86) (defvar js2-RP 87) (defvar js2-COMMA 88) (defvar js2-ASSIGN 89) (defvar js2-ASSIGN_BITOR 90) (defvar js2-ASSIGN_BITXOR 91) (defvar js2-ASSIGN_BITAND 92) (defvar js2-ASSIGN_LSH 93) (defvar js2-ASSIGN_RSH 94) (defvar js2-ASSIGN_URSH 95) (defvar js2-ASSIGN_ADD 96) (defvar js2-ASSIGN_SUB 97) (defvar js2-ASSIGN_MUL 98) (defvar js2-ASSIGN_DIV 99) (defvar js2-ASSIGN_MOD 100) (defvar js2-ASSIGN_EXPON 101) (defvar js2-ASSIGN_AND 102) (defvar js2-ASSIGN_OR 103) (defvar js2-ASSIGN_NULLISH 104) (defvar js2-first-assign js2-ASSIGN) (defvar js2-last-assign js2-ASSIGN_NULLISH) (defvar js2-COLON 105) (defvar js2-OR 106) (defvar js2-AND 107) (defvar js2-INC 108) (defvar js2-DEC 109) (defvar js2-DOT 110) (defvar js2-FUNCTION 111) (defvar js2-EXPORT 112) (defvar js2-IMPORT 113) (defvar js2-IF 114) (defvar js2-ELSE 115) (defvar js2-SWITCH 116) (defvar js2-CASE 117) (defvar js2-DEFAULT 118) (defvar js2-WHILE 119) (defvar js2-DO 120) (defvar js2-FOR 121) (defvar js2-BREAK 122) (defvar js2-CONTINUE 123) (defvar js2-VAR 124) (defvar js2-WITH 125) (defvar js2-CATCH 126) (defvar js2-FINALLY 127) (defvar js2-VOID 128) (defvar js2-RESERVED 129) (defvar js2-EMPTY 130) (defvar js2-BLOCK 131) (defvar js2-LABEL 132) (defvar js2-TARGET 133) (defvar js2-LOOP 134) (defvar js2-EXPR_VOID 135) (defvar js2-EXPR_RESULT 136) (defvar js2-JSR 137) (defvar js2-SCRIPT 138) (defvar js2-TYPEOFNAME 139) (defvar js2-USE_STACK 140) (defvar js2-SETPROP_OP 141) (defvar js2-SETELEM_OP 142) (defvar js2-LOCAL_BLOCK 143) (defvar js2-SET_REF_OP 144) (defvar js2-DOTDOT 145) (defvar js2-COLONCOLON 146) (defvar js2-XML 147) (defvar js2-DOTQUERY 148) (defvar js2-XMLATTR 149) (defvar js2-XMLEND 150) (defvar js2-TO_OBJECT 151) (defvar js2-TO_DOUBLE 152) (defvar js2-GET 153) (defvar js2-SET 154) (defvar js2-LET 155) (defvar js2-CONST 156) (defvar js2-SETCONST 157) (defvar js2-SETCONSTVAR 158) (defvar js2-ARRAYCOMP 159) (defvar js2-LETEXPR 160) (defvar js2-WITHEXPR 161) (defvar js2-DEBUGGER 162) (defvar js2-COMMENT 163) (defvar js2-TRIPLEDOT 164) (defvar js2-ARROW 165) (defvar js2-CLASS 166) (defvar js2-EXTENDS 167) (defvar js2-SUPER 168) (defvar js2-TEMPLATE_HEAD 169) (defvar js2-NO_SUBS_TEMPLATE 170) (defvar js2-TAGGED_TEMPLATE 171) (defvar js2-AWAIT 172) (defvar js2-HOOK 173) (defvar js2-OPTIONAL-CHAINING 174) (defvar js2-EXPON 175) (defvar js2-NULLISH-COALESCING 176) (defconst js2-num-tokens (1+ js2-NULLISH-COALESCING)) (defconst js2-debug-print-trees nil) #@96 Token stream buffer-local variable. Indicates stuff other than whitespace since start of line. (defvar js2-ts-dirty-line nil (#$ . 17926)) (make-variable-buffer-local 'js2-ts-dirty-line) #@37 Token stream buffer-local variable. (defvar js2-ts-hit-eof nil (#$ . 18119)) (make-variable-buffer-local 'js2-ts-hit-eof) #@37 Token stream buffer-local variable. (defvar js2-ts-line-start 0 (#$ . 18247)) (make-variable-buffer-local 'js2-ts-line-start) #@37 Token stream buffer-local variable. (defvar js2-ts-lineno 1 (#$ . 18379)) (make-variable-buffer-local 'js2-ts-lineno) #@37 Token stream buffer-local variable. (defvar js2-ts-line-end-char -1 (#$ . 18503)) (make-variable-buffer-local 'js2-ts-line-end-char) #@60 Token stream buffer-local variable. Current scan position. (defvar js2-ts-cursor 1 (#$ . 18642)) (make-variable-buffer-local 'js2-ts-cursor) #@37 Token stream buffer-local variable. (defvar js2-ts-is-xml-attribute nil (#$ . 18789)) (make-variable-buffer-local 'js2-ts-is-xml-attribute) #@37 Token stream buffer-local variable. (defvar js2-ts-xml-is-tag-content nil (#$ . 18935)) (make-variable-buffer-local 'js2-ts-xml-is-tag-content) #@37 Token stream buffer-local variable. (defvar js2-ts-xml-open-tags-count 0 (#$ . 19085)) (make-variable-buffer-local 'js2-ts-xml-open-tags-count) #@91 Token stream buffer-local variable. List of chars built up while scanning various tokens. (defvar js2-ts-string-buffer nil (#$ . 19235)) (make-variable-buffer-local 'js2-ts-string-buffer) #@68 compiler-macro for inlining `js2-token-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-p (and (memq (type-of cl-x) cl-struct-js2-token-tags) t)) nil] 9 (#$ . 19429)]) (put 'js2-token-p 'compiler-macro 'js2-token-p--cmacro) #@13 (fn CL-X) (defalias 'js2-token-p #[257 "\301!>\205 \302\207" [cl-struct-js2-token-tags type-of t] 3 (#$ . 19758)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-token-p side-effect-free error-free put js2-token cl-deftype-satisfies] 5) #@71 compiler-macro for inlining `js2-token-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-type (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 1)) nil] 9 (#$ . 20029)]) (put 'js2-token-type 'compiler-macro 'js2-token-type--cmacro) #@97 Access slot "type" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 1] 5 (#$ . 20409)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-type side-effect-free t] 4) #@70 compiler-macro for inlining `js2-token-beg'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-beg--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-beg (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 2)) nil] 9 (#$ . 20775)]) (put 'js2-token-beg 'compiler-macro 'js2-token-beg--cmacro) #@96 Access slot "beg" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-beg #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 2] 5 (#$ . 21150)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-beg side-effect-free t] 4) #@70 compiler-macro for inlining `js2-token-end'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-end--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-end (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 3)) nil] 9 (#$ . 21513)]) (put 'js2-token-end 'compiler-macro 'js2-token-end--cmacro) #@96 Access slot "end" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-end #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 3] 5 (#$ . 21888)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-end side-effect-free t] 4) #@73 compiler-macro for inlining `js2-token-string'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-string--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-string (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 4)) nil] 9 (#$ . 22251)]) (put 'js2-token-string 'compiler-macro 'js2-token-string--cmacro) #@99 Access slot "string" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-string #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 4] 5 (#$ . 22641)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-string side-effect-free t] 4) #@73 compiler-macro for inlining `js2-token-number'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-number--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-number (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 5)) nil] 9 (#$ . 23013)]) (put 'js2-token-number 'compiler-macro 'js2-token-number--cmacro) #@99 Access slot "number" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-number #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 5] 5 (#$ . 23403)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-number side-effect-free t] 4) #@78 compiler-macro for inlining `js2-token-number-base'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-number-base--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-number-base (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 6)) nil] 9 (#$ . 23775)]) (put 'js2-token-number-base 'compiler-macro 'js2-token-number-base--cmacro) #@104 Access slot "number-base" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-number-base #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 6] 5 (#$ . 24191)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-number-base side-effect-free t] 4) #@88 compiler-macro for inlining `js2-token-number-legacy-octal-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-number-legacy-octal-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-number-legacy-octal-p (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 7)) nil] 9 (#$ . 24578)]) (put 'js2-token-number-legacy-octal-p 'compiler-macro 'js2-token-number-legacy-octal-p--cmacro) #@114 Access slot "number-legacy-octal-p" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-number-legacy-octal-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 7] 5 (#$ . 25044)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-number-legacy-octal-p side-effect-free t] 4) #@79 compiler-macro for inlining `js2-token-regexp-flags'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-regexp-flags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-regexp-flags (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 8)) nil] 9 (#$ . 25461)]) (put 'js2-token-regexp-flags 'compiler-macro 'js2-token-regexp-flags--cmacro) #@105 Access slot "regexp-flags" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-regexp-flags #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 8] 5 (#$ . 25882)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-regexp-flags side-effect-free t] 4) #@79 compiler-macro for inlining `js2-token-comment-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-comment-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-comment-type (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 9)) nil] 9 (#$ . 26272)]) (put 'js2-token-comment-type 'compiler-macro 'js2-token-comment-type--cmacro) #@105 Access slot "comment-type" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-comment-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 9] 5 (#$ . 26693)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-token-comment-type side-effect-free t] 4) #@80 compiler-macro for inlining `js2-token-follows-eol-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-token-follows-eol-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-token-follows-eol-p (or (js2-token-p cl-x) (signal 'wrong-type-argument (list 'js2-token cl-x))) (aref cl-x 10)) nil] 9 (#$ . 27083)]) (put 'js2-token-follows-eol-p 'compiler-macro 'js2-token-follows-eol-p--cmacro) #@106 Access slot "follows-eol-p" of `(js2-token (:constructor make-js2-token (beg)))' struct CL-X. (fn CL-X) (defalias 'js2-token-follows-eol-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 10] 5 (#$ . 27510)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-token-follows-eol-p side-effect-free t defalias copy-js2-token copy-sequence] 4) #@70 compiler-macro for inlining `make-js2-token'. (fn CL-WHOLE-ARG BEG) (defalias 'make-js2-token--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (beg) (cl-block make-js2-token (record 'js2-token js2-EOF beg -1 "" nil nil nil nil nil nil)) nil] 9 (#$ . 27952)]) (put 'make-js2-token 'compiler-macro 'make-js2-token--cmacro) #@56 Constructor for objects of type `js2-token'. (fn BEG) (defalias 'make-js2-token #[257 "\301\302\303\304\305\211\211\211\211\211& \207" [js2-EOF record js2-token -1 "" nil] 13 (#$ . 28301)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put make-js2-token side-effect-free t cl-struct-define js2-token "Value returned from the token stream." cl-structure-object record nil ((cl-tag-slot) (type js2-EOF) (beg 1) (end -1) (string "") (number) (number-base) (number-legacy-octal-p) (regexp-flags) (comment-type) (follows-eol-p)) cl-struct-js2-token-tags] 11) (defvar js2-ti-tokens nil nil) (make-variable-buffer-local 'js2-ti-tokens) (defvar js2-ti-tokens-cursor nil nil) (make-variable-buffer-local 'js2-ti-tokens-cursor) (defvar js2-ti-lookahead nil nil) (make-variable-buffer-local 'js2-ti-lookahead) #@71 compiler-macro for inlining `js2-ts-state-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ts-state-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ts-state-p (and (memq (type-of cl-x) cl-struct-js2-ts-state-tags) t)) nil] 9 (#$ . 29151)]) (put 'js2-ts-state-p 'compiler-macro 'js2-ts-state-p--cmacro) #@13 (fn CL-X) (defalias 'js2-ts-state-p #[257 "\301!>\205 \302\207" [cl-struct-js2-ts-state-tags type-of t] 3 (#$ . 29498)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-ts-state-p side-effect-free error-free put js2-ts-state cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-ts-state-lineno'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ts-state-lineno--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ts-state-lineno (or (js2-ts-state-p cl-x) (signal 'wrong-type-argument (list 'js2-ts-state cl-x))) (aref cl-x 1)) nil] 9 (#$ . 29781)]) (put 'js2-ts-state-lineno 'compiler-macro 'js2-ts-state-lineno--cmacro) #@257 Access slot "lineno" of `(js2-ts-state (:constructor make-js2-ts-state (&key (lineno js2-ts-lineno) (cursor js2-ts-cursor) (tokens (copy-sequence js2-ti-tokens)) (tokens-cursor js2-ti-tokens-cursor) (lookahead js2-ti-lookahead))))' struct CL-X. (fn CL-X) (defalias 'js2-ts-state-lineno #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ts-state-tags type-of signal wrong-type-argument js2-ts-state 1] 5 (#$ . 30193)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ts-state-lineno side-effect-free t] 4) #@76 compiler-macro for inlining `js2-ts-state-cursor'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ts-state-cursor--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ts-state-cursor (or (js2-ts-state-p cl-x) (signal 'wrong-type-argument (list 'js2-ts-state cl-x))) (aref cl-x 2)) nil] 9 (#$ . 30735)]) (put 'js2-ts-state-cursor 'compiler-macro 'js2-ts-state-cursor--cmacro) #@257 Access slot "cursor" of `(js2-ts-state (:constructor make-js2-ts-state (&key (lineno js2-ts-lineno) (cursor js2-ts-cursor) (tokens (copy-sequence js2-ti-tokens)) (tokens-cursor js2-ti-tokens-cursor) (lookahead js2-ti-lookahead))))' struct CL-X. (fn CL-X) (defalias 'js2-ts-state-cursor #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ts-state-tags type-of signal wrong-type-argument js2-ts-state 2] 5 (#$ . 31147)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ts-state-cursor side-effect-free t] 4) #@76 compiler-macro for inlining `js2-ts-state-tokens'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ts-state-tokens--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ts-state-tokens (or (js2-ts-state-p cl-x) (signal 'wrong-type-argument (list 'js2-ts-state cl-x))) (aref cl-x 3)) nil] 9 (#$ . 31689)]) (put 'js2-ts-state-tokens 'compiler-macro 'js2-ts-state-tokens--cmacro) #@257 Access slot "tokens" of `(js2-ts-state (:constructor make-js2-ts-state (&key (lineno js2-ts-lineno) (cursor js2-ts-cursor) (tokens (copy-sequence js2-ti-tokens)) (tokens-cursor js2-ti-tokens-cursor) (lookahead js2-ti-lookahead))))' struct CL-X. (fn CL-X) (defalias 'js2-ts-state-tokens #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ts-state-tags type-of signal wrong-type-argument js2-ts-state 3] 5 (#$ . 32101)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ts-state-tokens side-effect-free t] 4) #@83 compiler-macro for inlining `js2-ts-state-tokens-cursor'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ts-state-tokens-cursor--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ts-state-tokens-cursor (or (js2-ts-state-p cl-x) (signal 'wrong-type-argument (list 'js2-ts-state cl-x))) (aref cl-x 4)) nil] 9 (#$ . 32643)]) (put 'js2-ts-state-tokens-cursor 'compiler-macro 'js2-ts-state-tokens-cursor--cmacro) #@264 Access slot "tokens-cursor" of `(js2-ts-state (:constructor make-js2-ts-state (&key (lineno js2-ts-lineno) (cursor js2-ts-cursor) (tokens (copy-sequence js2-ti-tokens)) (tokens-cursor js2-ti-tokens-cursor) (lookahead js2-ti-lookahead))))' struct CL-X. (fn CL-X) (defalias 'js2-ts-state-tokens-cursor #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ts-state-tags type-of signal wrong-type-argument js2-ts-state 4] 5 (#$ . 33090)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ts-state-tokens-cursor side-effect-free t] 4) #@79 compiler-macro for inlining `js2-ts-state-lookahead'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ts-state-lookahead--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ts-state-lookahead (or (js2-ts-state-p cl-x) (signal 'wrong-type-argument (list 'js2-ts-state cl-x))) (aref cl-x 5)) nil] 9 (#$ . 33653)]) (put 'js2-ts-state-lookahead 'compiler-macro 'js2-ts-state-lookahead--cmacro) #@260 Access slot "lookahead" of `(js2-ts-state (:constructor make-js2-ts-state (&key (lineno js2-ts-lineno) (cursor js2-ts-cursor) (tokens (copy-sequence js2-ti-tokens)) (tokens-cursor js2-ti-tokens-cursor) (lookahead js2-ti-lookahead))))' struct CL-X. (fn CL-X) (defalias 'js2-ts-state-lookahead #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ts-state-tags type-of signal wrong-type-argument js2-ts-state 5] 5 (#$ . 34080)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-ts-state-lookahead side-effect-free t defalias copy-js2-ts-state copy-sequence] 4) #@231 compiler-macro for inlining `make-js2-ts-state'. (fn CL-WHOLE &cl-quote &key (LINENO js2-ts-lineno) (CURSOR js2-ts-cursor) (TOKENS (copy-sequence js2-ti-tokens)) (TOKENS-CURSOR js2-ti-tokens-cursor) (LOOKAHEAD js2-ti-lookahead)) (defalias 'make-js2-ts-state--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"\206&\310A@\300\311\"\2060\312A@\211\203^\211@\313>\203F\211AA\262\2023\314>A@\203U\315\262\2023\316\317@\"\210\2023\210\320\321\322\315\n\315\n\n\n\n\n&\n\207" [plist-member :lineno (nil js2-ts-lineno) :cursor (nil js2-ts-cursor) :tokens (nil (copy-sequence js2-ti-tokens)) :tokens-cursor (nil js2-ti-tokens-cursor) :lookahead (nil js2-ti-lookahead) (:lineno :cursor :tokens :tokens-cursor :lookahead :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:lineno :cursor :tokens :tokens-cursor :lookahead)" cl--defsubst-expand (lineno cursor tokens tokens-cursor lookahead) (cl-block make-js2-ts-state (record 'js2-ts-state lineno cursor tokens tokens-cursor lookahead))] 18 (#$ . 34683)]) (put 'make-js2-ts-state 'compiler-macro 'make-js2-ts-state--cmacro) #@211 Constructor for objects of type `js2-ts-state'. (fn &key (LINENO js2-ts-lineno) (CURSOR js2-ts-cursor) (TOKENS (copy-sequence js2-ti-tokens)) (TOKENS-CURSOR js2-ti-tokens-cursor) (LOOKAHEAD js2-ti-lookahead)) (defalias 'make-js2-ts-state #[128 "\305\306\"\206\n\307DA@\305\310\"\206\307 DA@\305\311\"\206$\307\312\n!DA@\305\313\"\2060\307 DA@\305\314\"\206<\307\fDA@\211\203j\211@\315>\203R\211AA\262\202?\316>A@\203a\307\262\202?\317\320@\"\210\202?\210\321\322&\207" [js2-ts-lineno js2-ts-cursor js2-ti-tokens js2-ti-tokens-cursor js2-ti-lookahead plist-member :lineno nil :cursor :tokens copy-sequence :tokens-cursor :lookahead (:lineno :cursor :tokens :tokens-cursor :lookahead :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:lineno :cursor :tokens :tokens-cursor :lookahead)" record js2-ts-state] 13 (#$ . 35850)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-js2-ts-state side-effect-free t cl-struct-define js2-ts-state nil cl-structure-object record ((cl-tag-slot) (lineno) (cursor) (tokens) (tokens-cursor) (lookahead)) cl-struct-js2-ts-state-tags] 11) #@50 List of errors produced during scanning/parsing. (defvar js2-parsed-errors nil (#$ . 37034)) (make-variable-buffer-local 'js2-parsed-errors) #@52 List of warnings produced during scanning/parsing. (defvar js2-parsed-warnings nil (#$ . 37181)) (make-variable-buffer-local 'js2-parsed-warnings) #@369 Non-nil to continue parsing after a syntax error. In recovery mode, the AST will be built in full, and any error nodes will be flagged with appropriate error information. If this flag is nil, a syntax error will result in an error being signaled. The variable is automatically buffer-local, because different modes that use the parser will need different settings. (defvar js2-recover-from-parse-errors t (#$ . 37335)) (make-variable-buffer-local 'js2-recover-from-parse-errors) #@51 List of callbacks for receiving parsing progress. (defvar js2-parse-hook nil (#$ . 37823)) (make-variable-buffer-local 'js2-parse-hook) #@91 List of callbacks to notify when parsing finishes. Not called if parsing was interrupted. (defvar js2-parse-finished-hook nil (#$ . 37965)) #@221 True if we're evaluating code in a string. If non-nil, the tokenizer will record the token text, and the AST nodes will record their source text. Off by default for IDE modes, since the text is available in the buffer. (defvar js2-is-eval-code nil (#$ . 38112)) (make-variable-buffer-local 'js2-is-eval-code) #@238 Non-nil if the parser is being used for `js2-mode'. If non-nil, the parser will set text properties for fontification and the syntax table. The value should be nil when using the parser as a frontend to an interpreter or byte compiler. (defvar js2-parse-ide-mode t (#$ . 38429)) #@40 Flag: first token of the source line. (defconst js2-ti-after-eol (lsh 1 16) (#$ . 38715)) (defvar js2-compiler-generate-debug-info t nil) (make-variable-buffer-local 'js2-compiler-generate-debug-info) (defvar js2-compiler-use-dynamic-scope nil nil) (make-variable-buffer-local 'js2-compiler-use-dynamic-scope) (defvar js2-compiler-reserved-keywords-as-identifier nil nil) (make-variable-buffer-local 'js2-compiler-reserved-keywords-as-identifier) (defvar js2-compiler-xml-available t nil) (make-variable-buffer-local 'js2-compiler-xml-available) (defvar js2-compiler-optimization-level 0 nil) (make-variable-buffer-local 'js2-compiler-optimization-level) (defvar js2-compiler-generating-source t nil) (make-variable-buffer-local 'js2-compiler-generating-source) (defvar js2-compiler-strict-mode nil nil) (make-variable-buffer-local 'js2-compiler-strict-mode) (defvar js2-compiler-report-warning-as-error nil nil) (make-variable-buffer-local 'js2-compiler-report-warning-as-error) (defvar js2-compiler-generate-observer-count nil nil) (make-variable-buffer-local 'js2-compiler-generate-observer-count) (defvar js2-compiler-activation-names nil nil) (make-variable-buffer-local 'js2-compiler-activation-names) #@122 True if `js2-parse' was called by `js2-compile-function'. Will only be used when we finish implementing the interpreter. (defvar js2-called-by-compile-function nil (#$ . 39931)) (make-variable-buffer-local 'js2-called-by-compile-function) (defvar js2-nesting-of-function 0 nil) (make-variable-buffer-local 'js2-nesting-of-function) #@42 Tracks identifiers found during parsing. (defvar js2-recorded-identifiers nil (#$ . 40269)) (make-variable-buffer-local 'js2-recorded-identifiers) #@46 True while parsing destructuring expression. (defvar js2-is-in-destructuring nil (#$ . 40422)) (make-variable-buffer-local 'js2-is-in-destructuring) #@59 True while inside a script or function under strict mode. (defvar js2-in-use-strict-directive nil (#$ . 40577)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\317\312\313&\210\302\320\304\305\321DD\322\310\317\312\313&\210\302\323\304\305\324DD\325\310\317\312\313&\207" [make-variable-buffer-local js2-in-use-strict-directive custom-declare-variable js2-global-externs funcall function #[0 "\300\207" [nil] 1] "A list of any extern names you'd like to consider always declared.\nThis list is global and is used by all `js2-mode' files.\nYou can create buffer-local externs list using `js2-additional-externs'." :type list :group js2-mode js2-include-browser-externs #[0 "\300\207" [t] 1] "Non-nil to include browser externs in the master externs list.\nIf you work on JavaScript files that are not intended for browsers,\nsuch as Mozilla Rhino server-side JavaScript, set this to nil.\nSee `js2-additional-externs' for more information about externs." boolean js2-include-rhino-externs #[0 "\300\207" [nil] 1] "Non-nil to include Mozilla Rhino externs in the master externs list.\nSee `js2-additional-externs' for more information about externs." js2-include-node-externs #[0 "\300\207" [nil] 1] "Non-nil to include Node.js externs in the master externs list.\nSee `js2-additional-externs' for more information about externs."] 8) #@1592 A buffer-local list of additional external declarations. It is used to decide whether variables are considered undeclared for purposes of highlighting. See `js2-highlight-undeclared-vars'. Each entry is a Lisp string. The string should be the fully qualified name of an external entity. All externs should be added to this list, so that as js2-mode's processing improves it can take advantage of them. You may want to declare your externs in three ways. First, you can add externs that are valid for all your JavaScript files. You should probably do this by adding them to `js2-global-externs', which is a global list used for all js2-mode files. Next, you can add a function to `js2-init-hook' that adds additional externs appropriate for the specific file, perhaps based on its path. These should go in `js2-additional-externs', which is buffer-local. Third, you can use JSLint's global declaration, as long as `js2-include-jslint-globals' is non-nil, which see. Finally, you can add a function to `js2-post-parse-callbacks', which is called after parsing completes, and `js2-mode-ast' is bound to the root of the parse tree. At this stage you can set up an AST node visitor using `js2-visit-ast' and examine the parse tree for specific import patterns that may imply the existence of other externs, possibly tied to your build system. These should also be added to `js2-additional-externs'. Your post-parse callback may of course also use the simpler and faster (but perhaps less robust) approach of simply scanning the buffer text for your imports, using regular expressions. (defvar js2-additional-externs nil (#$ . 41977)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local js2-additional-externs put safe-local-variable #[257 "\300\301\"\207" [cl-every stringp] 4 "\n\n(fn VAL)"]] 4) (defvar js2-current-script-or-fn nil nil) (make-variable-buffer-local 'js2-current-script-or-fn) (defvar js2-current-scope nil nil) (make-variable-buffer-local 'js2-current-scope) (defvar js2-nesting-of-with 0 nil) (make-variable-buffer-local 'js2-nesting-of-with) #@40 An alist mapping label names to nodes. (defvar js2-label-set nil (#$ . 44076)) (make-variable-buffer-local 'js2-label-set) (defvar js2-loop-set nil nil) (make-variable-buffer-local 'js2-loop-set) (defvar js2-loop-and-switch-set nil nil) (make-variable-buffer-local 'js2-loop-and-switch-set) (defvar js2-has-return-value nil nil) (make-variable-buffer-local 'js2-has-return-value) (defvar js2-end-flags 0 nil) (make-variable-buffer-local 'js2-end-flags) (defconst js2-end-unreached 0) (defconst js2-end-drops-off 1) (defconst js2-end-returns 2) (defconst js2-end-returns-value 4) (defvar js2-labeled-stmt nil nil) (make-variable-buffer-local 'js2-labeled-stmt) (defvar js2-in-for-init nil nil) (make-variable-buffer-local 'js2-in-for-init) (defvar js2-temp-name-counter 0 nil) (make-variable-buffer-local 'js2-temp-name-counter) (defvar js2-parse-stmt-count 0 nil) (make-variable-buffer-local 'js2-parse-stmt-count) (defalias 'js2-get-next-temp-name #[0 "\301\302T\211\"\207" [js2-temp-name-counter format "$%d"] 4]) (put 'js2-get-next-temp-name 'byte-optimizer 'byte-compile-inline-expand) #@105 Set this to nil to force parse to continue until finished. This will mostly be useful for interpreters. (defvar js2-parse-interruptable-p t (#$ . 45175)) #@392 Pause after this many statements to check for user input. If user input is pending, stop the parse and discard the tree. This makes for a smoother user experience for large files. You may have to wait a second or two before the highlighting and error-reporting appear, but you can always type ahead if you wish. This appears to be more or less how Eclipse, IntelliJ and other editors work. (defvar js2-statements-per-pause 50 (#$ . 45336)) #@69 Instructs the scanner to record comments in `js2-scanned-comments'. (defvar js2-record-comments t (#$ . 45783)) (make-variable-buffer-local 'js2-record-comments) #@46 List of all comments from the current parse. (defvar js2-scanned-comments nil (#$ . 45951)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\313&\207" [make-variable-buffer-local js2-scanned-comments custom-declare-variable js2-mode-indent-inhibit-undo funcall function #[0 "\300\207" [nil] 1] "Non-nil to disable collection of Undo information when indenting lines.\nSome users have requested this behavior. It's nil by default because\nother Emacs modes don't work this way." :type boolean :group js2-mode js2-mode-indent-ignore-first-tab #[0 "\300\207" [nil] 1] "If non-nil, ignore first TAB keypress if we look indented properly.\nIt's fairly common for users to navigate to an already-indented line\nand press TAB for reassurance that it's been indented. For this class\nof users, we want the first TAB press on a line to be ignored if the\nline is already indented to one of the precomputed alternatives.\n\nThis behavior is only partly implemented. If you TAB-indent a line,\nnavigate to another line, and then navigate back, it fails to clear\nthe last-indented variable, so it thinks you've already hit TAB once,\nand performs the indent. A full solution would involve getting on the\npoint-motion hooks for the entire buffer. If we come across another\nuse cases that requires watching point motion, I'll consider doing it.\n\nIf you set this variable to nil, then the TAB key will always change\nthe indentation of the current line, if more than one alternative\nindentation spot exists."] 8) #@1015 A hook for user-defined indentation rules. Functions on this hook should expect two arguments: (LIST INDEX) The LIST argument is the list of computed indentation points for the current line. INDEX is the list index of the indentation point that `js2-bounce-indent' plans to use. If INDEX is nil, then the indent function is not going to change the current line indentation. If a hook function on this list returns a non-nil value, then `js2-bounce-indent' assumes the hook function has performed its own indentation, and will do nothing. If all hook functions on the list return nil, then `js2-bounce-indent' will use its computed indentation and reindent the line. When hook functions on this hook list are called, the variable `js2-mode-ast' may or may not be set, depending on whether the parse tree is available. If the variable is nil, you can pass a callback to `js2-mode-wait-for-parse', and your callback will be called after the new parse tree is built. This can take some time in large files. (defvar js2-indent-hook nil (#$ . 47532)) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\210\300\336\337\340\304\305%\210\300\341\342\343\304\305%\210\300\344\345\346\304\305%\210\300\347\350\351\304\305%\210\300\352\353\354\304\305%\210\300\355\356\357#\210\360\361\362\363\364DD\365\366\367\304\305\370\371& \210\360\372\362\363\373DD\374\366\367\304\305&\210\360\375\362\363\376DD\377\366\367\304\305&\210\360\201@\362\363\201ADD\201B\366\201C\304\305&\210\360\201D\362\363\201EDD\201F\366\201G\304\305&\210\360\201H\362\363\201IDD\201J\366\201C\304\305&\210\360\201K\362\363\201LDD\201M\366\201C\304\305&\207" [custom-declare-face js2-warning ((((class color) (background light)) (:underline "orange")) (((class color) (background dark)) (:underline "orange")) (t (:underline t))) "Face for JavaScript warnings." :group js2-mode js2-error ((((class color) (background light)) (:foreground "red")) (((class color) (background dark)) (:foreground "red")) (t (:foreground "red"))) "Face for JavaScript errors." js2-jsdoc-tag ((t :foreground "SlateGray")) "Face used to highlight @whatever tags in jsdoc comments." js2-jsdoc-type ((t :foreground "SteelBlue")) "Face used to highlight {FooBar} types in jsdoc comments." js2-jsdoc-value ((t :foreground "PeachPuff3")) "Face used to highlight tag values in jsdoc comments." js2-function-param ((t :foreground "SeaGreen")) "Face used to highlight function parameters in javascript." js2-function-call ((t :inherit default)) "Face used to highlight function name in calls." js2-object-property ((t :inherit default)) "Face used to highlight named property in object literal." js2-object-property-access ((t :inherit js2-object-property)) "Face used to highlight property access with dot on an object." js2-instance-member ((t :foreground "DarkOrchid")) "Face used to highlight instance variables in javascript.\nNot currently used." js2-private-member ((t :foreground "PeachPuff3")) "Face used to highlight calls to private methods in javascript.\nNot currently used." js2-private-function-call ((t :foreground "goldenrod")) "Face used to highlight calls to private functions in javascript.\nNot currently used." js2-jsdoc-html-tag-name ((((class color) (min-colors 88) (background light)) (:foreground "rosybrown")) (((class color) (min-colors 8) (background dark)) (:foreground "yellow")) (((class color) (min-colors 8) (background light)) (:foreground "magenta"))) "Face used to highlight jsdoc html tag names" js2-jsdoc-html-tag-delimiter ((((class color) (min-colors 88) (background light)) (:foreground "dark khaki")) (((class color) (min-colors 8) (background dark)) (:foreground "green")) (((class color) (min-colors 8) (background light)) (:foreground "green"))) "Face used to highlight brackets in jsdoc html tags." js2-external-variable ((t :foreground "orange")) "Face used to highlight undeclared variable identifiers." custom-declare-variable js2-init-hook funcall function #[0 "\300\207" [nil] 1] "List of functions to be called after `js2-mode' or\n`js2-minor-mode' has initialized all variables, before parsing\nthe buffer for the first time." :type hook :version "20130608" js2-post-parse-callbacks #[0 "\300\207" [nil] 1] "List of callback functions invoked after parsing finishes.\nCurrently, the main use for this function is to add synthetic\ndeclarations to `js2-recorded-identifiers', which see." js2-build-imenu-callbacks #[0 "\300\207" [nil] 1] "List of functions called during Imenu index generation.\nIt's a good place to add additional entries to it, using\n`js2-record-imenu-entry'." js2-highlight-external-variables #[0 "\300\207" [t] 1] "Non-nil to highlight undeclared variable identifiers.\nAn undeclared variable is any variable not declared with var or let\nin the current scope or any lexically enclosing scope. If you use\nsuch a variable, then you are either expecting it to originate from\nanother file, or you've got a potential bug." boolean js2-warn-about-unused-function-arguments #[0 "\300\207" [nil] 1] "Non-nil to treat function arguments like declared-but-unused variables." booleanp js2-include-jslint-globals #[0 "\300\207" [t] 1] "Non-nil to include the identifiers from JSLint global\ndeclaration (see http://www.jslint.com/help.html#global) in the\nbuffer-local externs list. See `js2-additional-externs' for more\ninformation." js2-include-jslint-declaration-externs #[0 "\300\207" [t] 1] "Non-nil to include the identifiers JSLint assumes to be there\nunder certain declarations in the buffer-local externs list. See\n`js2-additional-externs' for more information."] 10) #@36 Keymap used in `js2-mode' buffers. (defvar js2-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327\300\327!B#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\211\207" [make-sparse-keymap define-key [remap indent-new-comment-line] js2-line-break "" js2-mode-hide-element "" js2-mode-show-element "" js2-mode-show-all "" js2-mode-toggle-hide-functions "" js2-mode-toggle-hide-comments "" js2-mode-toggle-element "" js2-mode-toggle-warnings-and-errors [down-mouse-3] js2-down-mouse-3 [remap js-find-symbol] js2-jump-to-definition [menu-bar javascript] "JavaScript" [menu-bar javascript customize-js2-mode] (menu-item "Customize js2-mode" js2-mode-customize :help "Customize the behavior of this mode") [menu-bar javascript js2-force-refresh] (menu-item "Force buffer refresh" js2-mode-reset :help "Re-parse the buffer from scratch") [menu-bar javascript separator-2] ("--") [menu-bar javascript next-error] (menu-item "Next warning or error" next-error :enabled (and js2-mode-ast (or (js2-ast-root-errors js2-mode-ast) (js2-ast-root-warnings js2-mode-ast))) :help "Move to next warning or error") [menu-bar javascript display-errors] (menu-item "Show errors and warnings" js2-mode-display-warnings-and-errors :visible (not js2-mode-show-parse-errors) :help "Turn on display of warnings and errors") [menu-bar javascript hide-errors] (menu-item "Hide errors and warnings" js2-mode-hide-warnings-and-errors :visible js2-mode-show-parse-errors :help "Turn off display of warnings and errors") [menu-bar javascript separator-1] ("--") [menu-bar javascript js2-toggle-function] (menu-item "Show/collapse element" js2-mode-toggle-element :help "Hide or show function body or comment") [menu-bar javascript show-comments] (menu-item "Show block comments" js2-mode-toggle-hide-comments :visible js2-mode-comments-hidden :help "Expand all hidden block comments") [menu-bar javascript hide-comments] (menu-item "Hide block comments" js2-mode-toggle-hide-comments :visible (not js2-mode-comments-hidden) :help "Show block comments as /*...*/") [menu-bar javascript show-all-functions] (menu-item "Show function bodies" js2-mode-toggle-hide-functions :visible js2-mode-functions-hidden :help "Expand all hidden function bodies") [menu-bar javascript hide-all-functions] (menu-item "Hide function bodies" js2-mode-toggle-hide-functions :visible (not js2-mode-functions-hidden) :help "Show {...} for all top-level function bodies")] 7) (#$ . 53371)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable js2-bounce-indent-p funcall function #[0 "\300\207" [nil] 1] "Non-nil to bind `js2-indent-bounce' and `js2-indent-bounce-backward'.\nThey will augment the default indent-line behavior with cycling\namong several computed alternatives. See the function\n`js2-bounce-indent' for details. The above commands will be\nbound to TAB and backtab." :type boolean :group js2-mode :set #[514 "\301\"\210\204\302\303\304#\210\302\305\304#\202#\302\303\306#\210\302\307\310#\207" [js2-mode-map set-default define-key " " nil [backtab] js2-indent-bounce [backtab] js2-indent-bounce-backward] 7 "\n\n(fn SYM VALUE)"]] 10) (defconst js2-mode-identifier-re "[[:alpha:]_$][[:alnum:]_$]*") #@112 Matches a //-comment line. Must be first non-whitespace on line. First match-group is the leading whitespace. (defvar js2-mode-//-comment-re "^\\(\\s-*\\)//.+" (#$ . 56945)) (defvar js2-mode-hook nil) #@19 Private variable. (defvar js2-mode-ast nil (#$ . 57153)) (make-variable-buffer-local 'js2-mode-ast) #@19 Private variable. (defvar js2-mode-parse-timer nil (#$ . 57259)) (make-variable-buffer-local 'js2-mode-parse-timer) #@19 Private variable. (defvar js2-mode-buffer-dirty-p nil (#$ . 57381)) (make-variable-buffer-local 'js2-mode-buffer-dirty-p) #@19 Private variable. (defvar js2-mode-parsing nil (#$ . 57509)) (make-variable-buffer-local 'js2-mode-parsing) (defvar js2-mode-node-overlay nil nil) (make-variable-buffer-local 'js2-mode-node-overlay) #@55 Debug: Non-nil to highlight AST nodes on mouse-down. (defvar js2-mode-show-overlay js2-mode-dev-mode-p (#$ . 57714)) #@18 Private variable (defvar js2-mode-fontifications nil (#$ . 57838)) (make-variable-buffer-local 'js2-mode-fontifications) #@18 Private variable (defvar js2-mode-deferred-properties nil (#$ . 57965)) (make-variable-buffer-local 'js2-mode-deferred-properties) #@18 Private variable (defvar js2-imenu-recorder nil (#$ . 58102)) (make-variable-buffer-local 'js2-imenu-recorder) #@18 Private variable (defvar js2-imenu-function-map nil (#$ . 58219)) (make-variable-buffer-local 'js2-imenu-function-map) #@49 Non-nil to emit status messages during parsing. (defvar js2-mode-verbose-parse-p js2-mode-dev-mode-p (#$ . 58344)) #@68 Non-nil to set the syntax-table text property on certain literals. (defvar js2-mode-change-syntax-p t (#$ . 58465)) #@19 Private variable. (defvar js2-mode-functions-hidden nil (#$ . 58587)) #@19 Private variable. (defvar js2-mode-comments-hidden nil (#$ . 58663)) #@42 Syntax table used in `js2-mode' buffers. (defvar js2-mode-syntax-table (byte-code "\300 \301!\210\302\303\304#\210\211\207" [make-syntax-table c-populate-syntax-table modify-syntax-entry 96 "\""] 5) (#$ . 58738)) #@44 Abbrev table in use in `js2-mode' buffers. (defvar js2-mode-abbrev-table nil (#$ . 58959)) (define-abbrev-table 'js2-mode-abbrev-table nil) #@66 List of functions waiting to be notified that parse is finished. (defvar js2-mode-pending-parse-callbacks nil (#$ . 59105)) (defvar js2-mode-last-indented-line -1) #@45 Contains localized messages for `js2-mode'. (defvar js2-message-table (make-hash-table :test 'equal :size 250) (#$ . 59275)) #@26 (fn KEY &rest STRINGS) (defalias 'js2-msg '(macro . #[385 "\300\301B\302BBB\207" [puthash concat (js2-message-table)] 6 (#$ . 59406)])) #@156 Look up a localized message. MSG-KEY is a list of (MSG ARGS). If the message takes parameters, the correct number of ARGS must be provided. (fn MSG-KEY) (defalias 'js2-get-msg #[257 "\211<\203\n\211@\202 \211<\205A\301\"\211\203\"\302\303#\202#\207" [js2-message-table gethash apply format] 8 (#$ . 59553)]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\365#\210\301\366\367#\210\301\370\371#\210\301\372\373#\210\301\374\375#\210\301\376\377#\210\301\201@\201A#\210\301\201B\201C#\210\301\201D\201E#\210\301\201F\201G#\210\301\201H\201I#\210\301\201J\201K#\210\301\201L\201M#\210\301\201N\201O#\210\301\201P\201Q#\210\301\201R\201S#\210\301\201T\201U#\210\301\201V\201W#\210\301\201X\201Y#\210\301\201Z\201[#\210\301\201\\\201]#\210\301\201^\201_#\210\301\201`\201a#\210\301\201b\201c#\210\301\201d\201e#\210\301\201f\201g#\210\301\201h\201i#\210\301\201j\201k#\210\301\201l\201m#\210\301\201n\201o#\210\301\201p\201q#\210\301\201r\201s#\210\301\201t\201u#\210\301\201v\201w#\210\301\201x\201y#\210\301\201z\201{#\210\301\201|\201}#\210\301\201~\201#\210\301\201\200\201\201#\210\301\201\202\201\203#\210\301\201\204\201\205#\210\301\201\206\201\207#\210\301\201\210\201\211#\210\301\201\212\201\213#\210\301\201\214\201\215#\210\301\201\216\201\217#\210\301\201\220\201\221#\210\301\201\222\201\223#\210\301\201\224\201\225#\210\301\201\226\201\227#\210\301\201\230\201\231#\210\301\201\232\201\233#\210\301\201\234\201\235#\210\301\201\236\201\237#\210\301\201\240\201\241#\210\301\201\242\201\243#\210\301\201\244\201\245#\210\301\201\246\201\247#\210\301\201\250\201\251#\210\301\201\252\201\253#\210\301\201\254\201\255#\210\301\201\256\201\257#\210\301\201\260\201\261#\210\301\201\262\201\263#\210\301\201\264\201\265#\210\301\201\266\201\267#\210\301\201\270\201\271#\210\301\201\272\201\273#\210\301\201\274\201\275#\210\301\201\276\201\277#\210\301\201\300\201\301#\210\301\201\302\201\303#\210\301\201\304\201\305#\210\301\201\306\201\307#\210\301\201\310\201\311#\210\301\201\312\201\313#\210\301\201\314\201\315#\210\301\201\316\201\317#\210\301\201\320\201\321#\210\301\201\322\201\323#\210\301\201\324\201\325#\210\301\201\326\201\327#\210\301\201\330\201\331#\210\301\201\332\201\333#\210\301\201\334\201\335#\210\301\201\336\201\337#\210\301\201\340\201\341#\210\301\201\342\201\343#\210\301\201\344\201\345#\210\301\201\346\201\347#\210\301\201\350\201\351#\210\301\201\352\201\353#\210\301\201\354\201\355#\210\301\201\356\201\357#\210\301\201\360\201\361#\210\301\201\362\201\363#\210\301\201\364\201\365#\210\301\201\366\201\367#\210\301\201\370\201\371#\210\301\201\372\201\373#\210\301\201\374\201\375#\210\301\201\376\201\377#\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201\201 #\210\301\201\n\201 #\210\301\201\f\201 #\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201\201#\210\301\201 \201!#\210\301\201\"\201##\210\301\201$\201%#\210\301\201&\201'#\210\301\201(\201)#\210\301\201*\201+#\210\301\201,\201-#\210\301\201.\201/#\210\301\2010\2011#\210\301\2012\2013#\210\301\2014\2015#\210\301\2016\2017#\210\301\2018\2019#\210\301\201:\201;#\210\301\201<\201=#\210\301\201>\201?#\210\301\201@\201A#\210\301\201B\201C#\210\301\201D\201E#\210\301\201F\201G#\210\301\201H\201I#\210\301\201J\201K#\210\301\201L\201M#\210\301\201N\201O#\210\301\201P\201Q#\210\301\201R\201S#\210\301\201T\201U#\210\301\201V\201W#\210\301\201X\201Y#\210\301\201Z\201[#\210\301\201\\\201]#\210\301\201^\201_#\210\301\201`\201a#\210\301\201b\201c#\210\301\201d\201e#\210\301\201f\201g#\210\301\201h\201i#\210\301\201j\201k#\210\301\201l\201m#\210\301\201n\201o#\210\301\201p\201q#\210\301\201r\201s#\210\301\201t\201u#\210\301\201v\201w#\210\301\201x\201y#\210\301\201z\201{#\210\301\201|\201}#\210\301\201~\201#\210\301\201\200\201\201#\210\301\201\202\201\203#\210\301\201\204\201\205#\210\301\201\206\201\207#\210\301\201\210\201\211#\210\301\201\212\201\213#\210\301\201\214\201\215#\210\301\201\216\201\217#\210\301\201\220\201\221#\210\301\201\222\201\223#\210\301\201\224\201\225#\210\301\201\226\201\227#\210\301\201\230\201\231#\210\301\201\232\201\233#\210\301\201\234\201\235#\210\301\201\236\201\237#\210\301\201\240\201\241#\210\301\201\242\201\243#\210\301\201\244\201\245#\210\301\201\246\201\247#\210\301\201\250\201\251#\210\301\201\252\201\253#\210\301\201\254\201\255#\210\301\201\256\201\257#\210\301\201\260\201\261#\210\301\201\262\201\263#\210\301\201\264\201\265#\210\301\201\266\201\267#\210\301\201\270\201\271#\210\301\201\272\201\273#\210\301\201\274\201\275#\210\301\201\276\201\277#\210\301\201\300\201\301#\210\301\201\302\201\303#\207" [js2-message-table puthash "msg.dup.parms" "Duplicate parameter name '%s'." "msg.too.big.jump" "Program too complex: jump offset too big." "msg.too.big.index" "Program too complex: internal index exceeds 64K limit." "msg.while.compiling.fn" "Encountered code generation error while compiling function '%s': %s" "msg.while.compiling.script" "Encountered code generation error while compiling script: %s" "msg.ctor.not.found" "Constructor for '%s' not found." "msg.not.ctor" "'%s' is not a constructor." "msg.varargs.ctor" "Method or constructor '%s' must be static with the signature (Context cx, Object[] args, Function ctorObj, boolean inNewExpr) to define a variable arguments constructor." "msg.varargs.fun" "Method '%s' must be static with the signature (Context cx, Scriptable thisObj, Object[] args, Function funObj) to define a variable arguments function." "msg.incompat.call" "Method '%s' called on incompatible object." "msg.bad.parms" "Unsupported parameter type '%s' in method '%s'." "msg.bad.method.return" "Unsupported return type '%s' in method '%s'." "msg.bad.ctor.return" "Construction of objects of type '%s' is not supported." "msg.no.overload" "Method '%s' occurs multiple times in class '%s'." "msg.method.not.found" "Method '%s' not found in '%s'." "msg.bad.for.in.lhs" "Invalid left-hand side of for..in loop." "msg.mult.index" "Only one variable allowed in for..in loop." "msg.bad.for.in.destruct" "Left hand side of for..in loop must be an array of length 2 to accept key/value pair." "msg.cant.convert" "Can't convert to type '%s'." "msg.bad.assign.left" "Invalid assignment left-hand side." "msg.bad.decr" "Invalid decrement operand." "msg.bad.incr" "Invalid increment operand." "msg.bad.yield" "yield must be in a function." "msg.bad.await" "await must be in async functions." "msg.cant.call.indirect" "Function '%s' must be called directly, and not by way of a function of another name." "msg.eval.nonstring" "Calling eval() with anything other than a primitive string value will simply return the value. Is this what you intended?" "msg.eval.nonstring.strict" "Calling eval() with anything other than a primitive string value is not allowed in strict mode." "msg.bad.destruct.op" "Invalid destructuring assignment operator" "msg.only.from.new" "'%s' may only be invoked from a `new' expression." "msg.deprec.ctor" "The '%s' constructor is deprecated." "msg.no.function.ref.found" "no source found to decompile function reference %s" "msg.arg.isnt.array" "second argument to Function.prototype.apply must be an array" "msg.bad.esc.mask" "invalid string escape mask" "msg.bad.quant" "Invalid quantifier %s" "msg.overlarge.backref" "Overly large back reference %s" "msg.overlarge.min" "Overly large minimum %s" "msg.overlarge.max" "Overly large maximum %s" "msg.zero.quant" "Zero quantifier %s" "msg.max.lt.min" "Maximum %s less than minimum" "msg.unterm.quant" "Unterminated quantifier %s" "msg.unterm.paren" "Unterminated parenthetical %s" "msg.unterm.class" "Unterminated character class %s" "msg.bad.range" "Invalid range in character class." "msg.trail.backslash" "Trailing \\ in regular expression." "msg.re.unmatched.right.paren" "unmatched ) in regular expression." "msg.no.regexp" "Regular expressions are not available." "msg.bad.backref" "back-reference exceeds number of capturing parentheses." "msg.bad.regexp.compile" "Only one argument may be specified if the first argument to RegExp.prototype.compile is a RegExp object." "msg.got.syntax.errors" "Compilation produced %s syntax errors." "msg.var.redecl" "Redeclaration of var %s." "msg.const.redecl" "TypeError: redeclaration of const %s." "msg.let.redecl" "TypeError: redeclaration of variable %s." "msg.parm.redecl" "TypeError: redeclaration of formal parameter %s." "msg.fn.redecl" "TypeError: redeclaration of function %s." "msg.let.decl.not.in.block" "SyntaxError: let declaration not directly within block" "msg.mod.import.decl.at.top.level" "SyntaxError: import declarations may only appear at the top level" "msg.mod.as.after.reserved.word" "SyntaxError: missing keyword 'as' after reserved word %s" "msg.mod.rc.after.import.spec.list" "SyntaxError: missing '}' after module specifier list" "msg.mod.from.after.import.spec.set" "SyntaxError: missing keyword 'from' after import specifier set" "msg.mod.declaration.after.import" "SyntaxError: missing declaration after 'import' keyword" "msg.mod.spec.after.from" "SyntaxError: missing module specifier after 'from' keyword" "msg.mod.export.decl.at.top.level" "SyntaxError: export declarations may only appear at top level" "msg.mod.rc.after.export.spec.list" "SyntaxError: missing '}' after export specifier list" "msg.dup.label" "duplicated label" "msg.undef.label" "undefined label" "msg.bad.break" "unlabelled break must be inside loop or switch" "msg.continue.outside" "continue must be inside loop" "msg.continue.nonloop" "continue can only use labels of iteration statements" "msg.bad.throw.eol" "Line terminator is not allowed between the throw keyword and throw expression." "msg.unnamed.function.stmt" "function statement requires a name" "msg.no.paren.parms" "missing ( before function parameters." "msg.no.parm" "missing formal parameter" "msg.no.paren.after.parms" "missing ) after formal parameters" "msg.no.default.after.default.param" "parameter without default follows parameter with default" "msg.param.after.rest" "parameter after rest parameter" "msg.bad.arrow.args" "invalid arrow-function arguments (parentheses around the arrow-function may help)" "msg.no.brace.body" "missing '{' before function body" "msg.no.brace.after.body" "missing } after function body" "msg.no.paren.cond" "missing ( before condition" "msg.no.paren.after.cond" "missing ) after condition" "msg.no.semi.stmt" "missing ; before statement" "msg.missing.semi" "missing ; after statement" "msg.no.name.after.dot" "missing name after . operator" "msg.no.name.after.coloncolon" "missing name after :: operator" "msg.no.name.after.dotdot" "missing name after .. operator" "msg.no.name.after.xmlAttr" "missing name after .@" "msg.no.bracket.index" "missing ] in index expression" "msg.no.paren.switch" "missing ( before switch expression" "msg.no.paren.after.switch" "missing ) after switch expression" "msg.no.brace.switch" "missing '{' before switch body" "msg.bad.switch" "invalid switch statement" "msg.no.colon.case" "missing : after case expression" "msg.double.switch.default" "double default label in the switch statement" "msg.no.while.do" "missing while after do-loop body" "msg.no.paren.for" "missing ( after for" "msg.no.semi.for" "missing ; after for-loop initializer" "msg.no.semi.for.cond" "missing ; after for-loop condition" "msg.in.after.for.name" "missing in or of after for" "msg.no.paren.for.ctrl" "missing ) after for-loop control" "msg.no.paren.with" "missing ( before with-statement object" "msg.no.paren.after.with" "missing ) after with-statement object" "msg.no.with.strict" "with statements not allowed in strict mode" "msg.no.paren.after.let" "missing ( after let" "msg.no.paren.let" "missing ) after variable list" "msg.no.curly.let" "missing } after let statement" "msg.bad.return" "invalid return" "msg.no.brace.block" "missing } in compound statement" "msg.bad.label" "invalid label" "msg.bad.var" "missing variable name" "msg.bad.var.init" "invalid variable initialization" "msg.no.colon.cond" "missing : in conditional expression" "msg.bad.optional.chaining" "missing property name or [ or ( after optional chaining operator" "msg.no.paren.arg" "missing ) after argument list" "msg.no.bracket.arg" "missing ] after element list" "msg.bad.prop" "invalid property id" "msg.no.colon.prop" "missing : after property id" "msg.no.brace.prop" "missing } after property list" "msg.no.paren" "missing ) in parenthetical" "msg.reserved.id" "'%s' is a reserved identifier" "msg.no.paren.catch" "missing ( before catch-block condition" "msg.bad.catchcond" "invalid catch block condition" "msg.catch.unreachable" "any catch clauses following an unqualified catch are unreachable" "msg.no.brace.try" "missing '{' before try block" "msg.no.brace.catchblock" "missing '{' before catch-block body" "msg.try.no.catchfinally" "'try' without 'catch' or 'finally'" "msg.no.return.value" "function %s does not always return a value" "msg.anon.no.return.value" "anonymous function does not always return a value" "msg.return.inconsistent" "return statement is inconsistent with previous usage" "msg.generator.returns" "TypeError: legacy generator function '%s' returns a value" "msg.anon.generator.returns" "TypeError: anonymous legacy generator function returns a value" "msg.syntax" "syntax error" "msg.unexpected.eof" "Unexpected end of file" "msg.XML.bad.form" "illegally formed XML syntax" "msg.XML.not.available" "XML runtime not available" "msg.too.deep.parser.recursion" "Too deep recursion while parsing" "msg.no.side.effects" "Code has no side effects" "msg.extra.trailing.comma" "Trailing comma is not supported in some browsers" "msg.array.trailing.comma" "Trailing comma yields different behavior across browsers" "msg.equal.as.assign" "Test for equality (==) mistyped as assignment (=)? (parenthesize to suppress warning)" "msg.var.hides.arg" "Variable %s hides argument" "msg.destruct.assign.no.init" "Missing = in destructuring declaration" "msg.init.no.destruct" "Binding initializer not in destructuring assignment" "msg.no.octal.strict" "Octal numbers prohibited in strict mode." "msg.dup.obj.lit.prop.strict" "Property '%s' already defined in this object literal." "msg.dup.param.strict" "Parameter '%s' already declared in this function." "msg.bad.id.strict" "'%s' is not a valid identifier for this use in strict mode." "msg.no.properties" "%s has no properties." "msg.invalid.iterator" "Invalid iterator value" "msg.iterator.primitive" "__iterator__ returned a primitive value" "msg.assn.create.strict" "Assignment to undeclared variable %s" "msg.undeclared.variable" "Undeclared variable or function '%s'" "msg.unused.variable" "Unused variable or function '%s'" "msg.uninitialized.variable" "Variable '%s' referenced but never initialized" "msg.ref.undefined.prop" "Reference to undefined property '%s'" "msg.prop.not.found" "Property %s not found." "msg.invalid.type" "Invalid JavaScript value of type %s" "msg.primitive.expected" "Primitive type expected (had %s instead)" "msg.namespace.expected" "Namespace object expected to left of :: (found %s instead)" "msg.null.to.object" "Cannot convert null to an object." "msg.undef.to.object" "Cannot convert undefined to an object." "msg.cyclic.value" "Cyclic %s value not allowed." "msg.is.not.defined" "'%s' is not defined." "msg.undef.prop.read" "Cannot read property '%s' from %s" "msg.undef.prop.write" "Cannot set property '%s' of %s to '%s'" "msg.undef.prop.delete" "Cannot delete property '%s' of %s" "msg.undef.method.call" "Cannot call method '%s' of %s" "msg.undef.with" "Cannot apply 'with' to %s" "msg.isnt.function" "%s is not a function, it is %s." "msg.isnt.function.in" "Cannot call property %s in object %s. It is not a function, it is '%s'." "msg.function.not.found" "Cannot find function %s." "msg.function.not.found.in" "Cannot find function %s in object %s." "msg.isnt.xml.object" "%s is not an xml object." "msg.no.ref.to.get" "%s is not a reference to read reference value." "msg.no.ref.to.set" "%s is not a reference to set reference value to %s." "msg.no.ref.from.function" "Function %s can not be used as the left-hand side of assignment or as an operand of ++ or -- operator." "msg.bad.default.value" "Object's getDefaultValue() method returned an object." "msg.instanceof.not.object" "Can't use instanceof on a non-object." "msg.instanceof.bad.prototype" "'prototype' property of %s is not an object." "msg.bad.radix" "illegal radix %s." "msg.default.value" "Cannot find default value for object." "msg.zero.arg.ctor" "Cannot load class '%s' which has no zero-parameter constructor." "msg.ctor.multiple.parms" "Can't define constructor or class %s since more than one constructor has multiple parameters." "msg.extend.scriptable" "%s must extend ScriptableObject in order to define property %s." "msg.bad.getter.parms" "In order to define a property, getter %s must have zero parameters or a single ScriptableObject parameter." "msg.obj.getter.parms" "Expected static or delegated getter %s to take a ScriptableObject parameter." "msg.getter.static" "Getter and setter must both be static or neither be static." "msg.setter.return" "Setter must have void return type: %s" "msg.setter2.parms" "Two-parameter setter must take a ScriptableObject as its first parameter." "msg.setter1.parms" "Expected single parameter setter for %s" "msg.setter2.expected" "Expected static or delegated setter %s to take two parameters." "msg.setter.parms" "Expected either one or two parameters for setter." "msg.setter.bad.type" "Unsupported parameter type '%s' in setter '%s'." "msg.add.sealed" "Cannot add a property to a sealed object: %s." "msg.remove.sealed" "Cannot remove a property from a sealed object: %s." "msg.modify.sealed" "Cannot modify a property of a sealed object: %s." "msg.modify.readonly" "Cannot modify readonly property: %s." "msg.missing.exponent" "missing exponent" "msg.caught.nfe" "number format error" "msg.unterminated.string.lit" "unterminated string literal" "msg.unterminated.comment" "unterminated comment" "msg.unterminated.re.lit" "unterminated regular expression literal" "msg.invalid.re.flag" "invalid flag after regular expression" "msg.no.re.input.for" "no input for %s" "msg.illegal.character" "illegal character" "msg.invalid.escape" "invalid Unicode escape sequence" "msg.bad.namespace" "not a valid default namespace statement. Syntax is: default xml namespace = EXPRESSION;" "msg.bad.octal.literal" "illegal octal literal digit %s; interpreting it as a decimal digit" "msg.missing.hex.digits" "missing hexadecimal digits after '0x'" "msg.missing.binary.digits" "missing binary digits after '0b'" "msg.missing.octal.digits" "missing octal digits after '0o'" "msg.script.is.not.constructor" "Script objects are not constructors." "msg.arraylength.bad" "Inappropriate array length." "msg.arraylength.too.big" "Array length %s exceeds supported capacity limit." "msg.bad.uri" "Malformed URI sequence." "msg.bad.precision" "Precision %s out of range." "msg.send.newborn" "Attempt to send value to newborn generator" "msg.already.exec.gen" "Already executing generator" "msg.StopIteration.invalid" "StopIteration may not be changed to an arbitrary object." "msg.yield.closing" "Yield from closing generator" "msg.unnamed.class.stmt" "class statement requires a name" "msg.class.unexpected.comma" "unexpected ',' between class properties" "msg.unexpected.static" "unexpected 'static'" "msg.missing.extends" "name is required after extends" "msg.no.brace.class" "missing '{' before class body" "msg.missing.computed.rb" "missing ']' after computed property expression"] 4) (defconst js2-ti-max-lookahead 2) (defconst js2-ti-ntokens (1+ js2-ti-max-lookahead)) #@15 (fn OFFSET) (defalias 'js2-new-token #[257 "\305\306 \\\307\310\311\211\211\211\211\211& \312\nT \"\f\nI\210\211\207" [js2-EOF js2-ts-cursor js2-ti-tokens-cursor js2-ti-ntokens js2-ti-tokens record js2-token -1 "" nil mod] 13 (#$ . 80345)]) (defalias 'js2-current-token #[0 " H\207" [js2-ti-tokens js2-ti-tokens-cursor] 2]) (put 'js2-current-token 'byte-optimizer 'byte-compile-inline-expand) (defalias 'js2-current-token-string #[0 " H\303!\n>\204\304\305\306D\"\210\211\307H\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 4] 5]) (put 'js2-current-token-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'js2-current-token-type #[0 " H\303!\n>\204\304\305\306D\"\210\211\307H\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 1] 5]) (put 'js2-current-token-type 'byte-optimizer 'byte-compile-inline-expand) (defalias 'js2-current-token-beg #[0 " H\303!\n>\204\304\305\306D\"\210\211\307H\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 2] 5]) (put 'js2-current-token-beg 'byte-optimizer 'byte-compile-inline-expand) (defalias 'js2-current-token-end #[0 " H\303!\n>\204\304\305\306D\"\210\211\307H\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 3] 5]) (put 'js2-current-token-end 'byte-optimizer 'byte-compile-inline-expand) (defalias 'js2-current-token-len #[0 " H\303!\n>\204\304\305\306D\"\210\211\307H\303!\n>\204$\304\305\306D\"\210\310HZ\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags type-of signal wrong-type-argument js2-token 3 2] 6]) #@14 (fn STATE) (defalias 'js2-ts-seek #[257 "\306!>\204\307\310\311D\"\210\211\312H\306!>\204\"\307\310\311D\"\210\211\313H\306!>\2045\307\310\311D\"\210\211\314H\306!>\204H\307\310\311D\"\210\211\315H\306!>\204[\307\310\311D\"\210\211\316H\211\207" [cl-struct-js2-ts-state-tags js2-ts-lineno js2-ts-cursor js2-ti-tokens js2-ti-tokens-cursor js2-ti-lookahead type-of signal wrong-type-argument js2-ts-state 1 2 3 4 5] 5 (#$ . 82115)]) #@69 Remove all items satisfying PREDICATE in LIST. (fn PREDICATE LIST) (defalias 'js2-delete-if #[514 "\211\300\211:\203@\262!\204B\262A\262\202\211\237\207" [nil] 7 (#$ . 82580)]) #@133 Find 0-indexed position of ELEMENT in LIST comparing with `eq'. Returns nil if element is not found in the list. (fn ELEMENT LIST) (defalias 'js2-position #[514 "\300\301\203\"\211\204\"@=\203\302\262\202T\262A\262\202\211\205'\207" [0 nil t] 6 (#$ . 82781)]) #@68 Find first item satisfying PREDICATE in LIST. (fn PREDICATE LIST) (defalias 'js2-find-if #[514 "\300\203\211\204@!\203@\262A\262\202\211\207" [nil] 5 (#$ . 83066)]) #@75 Evaluate FORM, discard result, and return elapsed time in sec. (fn FORM) (defalias 'js2-time '(macro . #[257 "\300\301!\302\303BC\304\305\306\307\310\311 DE\312BBD\313BBF\207" [make-symbol "--js2-time-beg--" let ((current-time)) / truncate * - (float-time (current-time)) float-time (10000) (10000.0)] 12 (#$ . 83253)])) (put 'js2-time 'edebug-form-spec t) #@65 Return t if POS is on the same line as current point. (fn POS) (defalias 'js2-same-line #[257 "\211\300 Y\205 \211\301 X\207" [point-at-bol point-at-eol] 3 (#$ . 83620)]) (put 'js2-same-line 'byte-optimizer 'byte-compile-inline-expand) #@60 Signal an error when we encounter an unexpected code path. (defalias 'js2-code-bug #[0 "\300\301!\207" [error "failed assertion"] 2 (#$ . 83864)]) #@79 Record a text property to set when parsing finishes. (fn BEG END PROP VALUE) (defalias 'js2-record-text-property #[1028 "FB\211\207" [js2-mode-deferred-properties] 8 (#$ . 84017)]) (put 'js2-record-text-property 'byte-optimizer 'byte-compile-inline-expand) #@34 (fn MSG &optional ARG POS LEN) (defalias 'js2-record-parse-error #[1025 "D\206 H\304!\n>\204\305\306\307D\"\210\211\310H\262\206$\311 E B\211\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-parsed-errors type-of signal wrong-type-argument js2-token 2 js2-current-token-len] 10 (#$ . 84287)]) #@84 Signal a syntax error or record a parse error. (fn MSG &optional MSG-ARG POS LEN) (defalias 'js2-report-error #[1025 "\203 \304$\207\305\306 \212\nb\210i) F\"\207" [js2-recover-from-parse-errors js2-ts-lineno js2-ts-cursor js2-ts-hit-eof js2-record-parse-error signal js2-syntax-error] 10 (#$ . 84623)]) #@43 (fn MSG &optional MSG-ARG POS LEN FACE) (defalias 'js2-report-warning #[1281 "\203 \305$\207D\206) \nH\306! >\204$\307\310\311D\"\210\211\312H\262\206/\313 F\fB\211\207" [js2-compiler-report-warning-as-error js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-parsed-warnings js2-report-error type-of signal wrong-type-argument js2-token 2 js2-current-token-len] 11 (#$ . 84941)]) #@41 (fn MSG-ID &optional MSG-ARG BEG END) (defalias 'js2-add-strict-warning #[1025 "\205\301\211\205\205Z$\207" [js2-compiler-strict-mode js2-report-warning] 10 (#$ . 85360)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\210\300\306\304\310#\207" [put js2-syntax-error error-conditions (error syntax-error js2-syntax-error) error-message "Syntax error" js2-parse-error (error parse-error js2-parse-error) "Parse error"] 4) #@19 (fn FLAGS FLAG) (defalias 'js2-clear-flag '(macro . #[514 "\300\301\302DEE\207" [setq logand lognot] 8 (#$ . 85828)])) #@46 Logical-or FLAG into FLAGS. (fn FLAGS FLAG) (defalias 'js2-set-flag '(macro . #[514 "\300\301EE\207" [setq logior] 7 (#$ . 85958)])) #@19 (fn FLAGS FLAG) (defalias 'js2-flag-set-p #[514 "\300\"\301U?\207" [logand 0] 5 (#$ . 86101)]) (put 'js2-flag-set-p 'byte-optimizer 'byte-compile-inline-expand) #@19 (fn FLAGS FLAG) (defalias 'js2-flag-not-set-p #[514 "\300\"\301U\207" [logand 0] 5 (#$ . 86272)]) (put 'js2-flag-not-set-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Property access: element is valid name. (defvar js2-property-flag 1 (#$ . 86450)) #@16 x.@y or x..@y. (defvar js2-attribute-flag 2 (#$ . 86538)) #@16 x..y or x..@i. (defvar js2-descendants-flag 4 (#$ . 86602)) #@84 Convert POS to be relative to ANCHOR. If POS is nil, returns nil. (fn POS ANCHOR) (defalias 'js2-relpos #[514 "\205Z\207" [] 4 (#$ . 86668)]) (put 'js2-relpos 'byte-optimizer 'byte-compile-inline-expand) #@15 (fn INDENT) (defalias 'js2-make-pad #[257 "\211\301U\203\302\207\303_\304\"\207" [js2-basic-offset 0 "" make-string 32] 4 (#$ . 86884)]) #@668 Visit every node in ast NODE with visitor CALLBACK. CALLBACK is a function that takes two arguments: (NODE END-P). It is called twice: once to visit the node, and again after all the node's children have been processed. The END-P argument is nil on the first call and non-nil on the second call. The return value of the callback affects the traversal: if non-nil, the children of NODE are processed. If the callback returns nil, or if the node has no children, then the callback is called immediately with a non-nil END-P argument. The node traversal is approximately lexical-order, although there are currently no guarantees around this. (fn NODE CALLBACK) (defalias 'js2-visit-ast #[514 "\205/\300H\301N\302\"\203)\211\303=\204)\211\203\"\211\"\210\202)\304\305\300H\"\210\306\"\262\207" [0 js2-visitor nil js2-visit-none error "%s does not define a visitor-traversal function" t] 7 (#$ . 87034)]) #@67 compiler-macro for inlining `js2-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-node-p (and (memq (type-of cl-x) cl-struct-js2-node-tags) t)) nil] 9 (#$ . 87964)]) (put 'js2-node-p 'compiler-macro 'js2-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-node-tags type-of t] 3 (#$ . 88287)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-node-p side-effect-free error-free put js2-node cl-deftype-satisfies] 5) #@70 compiler-macro for inlining `js2-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-node-type (or (js2-node-p cl-x) (signal 'wrong-type-argument (list 'js2-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 88554)]) (put 'js2-node-type 'compiler-macro 'js2-node-type--cmacro) #@79 Access slot "type" of `(js2-node (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 1] 5 (#$ . 88927)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-node-type side-effect-free t] 4) #@69 compiler-macro for inlining `js2-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-node-pos (or (js2-node-p cl-x) (signal 'wrong-type-argument (list 'js2-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 89271)]) (put 'js2-node-pos 'compiler-macro 'js2-node-pos--cmacro) #@78 Access slot "pos" of `(js2-node (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 2] 5 (#$ . 89639)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-node-pos side-effect-free t] 4) #@69 compiler-macro for inlining `js2-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-node-len (or (js2-node-p cl-x) (signal 'wrong-type-argument (list 'js2-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 89980)]) (put 'js2-node-len 'compiler-macro 'js2-node-len--cmacro) #@78 Access slot "len" of `(js2-node (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 3] 5 (#$ . 90348)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-node-len side-effect-free t] 4) #@71 compiler-macro for inlining `js2-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-node-props (or (js2-node-p cl-x) (signal 'wrong-type-argument (list 'js2-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 90689)]) (put 'js2-node-props 'compiler-macro 'js2-node-props--cmacro) #@80 Access slot "props" of `(js2-node (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 4] 5 (#$ . 91067)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-node-props side-effect-free t] 4) #@72 compiler-macro for inlining `js2-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-node-parent (or (js2-node-p cl-x) (signal 'wrong-type-argument (list 'js2-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 91414)]) (put 'js2-node-parent 'compiler-macro 'js2-node-parent--cmacro) #@81 Access slot "parent" of `(js2-node (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 5] 5 (#$ . 91797)]) (byte-code "\300\301\302\303#\304\305\306\"\210\307\310\311\312\313\314\315\316\310\303& \207" [function-put js2-node-parent side-effect-free t defalias copy-js2-node copy-sequence cl-struct-define js2-node "Base AST node type." cl-structure-object record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props) (parent)) cl-struct-js2-node-tags] 11) #@36 (fn NODE PROP &optional DEFAULT) (defalias 'js2-node-get-prop #[770 "\301\302!>\204\303\304\305D\"\210\306H\"A@\206\211\207" [cl-struct-js2-node-tags assoc type-of signal wrong-type-argument js2-node 4] 9 (#$ . 92404)]) (put 'js2-node-get-prop 'byte-optimizer 'byte-compile-inline-expand) #@24 (fn NODE PROP VALUE) (defalias 'js2-node-set-prop #[771 "\301!>\204\302\303\304D\"\210\211\305D\301!>\204&\302\303\304 D\"\210\305HBI\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 4] 11 (#$ . 92711)]) (put 'js2-node-set-prop 'byte-optimizer 'byte-compile-inline-expand) #@122 Adjust the start positions of NODES to be relative to N. Any node in the list may be nil, for convenience. (fn N NODES) (defalias 'js2-fixup-starts #[514 "\211\211\205P\211@\211\203I\301!>\204\302\303\304D\"\210\211\211\305\301!>\204-\302\303\304D\"\210\305H\301!>\204A\302\303\304\nD\"\210\305HZI\266A\266\202\202\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 2] 12 (#$ . 93033)]) #@192 Set parent node of NODES to PARENT, and return PARENT. Does nothing if we're not recording parent links. If any given node in NODES is nil, doesn't record that link. (fn PARENT &rest NODES) (defalias 'js2-node-add-children #[385 "\301\"\210\211\211\205.\211@\211\203'\302!>\204\303\304\305D\"\210\211\211\306I\266A\266\202\202\207" [cl-struct-js2-node-tags js2-fixup-starts type-of signal wrong-type-argument js2-node 5] 8 (#$ . 93475)]) #@10 (fn N) (defalias 'js2-node-abs-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\306H\211\262\203C\211\301!>\204:\302\303\304D\"\210\305H\\\262\202\211\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 2 5] 7 (#$ . 93935)]) #@54 Return absolute buffer position of end of N. (fn N) (defalias 'js2-node-abs-end #[257 "\301!\302!>\204\303\304\305D\"\210\306H\\\207" [cl-struct-js2-node-tags js2-node-abs-pos type-of signal wrong-type-argument js2-node 3] 6 (#$ . 94241)]) (put 'js2-node-abs-end 'byte-optimizer 'byte-compile-inline-expand) #@23 (fn NAME KEY VALUE) (defalias 'js2--struct-put #[771 "\300#\210\300\301\302\303\"!#\207" [put intern format "cl-struct-%s"] 8 (#$ . 94563)]) #@73 compiler-macro for inlining `js2-block-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-block-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-block-node-p (and (memq (type-of cl-x) cl-struct-js2-block-node-tags) t)) nil] 9 (#$ . 94719)]) (put 'js2-block-node-p 'compiler-macro 'js2-block-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-block-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-block-node-tags type-of t] 3 (#$ . 95078)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-block-node-p side-effect-free error-free put js2-block-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-block-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-block-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-block-node-type (or (js2-block-node-p cl-x) (signal 'wrong-type-argument (list 'js2-block-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 95369)]) (put 'js2-block-node-type 'compiler-macro 'js2-block-node-type--cmacro) #@190 Access slot "type" of `(js2-block-node (:include js2-node) (:constructor make-js2-block-node (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len props kids)))' struct CL-X. (fn CL-X) (defalias 'js2-block-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 1] 5 (#$ . 95785)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-block-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-block-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-block-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-block-node-pos (or (js2-block-node-p cl-x) (signal 'wrong-type-argument (list 'js2-block-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 96264)]) (put 'js2-block-node-pos 'compiler-macro 'js2-block-node-pos--cmacro) #@189 Access slot "pos" of `(js2-block-node (:include js2-node) (:constructor make-js2-block-node (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len props kids)))' struct CL-X. (fn CL-X) (defalias 'js2-block-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 2] 5 (#$ . 96675)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-block-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-block-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-block-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-block-node-len (or (js2-block-node-p cl-x) (signal 'wrong-type-argument (list 'js2-block-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 97151)]) (put 'js2-block-node-len 'compiler-macro 'js2-block-node-len--cmacro) #@189 Access slot "len" of `(js2-block-node (:include js2-node) (:constructor make-js2-block-node (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len props kids)))' struct CL-X. (fn CL-X) (defalias 'js2-block-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 3] 5 (#$ . 97562)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-block-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-block-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-block-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-block-node-props (or (js2-block-node-p cl-x) (signal 'wrong-type-argument (list 'js2-block-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 98038)]) (put 'js2-block-node-props 'compiler-macro 'js2-block-node-props--cmacro) #@191 Access slot "props" of `(js2-block-node (:include js2-node) (:constructor make-js2-block-node (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len props kids)))' struct CL-X. (fn CL-X) (defalias 'js2-block-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 4] 5 (#$ . 98459)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-block-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-block-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-block-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-block-node-parent (or (js2-block-node-p cl-x) (signal 'wrong-type-argument (list 'js2-block-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 98941)]) (put 'js2-block-node-parent 'compiler-macro 'js2-block-node-parent--cmacro) #@192 Access slot "parent" of `(js2-block-node (:include js2-node) (:constructor make-js2-block-node (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len props kids)))' struct CL-X. (fn CL-X) (defalias 'js2-block-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 5] 5 (#$ . 99367)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-block-node-parent side-effect-free t] 4) #@76 compiler-macro for inlining `js2-block-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-block-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-block-node-kids (or (js2-block-node-p cl-x) (signal 'wrong-type-argument (list 'js2-block-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 99852)]) (put 'js2-block-node-kids 'compiler-macro 'js2-block-node-kids--cmacro) #@190 Access slot "kids" of `(js2-block-node (:include js2-node) (:constructor make-js2-block-node (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len props kids)))' struct CL-X. (fn CL-X) (defalias 'js2-block-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 6] 5 (#$ . 100268)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-block-node-kids side-effect-free t defalias copy-js2-block-node copy-sequence] 4) #@144 compiler-macro for inlining `make-js2-block-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-BLOCK) (POS (js2-current-token-beg)) LEN PROPS KIDS) (defalias 'make-js2-block-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-BLOCK) :pos (nil (js2-current-token-beg)) :len (nil 1) :props :kids (:type :pos :len :props :kids :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :props :kids)" cl--defsubst-expand (type pos len props kids) (cl-block make-js2-block-node (record 'js2-block-node type pos len props nil kids))] 18 (#$ . 100802)]) (put 'make-js2-block-node 'compiler-macro 'make-js2-block-node--cmacro) #@124 Constructor for objects of type `js2-block-node'. (fn &key (TYPE js2-BLOCK) (POS (js2-current-token-beg)) LEN PROPS KIDS) (defalias 'make-js2-block-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\211\203p\211@\321>\203X\211AA\262\202E\322>A@\203g\306\262\202E\323\324@\"\210\202E\210\325\326\306&\207" [js2-BLOCK js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :props :kids (:type :pos :len :props :kids :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :props :kids)" record js2-block-node] 14 (#$ . 101700)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-block-node side-effect-free t cl-struct-define js2-block-node "A block of statements." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids)) cl-struct-js2-block-node-tags js2--struct-put js2-visitor js2-visit-block js2-printer js2-print-block] 11) #@64 Visit the `js2-block-node' children of AST. (fn AST CALLBACK) (defalias 'js2-visit-block #[514 "\301!>\204\302\303\304D\"\210\305H\211\205$\211@\306\"\210A\266\202\202\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 6 js2-visit-ast] 7 (#$ . 102930)]) #@12 (fn N I) (defalias 'js2-print-block #[514 "\301!\211\302\261\210\303!>\204\304\305\306D\"\210\307H\211\203-\211@\310T\"\210A\266\202\202\210\211\311\261\207" [cl-struct-js2-block-node-tags js2-make-pad "{\n" type-of signal wrong-type-argument js2-block-node 6 js2-print-ast "}"] 8 (#$ . 103238)]) #@68 compiler-macro for inlining `js2-scope-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-p (and (memq (type-of cl-x) cl-struct-js2-scope-tags) t)) nil] 9 (#$ . 103558)]) (put 'js2-scope-p 'compiler-macro 'js2-scope-p--cmacro) #@13 (fn CL-X) (defalias 'js2-scope-p #[257 "\301!>\205 \302\207" [cl-struct-js2-scope-tags type-of t] 3 (#$ . 103888)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-scope-p side-effect-free error-free put js2-scope cl-deftype-satisfies] 5) #@71 compiler-macro for inlining `js2-scope-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-type (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 1)) nil] 9 (#$ . 104160)]) (put 'js2-scope-type 'compiler-macro 'js2-scope-type--cmacro) #@180 Access slot "type" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 1] 5 (#$ . 104542)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-scope-type side-effect-free t] 4) #@70 compiler-macro for inlining `js2-scope-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-pos (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 2)) nil] 9 (#$ . 104992)]) (put 'js2-scope-pos 'compiler-macro 'js2-scope-pos--cmacro) #@179 Access slot "pos" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 2] 5 (#$ . 105369)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-scope-pos side-effect-free t] 4) #@70 compiler-macro for inlining `js2-scope-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-len (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 3)) nil] 9 (#$ . 105816)]) (put 'js2-scope-len 'compiler-macro 'js2-scope-len--cmacro) #@179 Access slot "len" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 3] 5 (#$ . 106193)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-scope-len side-effect-free t] 4) #@72 compiler-macro for inlining `js2-scope-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-props (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 4)) nil] 9 (#$ . 106640)]) (put 'js2-scope-props 'compiler-macro 'js2-scope-props--cmacro) #@181 Access slot "props" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 4] 5 (#$ . 107027)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-scope-props side-effect-free t] 4) #@73 compiler-macro for inlining `js2-scope-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-parent (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 5)) nil] 9 (#$ . 107480)]) (put 'js2-scope-parent 'compiler-macro 'js2-scope-parent--cmacro) #@182 Access slot "parent" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 5] 5 (#$ . 107872)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-scope-parent side-effect-free t] 4) #@71 compiler-macro for inlining `js2-scope-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-kids (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 6)) nil] 9 (#$ . 108328)]) (put 'js2-scope-kids 'compiler-macro 'js2-scope-kids--cmacro) #@180 Access slot "kids" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 6] 5 (#$ . 108710)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-scope-kids side-effect-free t] 4) #@79 compiler-macro for inlining `js2-scope-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-symbol-table (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 7)) nil] 9 (#$ . 109160)]) (put 'js2-scope-symbol-table 'compiler-macro 'js2-scope-symbol-table--cmacro) #@188 Access slot "symbol-table" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 7] 5 (#$ . 109582)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-scope-symbol-table side-effect-free t] 4) #@79 compiler-macro for inlining `js2-scope-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-parent-scope (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 8)) nil] 9 (#$ . 110056)]) (put 'js2-scope-parent-scope 'compiler-macro 'js2-scope-parent-scope--cmacro) #@188 Access slot "parent-scope" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 8] 5 (#$ . 110478)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-scope-parent-scope side-effect-free t] 4) #@70 compiler-macro for inlining `js2-scope-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-scope-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-scope-top (or (js2-scope-p cl-x) (signal 'wrong-type-argument (list 'js2-scope cl-x))) (aref cl-x 9)) nil] 9 (#$ . 110952)]) (put 'js2-scope-top 'compiler-macro 'js2-scope-top--cmacro) #@179 Access slot "top" of `(js2-scope (:include js2-block-node) (:constructor make-js2-scope (&key (type js2-BLOCK) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-scope-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 9] 5 (#$ . 111329)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-scope-top side-effect-free t defalias copy-js2-scope copy-sequence] 4) #@133 compiler-macro for inlining `make-js2-scope'. (fn CL-WHOLE &cl-quote &key (TYPE js2-BLOCK) (POS (js2-current-token-beg)) LEN KIDS) (defalias 'make-js2-scope--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-BLOCK) :pos (nil (js2-current-token-beg)) :len (nil 1) :kids (:type :pos :len :kids :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :kids)" cl--defsubst-expand (type pos len kids) (cl-block make-js2-scope (record 'js2-scope type pos len nil nil kids nil nil nil))] 16 (#$ . 111825)]) (put 'make-js2-scope 'compiler-macro 'make-js2-scope--cmacro) #@113 Constructor for objects of type `js2-scope'. (fn &key (TYPE js2-BLOCK) (POS (js2-current-token-beg)) LEN KIDS) (defalias 'make-js2-scope #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\211\203j\211@\320>\203R\211AA\262\202?\321>A@\203a\306\262\202?\322\323@\"\210\202?\210\324\325\306\211\306\211\211&\n\207" [js2-BLOCK js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :kids (:type :pos :len :kids :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :kids)" record js2-scope] 16 (#$ . 112648)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \210\313\305\314\315#\210\313\305\316\317#\207" [function-put make-js2-scope side-effect-free t cl-struct-define js2-scope nil js2-block-node record ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table) (parent-scope) (top)) cl-struct-js2-scope-tags js2--struct-put js2-visitor js2-visit-block js2-printer js2-print-none] 11) #@117 Return the innermost `js2-scope' node surrounding NODE. Returns nil if there is no enclosing scope node. (fn NODE) (defalias 'js2-node-get-enclosing-scope #[257 "\302!>\204\303\304\305D\"\210\211\306H\211\262\203 \302! >\203\207" [cl-struct-js2-node-tags cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-node 5] 5 (#$ . 113841)]) #@296 Search up scope chain from SCOPE looking for NAME, a string or symbol. Returns `js2-scope' in which NAME is defined, or nil if not found. If POINT is non-nil, and if the found declaration type is `js2-LET', also check that the declaration node is before POINT. (fn SCOPE NAME &optional POINT) (defalias 'js2-get-defining-scope #[770 "9\203 \202\f\304!\305\306\203\233\211\203\233\307!>\204(\310\311\312 D\"\210\313H\236A\211\205e?\206e \307!\n>\204G\310\311\314D\"\210\315H=?\206e\316\307!\n>\204`\310\311\314D\"\210\317H!Y\262\204y\320=\203\202\307! >\203\202\305\262\262\202\307!>\204\223\310\311\312D\"\210\321H\262\202\207" [cl-struct-js2-scope-tags js2-LET cl-struct-js2-symbol-tags cl-struct-js2-function-node-tags intern nil t type-of signal wrong-type-argument js2-scope 7 js2-symbol 1 js2-node-abs-pos 3 arguments 8] 13 (#$ . 114204)]) #@141 Return symbol table entry for NAME in SCOPE. NAME can be a string or symbol. Returns a `js2-symbol' or nil if not found. (fn SCOPE NAME) (defalias 'js2-scope-get-symbol #[514 "\301!>\204\302\303\304D\"\210\305H\2055\2119\203\211\202!\306!\301!>\2040\302\303\304D\"\210\305H\236A\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 7 intern] 7 (#$ . 115110)]) #@142 Enter SYMBOL into symbol-table for SCOPE under NAME. NAME can be a Lisp symbol or string. SYMBOL is a `js2-symbol'. (fn SCOPE NAME SYMBOL) (defalias 'js2-scope-put-symbol #[771 "\301!>\204\302\303\304D\"\210\305H9\203\202\306!\211\236\211\203+\211\241\202MB\301!>\204?\302\303\304 D\"\210\211\305\305HBI\262\262\207" [cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 7 intern] 13 (#$ . 115519)]) #@69 compiler-macro for inlining `js2-symbol-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-symbol-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-symbol-p (and (memq (type-of cl-x) cl-struct-js2-symbol-tags) t)) nil] 9 (#$ . 115974)]) (put 'js2-symbol-p 'compiler-macro 'js2-symbol-p--cmacro) #@13 (fn CL-X) (defalias 'js2-symbol-p #[257 "\301!>\205 \302\207" [cl-struct-js2-symbol-tags type-of t] 3 (#$ . 116310)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-symbol-p side-effect-free error-free put js2-symbol cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-symbol-decl-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-symbol-decl-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-symbol-decl-type (or (js2-symbol-p cl-x) (signal 'wrong-type-argument (list 'js2-symbol cl-x))) (aref cl-x 1)) nil] 9 (#$ . 116586)]) (put 'js2-symbol-decl-type 'compiler-macro 'js2-symbol-decl-type--cmacro) #@134 Access slot "decl-type" of `(js2-symbol (:constructor make-js2-symbol (decl-type name &optional ast-node)))' struct CL-X. (fn CL-X) (defalias 'js2-symbol-decl-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-symbol-tags type-of signal wrong-type-argument js2-symbol 1] 5 (#$ . 117000)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-symbol-decl-type side-effect-free t] 4) #@72 compiler-macro for inlining `js2-symbol-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-symbol-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-symbol-name (or (js2-symbol-p cl-x) (signal 'wrong-type-argument (list 'js2-symbol cl-x))) (aref cl-x 2)) nil] 9 (#$ . 117418)]) (put 'js2-symbol-name 'compiler-macro 'js2-symbol-name--cmacro) #@129 Access slot "name" of `(js2-symbol (:constructor make-js2-symbol (decl-type name &optional ast-node)))' struct CL-X. (fn CL-X) (defalias 'js2-symbol-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-symbol-tags type-of signal wrong-type-argument js2-symbol 2] 5 (#$ . 117807)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-symbol-name side-effect-free t] 4) #@76 compiler-macro for inlining `js2-symbol-ast-node'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-symbol-ast-node--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-symbol-ast-node (or (js2-symbol-p cl-x) (signal 'wrong-type-argument (list 'js2-symbol cl-x))) (aref cl-x 3)) nil] 9 (#$ . 118210)]) (put 'js2-symbol-ast-node 'compiler-macro 'js2-symbol-ast-node--cmacro) #@133 Access slot "ast-node" of `(js2-symbol (:constructor make-js2-symbol (decl-type name &optional ast-node)))' struct CL-X. (fn CL-X) (defalias 'js2-symbol-ast-node #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-symbol-tags type-of signal wrong-type-argument js2-symbol 3] 5 (#$ . 118619)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-symbol-ast-node side-effect-free t defalias copy-js2-symbol copy-sequence] 4) #@101 compiler-macro for inlining `make-js2-symbol'. (fn CL-WHOLE-ARG DECL-TYPE NAME &optional AST-NODE) (defalias 'make-js2-symbol--cmacro #[1027 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (decl-type name ast-node) (cl-block make-js2-symbol (record 'js2-symbol decl-type name ast-node)) nil] 13 (#$ . 119084)]) (put 'make-js2-symbol 'compiler-macro 'make-js2-symbol--cmacro) #@87 Constructor for objects of type `js2-symbol'. (fn DECL-TYPE NAME &optional AST-NODE) (defalias 'make-js2-symbol #[770 "\300\301$\207" [record js2-symbol] 8 (#$ . 119478)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put make-js2-symbol side-effect-free t cl-struct-define js2-symbol "A symbol table entry." cl-structure-object record nil ((cl-tag-slot) (decl-type) (name) (ast-node)) cl-struct-js2-symbol-tags] 11) #@73 compiler-macro for inlining `js2-error-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-error-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-error-node-p (and (memq (type-of cl-x) cl-struct-js2-error-node-tags) t)) nil] 9 (#$ . 119946)]) (put 'js2-error-node-p 'compiler-macro 'js2-error-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-error-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-error-node-tags type-of t] 3 (#$ . 120306)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-error-node-p side-effect-free error-free put js2-error-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-error-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-error-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-error-node-type (or (js2-error-node-p cl-x) (signal 'wrong-type-argument (list 'js2-error-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 120598)]) (put 'js2-error-node-type 'compiler-macro 'js2-error-node-type--cmacro) #@179 Access slot "type" of `(js2-error-node (:include js2-node) (:constructor make-js2-error-node (&key (type js2-ERROR) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-error-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-error-node-tags type-of signal wrong-type-argument js2-error-node 1] 5 (#$ . 121015)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-error-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-error-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-error-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-error-node-pos (or (js2-error-node-p cl-x) (signal 'wrong-type-argument (list 'js2-error-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 121484)]) (put 'js2-error-node-pos 'compiler-macro 'js2-error-node-pos--cmacro) #@178 Access slot "pos" of `(js2-error-node (:include js2-node) (:constructor make-js2-error-node (&key (type js2-ERROR) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-error-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-error-node-tags type-of signal wrong-type-argument js2-error-node 2] 5 (#$ . 121896)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-error-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-error-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-error-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-error-node-len (or (js2-error-node-p cl-x) (signal 'wrong-type-argument (list 'js2-error-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 122362)]) (put 'js2-error-node-len 'compiler-macro 'js2-error-node-len--cmacro) #@178 Access slot "len" of `(js2-error-node (:include js2-node) (:constructor make-js2-error-node (&key (type js2-ERROR) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-error-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-error-node-tags type-of signal wrong-type-argument js2-error-node 3] 5 (#$ . 122774)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-error-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-error-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-error-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-error-node-props (or (js2-error-node-p cl-x) (signal 'wrong-type-argument (list 'js2-error-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 123240)]) (put 'js2-error-node-props 'compiler-macro 'js2-error-node-props--cmacro) #@180 Access slot "props" of `(js2-error-node (:include js2-node) (:constructor make-js2-error-node (&key (type js2-ERROR) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-error-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-error-node-tags type-of signal wrong-type-argument js2-error-node 4] 5 (#$ . 123662)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-error-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-error-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-error-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-error-node-parent (or (js2-error-node-p cl-x) (signal 'wrong-type-argument (list 'js2-error-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 124134)]) (put 'js2-error-node-parent 'compiler-macro 'js2-error-node-parent--cmacro) #@181 Access slot "parent" of `(js2-error-node (:include js2-node) (:constructor make-js2-error-node (&key (type js2-ERROR) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-error-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-error-node-tags type-of signal wrong-type-argument js2-error-node 5] 5 (#$ . 124561)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-error-node-parent side-effect-free t defalias copy-js2-error-node copy-sequence] 4) #@133 compiler-macro for inlining `make-js2-error-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-ERROR) (POS (js2-current-token-beg)) LEN) (defalias 'make-js2-error-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\211\203I\211@\307>\2032\211AA\262\202\310>A@\203@\311\262\202\312\313@\"\210\202\210\314\315\316\311\311&\207" [plist-member :type (nil js2-ERROR) :pos (nil (js2-current-token-beg)) :len (nil 1) (:type :pos :len :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len)" cl--defsubst-expand (type pos len) (cl-block make-js2-error-node (record 'js2-error-node type pos len nil nil))] 14 (#$ . 125090)]) (put 'make-js2-error-node 'compiler-macro 'make-js2-error-node--cmacro) #@113 Constructor for objects of type `js2-error-node'. (fn &key (TYPE js2-ERROR) (POS (js2-current-token-beg)) LEN) (defalias 'make-js2-error-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\211\203c\211@\317>\203L\211AA\262\2029\320>A@\203Z\306\262\2029\321\322@\"\210\2029\210\323\324\306\211&\207" [js2-ERROR js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) (:type :pos :len :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len)" record js2-error-node] 11 (#$ . 125882)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-error-node side-effect-free t cl-struct-define js2-error-node "AST node representing a parse error." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil)) cl-struct-js2-error-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-none] 11) #@74 compiler-macro for inlining `js2-script-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-p (and (memq (type-of cl-x) cl-struct-js2-script-node-tags) t)) nil] 9 (#$ . 127037)]) (put 'js2-script-node-p 'compiler-macro 'js2-script-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-script-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-script-node-tags type-of t] 3 (#$ . 127403)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-script-node-p side-effect-free error-free put js2-script-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-script-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-type (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 127699)]) (put 'js2-script-node-type 'compiler-macro 'js2-script-node-type--cmacro) #@183 Access slot "type" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 1] 5 (#$ . 128123)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-script-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-pos (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 128600)]) (put 'js2-script-node-pos 'compiler-macro 'js2-script-node-pos--cmacro) #@182 Access slot "pos" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 2] 5 (#$ . 129019)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-script-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-len (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 129493)]) (put 'js2-script-node-len 'compiler-macro 'js2-script-node-len--cmacro) #@182 Access slot "len" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 3] 5 (#$ . 129912)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-script-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-props (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 130386)]) (put 'js2-script-node-props 'compiler-macro 'js2-script-node-props--cmacro) #@184 Access slot "props" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 4] 5 (#$ . 130815)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-script-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-parent (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 131295)]) (put 'js2-script-node-parent 'compiler-macro 'js2-script-node-parent--cmacro) #@185 Access slot "parent" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 5] 5 (#$ . 131729)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-script-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-kids (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 132212)]) (put 'js2-script-node-kids 'compiler-macro 'js2-script-node-kids--cmacro) #@183 Access slot "kids" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 6] 5 (#$ . 132636)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-kids side-effect-free t] 4) #@85 compiler-macro for inlining `js2-script-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-symbol-table (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 133113)]) (put 'js2-script-node-symbol-table 'compiler-macro 'js2-script-node-symbol-table--cmacro) #@191 Access slot "symbol-table" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 7] 5 (#$ . 133577)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-symbol-table side-effect-free t] 4) #@85 compiler-macro for inlining `js2-script-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-parent-scope (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 134078)]) (put 'js2-script-node-parent-scope 'compiler-macro 'js2-script-node-parent-scope--cmacro) #@191 Access slot "parent-scope" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 8] 5 (#$ . 134542)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-parent-scope side-effect-free t] 4) #@76 compiler-macro for inlining `js2-script-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-top (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 135043)]) (put 'js2-script-node-top 'compiler-macro 'js2-script-node-top--cmacro) #@182 Access slot "top" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 9] 5 (#$ . 135462)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-top side-effect-free t] 4) #@82 compiler-macro for inlining `js2-script-node-functions'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-functions--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-functions (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 135936)]) (put 'js2-script-node-functions 'compiler-macro 'js2-script-node-functions--cmacro) #@188 Access slot "functions" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-functions #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 10] 5 (#$ . 136386)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-functions side-effect-free t] 4) #@80 compiler-macro for inlining `js2-script-node-regexps'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-regexps--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-regexps (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 136879)]) (put 'js2-script-node-regexps 'compiler-macro 'js2-script-node-regexps--cmacro) #@186 Access slot "regexps" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-regexps #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 11] 5 (#$ . 137319)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-regexps side-effect-free t] 4) #@80 compiler-macro for inlining `js2-script-node-symbols'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-symbols--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-symbols (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 137806)]) (put 'js2-script-node-symbols 'compiler-macro 'js2-script-node-symbols--cmacro) #@186 Access slot "symbols" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-symbols #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 12] 5 (#$ . 138246)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-symbols side-effect-free t] 4) #@84 compiler-macro for inlining `js2-script-node-param-count'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-param-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-param-count (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 138733)]) (put 'js2-script-node-param-count 'compiler-macro 'js2-script-node-param-count--cmacro) #@190 Access slot "param-count" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-param-count #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 13] 5 (#$ . 139193)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-param-count side-effect-free t] 4) #@82 compiler-macro for inlining `js2-script-node-var-names'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-var-names--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-var-names (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 14)) nil] 9 (#$ . 139692)]) (put 'js2-script-node-var-names 'compiler-macro 'js2-script-node-var-names--cmacro) #@188 Access slot "var-names" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-var-names #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 14] 5 (#$ . 140142)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-var-names side-effect-free t] 4) #@79 compiler-macro for inlining `js2-script-node-consts'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-consts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-consts (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 15)) nil] 9 (#$ . 140635)]) (put 'js2-script-node-consts 'compiler-macro 'js2-script-node-consts--cmacro) #@185 Access slot "consts" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-consts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 15] 5 (#$ . 141070)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-script-node-consts side-effect-free t] 4) #@84 compiler-macro for inlining `js2-script-node-temp-number'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-script-node-temp-number--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-script-node-temp-number (or (js2-script-node-p cl-x) (signal 'wrong-type-argument (list 'js2-script-node cl-x))) (aref cl-x 16)) nil] 9 (#$ . 141554)]) (put 'js2-script-node-temp-number 'compiler-macro 'js2-script-node-temp-number--cmacro) #@190 Access slot "temp-number" of `(js2-script-node (:include js2-scope) (:constructor make-js2-script-node (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-script-node-temp-number #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-script-node-tags type-of signal wrong-type-argument js2-script-node 16] 5 (#$ . 142014)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-script-node-temp-number side-effect-free t defalias copy-js2-script-node copy-sequence] 4) #@135 compiler-macro for inlining `make-js2-script-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-SCRIPT) (POS (js2-current-token-beg)) LEN) (defalias 'make-js2-script-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\211\203I\211@\307>\2032\211AA\262\202\310>A@\203@\311\262\202\312\313@\"\210\202\210\314\315\316\311\311&\207" [plist-member :type (nil js2-SCRIPT) :pos (nil (js2-current-token-beg)) :len (nil 1) (:type :pos :len :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len)" cl--defsubst-expand (type pos len) (cl-block make-js2-script-node (record 'js2-script-node type pos len nil nil nil nil nil nil nil nil nil 0 nil nil 0))] 14 (#$ . 142568)]) (put 'make-js2-script-node 'compiler-macro 'make-js2-script-node--cmacro) #@115 Constructor for objects of type `js2-script-node'. (fn &key (TYPE js2-SCRIPT) (POS (js2-current-token-beg)) LEN) (defalias 'make-js2-script-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\211\203c\211@\317>\203L\211AA\262\2029\320>A@\203Z\306\262\2029\321\322@\"\210\2029\210\323\324\306\211\211\211\211\211\211\211\211\325\306\211\325&\207" [js2-SCRIPT js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) (:type :pos :len :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len)" record js2-script-node 0] 22 (#$ . 143408)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \210\313\305\314\315#\210\313\305\316\317#\207" [function-put make-js2-script-node side-effect-free t cl-struct-define js2-script-node nil js2-scope record ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (functions) (regexps) (symbols) (param-count 0) (var-names) (consts) (temp-number 0)) cl-struct-js2-script-node-tags js2--struct-put js2-visitor js2-visit-block js2-printer js2-print-script] 11) #@20 (fn NODE INDENT) (defalias 'js2-print-script #[514 "\301!>\204\302\303\304D\"\210\305H\211\205$\211@\306\"\210A\266\202\202\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 6 js2-print-ast] 7 (#$ . 144726)]) #@71 compiler-macro for inlining `js2-ast-root-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-p (and (memq (type-of cl-x) cl-struct-js2-ast-root-tags) t)) nil] 9 (#$ . 144991)]) (put 'js2-ast-root-p 'compiler-macro 'js2-ast-root-p--cmacro) #@13 (fn CL-X) (defalias 'js2-ast-root-p #[257 "\301!>\205 \302\207" [cl-struct-js2-ast-root-tags type-of t] 3 (#$ . 145339)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-ast-root-p side-effect-free error-free put js2-ast-root cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `js2-ast-root-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-type (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 1)) nil] 9 (#$ . 145623)]) (put 'js2-ast-root-type 'compiler-macro 'js2-ast-root-type--cmacro) #@190 Access slot "type" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 1] 5 (#$ . 146026)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-type side-effect-free t] 4) #@73 compiler-macro for inlining `js2-ast-root-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-pos (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 2)) nil] 9 (#$ . 146498)]) (put 'js2-ast-root-pos 'compiler-macro 'js2-ast-root-pos--cmacro) #@189 Access slot "pos" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 2] 5 (#$ . 146896)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-pos side-effect-free t] 4) #@73 compiler-macro for inlining `js2-ast-root-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-len (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 3)) nil] 9 (#$ . 147365)]) (put 'js2-ast-root-len 'compiler-macro 'js2-ast-root-len--cmacro) #@189 Access slot "len" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 3] 5 (#$ . 147763)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-len side-effect-free t] 4) #@75 compiler-macro for inlining `js2-ast-root-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-props (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 4)) nil] 9 (#$ . 148232)]) (put 'js2-ast-root-props 'compiler-macro 'js2-ast-root-props--cmacro) #@191 Access slot "props" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 4] 5 (#$ . 148640)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-props side-effect-free t] 4) #@76 compiler-macro for inlining `js2-ast-root-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-parent (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 5)) nil] 9 (#$ . 149115)]) (put 'js2-ast-root-parent 'compiler-macro 'js2-ast-root-parent--cmacro) #@192 Access slot "parent" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 5] 5 (#$ . 149528)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-parent side-effect-free t] 4) #@74 compiler-macro for inlining `js2-ast-root-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-kids (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 6)) nil] 9 (#$ . 150006)]) (put 'js2-ast-root-kids 'compiler-macro 'js2-ast-root-kids--cmacro) #@190 Access slot "kids" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 6] 5 (#$ . 150409)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-kids side-effect-free t] 4) #@82 compiler-macro for inlining `js2-ast-root-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-symbol-table (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 7)) nil] 9 (#$ . 150881)]) (put 'js2-ast-root-symbol-table 'compiler-macro 'js2-ast-root-symbol-table--cmacro) #@198 Access slot "symbol-table" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 7] 5 (#$ . 151324)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-symbol-table side-effect-free t] 4) #@82 compiler-macro for inlining `js2-ast-root-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-parent-scope (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 8)) nil] 9 (#$ . 151820)]) (put 'js2-ast-root-parent-scope 'compiler-macro 'js2-ast-root-parent-scope--cmacro) #@198 Access slot "parent-scope" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 8] 5 (#$ . 152263)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-parent-scope side-effect-free t] 4) #@73 compiler-macro for inlining `js2-ast-root-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-top (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 9)) nil] 9 (#$ . 152759)]) (put 'js2-ast-root-top 'compiler-macro 'js2-ast-root-top--cmacro) #@189 Access slot "top" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 9] 5 (#$ . 153157)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-top side-effect-free t] 4) #@79 compiler-macro for inlining `js2-ast-root-functions'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-functions--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-functions (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 10)) nil] 9 (#$ . 153626)]) (put 'js2-ast-root-functions 'compiler-macro 'js2-ast-root-functions--cmacro) #@195 Access slot "functions" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-functions #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 10] 5 (#$ . 154055)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-functions side-effect-free t] 4) #@77 compiler-macro for inlining `js2-ast-root-regexps'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-regexps--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-regexps (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 11)) nil] 9 (#$ . 154543)]) (put 'js2-ast-root-regexps 'compiler-macro 'js2-ast-root-regexps--cmacro) #@193 Access slot "regexps" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-regexps #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 11] 5 (#$ . 154962)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-regexps side-effect-free t] 4) #@77 compiler-macro for inlining `js2-ast-root-symbols'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-symbols--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-symbols (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 12)) nil] 9 (#$ . 155444)]) (put 'js2-ast-root-symbols 'compiler-macro 'js2-ast-root-symbols--cmacro) #@193 Access slot "symbols" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-symbols #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 12] 5 (#$ . 155863)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-symbols side-effect-free t] 4) #@81 compiler-macro for inlining `js2-ast-root-param-count'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-param-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-param-count (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 13)) nil] 9 (#$ . 156345)]) (put 'js2-ast-root-param-count 'compiler-macro 'js2-ast-root-param-count--cmacro) #@197 Access slot "param-count" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-param-count #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 13] 5 (#$ . 156784)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-param-count side-effect-free t] 4) #@79 compiler-macro for inlining `js2-ast-root-var-names'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-var-names--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-var-names (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 14)) nil] 9 (#$ . 157278)]) (put 'js2-ast-root-var-names 'compiler-macro 'js2-ast-root-var-names--cmacro) #@195 Access slot "var-names" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-var-names #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 14] 5 (#$ . 157707)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-var-names side-effect-free t] 4) #@76 compiler-macro for inlining `js2-ast-root-consts'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-consts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-consts (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 15)) nil] 9 (#$ . 158195)]) (put 'js2-ast-root-consts 'compiler-macro 'js2-ast-root-consts--cmacro) #@192 Access slot "consts" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-consts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 15] 5 (#$ . 158609)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-consts side-effect-free t] 4) #@81 compiler-macro for inlining `js2-ast-root-temp-number'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-temp-number--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-temp-number (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 16)) nil] 9 (#$ . 159088)]) (put 'js2-ast-root-temp-number 'compiler-macro 'js2-ast-root-temp-number--cmacro) #@197 Access slot "temp-number" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-temp-number #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 16] 5 (#$ . 159527)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-temp-number side-effect-free t] 4) #@76 compiler-macro for inlining `js2-ast-root-buffer'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-buffer (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 17)) nil] 9 (#$ . 160021)]) (put 'js2-ast-root-buffer 'compiler-macro 'js2-ast-root-buffer--cmacro) #@192 Access slot "buffer" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-buffer #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 17] 5 (#$ . 160435)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-buffer side-effect-free t] 4) #@78 compiler-macro for inlining `js2-ast-root-comments'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-comments--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-comments (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 18)) nil] 9 (#$ . 160914)]) (put 'js2-ast-root-comments 'compiler-macro 'js2-ast-root-comments--cmacro) #@194 Access slot "comments" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-comments #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 18] 5 (#$ . 161338)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-comments side-effect-free t] 4) #@76 compiler-macro for inlining `js2-ast-root-errors'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-errors--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-errors (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 19)) nil] 9 (#$ . 161823)]) (put 'js2-ast-root-errors 'compiler-macro 'js2-ast-root-errors--cmacro) #@192 Access slot "errors" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-errors #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 19] 5 (#$ . 162237)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-errors side-effect-free t] 4) #@78 compiler-macro for inlining `js2-ast-root-warnings'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-warnings--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-warnings (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 20)) nil] 9 (#$ . 162716)]) (put 'js2-ast-root-warnings 'compiler-macro 'js2-ast-root-warnings--cmacro) #@194 Access slot "warnings" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-warnings #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 20] 5 (#$ . 163140)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-ast-root-warnings side-effect-free t] 4) #@80 compiler-macro for inlining `js2-ast-root-node-count'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-ast-root-node-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-ast-root-node-count (or (js2-ast-root-p cl-x) (signal 'wrong-type-argument (list 'js2-ast-root cl-x))) (aref cl-x 21)) nil] 9 (#$ . 163625)]) (put 'js2-ast-root-node-count 'compiler-macro 'js2-ast-root-node-count--cmacro) #@196 Access slot "node-count" of `(js2-ast-root (:include js2-script-node) (:constructor make-js2-ast-root (&key (type js2-SCRIPT) (pos (js2-current-token-beg)) len buffer)))' struct CL-X. (fn CL-X) (defalias 'js2-ast-root-node-count #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 21] 5 (#$ . 164059)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-ast-root-node-count side-effect-free t defalias copy-js2-ast-root copy-sequence] 4) #@139 compiler-macro for inlining `make-js2-ast-root'. (fn CL-WHOLE &cl-quote &key (TYPE js2-SCRIPT) (POS (js2-current-token-beg)) LEN BUFFER) (defalias 'make-js2-ast-root--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-SCRIPT) :pos (nil (js2-current-token-beg)) :len (nil 1) :buffer (:type :pos :len :buffer :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :buffer)" cl--defsubst-expand (type pos len buffer) (cl-block make-js2-ast-root (record 'js2-ast-root type pos len nil nil nil nil nil nil nil nil nil 0 nil nil 0 buffer nil nil nil nil))] 16 (#$ . 164602)]) (put 'make-js2-ast-root 'compiler-macro 'make-js2-ast-root--cmacro) #@119 Constructor for objects of type `js2-ast-root'. (fn &key (TYPE js2-SCRIPT) (POS (js2-current-token-beg)) LEN BUFFER) (defalias 'make-js2-ast-root #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\211\203j\211@\320>\203R\211AA\262\202?\321>A@\203a\306\262\202?\322\323@\"\210\202?\210\324\325\306\211\211\211\211\211\211\211\211\326\306\211\326\306\211\211\211&\207" [js2-SCRIPT js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :buffer (:type :pos :len :buffer :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :buffer)" record js2-ast-root 0] 28 (#$ . 165501)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-ast-root side-effect-free t cl-struct-define js2-ast-root "The root node of a js2 AST." js2-script-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (functions nil) (regexps nil) (symbols nil) (param-count 0) (var-names nil) (consts nil) (temp-number 0) (buffer) (comments) (errors) (warnings) (node-count)) cl-struct-js2-ast-root-tags js2--struct-put js2-visitor js2-visit-ast-root js2-printer js2-print-script] 11) #@21 (fn AST CALLBACK) (defalias 'js2-visit-ast-root #[514 "\301!>\204\302\303\304D\"\210\305H\211\203$\211@\306\"\210A\266\202\202\210\301!>\2044\302\303\304D\"\210\307H\211\205I\211@\306\"\210A\266\202\2027\207" [cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 6 js2-visit-ast 18] 7 (#$ . 166976)]) #@75 compiler-macro for inlining `js2-comment-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comment-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comment-node-p (and (memq (type-of cl-x) cl-struct-js2-comment-node-tags) t)) nil] 9 (#$ . 167330)]) (put 'js2-comment-node-p 'compiler-macro 'js2-comment-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-comment-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-comment-node-tags type-of t] 3 (#$ . 167702)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-comment-node-p side-effect-free error-free put js2-comment-node cl-deftype-satisfies] 5) #@78 compiler-macro for inlining `js2-comment-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comment-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comment-node-type (or (js2-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comment-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 168002)]) (put 'js2-comment-node-type 'compiler-macro 'js2-comment-node-type--cmacro) #@192 Access slot "type" of `(js2-comment-node (:include js2-node) (:constructor make-js2-comment-node (&key (type js2-COMMENT) (pos (js2-current-token-beg)) len format)))' struct CL-X. (fn CL-X) (defalias 'js2-comment-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comment-node-tags type-of signal wrong-type-argument js2-comment-node 1] 5 (#$ . 168433)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comment-node-type side-effect-free t] 4) #@77 compiler-macro for inlining `js2-comment-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comment-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comment-node-pos (or (js2-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comment-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 168923)]) (put 'js2-comment-node-pos 'compiler-macro 'js2-comment-node-pos--cmacro) #@191 Access slot "pos" of `(js2-comment-node (:include js2-node) (:constructor make-js2-comment-node (&key (type js2-COMMENT) (pos (js2-current-token-beg)) len format)))' struct CL-X. (fn CL-X) (defalias 'js2-comment-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comment-node-tags type-of signal wrong-type-argument js2-comment-node 2] 5 (#$ . 169349)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comment-node-pos side-effect-free t] 4) #@77 compiler-macro for inlining `js2-comment-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comment-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comment-node-len (or (js2-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comment-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 169836)]) (put 'js2-comment-node-len 'compiler-macro 'js2-comment-node-len--cmacro) #@191 Access slot "len" of `(js2-comment-node (:include js2-node) (:constructor make-js2-comment-node (&key (type js2-COMMENT) (pos (js2-current-token-beg)) len format)))' struct CL-X. (fn CL-X) (defalias 'js2-comment-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comment-node-tags type-of signal wrong-type-argument js2-comment-node 3] 5 (#$ . 170262)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comment-node-len side-effect-free t] 4) #@79 compiler-macro for inlining `js2-comment-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comment-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comment-node-props (or (js2-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comment-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 170749)]) (put 'js2-comment-node-props 'compiler-macro 'js2-comment-node-props--cmacro) #@193 Access slot "props" of `(js2-comment-node (:include js2-node) (:constructor make-js2-comment-node (&key (type js2-COMMENT) (pos (js2-current-token-beg)) len format)))' struct CL-X. (fn CL-X) (defalias 'js2-comment-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comment-node-tags type-of signal wrong-type-argument js2-comment-node 4] 5 (#$ . 171185)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comment-node-props side-effect-free t] 4) #@80 compiler-macro for inlining `js2-comment-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comment-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comment-node-parent (or (js2-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comment-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 171678)]) (put 'js2-comment-node-parent 'compiler-macro 'js2-comment-node-parent--cmacro) #@194 Access slot "parent" of `(js2-comment-node (:include js2-node) (:constructor make-js2-comment-node (&key (type js2-COMMENT) (pos (js2-current-token-beg)) len format)))' struct CL-X. (fn CL-X) (defalias 'js2-comment-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comment-node-tags type-of signal wrong-type-argument js2-comment-node 5] 5 (#$ . 172119)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comment-node-parent side-effect-free t] 4) #@80 compiler-macro for inlining `js2-comment-node-format'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comment-node-format--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comment-node-format (or (js2-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comment-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 172615)]) (put 'js2-comment-node-format 'compiler-macro 'js2-comment-node-format--cmacro) #@194 Access slot "format" of `(js2-comment-node (:include js2-node) (:constructor make-js2-comment-node (&key (type js2-COMMENT) (pos (js2-current-token-beg)) len format)))' struct CL-X. (fn CL-X) (defalias 'js2-comment-node-format #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comment-node-tags type-of signal wrong-type-argument js2-comment-node 6] 5 (#$ . 173056)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-comment-node-format side-effect-free t defalias copy-js2-comment-node copy-sequence] 4) #@144 compiler-macro for inlining `make-js2-comment-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-COMMENT) (POS (js2-current-token-beg)) LEN FORMAT) (defalias 'make-js2-comment-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-COMMENT) :pos (nil (js2-current-token-beg)) :len (nil 1) :format (:type :pos :len :format :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :format)" cl--defsubst-expand (type pos len format) (cl-block make-js2-comment-node (record 'js2-comment-node type pos len nil nil format))] 16 (#$ . 173608)]) (put 'make-js2-comment-node 'compiler-macro 'make-js2-comment-node--cmacro) #@124 Constructor for objects of type `js2-comment-node'. (fn &key (TYPE js2-COMMENT) (POS (js2-current-token-beg)) LEN FORMAT) (defalias 'make-js2-comment-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\211\203j\211@\320>\203R\211AA\262\202?\321>A@\203a\306\262\202?\322\323@\"\210\202?\210\324\325\306\211&\207" [js2-COMMENT js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :format (:type :pos :len :format :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :format)" record js2-comment-node] 13 (#$ . 174477)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \210\313\305\314\315#\210\313\305\316\317#\207" [function-put make-js2-comment-node side-effect-free t cl-struct-define js2-comment-node nil js2-node record ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (format)) cl-struct-js2-comment-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-comment] 11) #@12 (fn N I) (defalias 'js2-print-comment #[514 "\300!\301!\261\207" [js2-make-pad js2-node-string] 5 (#$ . 175668)]) #@77 compiler-macro for inlining `js2-expr-stmt-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-expr-stmt-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-expr-stmt-node-p (and (memq (type-of cl-x) cl-struct-js2-expr-stmt-node-tags) t)) nil] 9 (#$ . 175793)]) (put 'js2-expr-stmt-node-p 'compiler-macro 'js2-expr-stmt-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-expr-stmt-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-expr-stmt-node-tags type-of t] 3 (#$ . 176177)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-expr-stmt-node-p side-effect-free error-free put js2-expr-stmt-node cl-deftype-satisfies] 5) #@80 compiler-macro for inlining `js2-expr-stmt-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-expr-stmt-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-expr-stmt-node-type (or (js2-expr-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-expr-stmt-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 176485)]) (put 'js2-expr-stmt-node-type 'compiler-macro 'js2-expr-stmt-node-type--cmacro) #@186 Access slot "type" of `(js2-expr-stmt-node (:include js2-node) (:constructor make-js2-expr-stmt-node (&key (type js2-EXPR_VOID) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-expr-stmt-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-expr-stmt-node-tags type-of signal wrong-type-argument js2-expr-stmt-node 1] 5 (#$ . 176930)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-expr-stmt-node-type side-effect-free t] 4) #@79 compiler-macro for inlining `js2-expr-stmt-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-expr-stmt-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-expr-stmt-node-pos (or (js2-expr-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-expr-stmt-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 177422)]) (put 'js2-expr-stmt-node-pos 'compiler-macro 'js2-expr-stmt-node-pos--cmacro) #@185 Access slot "pos" of `(js2-expr-stmt-node (:include js2-node) (:constructor make-js2-expr-stmt-node (&key (type js2-EXPR_VOID) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-expr-stmt-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-expr-stmt-node-tags type-of signal wrong-type-argument js2-expr-stmt-node 2] 5 (#$ . 177862)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-expr-stmt-node-pos side-effect-free t] 4) #@79 compiler-macro for inlining `js2-expr-stmt-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-expr-stmt-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-expr-stmt-node-len (or (js2-expr-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-expr-stmt-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 178351)]) (put 'js2-expr-stmt-node-len 'compiler-macro 'js2-expr-stmt-node-len--cmacro) #@185 Access slot "len" of `(js2-expr-stmt-node (:include js2-node) (:constructor make-js2-expr-stmt-node (&key (type js2-EXPR_VOID) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-expr-stmt-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-expr-stmt-node-tags type-of signal wrong-type-argument js2-expr-stmt-node 3] 5 (#$ . 178791)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-expr-stmt-node-len side-effect-free t] 4) #@81 compiler-macro for inlining `js2-expr-stmt-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-expr-stmt-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-expr-stmt-node-props (or (js2-expr-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-expr-stmt-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 179280)]) (put 'js2-expr-stmt-node-props 'compiler-macro 'js2-expr-stmt-node-props--cmacro) #@187 Access slot "props" of `(js2-expr-stmt-node (:include js2-node) (:constructor make-js2-expr-stmt-node (&key (type js2-EXPR_VOID) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-expr-stmt-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-expr-stmt-node-tags type-of signal wrong-type-argument js2-expr-stmt-node 4] 5 (#$ . 179730)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-expr-stmt-node-props side-effect-free t] 4) #@82 compiler-macro for inlining `js2-expr-stmt-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-expr-stmt-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-expr-stmt-node-parent (or (js2-expr-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-expr-stmt-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 180225)]) (put 'js2-expr-stmt-node-parent 'compiler-macro 'js2-expr-stmt-node-parent--cmacro) #@188 Access slot "parent" of `(js2-expr-stmt-node (:include js2-node) (:constructor make-js2-expr-stmt-node (&key (type js2-EXPR_VOID) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-expr-stmt-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-expr-stmt-node-tags type-of signal wrong-type-argument js2-expr-stmt-node 5] 5 (#$ . 180680)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-expr-stmt-node-parent side-effect-free t] 4) #@80 compiler-macro for inlining `js2-expr-stmt-node-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-expr-stmt-node-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-expr-stmt-node-expr (or (js2-expr-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-expr-stmt-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 181178)]) (put 'js2-expr-stmt-node-expr 'compiler-macro 'js2-expr-stmt-node-expr--cmacro) #@186 Access slot "expr" of `(js2-expr-stmt-node (:include js2-node) (:constructor make-js2-expr-stmt-node (&key (type js2-EXPR_VOID) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-expr-stmt-node-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-expr-stmt-node-tags type-of signal wrong-type-argument js2-expr-stmt-node 6] 5 (#$ . 181623)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-expr-stmt-node-expr side-effect-free t defalias copy-js2-expr-stmt-node copy-sequence] 4) #@136 compiler-macro for inlining `make-js2-expr-stmt-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-EXPR_VOID) (POS js2-ts-cursor) LEN EXPR) (defalias 'make-js2-expr-stmt-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-EXPR_VOID) :pos (nil js2-ts-cursor) :len (nil 1) :expr (:type :pos :len :expr :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :expr)" cl--defsubst-expand (type pos len expr) (cl-block make-js2-expr-stmt-node (record 'js2-expr-stmt-node type pos len nil nil expr))] 16 (#$ . 182173)]) (put 'make-js2-expr-stmt-node 'compiler-macro 'make-js2-expr-stmt-node--cmacro) #@116 Constructor for objects of type `js2-expr-stmt-node'. (fn &key (TYPE js2-EXPR_VOID) (POS js2-ts-cursor) LEN EXPR) (defalias 'make-js2-expr-stmt-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211&\207" [js2-EXPR_VOID js2-ts-cursor plist-member :type nil :pos :len (nil 1) :expr (:type :pos :len :expr :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :expr)" record js2-expr-stmt-node] 13 (#$ . 183026)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put make-js2-expr-stmt-node side-effect-free t cl-struct-define js2-expr-stmt-node "An expression statement." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (expr)) cl-struct-js2-expr-stmt-node-tags] 11) #@78 Change NODE type to `js2-EXPR_RESULT'. Used for code generation. (fn NODE) (defalias 'js2-expr-stmt-node-set-has-result #[257 "\302!>\204\303\304\305D\"\210\211\211\306 I\207" [cl-struct-js2-node-tags js2-EXPR_RESULT type-of signal wrong-type-argument js2-node 1] 5 (#$ . 183981)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\210\304\305\310\311#\207" [put js2-expr-stmt-node-set-has-result byte-optimizer byte-compile-inline-expand js2--struct-put js2-expr-stmt-node js2-visitor js2-visit-expr-stmt-node js2-printer js2-print-expr-stmt-node] 4) #@12 (fn N V) (defalias 'js2-visit-expr-stmt-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-expr-stmt-node-tags js2-visit-ast type-of signal wrong-type-argument js2-expr-stmt-node 6] 7 (#$ . 184547)]) #@17 (fn N INDENT) (defalias 'js2-print-expr-stmt-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\307c\207" [cl-struct-js2-expr-stmt-node-tags js2-print-ast type-of signal wrong-type-argument js2-expr-stmt-node 6 ";\n"] 7 (#$ . 184784)]) #@72 compiler-macro for inlining `js2-loop-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-p (and (memq (type-of cl-x) cl-struct-js2-loop-node-tags) t)) nil] 9 (#$ . 185041)]) (put 'js2-loop-node-p 'compiler-macro 'js2-loop-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-loop-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-loop-node-tags type-of t] 3 (#$ . 185395)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-loop-node-p side-effect-free error-free put js2-loop-node cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `js2-loop-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-type (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 185683)]) (put 'js2-loop-node-type 'compiler-macro 'js2-loop-node-type--cmacro) #@105 Access slot "type" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 1] 5 (#$ . 186093)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-type side-effect-free t] 4) #@74 compiler-macro for inlining `js2-loop-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-pos (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 186484)]) (put 'js2-loop-node-pos 'compiler-macro 'js2-loop-node-pos--cmacro) #@104 Access slot "pos" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 2] 5 (#$ . 186889)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-pos side-effect-free t] 4) #@74 compiler-macro for inlining `js2-loop-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-len (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 187277)]) (put 'js2-loop-node-len 'compiler-macro 'js2-loop-node-len--cmacro) #@104 Access slot "len" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 3] 5 (#$ . 187682)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-len side-effect-free t] 4) #@76 compiler-macro for inlining `js2-loop-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-props (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 188070)]) (put 'js2-loop-node-props 'compiler-macro 'js2-loop-node-props--cmacro) #@106 Access slot "props" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 4] 5 (#$ . 188485)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-props side-effect-free t] 4) #@77 compiler-macro for inlining `js2-loop-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-parent (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 188879)]) (put 'js2-loop-node-parent 'compiler-macro 'js2-loop-node-parent--cmacro) #@107 Access slot "parent" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 5] 5 (#$ . 189299)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-parent side-effect-free t] 4) #@75 compiler-macro for inlining `js2-loop-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-kids (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 189696)]) (put 'js2-loop-node-kids 'compiler-macro 'js2-loop-node-kids--cmacro) #@105 Access slot "kids" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 6] 5 (#$ . 190106)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-kids side-effect-free t] 4) #@83 compiler-macro for inlining `js2-loop-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-symbol-table (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 190497)]) (put 'js2-loop-node-symbol-table 'compiler-macro 'js2-loop-node-symbol-table--cmacro) #@113 Access slot "symbol-table" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 7] 5 (#$ . 190947)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-symbol-table side-effect-free t] 4) #@83 compiler-macro for inlining `js2-loop-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-parent-scope (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 191362)]) (put 'js2-loop-node-parent-scope 'compiler-macro 'js2-loop-node-parent-scope--cmacro) #@113 Access slot "parent-scope" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 8] 5 (#$ . 191812)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-parent-scope side-effect-free t] 4) #@74 compiler-macro for inlining `js2-loop-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-top (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 192227)]) (put 'js2-loop-node-top 'compiler-macro 'js2-loop-node-top--cmacro) #@104 Access slot "top" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 9] 5 (#$ . 192632)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-top side-effect-free t] 4) #@75 compiler-macro for inlining `js2-loop-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-body (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 193020)]) (put 'js2-loop-node-body 'compiler-macro 'js2-loop-node-body--cmacro) #@105 Access slot "body" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 10] 5 (#$ . 193431)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-body side-effect-free t] 4) #@73 compiler-macro for inlining `js2-loop-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-lp (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 193823)]) (put 'js2-loop-node-lp 'compiler-macro 'js2-loop-node-lp--cmacro) #@103 Access slot "lp" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 11] 5 (#$ . 194224)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-loop-node-lp side-effect-free t] 4) #@73 compiler-macro for inlining `js2-loop-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-loop-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-loop-node-rp (or (js2-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-loop-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 194610)]) (put 'js2-loop-node-rp 'compiler-macro 'js2-loop-node-rp--cmacro) #@103 Access slot "rp" of `(js2-loop-node (:include js2-scope) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-loop-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-loop-node-tags type-of signal wrong-type-argument js2-loop-node 12] 5 (#$ . 195011)]) (byte-code "\300\301\302\303#\304\305\306\"\210\307\310\311\312\313\314\315\316\310\303& \207" [function-put js2-loop-node-rp side-effect-free t defalias copy-js2-loop-node copy-sequence cl-struct-define js2-loop-node "Abstract supertype of loop nodes." js2-scope record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (body) (lp) (rp)) cl-struct-js2-loop-node-tags] 11) #@70 compiler-macro for inlining `js2-do-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-p (and (memq (type-of cl-x) cl-struct-js2-do-node-tags) t)) nil] 9 (#$ . 195757)]) (put 'js2-do-node-p 'compiler-macro 'js2-do-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-do-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-do-node-tags type-of t] 3 (#$ . 196099)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-do-node-p side-effect-free error-free put js2-do-node cl-deftype-satisfies] 5) #@73 compiler-macro for inlining `js2-do-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-type (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 196379)]) (put 'js2-do-node-type 'compiler-macro 'js2-do-node-type--cmacro) #@206 Access slot "type" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 1] 5 (#$ . 196775)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-type side-effect-free t] 4) #@72 compiler-macro for inlining `js2-do-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-pos (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 197259)]) (put 'js2-do-node-pos 'compiler-macro 'js2-do-node-pos--cmacro) #@205 Access slot "pos" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 2] 5 (#$ . 197650)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-pos side-effect-free t] 4) #@72 compiler-macro for inlining `js2-do-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-len (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 198131)]) (put 'js2-do-node-len 'compiler-macro 'js2-do-node-len--cmacro) #@205 Access slot "len" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 3] 5 (#$ . 198522)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-len side-effect-free t] 4) #@74 compiler-macro for inlining `js2-do-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-props (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 199003)]) (put 'js2-do-node-props 'compiler-macro 'js2-do-node-props--cmacro) #@207 Access slot "props" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 4] 5 (#$ . 199404)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-props side-effect-free t] 4) #@75 compiler-macro for inlining `js2-do-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-parent (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 199891)]) (put 'js2-do-node-parent 'compiler-macro 'js2-do-node-parent--cmacro) #@208 Access slot "parent" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 5] 5 (#$ . 200297)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-parent side-effect-free t] 4) #@73 compiler-macro for inlining `js2-do-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-kids (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 200787)]) (put 'js2-do-node-kids 'compiler-macro 'js2-do-node-kids--cmacro) #@206 Access slot "kids" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 6] 5 (#$ . 201183)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-kids side-effect-free t] 4) #@81 compiler-macro for inlining `js2-do-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-symbol-table (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 201667)]) (put 'js2-do-node-symbol-table 'compiler-macro 'js2-do-node-symbol-table--cmacro) #@214 Access slot "symbol-table" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 7] 5 (#$ . 202103)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-symbol-table side-effect-free t] 4) #@81 compiler-macro for inlining `js2-do-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-parent-scope (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 202611)]) (put 'js2-do-node-parent-scope 'compiler-macro 'js2-do-node-parent-scope--cmacro) #@214 Access slot "parent-scope" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 8] 5 (#$ . 203047)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-parent-scope side-effect-free t] 4) #@72 compiler-macro for inlining `js2-do-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-top (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 203555)]) (put 'js2-do-node-top 'compiler-macro 'js2-do-node-top--cmacro) #@205 Access slot "top" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 9] 5 (#$ . 203946)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-top side-effect-free t] 4) #@73 compiler-macro for inlining `js2-do-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-body (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 204427)]) (put 'js2-do-node-body 'compiler-macro 'js2-do-node-body--cmacro) #@206 Access slot "body" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 10] 5 (#$ . 204824)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-body side-effect-free t] 4) #@71 compiler-macro for inlining `js2-do-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-lp (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 205309)]) (put 'js2-do-node-lp 'compiler-macro 'js2-do-node-lp--cmacro) #@204 Access slot "lp" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 11] 5 (#$ . 205696)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-lp side-effect-free t] 4) #@71 compiler-macro for inlining `js2-do-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-rp (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 206175)]) (put 'js2-do-node-rp 'compiler-macro 'js2-do-node-rp--cmacro) #@204 Access slot "rp" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 12] 5 (#$ . 206562)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-rp side-effect-free t] 4) #@78 compiler-macro for inlining `js2-do-node-condition'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-condition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-condition (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 207041)]) (put 'js2-do-node-condition 'compiler-macro 'js2-do-node-condition--cmacro) #@211 Access slot "condition" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-condition #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 13] 5 (#$ . 207463)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-do-node-condition side-effect-free t] 4) #@78 compiler-macro for inlining `js2-do-node-while-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-do-node-while-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-do-node-while-pos (or (js2-do-node-p cl-x) (signal 'wrong-type-argument (list 'js2-do-node cl-x))) (aref cl-x 14)) nil] 9 (#$ . 207963)]) (put 'js2-do-node-while-pos 'compiler-macro 'js2-do-node-while-pos--cmacro) #@211 Access slot "while-pos" of `(js2-do-node (:include js2-loop-node) (:constructor make-js2-do-node (&key (type js2-DO) (pos (js2-current-token-beg)) len body condition while-pos lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-do-node-while-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-do-node-tags type-of signal wrong-type-argument js2-do-node 14] 5 (#$ . 208385)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-do-node-while-pos side-effect-free t defalias copy-js2-do-node copy-sequence] 4) #@158 compiler-macro for inlining `make-js2-do-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-DO) (POS (js2-current-token-beg)) LEN BODY CONDITION WHILE-POS LP RP) (defalias 'make-js2-do-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\211\203l\211@\314>\203T\211AA\262\202A\315\n>A@\203c\316\262\202A\317\320@\"\210\202A\210\321\322\323\316 \316        & \207" [plist-member :type (nil js2-DO) :pos (nil (js2-current-token-beg)) :len (nil 1) :body :condition :while-pos :lp :rp (:type :pos :len :body :condition :while-pos :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :body :condition :while-pos :lp :rp)" cl--defsubst-expand (type pos len body condition while-pos lp rp) (cl-block make-js2-do-node (record 'js2-do-node type pos len nil nil nil nil nil nil body lp rp condition while-pos))] 24 (#$ . 208936)]) (put 'make-js2-do-node 'compiler-macro 'make-js2-do-node--cmacro) #@138 Constructor for objects of type `js2-do-node'. (fn &key (TYPE js2-DO) (POS (js2-current-token-beg)) LEN BODY CONDITION WHILE-POS LP RP) (defalias 'make-js2-do-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\304\321\"A@\304\322\"A@\304\323\"A@\211\203\206\211@\324>\203n\211AA\262\202[\325\n>A@\203}\306\262\202[\326\327@\"\210\202[\210\330\331   \306\211\211\211\211\211  &\207" [js2-DO js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :body :condition :while-pos :lp :rp (:type :pos :len :body :condition :while-pos :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :body :condition :while-pos :lp :rp)" record js2-do-node] 25 (#$ . 210002)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-do-node side-effect-free t cl-struct-define js2-do-node "AST node for do-loop." js2-loop-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (body nil) (lp nil) (rp nil) (condition) (while-pos)) cl-struct-js2-do-node-tags js2--struct-put js2-visitor js2-visit-do-node js2-printer js2-print-do-node] 11) #@12 (fn N V) (defalias 'js2-visit-do-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-do-node-tags js2-visit-ast type-of signal wrong-type-argument js2-do-node 10 13] 7 (#$ . 211483)]) #@12 (fn N I) (defalias 'js2-print-do-node #[514 "\302!\211\303\261\210\304\211!>\204\305\306\307D\"\210\310H! >\204<\305\306\311\304!>\2046\305\306\307D\"\210\310HD\"\210\304!>\204K\305\306\307D\"\210\310H\312H\211\203c\211@\313T\"\210A\266\202\202P\210\211\314\261\210\313\304!>\204z\305\306\307D\"\210\315H\316\"\210\317c\207" [cl-struct-js2-do-node-tags cl-struct-js2-block-node-tags js2-make-pad "do {\n" type-of signal wrong-type-argument js2-do-node 10 js2-block-node 6 js2-print-ast "} while (" 13 0 ");\n"] 10 (#$ . 211754)]) #@74 compiler-macro for inlining `js2-export-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-p (and (memq (type-of cl-x) cl-struct-js2-export-node-tags) t)) nil] 9 (#$ . 212326)]) (put 'js2-export-node-p 'compiler-macro 'js2-export-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-export-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-export-node-tags type-of t] 3 (#$ . 212692)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-export-node-p side-effect-free error-free put js2-export-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-export-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-type (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 212988)]) (put 'js2-export-node-type 'compiler-macro 'js2-export-node-type--cmacro) #@227 Access slot "type" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 1] 5 (#$ . 213412)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-export-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-pos (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 213933)]) (put 'js2-export-node-pos 'compiler-macro 'js2-export-node-pos--cmacro) #@226 Access slot "pos" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 2] 5 (#$ . 214352)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-export-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-len (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 214870)]) (put 'js2-export-node-len 'compiler-macro 'js2-export-node-len--cmacro) #@226 Access slot "len" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 3] 5 (#$ . 215289)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-export-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-props (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 215807)]) (put 'js2-export-node-props 'compiler-macro 'js2-export-node-props--cmacro) #@228 Access slot "props" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 4] 5 (#$ . 216236)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-export-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-parent (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 216760)]) (put 'js2-export-node-parent 'compiler-macro 'js2-export-node-parent--cmacro) #@229 Access slot "parent" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 5] 5 (#$ . 217194)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-node-parent side-effect-free t] 4) #@85 compiler-macro for inlining `js2-export-node-exports-list'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-exports-list--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-exports-list (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 217721)]) (put 'js2-export-node-exports-list 'compiler-macro 'js2-export-node-exports-list--cmacro) #@235 Access slot "exports-list" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-exports-list #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 6] 5 (#$ . 218185)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-node-exports-list side-effect-free t] 4) #@84 compiler-macro for inlining `js2-export-node-from-clause'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-from-clause--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-from-clause (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 218730)]) (put 'js2-export-node-from-clause 'compiler-macro 'js2-export-node-from-clause--cmacro) #@234 Access slot "from-clause" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-from-clause #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 7] 5 (#$ . 219189)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-node-from-clause side-effect-free t] 4) #@84 compiler-macro for inlining `js2-export-node-declaration'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-declaration--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-declaration (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 219731)]) (put 'js2-export-node-declaration 'compiler-macro 'js2-export-node-declaration--cmacro) #@234 Access slot "declaration" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-declaration #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 8] 5 (#$ . 220190)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-node-declaration side-effect-free t] 4) #@80 compiler-macro for inlining `js2-export-node-default'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-node-default--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-node-default (or (js2-export-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 220732)]) (put 'js2-export-node-default 'compiler-macro 'js2-export-node-default--cmacro) #@230 Access slot "default" of `(js2-export-node (:include js2-node) (:constructor make-js2-export-node (&key (type js2-EXPORT) (pos (js2-current-token-beg)) len exports-list from-clause declaration default)))' struct CL-X. (fn CL-X) (defalias 'js2-export-node-default #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 9] 5 (#$ . 221171)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-export-node-default side-effect-free t defalias copy-js2-export-node copy-sequence] 4) #@180 compiler-macro for inlining `make-js2-export-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-EXPORT) (POS (js2-current-token-beg)) LEN EXPORTS-LIST FROM-CLAUSE DECLARATION DEFAULT) (defalias 'make-js2-export-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-EXPORT) :pos (nil (js2-current-token-beg)) :len (nil 1) :exports-list :from-clause :declaration :default (:type :pos :len :exports-list :from-clause :declaration :default :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :exports-list :from-clause :declaration :default)" cl--defsubst-expand (type pos len exports-list from-clause declaration default) (cl-block make-js2-export-node (record 'js2-export-node type pos len nil nil exports-list from-clause declaration default))] 22 (#$ . 221756)]) (put 'make-js2-export-node 'compiler-macro 'make-js2-export-node--cmacro) #@160 Constructor for objects of type `js2-export-node'. (fn &key (TYPE js2-EXPORT) (POS (js2-current-token-beg)) LEN EXPORTS-LIST FROM-CLAUSE DECLARATION DEFAULT) (defalias 'make-js2-export-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\304\321\"A@\304\322\"A@\211\203\211@\323>\203g\211AA\262\202T\324 >A@\203v\306\262\202T\325\326@\"\210\202T\210\327\330\306\211\n\n\n\n&\n\207" [js2-EXPORT js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :exports-list :from-clause :declaration :default (:type :pos :len :exports-list :from-clause :declaration :default :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :exports-list :from-clause :declaration :default)" record js2-export-node] 19 (#$ . 222912)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-export-node side-effect-free t cl-struct-define js2-export-node "AST node for an export statement. There are many things that can be exported,\nso many of its properties will be nil.\n" js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (exports-list) (from-clause) (declaration) (default)) cl-struct-js2-export-node-tags js2--struct-put js2-visitor js2-visit-export-node js2-printer js2-print-export-node] 11) #@12 (fn N V) (defalias 'js2-visit-export-node #[514 "\301!>\204\302\303\304D\"\210\305H\301!>\204!\302\303\304D\"\210\306H\301!>\2044\302\303\304D\"\210\307H\301!>\204G\302\303\304D\"\210\310H\203c\211\203b\211@\311\"\210A\266\202\202O\210\203m\311\"\210\203w\311\"\210\211\205\200\311\"\207" [cl-struct-js2-export-node-tags type-of signal wrong-type-argument js2-export-node 6 7 8 9 js2-visit-ast] 11 (#$ . 224489)]) #@12 (fn N I) (defalias 'js2-print-export-node #[514 "\304!\305!>\204\306\307\310D\"\210\311H\305!>\204%\306\307\310D\"\210\312H\305!>\2048\306\307\310D\"\210\313H\305!>\204L\306\307\310D\"\210\314H\315\261\210\211\203d\316c\210\317\"\210\202\235\203q\317\"\210\202\235\203\207\203\207\320!\210\321c\210\322!\210\202\235\203\225\323c\210\322!\210\202\235\203\235\320!\210\211\203\256\305! >\205\252\324?\206\307\205\307\305!\n>\203\276\324\202\307\305! >\205\307\324?\205\315\325c\207" [cl-struct-js2-export-node-tags cl-struct-js2-assign-node-tags cl-struct-js2-function-node-tags cl-struct-js2-class-node-tags js2-make-pad type-of signal wrong-type-argument js2-export-node 6 7 8 9 "export " "default " js2-print-ast js2-print-named-imports " " js2-print-from-clause "* " t ";\n"] 10 (#$ . 224957)]) #@73 compiler-macro for inlining `js2-while-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-p (and (memq (type-of cl-x) cl-struct-js2-while-node-tags) t)) nil] 9 (#$ . 225827)]) (put 'js2-while-node-p 'compiler-macro 'js2-while-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-while-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-while-node-tags type-of t] 3 (#$ . 226187)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-while-node-p side-effect-free error-free put js2-while-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-while-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-type (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 226479)]) (put 'js2-while-node-type 'compiler-macro 'js2-while-node-type--cmacro) #@205 Access slot "type" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 1] 5 (#$ . 226896)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-while-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-pos (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 227391)]) (put 'js2-while-node-pos 'compiler-macro 'js2-while-node-pos--cmacro) #@204 Access slot "pos" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 2] 5 (#$ . 227803)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-while-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-len (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 228295)]) (put 'js2-while-node-len 'compiler-macro 'js2-while-node-len--cmacro) #@204 Access slot "len" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 3] 5 (#$ . 228707)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-while-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-props (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 229199)]) (put 'js2-while-node-props 'compiler-macro 'js2-while-node-props--cmacro) #@206 Access slot "props" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 4] 5 (#$ . 229621)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-while-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-parent (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 230119)]) (put 'js2-while-node-parent 'compiler-macro 'js2-while-node-parent--cmacro) #@207 Access slot "parent" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 5] 5 (#$ . 230546)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-parent side-effect-free t] 4) #@76 compiler-macro for inlining `js2-while-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-kids (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 231047)]) (put 'js2-while-node-kids 'compiler-macro 'js2-while-node-kids--cmacro) #@205 Access slot "kids" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 6] 5 (#$ . 231464)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-kids side-effect-free t] 4) #@84 compiler-macro for inlining `js2-while-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-symbol-table (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 231959)]) (put 'js2-while-node-symbol-table 'compiler-macro 'js2-while-node-symbol-table--cmacro) #@213 Access slot "symbol-table" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 7] 5 (#$ . 232416)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-symbol-table side-effect-free t] 4) #@84 compiler-macro for inlining `js2-while-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-parent-scope (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 232935)]) (put 'js2-while-node-parent-scope 'compiler-macro 'js2-while-node-parent-scope--cmacro) #@213 Access slot "parent-scope" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 8] 5 (#$ . 233392)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-parent-scope side-effect-free t] 4) #@75 compiler-macro for inlining `js2-while-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-top (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 233911)]) (put 'js2-while-node-top 'compiler-macro 'js2-while-node-top--cmacro) #@204 Access slot "top" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 9] 5 (#$ . 234323)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-top side-effect-free t] 4) #@76 compiler-macro for inlining `js2-while-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-body (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 234815)]) (put 'js2-while-node-body 'compiler-macro 'js2-while-node-body--cmacro) #@205 Access slot "body" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 10] 5 (#$ . 235233)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-body side-effect-free t] 4) #@74 compiler-macro for inlining `js2-while-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-lp (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 235729)]) (put 'js2-while-node-lp 'compiler-macro 'js2-while-node-lp--cmacro) #@203 Access slot "lp" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 11] 5 (#$ . 236137)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-lp side-effect-free t] 4) #@74 compiler-macro for inlining `js2-while-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-rp (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 236627)]) (put 'js2-while-node-rp 'compiler-macro 'js2-while-node-rp--cmacro) #@203 Access slot "rp" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 12] 5 (#$ . 237035)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-while-node-rp side-effect-free t] 4) #@81 compiler-macro for inlining `js2-while-node-condition'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-while-node-condition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-while-node-condition (or (js2-while-node-p cl-x) (signal 'wrong-type-argument (list 'js2-while-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 237525)]) (put 'js2-while-node-condition 'compiler-macro 'js2-while-node-condition--cmacro) #@210 Access slot "condition" of `(js2-while-node (:include js2-loop-node) (:constructor make-js2-while-node (&key (type js2-WHILE) (pos (js2-current-token-beg)) len body condition lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-while-node-condition #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-while-node-tags type-of signal wrong-type-argument js2-while-node 13] 5 (#$ . 237968)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-while-node-condition side-effect-free t defalias copy-js2-while-node copy-sequence] 4) #@154 compiler-macro for inlining `make-js2-while-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-WHILE) (POS (js2-current-token-beg)) LEN BODY CONDITION LP RP) (defalias 'make-js2-while-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-WHILE) :pos (nil (js2-current-token-beg)) :len (nil 1) :body :condition :lp :rp (:type :pos :len :body :condition :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :body :condition :lp :rp)" cl--defsubst-expand (type pos len body condition lp rp) (cl-block make-js2-while-node (record 'js2-while-node type pos len nil nil nil nil nil nil body lp rp condition))] 22 (#$ . 238533)]) (put 'make-js2-while-node 'compiler-macro 'make-js2-while-node--cmacro) #@134 Constructor for objects of type `js2-while-node'. (fn &key (TYPE js2-WHILE) (POS (js2-current-token-beg)) LEN BODY CONDITION LP RP) (defalias 'make-js2-while-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\304\321\"A@\304\322\"A@\211\203\211@\323>\203g\211AA\262\202T\324 >A@\203v\306\262\202T\325\326@\"\210\202T\210\327\330\306\211\211\211\211\211  &\207" [js2-WHILE js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :body :condition :lp :rp (:type :pos :len :body :condition :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :body :condition :lp :rp)" record js2-while-node] 23 (#$ . 239553)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-while-node side-effect-free t cl-struct-define js2-while-node "AST node for while-loop." js2-loop-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (body nil) (lp nil) (rp nil) (condition)) cl-struct-js2-while-node-tags js2--struct-put js2-visitor js2-visit-while-node js2-printer js2-print-while-node] 11) #@12 (fn N V) (defalias 'js2-visit-while-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-while-node-tags js2-visit-ast type-of signal wrong-type-argument js2-while-node 13 10] 7 (#$ . 240992)]) #@12 (fn N I) (defalias 'js2-print-while-node #[514 "\301!\211\302\261\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\312c\210\313\304!>\2043\305\306\307D\"\210\314HT\"\210\211\315\261\207" [cl-struct-js2-while-node-tags js2-make-pad "while (" js2-print-ast type-of signal wrong-type-argument js2-while-node 13 0 ") {\n" js2-print-body 10 "}\n"] 8 (#$ . 241272)]) #@71 compiler-macro for inlining `js2-for-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-p (and (memq (type-of cl-x) cl-struct-js2-for-node-tags) t)) nil] 9 (#$ . 241661)]) (put 'js2-for-node-p 'compiler-macro 'js2-for-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-for-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-for-node-tags type-of t] 3 (#$ . 242009)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-for-node-p side-effect-free error-free put js2-for-node cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `js2-for-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-type (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 242293)]) (put 'js2-for-node-type 'compiler-macro 'js2-for-node-type--cmacro) #@201 Access slot "type" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 1] 5 (#$ . 242696)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-type side-effect-free t] 4) #@73 compiler-macro for inlining `js2-for-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-pos (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 243179)]) (put 'js2-for-node-pos 'compiler-macro 'js2-for-node-pos--cmacro) #@200 Access slot "pos" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 2] 5 (#$ . 243577)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-pos side-effect-free t] 4) #@73 compiler-macro for inlining `js2-for-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-len (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 244057)]) (put 'js2-for-node-len 'compiler-macro 'js2-for-node-len--cmacro) #@200 Access slot "len" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 3] 5 (#$ . 244455)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-len side-effect-free t] 4) #@75 compiler-macro for inlining `js2-for-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-props (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 244935)]) (put 'js2-for-node-props 'compiler-macro 'js2-for-node-props--cmacro) #@202 Access slot "props" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 4] 5 (#$ . 245343)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-props side-effect-free t] 4) #@76 compiler-macro for inlining `js2-for-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-parent (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 245829)]) (put 'js2-for-node-parent 'compiler-macro 'js2-for-node-parent--cmacro) #@203 Access slot "parent" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 5] 5 (#$ . 246242)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-parent side-effect-free t] 4) #@74 compiler-macro for inlining `js2-for-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-kids (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 246731)]) (put 'js2-for-node-kids 'compiler-macro 'js2-for-node-kids--cmacro) #@201 Access slot "kids" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 6] 5 (#$ . 247134)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-kids side-effect-free t] 4) #@82 compiler-macro for inlining `js2-for-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-symbol-table (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 247617)]) (put 'js2-for-node-symbol-table 'compiler-macro 'js2-for-node-symbol-table--cmacro) #@209 Access slot "symbol-table" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 7] 5 (#$ . 248060)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-symbol-table side-effect-free t] 4) #@82 compiler-macro for inlining `js2-for-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-parent-scope (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 248567)]) (put 'js2-for-node-parent-scope 'compiler-macro 'js2-for-node-parent-scope--cmacro) #@209 Access slot "parent-scope" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 8] 5 (#$ . 249010)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-parent-scope side-effect-free t] 4) #@73 compiler-macro for inlining `js2-for-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-top (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 249517)]) (put 'js2-for-node-top 'compiler-macro 'js2-for-node-top--cmacro) #@200 Access slot "top" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 9] 5 (#$ . 249915)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-top side-effect-free t] 4) #@74 compiler-macro for inlining `js2-for-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-body (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 250395)]) (put 'js2-for-node-body 'compiler-macro 'js2-for-node-body--cmacro) #@201 Access slot "body" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 10] 5 (#$ . 250799)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-body side-effect-free t] 4) #@72 compiler-macro for inlining `js2-for-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-lp (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 251283)]) (put 'js2-for-node-lp 'compiler-macro 'js2-for-node-lp--cmacro) #@199 Access slot "lp" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 11] 5 (#$ . 251677)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-lp side-effect-free t] 4) #@72 compiler-macro for inlining `js2-for-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-rp (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 252155)]) (put 'js2-for-node-rp 'compiler-macro 'js2-for-node-rp--cmacro) #@199 Access slot "rp" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 12] 5 (#$ . 252549)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-rp side-effect-free t] 4) #@74 compiler-macro for inlining `js2-for-node-init'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-init--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-init (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 253027)]) (put 'js2-for-node-init 'compiler-macro 'js2-for-node-init--cmacro) #@201 Access slot "init" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-init #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 13] 5 (#$ . 253431)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-init side-effect-free t] 4) #@79 compiler-macro for inlining `js2-for-node-condition'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-condition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-condition (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 14)) nil] 9 (#$ . 253915)]) (put 'js2-for-node-condition 'compiler-macro 'js2-for-node-condition--cmacro) #@206 Access slot "condition" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-condition #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 14] 5 (#$ . 254344)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-node-condition side-effect-free t] 4) #@76 compiler-macro for inlining `js2-for-node-update'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-node-update--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-node-update (or (js2-for-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-node cl-x))) (aref cl-x 15)) nil] 9 (#$ . 254843)]) (put 'js2-for-node-update 'compiler-macro 'js2-for-node-update--cmacro) #@203 Access slot "update" of `(js2-for-node (:include js2-loop-node) (:constructor make-js2-for-node (&key (type js2-FOR) (pos js2-ts-cursor) len body init condition update lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-node-update #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-node-tags type-of signal wrong-type-argument js2-for-node 15] 5 (#$ . 255257)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-for-node-update side-effect-free t defalias copy-js2-for-node copy-sequence] 4) #@152 compiler-macro for inlining `make-js2-for-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-FOR) (POS js2-ts-cursor) LEN BODY INIT CONDITION UPDATE LP RP) (defalias 'make-js2-for-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\300 \314\"A@ \211\203s\211@\315>\203[\211AA\262\202H\316 >A@\203j\317\262\202H\320\321@\"\210\202H\210\322\323\324\317\317&\207" [plist-member :type (nil js2-FOR) :pos (nil js2-ts-cursor) :len (nil 1) :body :init :condition :update :lp :rp (:type :pos :len :body :init :condition :update :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :body :init :condition :update :lp :rp)" cl--defsubst-expand (type pos len body init condition update lp rp) (cl-block make-js2-for-node (record 'js2-for-node type pos len nil nil nil nil nil nil body lp rp init condition update))] 26 (#$ . 255799)]) (put 'make-js2-for-node 'compiler-macro 'make-js2-for-node--cmacro) #@132 Constructor for objects of type `js2-for-node'. (fn &key (TYPE js2-FOR) (POS js2-ts-cursor) LEN BODY INIT CONDITION UPDATE LP RP) (defalias 'make-js2-for-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\302\314\"A@\302 \315\"A@ \211\203w\211@\316>\203_\211AA\262\202L\317 >A@\203n\304\262\202L\320\321@\"\210\202L\210\322\323\n\n\n\304\211\211\211\211\211  &\207" [js2-FOR js2-ts-cursor plist-member :type nil :pos :len (nil 1) :body :init :condition :update :lp :rp (:type :pos :len :body :init :condition :update :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :body :init :condition :update :lp :rp)" record js2-for-node] 27 (#$ . 256883)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-for-node side-effect-free t cl-struct-define js2-for-node "AST node for a C-style for-loop." js2-loop-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (body nil) (lp nil) (rp nil) (init) (condition) (update)) cl-struct-js2-for-node-tags js2--struct-put js2-visitor js2-visit-for-node js2-printer js2-print-for-node] 11) #@12 (fn N V) (defalias 'js2-visit-for-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\210\301\302!>\204<\303\304\305D\"\210\310H\"\210\301\302!>\204R\303\304\305D\"\210\311H\"\207" [cl-struct-js2-for-node-tags js2-visit-ast type-of signal wrong-type-argument js2-for-node 13 14 15 10] 7 (#$ . 258261)]) #@12 (fn N I) (defalias 'js2-print-for-node #[514 "\301!\211\302\261\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\312c\210\303\304!>\2043\305\306\307D\"\210\313H\311\"\210\312c\210\303\304!>\204M\305\306\307D\"\210\314H\311\"\210\315c\210\316\304!>\204g\305\306\307D\"\210\317HT\"\210\211\320\261\207" [cl-struct-js2-for-node-tags js2-make-pad "for (" js2-print-ast type-of signal wrong-type-argument js2-for-node 13 0 "; " 14 15 ") {\n" js2-print-body 10 "}\n"] 8 (#$ . 258643)]) #@74 compiler-macro for inlining `js2-for-in-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-p (and (memq (type-of cl-x) cl-struct-js2-for-in-node-tags) t)) nil] 9 (#$ . 259163)]) (put 'js2-for-in-node-p 'compiler-macro 'js2-for-in-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-for-in-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-for-in-node-tags type-of t] 3 (#$ . 259529)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-for-in-node-p side-effect-free error-free put js2-for-in-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-for-in-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-type (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 259825)]) (put 'js2-for-in-node-type 'compiler-macro 'js2-for-in-node-type--cmacro) #@235 Access slot "type" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 1] 5 (#$ . 260249)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-for-in-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-pos (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 260778)]) (put 'js2-for-in-node-pos 'compiler-macro 'js2-for-in-node-pos--cmacro) #@234 Access slot "pos" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 2] 5 (#$ . 261197)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-for-in-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-len (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 261723)]) (put 'js2-for-in-node-len 'compiler-macro 'js2-for-in-node-len--cmacro) #@234 Access slot "len" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 3] 5 (#$ . 262142)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-for-in-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-props (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 262668)]) (put 'js2-for-in-node-props 'compiler-macro 'js2-for-in-node-props--cmacro) #@236 Access slot "props" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 4] 5 (#$ . 263097)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-for-in-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-parent (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 263629)]) (put 'js2-for-in-node-parent 'compiler-macro 'js2-for-in-node-parent--cmacro) #@237 Access slot "parent" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 5] 5 (#$ . 264063)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-for-in-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-kids (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 264598)]) (put 'js2-for-in-node-kids 'compiler-macro 'js2-for-in-node-kids--cmacro) #@235 Access slot "kids" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 6] 5 (#$ . 265022)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-kids side-effect-free t] 4) #@85 compiler-macro for inlining `js2-for-in-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-symbol-table (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 265551)]) (put 'js2-for-in-node-symbol-table 'compiler-macro 'js2-for-in-node-symbol-table--cmacro) #@243 Access slot "symbol-table" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 7] 5 (#$ . 266015)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-symbol-table side-effect-free t] 4) #@85 compiler-macro for inlining `js2-for-in-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-parent-scope (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 266568)]) (put 'js2-for-in-node-parent-scope 'compiler-macro 'js2-for-in-node-parent-scope--cmacro) #@243 Access slot "parent-scope" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 8] 5 (#$ . 267032)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-parent-scope side-effect-free t] 4) #@76 compiler-macro for inlining `js2-for-in-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-top (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 267585)]) (put 'js2-for-in-node-top 'compiler-macro 'js2-for-in-node-top--cmacro) #@234 Access slot "top" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 9] 5 (#$ . 268004)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-top side-effect-free t] 4) #@77 compiler-macro for inlining `js2-for-in-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-body (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 268530)]) (put 'js2-for-in-node-body 'compiler-macro 'js2-for-in-node-body--cmacro) #@235 Access slot "body" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 10] 5 (#$ . 268955)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-body side-effect-free t] 4) #@75 compiler-macro for inlining `js2-for-in-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-lp (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 269485)]) (put 'js2-for-in-node-lp 'compiler-macro 'js2-for-in-node-lp--cmacro) #@233 Access slot "lp" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 11] 5 (#$ . 269900)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-lp side-effect-free t] 4) #@75 compiler-macro for inlining `js2-for-in-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-rp (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 270424)]) (put 'js2-for-in-node-rp 'compiler-macro 'js2-for-in-node-rp--cmacro) #@233 Access slot "rp" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 12] 5 (#$ . 270839)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-rp side-effect-free t] 4) #@81 compiler-macro for inlining `js2-for-in-node-iterator'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-iterator--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-iterator (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 271363)]) (put 'js2-for-in-node-iterator 'compiler-macro 'js2-for-in-node-iterator--cmacro) #@239 Access slot "iterator" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-iterator #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 13] 5 (#$ . 271808)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-iterator side-effect-free t] 4) #@79 compiler-macro for inlining `js2-for-in-node-object'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-object--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-object (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 14)) nil] 9 (#$ . 272350)]) (put 'js2-for-in-node-object 'compiler-macro 'js2-for-in-node-object--cmacro) #@237 Access slot "object" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-object #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 14] 5 (#$ . 272785)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-object side-effect-free t] 4) #@79 compiler-macro for inlining `js2-for-in-node-in-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-in-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-in-pos (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 15)) nil] 9 (#$ . 273321)]) (put 'js2-for-in-node-in-pos 'compiler-macro 'js2-for-in-node-in-pos--cmacro) #@237 Access slot "in-pos" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-in-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 15] 5 (#$ . 273756)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-in-pos side-effect-free t] 4) #@81 compiler-macro for inlining `js2-for-in-node-each-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-each-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-each-pos (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 16)) nil] 9 (#$ . 274292)]) (put 'js2-for-in-node-each-pos 'compiler-macro 'js2-for-in-node-each-pos--cmacro) #@239 Access slot "each-pos" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-each-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 16] 5 (#$ . 274737)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-each-pos side-effect-free t] 4) #@82 compiler-macro for inlining `js2-for-in-node-foreach-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-foreach-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-foreach-p (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 17)) nil] 9 (#$ . 275279)]) (put 'js2-for-in-node-foreach-p 'compiler-macro 'js2-for-in-node-foreach-p--cmacro) #@240 Access slot "foreach-p" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-foreach-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 17] 5 (#$ . 275729)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-for-in-node-foreach-p side-effect-free t] 4) #@80 compiler-macro for inlining `js2-for-in-node-forof-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-for-in-node-forof-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-for-in-node-forof-p (or (js2-for-in-node-p cl-x) (signal 'wrong-type-argument (list 'js2-for-in-node cl-x))) (aref cl-x 18)) nil] 9 (#$ . 276274)]) (put 'js2-for-in-node-forof-p 'compiler-macro 'js2-for-in-node-forof-p--cmacro) #@238 Access slot "forof-p" of `(js2-for-in-node (:include js2-loop-node) (:constructor make-js2-for-in-node (&key (type js2-FOR) (pos js2-ts-cursor) len body iterator object in-pos each-pos foreach-p forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-for-in-node-forof-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-for-in-node-tags type-of signal wrong-type-argument js2-for-in-node 18] 5 (#$ . 276714)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-for-in-node-forof-p side-effect-free t defalias copy-js2-for-in-node copy-sequence] 4) #@183 compiler-macro for inlining `make-js2-for-in-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-FOR) (POS js2-ts-cursor) LEN BODY ITERATOR OBJECT IN-POS EACH-POS FOREACH-P FOROF-P LP RP) (defalias 'make-js2-for-in-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\300 \314\"A@\300\n\315\"A@\300 \316\"A@\300\f\317\"A@\f\211\203\210\211@\320>\203p\211AA\262\202]\321>A@\203\322\262\202]\323\324@\"\210\202]\210\325\326\327\322\322&\207" [plist-member :type (nil js2-FOR) :pos (nil js2-ts-cursor) :len (nil 1) :body :iterator :object :in-pos :each-pos :foreach-p :forof-p :lp :rp (:type :pos :len :body :iterator :object :in-pos :each-pos :foreach-p :forof-p :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :body :iterator :object :in-pos :each-pos :foreach-p :forof-p :lp :rp)" cl--defsubst-expand (type pos len body iterator object in-pos each-pos foreach-p forof-p lp rp) (cl-block make-js2-for-in-node (record 'js2-for-in-node type pos len nil nil nil nil nil nil body lp rp iterator object in-pos each-pos foreach-p forof-p))] 32 (#$ . 277308)]) (put 'make-js2-for-in-node 'compiler-macro 'make-js2-for-in-node--cmacro) #@163 Constructor for objects of type `js2-for-in-node'. (fn &key (TYPE js2-FOR) (POS js2-ts-cursor) LEN BODY ITERATOR OBJECT IN-POS EACH-POS FOREACH-P FOROF-P LP RP) (defalias 'make-js2-for-in-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\302\314\"A@\302 \315\"A@\302\n\316\"A@\302 \317\"A@\302\f\320\"A@\f\211\203\214\211@\321>\203t\211AA\262\202a\322>A@\203\203\304\262\202a\323\324@\"\210\202a\210\325\326   \304\211\211\211\211\211  &\207" [js2-FOR js2-ts-cursor plist-member :type nil :pos :len (nil 1) :body :iterator :object :in-pos :each-pos :foreach-p :forof-p :lp :rp (:type :pos :len :body :iterator :object :in-pos :each-pos :foreach-p :forof-p :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :body :iterator :object :in-pos :each-pos :foreach-p :forof-p :lp :rp)" record js2-for-in-node] 33 (#$ . 278641)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-for-in-node side-effect-free t cl-struct-define js2-for-in-node "AST node for a for..in loop." js2-loop-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (body nil) (lp nil) (rp nil) (iterator) (object) (in-pos) (each-pos) (foreach-p) (forof-p)) cl-struct-js2-for-in-node-tags js2--struct-put js2-visitor js2-visit-for-in-node js2-printer js2-print-for-in-node] 11) #@12 (fn N V) (defalias 'js2-visit-for-in-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\210\301\302!>\204<\303\304\305D\"\210\310H\"\207" [cl-struct-js2-for-in-node-tags js2-visit-ast type-of signal wrong-type-argument js2-for-in-node 13 14 10] 7 (#$ . 280248)]) #@12 (fn N I) (defalias 'js2-print-for-in-node #[514 "\301!\302!>\204\303\304\305D\"\210\306H\302!>\204%\303\304\305D\"\210\307H\310\261\210\2034\311c\210\312c\210\313\302!>\204I\303\304\305D\"\210\314H\315\"\210\211\203W\316\202X\317c\210\313\302!>\204l\303\304\305D\"\210\320H\315\"\210\321c\210\322\302!>\204\207\303\304\305D\"\210\323HT\"\210\324\261\207" [cl-struct-js2-for-in-node-tags js2-make-pad type-of signal wrong-type-argument js2-for-in-node 17 18 "for " "each " "(" js2-print-ast 13 0 " of " " in " 14 ") {\n" js2-print-body 10 "}\n"] 10 (#$ . 280585)]) #@74 compiler-macro for inlining `js2-return-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-return-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-return-node-p (and (memq (type-of cl-x) cl-struct-js2-return-node-tags) t)) nil] 9 (#$ . 281200)]) (put 'js2-return-node-p 'compiler-macro 'js2-return-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-return-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-return-node-tags type-of t] 3 (#$ . 281566)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-return-node-p side-effect-free error-free put js2-return-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-return-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-return-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-return-node-type (or (js2-return-node-p cl-x) (signal 'wrong-type-argument (list 'js2-return-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 281862)]) (put 'js2-return-node-type 'compiler-macro 'js2-return-node-type--cmacro) #@179 Access slot "type" of `(js2-return-node (:include js2-node) (:constructor make-js2-return-node (&key (type js2-RETURN) (pos js2-ts-cursor) len retval)))' struct CL-X. (fn CL-X) (defalias 'js2-return-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-return-node-tags type-of signal wrong-type-argument js2-return-node 1] 5 (#$ . 282286)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-return-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-return-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-return-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-return-node-pos (or (js2-return-node-p cl-x) (signal 'wrong-type-argument (list 'js2-return-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 282759)]) (put 'js2-return-node-pos 'compiler-macro 'js2-return-node-pos--cmacro) #@178 Access slot "pos" of `(js2-return-node (:include js2-node) (:constructor make-js2-return-node (&key (type js2-RETURN) (pos js2-ts-cursor) len retval)))' struct CL-X. (fn CL-X) (defalias 'js2-return-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-return-node-tags type-of signal wrong-type-argument js2-return-node 2] 5 (#$ . 283178)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-return-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-return-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-return-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-return-node-len (or (js2-return-node-p cl-x) (signal 'wrong-type-argument (list 'js2-return-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 283648)]) (put 'js2-return-node-len 'compiler-macro 'js2-return-node-len--cmacro) #@178 Access slot "len" of `(js2-return-node (:include js2-node) (:constructor make-js2-return-node (&key (type js2-RETURN) (pos js2-ts-cursor) len retval)))' struct CL-X. (fn CL-X) (defalias 'js2-return-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-return-node-tags type-of signal wrong-type-argument js2-return-node 3] 5 (#$ . 284067)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-return-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-return-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-return-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-return-node-props (or (js2-return-node-p cl-x) (signal 'wrong-type-argument (list 'js2-return-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 284537)]) (put 'js2-return-node-props 'compiler-macro 'js2-return-node-props--cmacro) #@180 Access slot "props" of `(js2-return-node (:include js2-node) (:constructor make-js2-return-node (&key (type js2-RETURN) (pos js2-ts-cursor) len retval)))' struct CL-X. (fn CL-X) (defalias 'js2-return-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-return-node-tags type-of signal wrong-type-argument js2-return-node 4] 5 (#$ . 284966)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-return-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-return-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-return-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-return-node-parent (or (js2-return-node-p cl-x) (signal 'wrong-type-argument (list 'js2-return-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 285442)]) (put 'js2-return-node-parent 'compiler-macro 'js2-return-node-parent--cmacro) #@181 Access slot "parent" of `(js2-return-node (:include js2-node) (:constructor make-js2-return-node (&key (type js2-RETURN) (pos js2-ts-cursor) len retval)))' struct CL-X. (fn CL-X) (defalias 'js2-return-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-return-node-tags type-of signal wrong-type-argument js2-return-node 5] 5 (#$ . 285876)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-return-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-return-node-retval'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-return-node-retval--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-return-node-retval (or (js2-return-node-p cl-x) (signal 'wrong-type-argument (list 'js2-return-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 286355)]) (put 'js2-return-node-retval 'compiler-macro 'js2-return-node-retval--cmacro) #@181 Access slot "retval" of `(js2-return-node (:include js2-node) (:constructor make-js2-return-node (&key (type js2-RETURN) (pos js2-ts-cursor) len retval)))' struct CL-X. (fn CL-X) (defalias 'js2-return-node-retval #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-return-node-tags type-of signal wrong-type-argument js2-return-node 6] 5 (#$ . 286789)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-return-node-retval side-effect-free t defalias copy-js2-return-node copy-sequence] 4) #@132 compiler-macro for inlining `make-js2-return-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-RETURN) (POS js2-ts-cursor) LEN RETVAL) (defalias 'make-js2-return-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-RETURN) :pos (nil js2-ts-cursor) :len (nil 1) :retval (:type :pos :len :retval :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :retval)" cl--defsubst-expand (type pos len retval) (cl-block make-js2-return-node (record 'js2-return-node type pos len nil nil retval))] 16 (#$ . 287323)]) (put 'make-js2-return-node 'compiler-macro 'make-js2-return-node--cmacro) #@112 Constructor for objects of type `js2-return-node'. (fn &key (TYPE js2-RETURN) (POS js2-ts-cursor) LEN RETVAL) (defalias 'make-js2-return-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211&\207" [js2-RETURN js2-ts-cursor plist-member :type nil :pos :len (nil 1) :retval (:type :pos :len :retval :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :retval)" record js2-return-node] 13 (#$ . 288164)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-return-node side-effect-free t cl-struct-define js2-return-node "AST node for a return statement." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (retval)) cl-struct-js2-return-node-tags js2--struct-put js2-visitor js2-visit-return-node js2-printer js2-print-return-node] 11) #@12 (fn N V) (defalias 'js2-visit-return-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-return-node-tags js2-visit-ast type-of signal wrong-type-argument js2-return-node 6] 7 (#$ . 289239)]) #@12 (fn N I) (defalias 'js2-print-return-node #[514 "\301!\302\261\210\303!>\204\304\305\306D\"\210\307H\2035\310c\210\311\303!>\204/\304\305\306D\"\210\307H\312\"\210\313c\207" [cl-struct-js2-return-node-tags js2-make-pad "return" type-of signal wrong-type-argument js2-return-node 6 " " js2-print-ast 0 ";\n"] 7 (#$ . 289467)]) #@70 compiler-macro for inlining `js2-if-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-p (and (memq (type-of cl-x) cl-struct-js2-if-node-tags) t)) nil] 9 (#$ . 289815)]) (put 'js2-if-node-p 'compiler-macro 'js2-if-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-if-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-if-node-tags type-of t] 3 (#$ . 290157)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-if-node-p side-effect-free error-free put js2-if-node cl-deftype-satisfies] 5) #@73 compiler-macro for inlining `js2-if-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-type (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 290437)]) (put 'js2-if-node-type 'compiler-macro 'js2-if-node-type--cmacro) #@205 Access slot "type" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 1] 5 (#$ . 290833)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-type side-effect-free t] 4) #@72 compiler-macro for inlining `js2-if-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-pos (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 291316)]) (put 'js2-if-node-pos 'compiler-macro 'js2-if-node-pos--cmacro) #@204 Access slot "pos" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 2] 5 (#$ . 291707)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-pos side-effect-free t] 4) #@72 compiler-macro for inlining `js2-if-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-len (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 292187)]) (put 'js2-if-node-len 'compiler-macro 'js2-if-node-len--cmacro) #@204 Access slot "len" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 3] 5 (#$ . 292578)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-len side-effect-free t] 4) #@74 compiler-macro for inlining `js2-if-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-props (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 293058)]) (put 'js2-if-node-props 'compiler-macro 'js2-if-node-props--cmacro) #@206 Access slot "props" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 4] 5 (#$ . 293459)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-props side-effect-free t] 4) #@75 compiler-macro for inlining `js2-if-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-parent (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 293945)]) (put 'js2-if-node-parent 'compiler-macro 'js2-if-node-parent--cmacro) #@207 Access slot "parent" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 5] 5 (#$ . 294351)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `js2-if-node-condition'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-condition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-condition (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 294840)]) (put 'js2-if-node-condition 'compiler-macro 'js2-if-node-condition--cmacro) #@210 Access slot "condition" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-condition #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 6] 5 (#$ . 295261)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-condition side-effect-free t] 4) #@78 compiler-macro for inlining `js2-if-node-then-part'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-then-part--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-then-part (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 295759)]) (put 'js2-if-node-then-part 'compiler-macro 'js2-if-node-then-part--cmacro) #@210 Access slot "then-part" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-then-part #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 7] 5 (#$ . 296180)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-then-part side-effect-free t] 4) #@77 compiler-macro for inlining `js2-if-node-else-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-else-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-else-pos (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 296678)]) (put 'js2-if-node-else-pos 'compiler-macro 'js2-if-node-else-pos--cmacro) #@209 Access slot "else-pos" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-else-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 8] 5 (#$ . 297094)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-else-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-if-node-else-part'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-else-part--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-else-part (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 297589)]) (put 'js2-if-node-else-part 'compiler-macro 'js2-if-node-else-part--cmacro) #@210 Access slot "else-part" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-else-part #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 9] 5 (#$ . 298010)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-else-part side-effect-free t] 4) #@71 compiler-macro for inlining `js2-if-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-lp (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 298508)]) (put 'js2-if-node-lp 'compiler-macro 'js2-if-node-lp--cmacro) #@203 Access slot "lp" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 10] 5 (#$ . 298895)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-if-node-lp side-effect-free t] 4) #@71 compiler-macro for inlining `js2-if-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-if-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-if-node-rp (or (js2-if-node-p cl-x) (signal 'wrong-type-argument (list 'js2-if-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 299373)]) (put 'js2-if-node-rp 'compiler-macro 'js2-if-node-rp--cmacro) #@203 Access slot "rp" of `(js2-if-node (:include js2-node) (:constructor make-js2-if-node (&key (type js2-IF) (pos js2-ts-cursor) len condition then-part else-pos else-part lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-if-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-if-node-tags type-of signal wrong-type-argument js2-if-node 11] 5 (#$ . 299760)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-if-node-rp side-effect-free t defalias copy-js2-if-node copy-sequence] 4) #@162 compiler-macro for inlining `make-js2-if-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-IF) (POS js2-ts-cursor) LEN CONDITION THEN-PART ELSE-POS ELSE-PART LP RP) (defalias 'make-js2-if-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\300 \314\"A@ \211\203s\211@\315>\203[\211AA\262\202H\316 >A@\203j\317\262\202H\320\321@\"\210\202H\210\322\323\324\317\317&\207" [plist-member :type (nil js2-IF) :pos (nil js2-ts-cursor) :len (nil 1) :condition :then-part :else-pos :else-part :lp :rp (:type :pos :len :condition :then-part :else-pos :else-part :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :condition :then-part :else-pos :else-part :lp :rp)" cl--defsubst-expand (type pos len condition then-part else-pos else-part lp rp) (cl-block make-js2-if-node (record 'js2-if-node type pos len nil nil condition then-part else-pos else-part lp rp))] 26 (#$ . 300289)]) (put 'make-js2-if-node 'compiler-macro 'make-js2-if-node--cmacro) #@142 Constructor for objects of type `js2-if-node'. (fn &key (TYPE js2-IF) (POS js2-ts-cursor) LEN CONDITION THEN-PART ELSE-POS ELSE-PART LP RP) (defalias 'make-js2-if-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\302\314\"A@\302 \315\"A@ \211\203w\211@\316>\203_\211AA\262\202L\317 >A@\203n\304\262\202L\320\321@\"\210\202L\210\322\323\n\n\n\304\211\f\f\f\f\f\f&\f\207" [js2-IF js2-ts-cursor plist-member :type nil :pos :len (nil 1) :condition :then-part :else-pos :else-part :lp :rp (:type :pos :len :condition :then-part :else-pos :else-part :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :condition :then-part :else-pos :else-part :lp :rp)" record js2-if-node] 23 (#$ . 301421)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-if-node side-effect-free t cl-struct-define js2-if-node "AST node for an if-statement." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (condition) (then-part) (else-pos) (else-part) (lp) (rp)) cl-struct-js2-if-node-tags js2--struct-put js2-visitor js2-visit-if-node js2-printer js2-print-if-node] 11) #@12 (fn N V) (defalias 'js2-visit-if-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\210\301\302!>\204<\303\304\305D\"\210\310H\"\207" [cl-struct-js2-if-node-tags js2-visit-ast type-of signal wrong-type-argument js2-if-node 6 7 9] 7 (#$ . 302761)]) #@12 (fn N I) (defalias 'js2-print-if-node #[514 "\301!\302!>\204\303\304\305D\"\210\306H\302!>\204%\303\304\305D\"\210\307H\310\261\210\311\302!>\204?\303\304\305D\"\210\312H\313\"\210\314c\210\315T\"\210\316\261\210\211\204\\\317c\202{\302!>\203n\320c\210\315\"\202{\321c\210\315T\"\210\322\261\207" [cl-struct-js2-if-node-tags js2-make-pad type-of signal wrong-type-argument js2-if-node 7 9 "if (" js2-print-ast 6 0 ") {\n" js2-print-body "}" "\n" " else " " else {\n" "}\n"] 10 (#$ . 303083)]) #@82 compiler-macro for inlining `js2-export-binding-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-binding-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-binding-node-p (and (memq (type-of cl-x) cl-struct-js2-export-binding-node-tags) t)) nil] 9 (#$ . 303622)]) (put 'js2-export-binding-node-p 'compiler-macro 'js2-export-binding-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-export-binding-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-export-binding-node-tags type-of t] 3 (#$ . 304036)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-export-binding-node-p side-effect-free error-free put js2-export-binding-node cl-deftype-satisfies] 5) #@85 compiler-macro for inlining `js2-export-binding-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-binding-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-binding-node-type (or (js2-export-binding-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-binding-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 304364)]) (put 'js2-export-binding-node-type 'compiler-macro 'js2-export-binding-node-type--cmacro) #@187 Access slot "type" of `(js2-export-binding-node (:include js2-node) (:constructor make-js2-export-binding-node (&key (type -1) pos len local-name extern-name)))' struct CL-X. (fn CL-X) (defalias 'js2-export-binding-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-binding-node-tags type-of signal wrong-type-argument js2-export-binding-node 1] 5 (#$ . 304844)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-binding-node-type side-effect-free t] 4) #@84 compiler-macro for inlining `js2-export-binding-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-binding-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-binding-node-pos (or (js2-export-binding-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-binding-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 305357)]) (put 'js2-export-binding-node-pos 'compiler-macro 'js2-export-binding-node-pos--cmacro) #@186 Access slot "pos" of `(js2-export-binding-node (:include js2-node) (:constructor make-js2-export-binding-node (&key (type -1) pos len local-name extern-name)))' struct CL-X. (fn CL-X) (defalias 'js2-export-binding-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-binding-node-tags type-of signal wrong-type-argument js2-export-binding-node 2] 5 (#$ . 305832)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-binding-node-pos side-effect-free t] 4) #@84 compiler-macro for inlining `js2-export-binding-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-binding-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-binding-node-len (or (js2-export-binding-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-binding-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 306342)]) (put 'js2-export-binding-node-len 'compiler-macro 'js2-export-binding-node-len--cmacro) #@186 Access slot "len" of `(js2-export-binding-node (:include js2-node) (:constructor make-js2-export-binding-node (&key (type -1) pos len local-name extern-name)))' struct CL-X. (fn CL-X) (defalias 'js2-export-binding-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-binding-node-tags type-of signal wrong-type-argument js2-export-binding-node 3] 5 (#$ . 306817)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-binding-node-len side-effect-free t] 4) #@86 compiler-macro for inlining `js2-export-binding-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-binding-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-binding-node-props (or (js2-export-binding-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-binding-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 307327)]) (put 'js2-export-binding-node-props 'compiler-macro 'js2-export-binding-node-props--cmacro) #@188 Access slot "props" of `(js2-export-binding-node (:include js2-node) (:constructor make-js2-export-binding-node (&key (type -1) pos len local-name extern-name)))' struct CL-X. (fn CL-X) (defalias 'js2-export-binding-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-binding-node-tags type-of signal wrong-type-argument js2-export-binding-node 4] 5 (#$ . 307812)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-binding-node-props side-effect-free t] 4) #@87 compiler-macro for inlining `js2-export-binding-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-binding-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-binding-node-parent (or (js2-export-binding-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-binding-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 308328)]) (put 'js2-export-binding-node-parent 'compiler-macro 'js2-export-binding-node-parent--cmacro) #@189 Access slot "parent" of `(js2-export-binding-node (:include js2-node) (:constructor make-js2-export-binding-node (&key (type -1) pos len local-name extern-name)))' struct CL-X. (fn CL-X) (defalias 'js2-export-binding-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-binding-node-tags type-of signal wrong-type-argument js2-export-binding-node 5] 5 (#$ . 308818)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-binding-node-parent side-effect-free t] 4) #@91 compiler-macro for inlining `js2-export-binding-node-local-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-binding-node-local-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-binding-node-local-name (or (js2-export-binding-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-binding-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 309337)]) (put 'js2-export-binding-node-local-name 'compiler-macro 'js2-export-binding-node-local-name--cmacro) #@193 Access slot "local-name" of `(js2-export-binding-node (:include js2-node) (:constructor make-js2-export-binding-node (&key (type -1) pos len local-name extern-name)))' struct CL-X. (fn CL-X) (defalias 'js2-export-binding-node-local-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-binding-node-tags type-of signal wrong-type-argument js2-export-binding-node 6] 5 (#$ . 309847)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-export-binding-node-local-name side-effect-free t] 4) #@92 compiler-macro for inlining `js2-export-binding-node-extern-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-export-binding-node-extern-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-export-binding-node-extern-name (or (js2-export-binding-node-p cl-x) (signal 'wrong-type-argument (list 'js2-export-binding-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 310378)]) (put 'js2-export-binding-node-extern-name 'compiler-macro 'js2-export-binding-node-extern-name--cmacro) #@194 Access slot "extern-name" of `(js2-export-binding-node (:include js2-node) (:constructor make-js2-export-binding-node (&key (type -1) pos len local-name extern-name)))' struct CL-X. (fn CL-X) (defalias 'js2-export-binding-node-extern-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-export-binding-node-tags type-of signal wrong-type-argument js2-export-binding-node 7] 5 (#$ . 310893)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-export-binding-node-extern-name side-effect-free t defalias copy-js2-export-binding-node copy-sequence] 4) #@132 compiler-macro for inlining `make-js2-export-binding-node'. (fn CL-WHOLE &cl-quote &key (TYPE -1) POS LEN LOCAL-NAME EXTERN-NAME) (defalias 'make-js2-export-binding-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :local-name :extern-name (:type :pos :len :local-name :extern-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :local-name :extern-name)" cl--defsubst-expand (type pos len local-name extern-name) (cl-block make-js2-export-binding-node (record 'js2-export-binding-node type pos len nil nil local-name extern-name))] 18 (#$ . 311490)]) (put 'make-js2-export-binding-node 'compiler-macro 'make-js2-export-binding-node--cmacro) #@112 Constructor for objects of type `js2-export-binding-node'. (fn &key (TYPE -1) POS LEN LOCAL-NAME EXTERN-NAME) (defalias 'make-js2-export-binding-node #[128 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\313\211&\207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :local-name :extern-name (:type :pos :len :local-name :extern-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :local-name :extern-name)" record js2-export-binding-node] 15 (#$ . 312457)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-export-binding-node side-effect-free t cl-struct-define js2-export-binding-node "AST node for an external symbol binding.\nIt contains a local-name node which is the name of the value in the\ncurrent scope, and extern-name which is the name of the value in the\nimported or exported scope. By default these are the same, but if the\nname is aliased as in {foo as bar}, it would have an extern-name node\ncontaining 'foo' and a local-name node containing 'bar'." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (local-name) (extern-name)) cl-struct-js2-export-binding-node-tags js2--struct-put js2-printer js2-print-extern-binding js2-visitor js2-visit-extern-binding] 11) #@111 Visit an extern binding node. First visit the local-name, and, if different, visit the extern-name. (fn N V) (defalias 'js2-visit-extern-binding #[514 "\301!>\204\302\303\304D\"\210\305H\301!>\204!\302\303\304D\"\210\306H\203-\307\"\210\232?\2058\307\"\207" [cl-struct-js2-export-binding-node-tags type-of signal wrong-type-argument js2-export-binding-node 6 7 js2-visit-ast] 7 (#$ . 314001)]) #@90 Print a representation of a single extern binding. E.g. 'foo' or 'foo as bar'. (fn N I) (defalias 'js2-print-extern-binding #[514 "\302!>\204\303\304\305D\"\210\306H\302!>\204!\303\304\305D\"\210\307H\302! >\2043\303\304\310D\"\210\211\306Hc\210\232?\205U\311c\210\302! >\204Q\303\304\310D\"\210\306Hc\207" [cl-struct-js2-export-binding-node-tags cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-export-binding-node 6 7 js2-name-node " as "] 8 (#$ . 314422)]) #@74 compiler-macro for inlining `js2-import-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-p (and (memq (type-of cl-x) cl-struct-js2-import-node-tags) t)) nil] 9 (#$ . 314929)]) (put 'js2-import-node-p 'compiler-macro 'js2-import-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-import-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-import-node-tags type-of t] 3 (#$ . 315295)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-import-node-p side-effect-free error-free put js2-import-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-import-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-type (or (js2-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 315591)]) (put 'js2-import-node-type 'compiler-macro 'js2-import-node-type--cmacro) #@204 Access slot "type" of `(js2-import-node (:include js2-node) (:constructor make-js2-import-node (&key (type js2-IMPORT) (pos (js2-current-token-beg)) len import from module-id)))' struct CL-X. (fn CL-X) (defalias 'js2-import-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 1] 5 (#$ . 316015)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-import-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-pos (or (js2-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 316513)]) (put 'js2-import-node-pos 'compiler-macro 'js2-import-node-pos--cmacro) #@203 Access slot "pos" of `(js2-import-node (:include js2-node) (:constructor make-js2-import-node (&key (type js2-IMPORT) (pos (js2-current-token-beg)) len import from module-id)))' struct CL-X. (fn CL-X) (defalias 'js2-import-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 2] 5 (#$ . 316932)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-import-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-len (or (js2-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 317427)]) (put 'js2-import-node-len 'compiler-macro 'js2-import-node-len--cmacro) #@203 Access slot "len" of `(js2-import-node (:include js2-node) (:constructor make-js2-import-node (&key (type js2-IMPORT) (pos (js2-current-token-beg)) len import from module-id)))' struct CL-X. (fn CL-X) (defalias 'js2-import-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 3] 5 (#$ . 317846)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-import-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-props (or (js2-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 318341)]) (put 'js2-import-node-props 'compiler-macro 'js2-import-node-props--cmacro) #@205 Access slot "props" of `(js2-import-node (:include js2-node) (:constructor make-js2-import-node (&key (type js2-IMPORT) (pos (js2-current-token-beg)) len import from module-id)))' struct CL-X. (fn CL-X) (defalias 'js2-import-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 4] 5 (#$ . 318770)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-import-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-parent (or (js2-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 319271)]) (put 'js2-import-node-parent 'compiler-macro 'js2-import-node-parent--cmacro) #@206 Access slot "parent" of `(js2-import-node (:include js2-node) (:constructor make-js2-import-node (&key (type js2-IMPORT) (pos (js2-current-token-beg)) len import from module-id)))' struct CL-X. (fn CL-X) (defalias 'js2-import-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 5] 5 (#$ . 319705)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-import-node-import'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-import--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-import (or (js2-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 320209)]) (put 'js2-import-node-import 'compiler-macro 'js2-import-node-import--cmacro) #@206 Access slot "import" of `(js2-import-node (:include js2-node) (:constructor make-js2-import-node (&key (type js2-IMPORT) (pos (js2-current-token-beg)) len import from module-id)))' struct CL-X. (fn CL-X) (defalias 'js2-import-node-import #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 6] 5 (#$ . 320643)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-node-import side-effect-free t] 4) #@77 compiler-macro for inlining `js2-import-node-from'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-from--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-from (or (js2-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 321147)]) (put 'js2-import-node-from 'compiler-macro 'js2-import-node-from--cmacro) #@204 Access slot "from" of `(js2-import-node (:include js2-node) (:constructor make-js2-import-node (&key (type js2-IMPORT) (pos (js2-current-token-beg)) len import from module-id)))' struct CL-X. (fn CL-X) (defalias 'js2-import-node-from #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 7] 5 (#$ . 321571)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-node-from side-effect-free t] 4) #@82 compiler-macro for inlining `js2-import-node-module-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-node-module-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-node-module-id (or (js2-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 322069)]) (put 'js2-import-node-module-id 'compiler-macro 'js2-import-node-module-id--cmacro) #@209 Access slot "module-id" of `(js2-import-node (:include js2-node) (:constructor make-js2-import-node (&key (type js2-IMPORT) (pos (js2-current-token-beg)) len import from module-id)))' struct CL-X. (fn CL-X) (defalias 'js2-import-node-module-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 8] 5 (#$ . 322518)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-import-node-module-id side-effect-free t defalias copy-js2-import-node copy-sequence] 4) #@157 compiler-macro for inlining `make-js2-import-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-IMPORT) (POS (js2-current-token-beg)) LEN IMPORT FROM MODULE-ID) (defalias 'make-js2-import-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\211\203^\211@\312>\203F\211AA\262\2023\313>A@\203U\314\262\2023\315\316@\"\210\2023\210\317\320\321\314 \314      & \207" [plist-member :type (nil js2-IMPORT) :pos (nil (js2-current-token-beg)) :len (nil 1) :import :from :module-id (:type :pos :len :import :from :module-id :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :import :from :module-id)" cl--defsubst-expand (type pos len import from module-id) (cl-block make-js2-import-node (record 'js2-import-node type pos len nil nil import from module-id))] 20 (#$ . 323086)]) (put 'make-js2-import-node 'compiler-macro 'make-js2-import-node--cmacro) #@137 Constructor for objects of type `js2-import-node'. (fn &key (TYPE js2-IMPORT) (POS (js2-current-token-beg)) LEN IMPORT FROM MODULE-ID) (defalias 'make-js2-import-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\304\321\"A@\211\203x\211@\322>\203`\211AA\262\202M\323>A@\203o\306\262\202M\324\325@\"\210\202M\210\326\327\306\211   & \207" [js2-IMPORT js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :import :from :module-id (:type :pos :len :import :from :module-id :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :import :from :module-id)" record js2-import-node] 17 (#$ . 324075)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-import-node side-effect-free t cl-struct-define js2-import-node "AST node for an import statement. It follows the form\n\nimport ModuleSpecifier;\nimport ImportClause FromClause;" js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (import) (from) (module-id)) cl-struct-js2-import-node-tags js2--struct-put js2-printer js2-print-import js2-visitor js2-visit-import] 11) #@12 (fn N V) (defalias 'js2-visit-import #[514 "\301!>\204\302\303\304D\"\210\305H\301!>\204!\302\303\304D\"\210\306H\203-\307\"\210\211\2055\307\"\207" [cl-struct-js2-import-node-tags type-of signal wrong-type-argument js2-import-node 6 7 js2-visit-ast] 7 (#$ . 325495)]) #@54 Prints a representation of the import node (fn N I) (defalias 'js2-print-import #[514 "\301!\302!>\204\303\304\305D\"\210\306H\302!>\204%\303\304\305D\"\210\307H\302!>\2048\303\304\305D\"\210\310H\311\261\210\203R\312!\210\313c\210\314!\210\202[\315c\210\211c\210\315c\210\316c\207" [cl-struct-js2-import-node-tags js2-make-pad type-of signal wrong-type-argument js2-import-node 6 7 8 "import " js2-print-import-clause " " js2-print-from-clause "'" ";\n"] 9 (#$ . 325790)]) #@81 compiler-macro for inlining `js2-import-clause-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-p (and (memq (type-of cl-x) cl-struct-js2-import-clause-node-tags) t)) nil] 9 (#$ . 326297)]) (put 'js2-import-clause-node-p 'compiler-macro 'js2-import-clause-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-import-clause-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-import-clause-node-tags type-of t] 3 (#$ . 326705)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-import-clause-node-p side-effect-free error-free put js2-import-clause-node cl-deftype-satisfies] 5) #@84 compiler-macro for inlining `js2-import-clause-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-type (or (js2-import-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-clause-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 327029)]) (put 'js2-import-clause-node-type 'compiler-macro 'js2-import-clause-node-type--cmacro) #@209 Access slot "type" of `(js2-import-clause-node (:include js2-node) (:constructor make-js2-import-clause-node (&key (type -1) pos len namespace-import named-imports default-binding)))' struct CL-X. (fn CL-X) (defalias 'js2-import-clause-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 1] 5 (#$ . 327502)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-clause-node-type side-effect-free t] 4) #@83 compiler-macro for inlining `js2-import-clause-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-pos (or (js2-import-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-clause-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 328033)]) (put 'js2-import-clause-node-pos 'compiler-macro 'js2-import-clause-node-pos--cmacro) #@208 Access slot "pos" of `(js2-import-clause-node (:include js2-node) (:constructor make-js2-import-clause-node (&key (type -1) pos len namespace-import named-imports default-binding)))' struct CL-X. (fn CL-X) (defalias 'js2-import-clause-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 2] 5 (#$ . 328501)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-clause-node-pos side-effect-free t] 4) #@83 compiler-macro for inlining `js2-import-clause-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-len (or (js2-import-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-clause-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 329029)]) (put 'js2-import-clause-node-len 'compiler-macro 'js2-import-clause-node-len--cmacro) #@208 Access slot "len" of `(js2-import-clause-node (:include js2-node) (:constructor make-js2-import-clause-node (&key (type -1) pos len namespace-import named-imports default-binding)))' struct CL-X. (fn CL-X) (defalias 'js2-import-clause-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 3] 5 (#$ . 329497)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-clause-node-len side-effect-free t] 4) #@85 compiler-macro for inlining `js2-import-clause-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-props (or (js2-import-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-clause-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 330025)]) (put 'js2-import-clause-node-props 'compiler-macro 'js2-import-clause-node-props--cmacro) #@210 Access slot "props" of `(js2-import-clause-node (:include js2-node) (:constructor make-js2-import-clause-node (&key (type -1) pos len namespace-import named-imports default-binding)))' struct CL-X. (fn CL-X) (defalias 'js2-import-clause-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 4] 5 (#$ . 330503)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-clause-node-props side-effect-free t] 4) #@86 compiler-macro for inlining `js2-import-clause-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-parent (or (js2-import-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-clause-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 331037)]) (put 'js2-import-clause-node-parent 'compiler-macro 'js2-import-clause-node-parent--cmacro) #@211 Access slot "parent" of `(js2-import-clause-node (:include js2-node) (:constructor make-js2-import-clause-node (&key (type -1) pos len namespace-import named-imports default-binding)))' struct CL-X. (fn CL-X) (defalias 'js2-import-clause-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 5] 5 (#$ . 331520)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-clause-node-parent side-effect-free t] 4) #@96 compiler-macro for inlining `js2-import-clause-node-namespace-import'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-namespace-import--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-namespace-import (or (js2-import-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-clause-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 332057)]) (put 'js2-import-clause-node-namespace-import 'compiler-macro 'js2-import-clause-node-namespace-import--cmacro) #@221 Access slot "namespace-import" of `(js2-import-clause-node (:include js2-node) (:constructor make-js2-import-clause-node (&key (type -1) pos len namespace-import named-imports default-binding)))' struct CL-X. (fn CL-X) (defalias 'js2-import-clause-node-namespace-import #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 6] 5 (#$ . 332590)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-clause-node-namespace-import side-effect-free t] 4) #@93 compiler-macro for inlining `js2-import-clause-node-named-imports'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-named-imports--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-named-imports (or (js2-import-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-clause-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 333157)]) (put 'js2-import-clause-node-named-imports 'compiler-macro 'js2-import-clause-node-named-imports--cmacro) #@218 Access slot "named-imports" of `(js2-import-clause-node (:include js2-node) (:constructor make-js2-import-clause-node (&key (type -1) pos len namespace-import named-imports default-binding)))' struct CL-X. (fn CL-X) (defalias 'js2-import-clause-node-named-imports #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 7] 5 (#$ . 333675)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-import-clause-node-named-imports side-effect-free t] 4) #@95 compiler-macro for inlining `js2-import-clause-node-default-binding'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-import-clause-node-default-binding--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-import-clause-node-default-binding (or (js2-import-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-import-clause-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 334233)]) (put 'js2-import-clause-node-default-binding 'compiler-macro 'js2-import-clause-node-default-binding--cmacro) #@220 Access slot "default-binding" of `(js2-import-clause-node (:include js2-node) (:constructor make-js2-import-clause-node (&key (type -1) pos len namespace-import named-imports default-binding)))' struct CL-X. (fn CL-X) (defalias 'js2-import-clause-node-default-binding #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 8] 5 (#$ . 334761)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-import-clause-node-default-binding side-effect-free t defalias copy-js2-import-clause-node copy-sequence] 4) #@155 compiler-macro for inlining `make-js2-import-clause-node'. (fn CL-WHOLE &cl-quote &key (TYPE -1) POS LEN NAMESPACE-IMPORT NAMED-IMPORTS DEFAULT-BINDING) (defalias 'make-js2-import-clause-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\211\203^\211@\312>\203F\211AA\262\2023\313>A@\203U\314\262\2023\315\316@\"\210\2023\210\317\320\321\314 \314      & \207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :namespace-import :named-imports :default-binding (:type :pos :len :namespace-import :named-imports :default-binding :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :namespace-import :named-imports :default-binding)" cl--defsubst-expand (type pos len namespace-import named-imports default-binding) (cl-block make-js2-import-clause-node (record 'js2-import-clause-node type pos len nil nil namespace-import named-imports default-binding))] 20 (#$ . 335387)]) (put 'make-js2-import-clause-node 'compiler-macro 'make-js2-import-clause-node--cmacro) #@135 Constructor for objects of type `js2-import-clause-node'. (fn &key (TYPE -1) POS LEN NAMESPACE-IMPORT NAMED-IMPORTS DEFAULT-BINDING) (defalias 'make-js2-import-clause-node #[128 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\211\203^\211@\312>\203F\211AA\262\2023\313>A@\203U\314\262\2023\315\316@\"\210\2023\210\317\320\314\211   & \207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :namespace-import :named-imports :default-binding (:type :pos :len :namespace-import :named-imports :default-binding :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :namespace-import :named-imports :default-binding)" record js2-import-clause-node] 17 (#$ . 336505)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-import-clause-node side-effect-free t cl-struct-define js2-import-clause-node "AST node corresponding to the import clause of an import statement. This is\nthe portion of the import that bindings names from the external context to the\nlocal context." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (namespace-import) (named-imports) (default-binding)) cl-struct-js2-import-clause-node-tags js2--struct-put js2-visitor js2-visit-import-clause js2-printer js2-print-import-clause] 11) #@12 (fn N V) (defalias 'js2-visit-import-clause #[514 "\301!>\204\302\303\304D\"\210\305H\301!>\204!\302\303\304D\"\210\306H\301!>\2044\302\303\304D\"\210\307H\211\203@\310\"\210\203I\310\"\210\205c\211\205a\211@\310\"\210A\266\202\202N\262\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 6 7 8 js2-visit-ast] 10 (#$ . 337974)]) #@10 (fn N) (defalias 'js2-print-import-clause #[257 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\306H\301!>\2043\302\303\304D\"\210\307H\211\203K\203K\310!\210\311c\210\312!\202{\211\203`\203`\310!\210\311c\210\313!\202{\211\203j\310!\202{\203t\312!\202{\205{\313!\207" [cl-struct-js2-import-clause-node-tags type-of signal wrong-type-argument js2-import-clause-node 6 7 8 js2-print-ast ", " js2-print-namespace-import js2-print-named-imports] 7 (#$ . 338395)]) #@13 (fn NODE) (defalias 'js2-print-namespace-import #[257 "\302c\210\303\211!>\204\304\305\306D\"\210\307H! >\2045\304\305\310\303!>\204/\304\305\306D\"\210\307HD\"\210\303!>\204D\304\305\306D\"\210\211\307H\307Hc\207" [cl-struct-js2-namespace-import-node-tags cl-struct-js2-name-node-tags "* as " type-of signal wrong-type-argument js2-namespace-import-node 6 js2-name-node] 8 (#$ . 338923)]) #@16 (fn IMPORTS) (defalias 'js2-print-named-imports #[257 "\300c\210\211G\301\211W\203$\3028\301\"\210\211SU\204\303c\210\211T\262\202\266\304c\207" ["{" 0 js2-print-extern-binding ", " "}"] 6 (#$ . 339338)]) #@84 compiler-macro for inlining `js2-namespace-import-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-namespace-import-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-namespace-import-node-p (and (memq (type-of cl-x) cl-struct-js2-namespace-import-node-tags) t)) nil] 9 (#$ . 339562)]) (put 'js2-namespace-import-node-p 'compiler-macro 'js2-namespace-import-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-namespace-import-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-namespace-import-node-tags type-of t] 3 (#$ . 339988)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-namespace-import-node-p side-effect-free error-free put js2-namespace-import-node cl-deftype-satisfies] 5) #@87 compiler-macro for inlining `js2-namespace-import-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-namespace-import-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-namespace-import-node-type (or (js2-namespace-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-namespace-import-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 340324)]) (put 'js2-namespace-import-node-type 'compiler-macro 'js2-namespace-import-node-type--cmacro) #@173 Access slot "type" of `(js2-namespace-import-node (:include js2-node) (:constructor make-js2-namespace-import-node (&key (type -1) pos len name)))' struct CL-X. (fn CL-X) (defalias 'js2-namespace-import-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-namespace-import-node-tags type-of signal wrong-type-argument js2-namespace-import-node 1] 5 (#$ . 340818)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-namespace-import-node-type side-effect-free t] 4) #@86 compiler-macro for inlining `js2-namespace-import-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-namespace-import-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-namespace-import-node-pos (or (js2-namespace-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-namespace-import-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 341325)]) (put 'js2-namespace-import-node-pos 'compiler-macro 'js2-namespace-import-node-pos--cmacro) #@172 Access slot "pos" of `(js2-namespace-import-node (:include js2-node) (:constructor make-js2-namespace-import-node (&key (type -1) pos len name)))' struct CL-X. (fn CL-X) (defalias 'js2-namespace-import-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-namespace-import-node-tags type-of signal wrong-type-argument js2-namespace-import-node 2] 5 (#$ . 341814)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-namespace-import-node-pos side-effect-free t] 4) #@86 compiler-macro for inlining `js2-namespace-import-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-namespace-import-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-namespace-import-node-len (or (js2-namespace-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-namespace-import-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 342318)]) (put 'js2-namespace-import-node-len 'compiler-macro 'js2-namespace-import-node-len--cmacro) #@172 Access slot "len" of `(js2-namespace-import-node (:include js2-node) (:constructor make-js2-namespace-import-node (&key (type -1) pos len name)))' struct CL-X. (fn CL-X) (defalias 'js2-namespace-import-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-namespace-import-node-tags type-of signal wrong-type-argument js2-namespace-import-node 3] 5 (#$ . 342807)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-namespace-import-node-len side-effect-free t] 4) #@88 compiler-macro for inlining `js2-namespace-import-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-namespace-import-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-namespace-import-node-props (or (js2-namespace-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-namespace-import-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 343311)]) (put 'js2-namespace-import-node-props 'compiler-macro 'js2-namespace-import-node-props--cmacro) #@174 Access slot "props" of `(js2-namespace-import-node (:include js2-node) (:constructor make-js2-namespace-import-node (&key (type -1) pos len name)))' struct CL-X. (fn CL-X) (defalias 'js2-namespace-import-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-namespace-import-node-tags type-of signal wrong-type-argument js2-namespace-import-node 4] 5 (#$ . 343810)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-namespace-import-node-props side-effect-free t] 4) #@89 compiler-macro for inlining `js2-namespace-import-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-namespace-import-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-namespace-import-node-parent (or (js2-namespace-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-namespace-import-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 344320)]) (put 'js2-namespace-import-node-parent 'compiler-macro 'js2-namespace-import-node-parent--cmacro) #@175 Access slot "parent" of `(js2-namespace-import-node (:include js2-node) (:constructor make-js2-namespace-import-node (&key (type -1) pos len name)))' struct CL-X. (fn CL-X) (defalias 'js2-namespace-import-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-namespace-import-node-tags type-of signal wrong-type-argument js2-namespace-import-node 5] 5 (#$ . 344824)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-namespace-import-node-parent side-effect-free t] 4) #@87 compiler-macro for inlining `js2-namespace-import-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-namespace-import-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-namespace-import-node-name (or (js2-namespace-import-node-p cl-x) (signal 'wrong-type-argument (list 'js2-namespace-import-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 345337)]) (put 'js2-namespace-import-node-name 'compiler-macro 'js2-namespace-import-node-name--cmacro) #@173 Access slot "name" of `(js2-namespace-import-node (:include js2-node) (:constructor make-js2-namespace-import-node (&key (type -1) pos len name)))' struct CL-X. (fn CL-X) (defalias 'js2-namespace-import-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-namespace-import-node-tags type-of signal wrong-type-argument js2-namespace-import-node 6] 5 (#$ . 345831)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-namespace-import-node-name side-effect-free t defalias copy-js2-namespace-import-node copy-sequence] 4) #@116 compiler-macro for inlining `make-js2-namespace-import-node'. (fn CL-WHOLE &cl-quote &key (TYPE -1) POS LEN NAME) (defalias 'make-js2-namespace-import-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :name (:type :pos :len :name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :name)" cl--defsubst-expand (type pos len name) (cl-block make-js2-namespace-import-node (record 'js2-namespace-import-node type pos len nil nil name))] 16 (#$ . 346403)]) (put 'make-js2-namespace-import-node 'compiler-macro 'make-js2-namespace-import-node--cmacro) #@96 Constructor for objects of type `js2-namespace-import-node'. (fn &key (TYPE -1) POS LEN NAME) (defalias 'make-js2-namespace-import-node #[128 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\312\211&\207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :name (:type :pos :len :name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :name)" record js2-namespace-import-node] 13 (#$ . 347248)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put make-js2-namespace-import-node side-effect-free t cl-struct-define js2-namespace-import-node "AST node for a complete namespace import.\nE.g. the '* as lib' expression in:\n\nimport * as lib from 'src/lib'\n\nIt contains a single name node referring to the bound name." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (name)) cl-struct-js2-namespace-import-node-tags] 11) #@12 (fn N V) (defalias 'js2-visit-namespace-import #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-namespace-import-node-tags js2-visit-ast type-of signal wrong-type-argument js2-namespace-import-node 6] 7 (#$ . 348353)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [js2--struct-put js2-namespace-import-node js2-visitor js2-visit-namespace-import js2-printer js2-print-namespace-import] 4) #@79 compiler-macro for inlining `js2-from-clause-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-from-clause-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-from-clause-node-p (and (memq (type-of cl-x) cl-struct-js2-from-clause-node-tags) t)) nil] 9 (#$ . 348787)]) (put 'js2-from-clause-node-p 'compiler-macro 'js2-from-clause-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-from-clause-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-from-clause-node-tags type-of t] 3 (#$ . 349183)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-from-clause-node-p side-effect-free error-free put js2-from-clause-node cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `js2-from-clause-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-from-clause-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-from-clause-node-type (or (js2-from-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-from-clause-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 349499)]) (put 'js2-from-clause-node-type 'compiler-macro 'js2-from-clause-node-type--cmacro) #@185 Access slot "type" of `(js2-from-clause-node (:include js2-node) (:constructor make-js2-from-clause-node (&key (type js2-NAME) pos len module-id metadata-p)))' struct CL-X. (fn CL-X) (defalias 'js2-from-clause-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-from-clause-node-tags type-of signal wrong-type-argument js2-from-clause-node 1] 5 (#$ . 349958)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-from-clause-node-type side-effect-free t] 4) #@81 compiler-macro for inlining `js2-from-clause-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-from-clause-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-from-clause-node-pos (or (js2-from-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-from-clause-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 350457)]) (put 'js2-from-clause-node-pos 'compiler-macro 'js2-from-clause-node-pos--cmacro) #@184 Access slot "pos" of `(js2-from-clause-node (:include js2-node) (:constructor make-js2-from-clause-node (&key (type js2-NAME) pos len module-id metadata-p)))' struct CL-X. (fn CL-X) (defalias 'js2-from-clause-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-from-clause-node-tags type-of signal wrong-type-argument js2-from-clause-node 2] 5 (#$ . 350911)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-from-clause-node-pos side-effect-free t] 4) #@81 compiler-macro for inlining `js2-from-clause-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-from-clause-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-from-clause-node-len (or (js2-from-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-from-clause-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 351407)]) (put 'js2-from-clause-node-len 'compiler-macro 'js2-from-clause-node-len--cmacro) #@184 Access slot "len" of `(js2-from-clause-node (:include js2-node) (:constructor make-js2-from-clause-node (&key (type js2-NAME) pos len module-id metadata-p)))' struct CL-X. (fn CL-X) (defalias 'js2-from-clause-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-from-clause-node-tags type-of signal wrong-type-argument js2-from-clause-node 3] 5 (#$ . 351861)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-from-clause-node-len side-effect-free t] 4) #@83 compiler-macro for inlining `js2-from-clause-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-from-clause-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-from-clause-node-props (or (js2-from-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-from-clause-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 352357)]) (put 'js2-from-clause-node-props 'compiler-macro 'js2-from-clause-node-props--cmacro) #@186 Access slot "props" of `(js2-from-clause-node (:include js2-node) (:constructor make-js2-from-clause-node (&key (type js2-NAME) pos len module-id metadata-p)))' struct CL-X. (fn CL-X) (defalias 'js2-from-clause-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-from-clause-node-tags type-of signal wrong-type-argument js2-from-clause-node 4] 5 (#$ . 352821)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-from-clause-node-props side-effect-free t] 4) #@84 compiler-macro for inlining `js2-from-clause-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-from-clause-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-from-clause-node-parent (or (js2-from-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-from-clause-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 353323)]) (put 'js2-from-clause-node-parent 'compiler-macro 'js2-from-clause-node-parent--cmacro) #@187 Access slot "parent" of `(js2-from-clause-node (:include js2-node) (:constructor make-js2-from-clause-node (&key (type js2-NAME) pos len module-id metadata-p)))' struct CL-X. (fn CL-X) (defalias 'js2-from-clause-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-from-clause-node-tags type-of signal wrong-type-argument js2-from-clause-node 5] 5 (#$ . 353792)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-from-clause-node-parent side-effect-free t] 4) #@87 compiler-macro for inlining `js2-from-clause-node-module-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-from-clause-node-module-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-from-clause-node-module-id (or (js2-from-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-from-clause-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 354297)]) (put 'js2-from-clause-node-module-id 'compiler-macro 'js2-from-clause-node-module-id--cmacro) #@190 Access slot "module-id" of `(js2-from-clause-node (:include js2-node) (:constructor make-js2-from-clause-node (&key (type js2-NAME) pos len module-id metadata-p)))' struct CL-X. (fn CL-X) (defalias 'js2-from-clause-node-module-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-from-clause-node-tags type-of signal wrong-type-argument js2-from-clause-node 6] 5 (#$ . 354781)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-from-clause-node-module-id side-effect-free t] 4) #@88 compiler-macro for inlining `js2-from-clause-node-metadata-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-from-clause-node-metadata-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-from-clause-node-metadata-p (or (js2-from-clause-node-p cl-x) (signal 'wrong-type-argument (list 'js2-from-clause-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 355295)]) (put 'js2-from-clause-node-metadata-p 'compiler-macro 'js2-from-clause-node-metadata-p--cmacro) #@191 Access slot "metadata-p" of `(js2-from-clause-node (:include js2-node) (:constructor make-js2-from-clause-node (&key (type js2-NAME) pos len module-id metadata-p)))' struct CL-X. (fn CL-X) (defalias 'js2-from-clause-node-metadata-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-from-clause-node-tags type-of signal wrong-type-argument js2-from-clause-node 7] 5 (#$ . 355784)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-from-clause-node-metadata-p side-effect-free t defalias copy-js2-from-clause-node copy-sequence] 4) #@133 compiler-macro for inlining `make-js2-from-clause-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-NAME) POS LEN MODULE-ID METADATA-P) (defalias 'make-js2-from-clause-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-NAME) :pos (nil -1) :len (nil 1) :module-id :metadata-p (:type :pos :len :module-id :metadata-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :module-id :metadata-p)" cl--defsubst-expand (type pos len module-id metadata-p) (cl-block make-js2-from-clause-node (record 'js2-from-clause-node type pos len nil nil module-id metadata-p))] 18 (#$ . 356361)]) (put 'make-js2-from-clause-node 'compiler-macro 'make-js2-from-clause-node--cmacro) #@113 Constructor for objects of type `js2-from-clause-node'. (fn &key (TYPE js2-NAME) POS LEN MODULE-ID METADATA-P) (defalias 'make-js2-from-clause-node #[128 "\301\302\"\206\n\303DA@\301\304\"\206\305A@\301\306\"\206\307A@\301\310\"A@\301\311\"A@\211\203X\211@\312>\203@\211AA\262\202-\313>A@\203O\303\262\202-\314\315@\"\210\202-\210\316\317\303\211&\207" [js2-NAME plist-member :type nil :pos (nil -1) :len (nil 1) :module-id :metadata-p (:type :pos :len :module-id :metadata-p :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :module-id :metadata-p)" record js2-from-clause-node] 15 (#$ . 357310)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-from-clause-node side-effect-free t cl-struct-define js2-from-clause-node "AST node for the from clause in an import or export statement.\nE.g. from 'my/module'. It can refere to either an external module, or to the\nmodules metadata itself." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (module-id) (metadata-p)) cl-struct-js2-from-clause-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-from-clause] 11) #@10 (fn N) (defalias 'js2-print-from-clause #[257 "\301c\210\302!>\204\303\304\305D\"\210\211\306H\203\307c\207\310c\210\302!>\204-\303\304\305D\"\210\211\311Hc\210\310c\207" [cl-struct-js2-from-clause-node-tags "from " type-of signal wrong-type-argument js2-from-clause-node 7 "this module" "'" 6] 5 (#$ . 358608)]) #@71 compiler-macro for inlining `js2-try-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-p (and (memq (type-of cl-x) cl-struct-js2-try-node-tags) t)) nil] 9 (#$ . 358940)]) (put 'js2-try-node-p 'compiler-macro 'js2-try-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-try-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-try-node-tags type-of t] 3 (#$ . 359288)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-try-node-p side-effect-free error-free put js2-try-node cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `js2-try-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-type (or (js2-try-node-p cl-x) (signal 'wrong-type-argument (list 'js2-try-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 359572)]) (put 'js2-try-node-type 'compiler-macro 'js2-try-node-type--cmacro) #@201 Access slot "type" of `(js2-try-node (:include js2-node) (:constructor make-js2-try-node (&key (type js2-TRY) (pos js2-ts-cursor) len try-block catch-clauses finally-block)))' struct CL-X. (fn CL-X) (defalias 'js2-try-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-try-node-tags type-of signal wrong-type-argument js2-try-node 1] 5 (#$ . 359975)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-try-node-type side-effect-free t] 4) #@73 compiler-macro for inlining `js2-try-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-pos (or (js2-try-node-p cl-x) (signal 'wrong-type-argument (list 'js2-try-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 360458)]) (put 'js2-try-node-pos 'compiler-macro 'js2-try-node-pos--cmacro) #@200 Access slot "pos" of `(js2-try-node (:include js2-node) (:constructor make-js2-try-node (&key (type js2-TRY) (pos js2-ts-cursor) len try-block catch-clauses finally-block)))' struct CL-X. (fn CL-X) (defalias 'js2-try-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-try-node-tags type-of signal wrong-type-argument js2-try-node 2] 5 (#$ . 360856)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-try-node-pos side-effect-free t] 4) #@73 compiler-macro for inlining `js2-try-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-len (or (js2-try-node-p cl-x) (signal 'wrong-type-argument (list 'js2-try-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 361336)]) (put 'js2-try-node-len 'compiler-macro 'js2-try-node-len--cmacro) #@200 Access slot "len" of `(js2-try-node (:include js2-node) (:constructor make-js2-try-node (&key (type js2-TRY) (pos js2-ts-cursor) len try-block catch-clauses finally-block)))' struct CL-X. (fn CL-X) (defalias 'js2-try-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-try-node-tags type-of signal wrong-type-argument js2-try-node 3] 5 (#$ . 361734)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-try-node-len side-effect-free t] 4) #@75 compiler-macro for inlining `js2-try-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-props (or (js2-try-node-p cl-x) (signal 'wrong-type-argument (list 'js2-try-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 362214)]) (put 'js2-try-node-props 'compiler-macro 'js2-try-node-props--cmacro) #@202 Access slot "props" of `(js2-try-node (:include js2-node) (:constructor make-js2-try-node (&key (type js2-TRY) (pos js2-ts-cursor) len try-block catch-clauses finally-block)))' struct CL-X. (fn CL-X) (defalias 'js2-try-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-try-node-tags type-of signal wrong-type-argument js2-try-node 4] 5 (#$ . 362622)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-try-node-props side-effect-free t] 4) #@76 compiler-macro for inlining `js2-try-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-parent (or (js2-try-node-p cl-x) (signal 'wrong-type-argument (list 'js2-try-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 363108)]) (put 'js2-try-node-parent 'compiler-macro 'js2-try-node-parent--cmacro) #@203 Access slot "parent" of `(js2-try-node (:include js2-node) (:constructor make-js2-try-node (&key (type js2-TRY) (pos js2-ts-cursor) len try-block catch-clauses finally-block)))' struct CL-X. (fn CL-X) (defalias 'js2-try-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-try-node-tags type-of signal wrong-type-argument js2-try-node 5] 5 (#$ . 363521)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-try-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-try-node-try-block'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-try-block--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-try-block (or (js2-try-node-p cl-x) (signal 'wrong-type-argument (list 'js2-try-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 364010)]) (put 'js2-try-node-try-block 'compiler-macro 'js2-try-node-try-block--cmacro) #@206 Access slot "try-block" of `(js2-try-node (:include js2-node) (:constructor make-js2-try-node (&key (type js2-TRY) (pos js2-ts-cursor) len try-block catch-clauses finally-block)))' struct CL-X. (fn CL-X) (defalias 'js2-try-node-try-block #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-try-node-tags type-of signal wrong-type-argument js2-try-node 6] 5 (#$ . 364438)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-try-node-try-block side-effect-free t] 4) #@83 compiler-macro for inlining `js2-try-node-catch-clauses'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-catch-clauses--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-catch-clauses (or (js2-try-node-p cl-x) (signal 'wrong-type-argument (list 'js2-try-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 364936)]) (put 'js2-try-node-catch-clauses 'compiler-macro 'js2-try-node-catch-clauses--cmacro) #@210 Access slot "catch-clauses" of `(js2-try-node (:include js2-node) (:constructor make-js2-try-node (&key (type js2-TRY) (pos js2-ts-cursor) len try-block catch-clauses finally-block)))' struct CL-X. (fn CL-X) (defalias 'js2-try-node-catch-clauses #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-try-node-tags type-of signal wrong-type-argument js2-try-node 7] 5 (#$ . 365384)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-try-node-catch-clauses side-effect-free t] 4) #@83 compiler-macro for inlining `js2-try-node-finally-block'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-try-node-finally-block--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-try-node-finally-block (or (js2-try-node-p cl-x) (signal 'wrong-type-argument (list 'js2-try-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 365894)]) (put 'js2-try-node-finally-block 'compiler-macro 'js2-try-node-finally-block--cmacro) #@210 Access slot "finally-block" of `(js2-try-node (:include js2-node) (:constructor make-js2-try-node (&key (type js2-TRY) (pos js2-ts-cursor) len try-block catch-clauses finally-block)))' struct CL-X. (fn CL-X) (defalias 'js2-try-node-finally-block #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-try-node-tags type-of signal wrong-type-argument js2-try-node 8] 5 (#$ . 366342)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-try-node-finally-block side-effect-free t defalias copy-js2-try-node copy-sequence] 4) #@157 compiler-macro for inlining `make-js2-try-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-TRY) (POS js2-ts-cursor) LEN TRY-BLOCK CATCH-CLAUSES FINALLY-BLOCK) (defalias 'make-js2-try-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\211\203^\211@\312>\203F\211AA\262\2023\313>A@\203U\314\262\2023\315\316@\"\210\2023\210\317\320\321\314 \314      & \207" [plist-member :type (nil js2-TRY) :pos (nil js2-ts-cursor) :len (nil 1) :try-block :catch-clauses :finally-block (:type :pos :len :try-block :catch-clauses :finally-block :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :try-block :catch-clauses :finally-block)" cl--defsubst-expand (type pos len try-block catch-clauses finally-block) (cl-block make-js2-try-node (record 'js2-try-node type pos len nil nil try-block catch-clauses finally-block))] 20 (#$ . 366904)]) (put 'make-js2-try-node 'compiler-macro 'make-js2-try-node--cmacro) #@137 Constructor for objects of type `js2-try-node'. (fn &key (TYPE js2-TRY) (POS js2-ts-cursor) LEN TRY-BLOCK CATCH-CLAUSES FINALLY-BLOCK) (defalias 'make-js2-try-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\211\203b\211@\313>\203J\211AA\262\2027\314>A@\203Y\304\262\2027\315\316@\"\210\2027\210\317\320\304\211   & \207" [js2-TRY js2-ts-cursor plist-member :type nil :pos :len (nil 1) :try-block :catch-clauses :finally-block (:type :pos :len :try-block :catch-clauses :finally-block :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :try-block :catch-clauses :finally-block)" record js2-try-node] 17 (#$ . 367945)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-try-node side-effect-free t cl-struct-define js2-try-node "AST node for a try-statement." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (try-block) (catch-clauses) (finally-block)) cl-struct-js2-try-node-tags js2--struct-put js2-visitor js2-visit-try-node js2-printer js2-print-try-node] 11) #@12 (fn N V) (defalias 'js2-visit-try-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\211\203:\211@\301\"\210A\266\202\202(\210\301\302!>\204K\303\304\305D\"\210\310H\"\207" [cl-struct-js2-try-node-tags js2-visit-ast type-of signal wrong-type-argument js2-try-node 6 7 8] 7 (#$ . 369187)]) #@12 (fn N I) (defalias 'js2-print-try-node #[514 "\301!\302!>\204\303\304\305D\"\210\306H\302!>\204%\303\304\305D\"\210\307H\310\261\210\311\302!>\204?\303\304\305D\"\210\312HT\"\210\313\261\210\203d\211\203c\211@\314\"\210A\266\202\202P\210\211\203o\314\"\202q\315c\207" [cl-struct-js2-try-node-tags js2-make-pad type-of signal wrong-type-argument js2-try-node 7 8 "try {\n" js2-print-body 6 "}" js2-print-ast "\n"] 10 (#$ . 369548)]) #@73 compiler-macro for inlining `js2-catch-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-p (and (memq (type-of cl-x) cl-struct-js2-catch-node-tags) t)) nil] 9 (#$ . 370026)]) (put 'js2-catch-node-p 'compiler-macro 'js2-catch-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-catch-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-catch-node-tags type-of t] 3 (#$ . 370386)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-catch-node-p side-effect-free error-free put js2-catch-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-catch-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-type (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 370678)]) (put 'js2-catch-node-type 'compiler-macro 'js2-catch-node-type--cmacro) #@203 Access slot "type" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 1] 5 (#$ . 371095)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-catch-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-pos (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 371588)]) (put 'js2-catch-node-pos 'compiler-macro 'js2-catch-node-pos--cmacro) #@202 Access slot "pos" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 2] 5 (#$ . 372000)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-catch-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-len (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 372490)]) (put 'js2-catch-node-len 'compiler-macro 'js2-catch-node-len--cmacro) #@202 Access slot "len" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 3] 5 (#$ . 372902)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-catch-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-props (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 373392)]) (put 'js2-catch-node-props 'compiler-macro 'js2-catch-node-props--cmacro) #@204 Access slot "props" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 4] 5 (#$ . 373814)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-catch-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-parent (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 374310)]) (put 'js2-catch-node-parent 'compiler-macro 'js2-catch-node-parent--cmacro) #@205 Access slot "parent" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 5] 5 (#$ . 374737)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-parent side-effect-free t] 4) #@76 compiler-macro for inlining `js2-catch-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-kids (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 375236)]) (put 'js2-catch-node-kids 'compiler-macro 'js2-catch-node-kids--cmacro) #@203 Access slot "kids" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 6] 5 (#$ . 375653)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-kids side-effect-free t] 4) #@84 compiler-macro for inlining `js2-catch-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-symbol-table (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 376146)]) (put 'js2-catch-node-symbol-table 'compiler-macro 'js2-catch-node-symbol-table--cmacro) #@211 Access slot "symbol-table" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 7] 5 (#$ . 376603)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-symbol-table side-effect-free t] 4) #@84 compiler-macro for inlining `js2-catch-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-parent-scope (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 377120)]) (put 'js2-catch-node-parent-scope 'compiler-macro 'js2-catch-node-parent-scope--cmacro) #@211 Access slot "parent-scope" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 8] 5 (#$ . 377577)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-parent-scope side-effect-free t] 4) #@75 compiler-macro for inlining `js2-catch-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-top (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 378094)]) (put 'js2-catch-node-top 'compiler-macro 'js2-catch-node-top--cmacro) #@202 Access slot "top" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 9] 5 (#$ . 378506)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-top side-effect-free t] 4) #@77 compiler-macro for inlining `js2-catch-node-param'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-param--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-param (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 378996)]) (put 'js2-catch-node-param 'compiler-macro 'js2-catch-node-param--cmacro) #@204 Access slot "param" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-param #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 10] 5 (#$ . 379419)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-param side-effect-free t] 4) #@81 compiler-macro for inlining `js2-catch-node-guard-kwd'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-guard-kwd--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-guard-kwd (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 379916)]) (put 'js2-catch-node-guard-kwd 'compiler-macro 'js2-catch-node-guard-kwd--cmacro) #@208 Access slot "guard-kwd" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-guard-kwd #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 11] 5 (#$ . 380359)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-guard-kwd side-effect-free t] 4) #@82 compiler-macro for inlining `js2-catch-node-guard-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-guard-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-guard-expr (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 380868)]) (put 'js2-catch-node-guard-expr 'compiler-macro 'js2-catch-node-guard-expr--cmacro) #@209 Access slot "guard-expr" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-guard-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 12] 5 (#$ . 381316)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-guard-expr side-effect-free t] 4) #@74 compiler-macro for inlining `js2-catch-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-lp (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 381828)]) (put 'js2-catch-node-lp 'compiler-macro 'js2-catch-node-lp--cmacro) #@201 Access slot "lp" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 13] 5 (#$ . 382236)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-catch-node-lp side-effect-free t] 4) #@74 compiler-macro for inlining `js2-catch-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-catch-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-catch-node-rp (or (js2-catch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-catch-node cl-x))) (aref cl-x 14)) nil] 9 (#$ . 382724)]) (put 'js2-catch-node-rp 'compiler-macro 'js2-catch-node-rp--cmacro) #@201 Access slot "rp" of `(js2-catch-node (:include js2-scope) (:constructor make-js2-catch-node (&key (type js2-CATCH) (pos js2-ts-cursor) len param guard-kwd guard-expr lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-catch-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-catch-node 14] 5 (#$ . 383132)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-catch-node-rp side-effect-free t defalias copy-js2-catch-node copy-sequence] 4) #@156 compiler-macro for inlining `make-js2-catch-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-CATCH) (POS js2-ts-cursor) LEN PARAM GUARD-KWD GUARD-EXPR LP RP) (defalias 'make-js2-catch-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\211\203l\211@\314>\203T\211AA\262\202A\315\n>A@\203c\316\262\202A\317\320@\"\210\202A\210\321\322\323\316 \316        & \207" [plist-member :type (nil js2-CATCH) :pos (nil js2-ts-cursor) :len (nil 1) :param :guard-kwd :guard-expr :lp :rp (:type :pos :len :param :guard-kwd :guard-expr :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :param :guard-kwd :guard-expr :lp :rp)" cl--defsubst-expand (type pos len param guard-kwd guard-expr lp rp) (cl-block make-js2-catch-node (record 'js2-catch-node type pos len nil nil nil nil nil nil param guard-kwd guard-expr lp rp))] 24 (#$ . 383674)]) (put 'make-js2-catch-node 'compiler-macro 'make-js2-catch-node--cmacro) #@136 Constructor for objects of type `js2-catch-node'. (fn &key (TYPE js2-CATCH) (POS js2-ts-cursor) LEN PARAM GUARD-KWD GUARD-EXPR LP RP) (defalias 'make-js2-catch-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\302\314\"A@\211\203p\211@\315>\203X\211AA\262\202E\316\n>A@\203g\304\262\202E\317\320@\"\210\202E\210\321\322   \304\211\211\211\211\211&\207" [js2-CATCH js2-ts-cursor plist-member :type nil :pos :len (nil 1) :param :guard-kwd :guard-expr :lp :rp (:type :pos :len :param :guard-kwd :guard-expr :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :param :guard-kwd :guard-expr :lp :rp)" record js2-catch-node] 25 (#$ . 384756)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-catch-node side-effect-free t cl-struct-define js2-catch-node "AST node for a catch clause." js2-scope record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (param) (guard-kwd) (guard-expr) (lp) (rp)) cl-struct-js2-catch-node-tags js2--struct-put js2-visitor js2-visit-catch-node js2-printer js2-print-catch-node] 11) #@12 (fn N V) (defalias 'js2-visit-catch-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\203A\301\302!>\204;\303\304\305D\"\210\310H\"\210\311\"\207" [cl-struct-js2-catch-node-tags js2-visit-ast type-of signal wrong-type-argument js2-catch-node 10 11 12 js2-visit-block] 7 (#$ . 386111)]) #@12 (fn N I) (defalias 'js2-print-catch-node #[514 "\301!\302!>\204\303\304\305D\"\210\306H\302!>\204%\303\304\305D\"\210\307H\310c\210\311\302!>\204=\303\304\305D\"\210\312H\313\"\210\203O\314c\210\311\313\"\210\315c\210\316T\"\210\317\261\207" [cl-struct-js2-catch-node-tags js2-make-pad type-of signal wrong-type-argument js2-catch-node 11 12 " catch (" js2-print-ast 10 0 " if " ") {\n" js2-print-body "}"] 10 (#$ . 386468)]) #@75 compiler-macro for inlining `js2-finally-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-finally-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-finally-node-p (and (memq (type-of cl-x) cl-struct-js2-finally-node-tags) t)) nil] 9 (#$ . 386929)]) (put 'js2-finally-node-p 'compiler-macro 'js2-finally-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-finally-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-finally-node-tags type-of t] 3 (#$ . 387301)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-finally-node-p side-effect-free error-free put js2-finally-node cl-deftype-satisfies] 5) #@78 compiler-macro for inlining `js2-finally-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-finally-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-finally-node-type (or (js2-finally-node-p cl-x) (signal 'wrong-type-argument (list 'js2-finally-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 387601)]) (put 'js2-finally-node-type 'compiler-macro 'js2-finally-node-type--cmacro) #@180 Access slot "type" of `(js2-finally-node (:include js2-node) (:constructor make-js2-finally-node (&key (type js2-FINALLY) (pos js2-ts-cursor) len body)))' struct CL-X. (fn CL-X) (defalias 'js2-finally-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-finally-node-tags type-of signal wrong-type-argument js2-finally-node 1] 5 (#$ . 388032)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-finally-node-type side-effect-free t] 4) #@77 compiler-macro for inlining `js2-finally-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-finally-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-finally-node-pos (or (js2-finally-node-p cl-x) (signal 'wrong-type-argument (list 'js2-finally-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 388510)]) (put 'js2-finally-node-pos 'compiler-macro 'js2-finally-node-pos--cmacro) #@179 Access slot "pos" of `(js2-finally-node (:include js2-node) (:constructor make-js2-finally-node (&key (type js2-FINALLY) (pos js2-ts-cursor) len body)))' struct CL-X. (fn CL-X) (defalias 'js2-finally-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-finally-node-tags type-of signal wrong-type-argument js2-finally-node 2] 5 (#$ . 388936)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-finally-node-pos side-effect-free t] 4) #@77 compiler-macro for inlining `js2-finally-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-finally-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-finally-node-len (or (js2-finally-node-p cl-x) (signal 'wrong-type-argument (list 'js2-finally-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 389411)]) (put 'js2-finally-node-len 'compiler-macro 'js2-finally-node-len--cmacro) #@179 Access slot "len" of `(js2-finally-node (:include js2-node) (:constructor make-js2-finally-node (&key (type js2-FINALLY) (pos js2-ts-cursor) len body)))' struct CL-X. (fn CL-X) (defalias 'js2-finally-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-finally-node-tags type-of signal wrong-type-argument js2-finally-node 3] 5 (#$ . 389837)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-finally-node-len side-effect-free t] 4) #@79 compiler-macro for inlining `js2-finally-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-finally-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-finally-node-props (or (js2-finally-node-p cl-x) (signal 'wrong-type-argument (list 'js2-finally-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 390312)]) (put 'js2-finally-node-props 'compiler-macro 'js2-finally-node-props--cmacro) #@181 Access slot "props" of `(js2-finally-node (:include js2-node) (:constructor make-js2-finally-node (&key (type js2-FINALLY) (pos js2-ts-cursor) len body)))' struct CL-X. (fn CL-X) (defalias 'js2-finally-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-finally-node-tags type-of signal wrong-type-argument js2-finally-node 4] 5 (#$ . 390748)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-finally-node-props side-effect-free t] 4) #@80 compiler-macro for inlining `js2-finally-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-finally-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-finally-node-parent (or (js2-finally-node-p cl-x) (signal 'wrong-type-argument (list 'js2-finally-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 391229)]) (put 'js2-finally-node-parent 'compiler-macro 'js2-finally-node-parent--cmacro) #@182 Access slot "parent" of `(js2-finally-node (:include js2-node) (:constructor make-js2-finally-node (&key (type js2-FINALLY) (pos js2-ts-cursor) len body)))' struct CL-X. (fn CL-X) (defalias 'js2-finally-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-finally-node-tags type-of signal wrong-type-argument js2-finally-node 5] 5 (#$ . 391670)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-finally-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `js2-finally-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-finally-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-finally-node-body (or (js2-finally-node-p cl-x) (signal 'wrong-type-argument (list 'js2-finally-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 392154)]) (put 'js2-finally-node-body 'compiler-macro 'js2-finally-node-body--cmacro) #@180 Access slot "body" of `(js2-finally-node (:include js2-node) (:constructor make-js2-finally-node (&key (type js2-FINALLY) (pos js2-ts-cursor) len body)))' struct CL-X. (fn CL-X) (defalias 'js2-finally-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-finally-node-tags type-of signal wrong-type-argument js2-finally-node 6] 5 (#$ . 392585)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-finally-node-body side-effect-free t defalias copy-js2-finally-node copy-sequence] 4) #@132 compiler-macro for inlining `make-js2-finally-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-FINALLY) (POS js2-ts-cursor) LEN BODY) (defalias 'make-js2-finally-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-FINALLY) :pos (nil js2-ts-cursor) :len (nil 1) :body (:type :pos :len :body :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :body)" cl--defsubst-expand (type pos len body) (cl-block make-js2-finally-node (record 'js2-finally-node type pos len nil nil body))] 16 (#$ . 393119)]) (put 'make-js2-finally-node 'compiler-macro 'make-js2-finally-node--cmacro) #@112 Constructor for objects of type `js2-finally-node'. (fn &key (TYPE js2-FINALLY) (POS js2-ts-cursor) LEN BODY) (defalias 'make-js2-finally-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211&\207" [js2-FINALLY js2-ts-cursor plist-member :type nil :pos :len (nil 1) :body (:type :pos :len :body :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :body)" record js2-finally-node] 13 (#$ . 393956)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-finally-node side-effect-free t cl-struct-define js2-finally-node "AST node for a finally clause." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (body)) cl-struct-js2-finally-node-tags js2--struct-put js2-visitor js2-visit-finally-node js2-printer js2-print-finally-node] 11) #@12 (fn N V) (defalias 'js2-visit-finally-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-finally-node-tags js2-visit-ast type-of signal wrong-type-argument js2-finally-node 6] 7 (#$ . 395029)]) #@12 (fn N I) (defalias 'js2-print-finally-node #[514 "\301!\302c\210\303\304!>\204\305\306\307D\"\210\310HT\"\210\211\311\261\207" [cl-struct-js2-finally-node-tags js2-make-pad " finally {\n" js2-print-body type-of signal wrong-type-argument js2-finally-node 6 "}\n"] 8 (#$ . 395260)]) #@74 compiler-macro for inlining `js2-switch-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-p (and (memq (type-of cl-x) cl-struct-js2-switch-node-tags) t)) nil] 9 (#$ . 395560)]) (put 'js2-switch-node-p 'compiler-macro 'js2-switch-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-switch-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-switch-node-tags type-of t] 3 (#$ . 395926)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-switch-node-p side-effect-free error-free put js2-switch-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-switch-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-type (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 396222)]) (put 'js2-switch-node-type 'compiler-macro 'js2-switch-node-type--cmacro) #@198 Access slot "type" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 1] 5 (#$ . 396646)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-switch-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-pos (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 397138)]) (put 'js2-switch-node-pos 'compiler-macro 'js2-switch-node-pos--cmacro) #@197 Access slot "pos" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 2] 5 (#$ . 397557)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-switch-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-len (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 398046)]) (put 'js2-switch-node-len 'compiler-macro 'js2-switch-node-len--cmacro) #@197 Access slot "len" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 3] 5 (#$ . 398465)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-switch-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-props (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 398954)]) (put 'js2-switch-node-props 'compiler-macro 'js2-switch-node-props--cmacro) #@199 Access slot "props" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 4] 5 (#$ . 399383)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-switch-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-parent (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 399878)]) (put 'js2-switch-node-parent 'compiler-macro 'js2-switch-node-parent--cmacro) #@200 Access slot "parent" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 5] 5 (#$ . 400312)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-switch-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-kids (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 400810)]) (put 'js2-switch-node-kids 'compiler-macro 'js2-switch-node-kids--cmacro) #@198 Access slot "kids" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 6] 5 (#$ . 401234)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-kids side-effect-free t] 4) #@85 compiler-macro for inlining `js2-switch-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-symbol-table (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 401726)]) (put 'js2-switch-node-symbol-table 'compiler-macro 'js2-switch-node-symbol-table--cmacro) #@206 Access slot "symbol-table" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 7] 5 (#$ . 402190)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-symbol-table side-effect-free t] 4) #@85 compiler-macro for inlining `js2-switch-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-parent-scope (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 402706)]) (put 'js2-switch-node-parent-scope 'compiler-macro 'js2-switch-node-parent-scope--cmacro) #@206 Access slot "parent-scope" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 8] 5 (#$ . 403170)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-parent-scope side-effect-free t] 4) #@76 compiler-macro for inlining `js2-switch-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-top (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 403686)]) (put 'js2-switch-node-top 'compiler-macro 'js2-switch-node-top--cmacro) #@197 Access slot "top" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 9] 5 (#$ . 404105)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-top side-effect-free t] 4) #@85 compiler-macro for inlining `js2-switch-node-discriminant'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-discriminant--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-discriminant (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 404594)]) (put 'js2-switch-node-discriminant 'compiler-macro 'js2-switch-node-discriminant--cmacro) #@206 Access slot "discriminant" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-discriminant #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 10] 5 (#$ . 405059)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-discriminant side-effect-free t] 4) #@78 compiler-macro for inlining `js2-switch-node-cases'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-cases--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-cases (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 405576)]) (put 'js2-switch-node-cases 'compiler-macro 'js2-switch-node-cases--cmacro) #@199 Access slot "cases" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-cases #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 11] 5 (#$ . 406006)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-cases side-effect-free t] 4) #@75 compiler-macro for inlining `js2-switch-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-lp (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 406502)]) (put 'js2-switch-node-lp 'compiler-macro 'js2-switch-node-lp--cmacro) #@196 Access slot "lp" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 12] 5 (#$ . 406917)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-switch-node-lp side-effect-free t] 4) #@75 compiler-macro for inlining `js2-switch-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-switch-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-switch-node-rp (or (js2-switch-node-p cl-x) (signal 'wrong-type-argument (list 'js2-switch-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 407404)]) (put 'js2-switch-node-rp 'compiler-macro 'js2-switch-node-rp--cmacro) #@196 Access slot "rp" of `(js2-switch-node (:include js2-scope) (:constructor make-js2-switch-node (&key (type js2-SWITCH) (pos js2-ts-cursor) len discriminant cases lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-switch-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-switch-node-tags type-of signal wrong-type-argument js2-switch-node 13] 5 (#$ . 407819)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-switch-node-rp side-effect-free t defalias copy-js2-switch-node copy-sequence] 4) #@150 compiler-macro for inlining `make-js2-switch-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-SWITCH) (POS js2-ts-cursor) LEN DISCRIMINANT CASES LP RP) (defalias 'make-js2-switch-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-SWITCH) :pos (nil js2-ts-cursor) :len (nil 1) :discriminant :cases :lp :rp (:type :pos :len :discriminant :cases :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :discriminant :cases :lp :rp)" cl--defsubst-expand (type pos len discriminant cases lp rp) (cl-block make-js2-switch-node (record 'js2-switch-node type pos len nil nil nil nil nil nil discriminant cases lp rp))] 22 (#$ . 408361)]) (put 'make-js2-switch-node 'compiler-macro 'make-js2-switch-node--cmacro) #@130 Constructor for objects of type `js2-switch-node'. (fn &key (TYPE js2-SWITCH) (POS js2-ts-cursor) LEN DISCRIMINANT CASES LP RP) (defalias 'make-js2-switch-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\211\203i\211@\314>\203Q\211AA\262\202>\315 >A@\203`\304\262\202>\316\317@\"\210\202>\210\320\321\304\211\211\211\211\211&\207" [js2-SWITCH js2-ts-cursor plist-member :type nil :pos :len (nil 1) :discriminant :cases :lp :rp (:type :pos :len :discriminant :cases :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :discriminant :cases :lp :rp)" record js2-switch-node] 23 (#$ . 409393)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-switch-node side-effect-free t cl-struct-define js2-switch-node "AST node for a switch statement." js2-scope record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (discriminant) (cases) (lp) (rp)) cl-struct-js2-switch-node-tags js2--struct-put js2-visitor js2-visit-switch-node js2-printer js2-print-switch-node] 11) #@12 (fn N V) (defalias 'js2-visit-switch-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\211\205:\211@\301\"\210A\266\202\202(\207" [cl-struct-js2-switch-node-tags js2-visit-ast type-of signal wrong-type-argument js2-switch-node 10 11] 7 (#$ . 410700)]) #@12 (fn N I) (defalias 'js2-print-switch-node #[514 "\301!\302!>\204\303\304\305D\"\210\306H\307\261\210\310\302!>\204+\303\304\305D\"\210\311H\312\"\210\313c\210\211\211\203H\211@\310\"\210A\266\202\2025\210\314\261\207" [cl-struct-js2-switch-node-tags js2-make-pad type-of signal wrong-type-argument js2-switch-node 11 "switch (" js2-print-ast 10 0 ") {\n" "}\n"] 9 (#$ . 411019)]) #@72 compiler-macro for inlining `js2-case-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-case-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-case-node-p (and (memq (type-of cl-x) cl-struct-js2-case-node-tags) t)) nil] 9 (#$ . 411430)]) (put 'js2-case-node-p 'compiler-macro 'js2-case-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-case-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-case-node-tags type-of t] 3 (#$ . 411784)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-case-node-p side-effect-free error-free put js2-case-node cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `js2-case-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-case-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-case-node-type (or (js2-case-node-p cl-x) (signal 'wrong-type-argument (list 'js2-case-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 412072)]) (put 'js2-case-node-type 'compiler-macro 'js2-case-node-type--cmacro) #@182 Access slot "type" of `(js2-case-node (:include js2-block-node) (:constructor make-js2-case-node (&key (type js2-CASE) (pos js2-ts-cursor) len kids expr)))' struct CL-X. (fn CL-X) (defalias 'js2-case-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-case-node-tags type-of signal wrong-type-argument js2-case-node 1] 5 (#$ . 412482)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-case-node-type side-effect-free t] 4) #@74 compiler-macro for inlining `js2-case-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-case-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-case-node-pos (or (js2-case-node-p cl-x) (signal 'wrong-type-argument (list 'js2-case-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 412950)]) (put 'js2-case-node-pos 'compiler-macro 'js2-case-node-pos--cmacro) #@181 Access slot "pos" of `(js2-case-node (:include js2-block-node) (:constructor make-js2-case-node (&key (type js2-CASE) (pos js2-ts-cursor) len kids expr)))' struct CL-X. (fn CL-X) (defalias 'js2-case-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-case-node-tags type-of signal wrong-type-argument js2-case-node 2] 5 (#$ . 413355)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-case-node-pos side-effect-free t] 4) #@74 compiler-macro for inlining `js2-case-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-case-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-case-node-len (or (js2-case-node-p cl-x) (signal 'wrong-type-argument (list 'js2-case-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 413820)]) (put 'js2-case-node-len 'compiler-macro 'js2-case-node-len--cmacro) #@181 Access slot "len" of `(js2-case-node (:include js2-block-node) (:constructor make-js2-case-node (&key (type js2-CASE) (pos js2-ts-cursor) len kids expr)))' struct CL-X. (fn CL-X) (defalias 'js2-case-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-case-node-tags type-of signal wrong-type-argument js2-case-node 3] 5 (#$ . 414225)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-case-node-len side-effect-free t] 4) #@76 compiler-macro for inlining `js2-case-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-case-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-case-node-props (or (js2-case-node-p cl-x) (signal 'wrong-type-argument (list 'js2-case-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 414690)]) (put 'js2-case-node-props 'compiler-macro 'js2-case-node-props--cmacro) #@183 Access slot "props" of `(js2-case-node (:include js2-block-node) (:constructor make-js2-case-node (&key (type js2-CASE) (pos js2-ts-cursor) len kids expr)))' struct CL-X. (fn CL-X) (defalias 'js2-case-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-case-node-tags type-of signal wrong-type-argument js2-case-node 4] 5 (#$ . 415105)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-case-node-props side-effect-free t] 4) #@77 compiler-macro for inlining `js2-case-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-case-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-case-node-parent (or (js2-case-node-p cl-x) (signal 'wrong-type-argument (list 'js2-case-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 415576)]) (put 'js2-case-node-parent 'compiler-macro 'js2-case-node-parent--cmacro) #@184 Access slot "parent" of `(js2-case-node (:include js2-block-node) (:constructor make-js2-case-node (&key (type js2-CASE) (pos js2-ts-cursor) len kids expr)))' struct CL-X. (fn CL-X) (defalias 'js2-case-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-case-node-tags type-of signal wrong-type-argument js2-case-node 5] 5 (#$ . 415996)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-case-node-parent side-effect-free t] 4) #@75 compiler-macro for inlining `js2-case-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-case-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-case-node-kids (or (js2-case-node-p cl-x) (signal 'wrong-type-argument (list 'js2-case-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 416470)]) (put 'js2-case-node-kids 'compiler-macro 'js2-case-node-kids--cmacro) #@182 Access slot "kids" of `(js2-case-node (:include js2-block-node) (:constructor make-js2-case-node (&key (type js2-CASE) (pos js2-ts-cursor) len kids expr)))' struct CL-X. (fn CL-X) (defalias 'js2-case-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-case-node-tags type-of signal wrong-type-argument js2-case-node 6] 5 (#$ . 416880)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-case-node-kids side-effect-free t] 4) #@75 compiler-macro for inlining `js2-case-node-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-case-node-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-case-node-expr (or (js2-case-node-p cl-x) (signal 'wrong-type-argument (list 'js2-case-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 417348)]) (put 'js2-case-node-expr 'compiler-macro 'js2-case-node-expr--cmacro) #@182 Access slot "expr" of `(js2-case-node (:include js2-block-node) (:constructor make-js2-case-node (&key (type js2-CASE) (pos js2-ts-cursor) len kids expr)))' struct CL-X. (fn CL-X) (defalias 'js2-case-node-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-case-node-tags type-of signal wrong-type-argument js2-case-node 7] 5 (#$ . 417758)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-case-node-expr side-effect-free t defalias copy-js2-case-node copy-sequence] 4) #@131 compiler-macro for inlining `make-js2-case-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-CASE) (POS js2-ts-cursor) LEN KIDS EXPR) (defalias 'make-js2-case-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-CASE) :pos (nil js2-ts-cursor) :len (nil 1) :kids :expr (:type :pos :len :kids :expr :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :kids :expr)" cl--defsubst-expand (type pos len kids expr) (cl-block make-js2-case-node (record 'js2-case-node type pos len nil nil kids expr))] 18 (#$ . 418279)]) (put 'make-js2-case-node 'compiler-macro 'make-js2-case-node--cmacro) #@111 Constructor for objects of type `js2-case-node'. (fn &key (TYPE js2-CASE) (POS js2-ts-cursor) LEN KIDS EXPR) (defalias 'make-js2-case-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211&\207" [js2-CASE js2-ts-cursor plist-member :type nil :pos :len (nil 1) :kids :expr (:type :pos :len :kids :expr :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :kids :expr)" record js2-case-node] 15 (#$ . 419147)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-case-node side-effect-free t cl-struct-define js2-case-node "AST node for a case clause of a switch statement." js2-block-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (expr)) cl-struct-js2-case-node-tags js2--struct-put js2-visitor js2-visit-case-node js2-printer js2-print-case-node] 11) #@12 (fn N V) (defalias 'js2-visit-case-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\307\"\207" [cl-struct-js2-case-node-tags js2-visit-ast type-of signal wrong-type-argument js2-case-node 7 js2-visit-block] 7 (#$ . 420267)]) #@12 (fn N I) (defalias 'js2-print-case-node #[514 "\301!\302!>\204\303\304\305D\"\210\306Hc\210\211\204\"\307c\210\202-\310c\210\311\312\"\210\313c\210\302!>\204=\303\304\305D\"\210\314H\211\205T\211@\311T\"\210A\266\202\202@\262\207" [cl-struct-js2-case-node-tags js2-make-pad type-of signal wrong-type-argument js2-case-node 7 "default:\n" "case " js2-print-ast 0 ":\n" 6] 9 (#$ . 420517)]) #@73 compiler-macro for inlining `js2-throw-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-throw-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-throw-node-p (and (memq (type-of cl-x) cl-struct-js2-throw-node-tags) t)) nil] 9 (#$ . 420938)]) (put 'js2-throw-node-p 'compiler-macro 'js2-throw-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-throw-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-throw-node-tags type-of t] 3 (#$ . 421298)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-throw-node-p side-effect-free error-free put js2-throw-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-throw-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-throw-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-throw-node-type (or (js2-throw-node-p cl-x) (signal 'wrong-type-argument (list 'js2-throw-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 421590)]) (put 'js2-throw-node-type 'compiler-macro 'js2-throw-node-type--cmacro) #@174 Access slot "type" of `(js2-throw-node (:include js2-node) (:constructor make-js2-throw-node (&key (type js2-THROW) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-throw-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-throw-node-tags type-of signal wrong-type-argument js2-throw-node 1] 5 (#$ . 422007)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-throw-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-throw-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-throw-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-throw-node-pos (or (js2-throw-node-p cl-x) (signal 'wrong-type-argument (list 'js2-throw-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 422471)]) (put 'js2-throw-node-pos 'compiler-macro 'js2-throw-node-pos--cmacro) #@173 Access slot "pos" of `(js2-throw-node (:include js2-node) (:constructor make-js2-throw-node (&key (type js2-THROW) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-throw-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-throw-node-tags type-of signal wrong-type-argument js2-throw-node 2] 5 (#$ . 422883)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-throw-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-throw-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-throw-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-throw-node-len (or (js2-throw-node-p cl-x) (signal 'wrong-type-argument (list 'js2-throw-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 423344)]) (put 'js2-throw-node-len 'compiler-macro 'js2-throw-node-len--cmacro) #@173 Access slot "len" of `(js2-throw-node (:include js2-node) (:constructor make-js2-throw-node (&key (type js2-THROW) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-throw-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-throw-node-tags type-of signal wrong-type-argument js2-throw-node 3] 5 (#$ . 423756)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-throw-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-throw-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-throw-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-throw-node-props (or (js2-throw-node-p cl-x) (signal 'wrong-type-argument (list 'js2-throw-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 424217)]) (put 'js2-throw-node-props 'compiler-macro 'js2-throw-node-props--cmacro) #@175 Access slot "props" of `(js2-throw-node (:include js2-node) (:constructor make-js2-throw-node (&key (type js2-THROW) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-throw-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-throw-node-tags type-of signal wrong-type-argument js2-throw-node 4] 5 (#$ . 424639)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-throw-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-throw-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-throw-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-throw-node-parent (or (js2-throw-node-p cl-x) (signal 'wrong-type-argument (list 'js2-throw-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 425106)]) (put 'js2-throw-node-parent 'compiler-macro 'js2-throw-node-parent--cmacro) #@176 Access slot "parent" of `(js2-throw-node (:include js2-node) (:constructor make-js2-throw-node (&key (type js2-THROW) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-throw-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-throw-node-tags type-of signal wrong-type-argument js2-throw-node 5] 5 (#$ . 425533)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-throw-node-parent side-effect-free t] 4) #@76 compiler-macro for inlining `js2-throw-node-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-throw-node-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-throw-node-expr (or (js2-throw-node-p cl-x) (signal 'wrong-type-argument (list 'js2-throw-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 426003)]) (put 'js2-throw-node-expr 'compiler-macro 'js2-throw-node-expr--cmacro) #@174 Access slot "expr" of `(js2-throw-node (:include js2-node) (:constructor make-js2-throw-node (&key (type js2-THROW) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-throw-node-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-throw-node-tags type-of signal wrong-type-argument js2-throw-node 6] 5 (#$ . 426420)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-throw-node-expr side-effect-free t defalias copy-js2-throw-node copy-sequence] 4) #@128 compiler-macro for inlining `make-js2-throw-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-THROW) (POS js2-ts-cursor) LEN EXPR) (defalias 'make-js2-throw-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-THROW) :pos (nil js2-ts-cursor) :len (nil 1) :expr (:type :pos :len :expr :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :expr)" cl--defsubst-expand (type pos len expr) (cl-block make-js2-throw-node (record 'js2-throw-node type pos len nil nil expr))] 16 (#$ . 426938)]) (put 'make-js2-throw-node 'compiler-macro 'make-js2-throw-node--cmacro) #@108 Constructor for objects of type `js2-throw-node'. (fn &key (TYPE js2-THROW) (POS js2-ts-cursor) LEN EXPR) (defalias 'make-js2-throw-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211&\207" [js2-THROW js2-ts-cursor plist-member :type nil :pos :len (nil 1) :expr (:type :pos :len :expr :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :expr)" record js2-throw-node] 13 (#$ . 427759)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-throw-node side-effect-free t cl-struct-define js2-throw-node "AST node for a throw statement." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (expr)) cl-struct-js2-throw-node-tags js2--struct-put js2-visitor js2-visit-throw-node js2-printer js2-print-throw-node] 11) #@12 (fn N V) (defalias 'js2-visit-throw-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-throw-node-tags js2-visit-ast type-of signal wrong-type-argument js2-throw-node 6] 7 (#$ . 428813)]) #@12 (fn N I) (defalias 'js2-print-throw-node #[514 "\301!\302\261\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\312c\207" [cl-struct-js2-throw-node-tags js2-make-pad "throw " js2-print-ast type-of signal wrong-type-argument js2-throw-node 6 0 ";\n"] 7 (#$ . 429038)]) #@72 compiler-macro for inlining `js2-with-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-p (and (memq (type-of cl-x) cl-struct-js2-with-node-tags) t)) nil] 9 (#$ . 429324)]) (put 'js2-with-node-p 'compiler-macro 'js2-with-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-with-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-with-node-tags type-of t] 3 (#$ . 429678)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-with-node-p side-effect-free error-free put js2-with-node cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `js2-with-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-type (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 429966)]) (put 'js2-with-node-type 'compiler-macro 'js2-with-node-type--cmacro) #@184 Access slot "type" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 1] 5 (#$ . 430376)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-with-node-type side-effect-free t] 4) #@74 compiler-macro for inlining `js2-with-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-pos (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 430846)]) (put 'js2-with-node-pos 'compiler-macro 'js2-with-node-pos--cmacro) #@183 Access slot "pos" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 2] 5 (#$ . 431251)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-with-node-pos side-effect-free t] 4) #@74 compiler-macro for inlining `js2-with-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-len (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 431718)]) (put 'js2-with-node-len 'compiler-macro 'js2-with-node-len--cmacro) #@183 Access slot "len" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 3] 5 (#$ . 432123)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-with-node-len side-effect-free t] 4) #@76 compiler-macro for inlining `js2-with-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-props (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 432590)]) (put 'js2-with-node-props 'compiler-macro 'js2-with-node-props--cmacro) #@185 Access slot "props" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 4] 5 (#$ . 433005)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-with-node-props side-effect-free t] 4) #@77 compiler-macro for inlining `js2-with-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-parent (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 433478)]) (put 'js2-with-node-parent 'compiler-macro 'js2-with-node-parent--cmacro) #@186 Access slot "parent" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 5] 5 (#$ . 433898)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-with-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-with-node-object'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-object--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-object (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 434374)]) (put 'js2-with-node-object 'compiler-macro 'js2-with-node-object--cmacro) #@186 Access slot "object" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-object #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 6] 5 (#$ . 434794)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-with-node-object side-effect-free t] 4) #@75 compiler-macro for inlining `js2-with-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-body (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 435270)]) (put 'js2-with-node-body 'compiler-macro 'js2-with-node-body--cmacro) #@184 Access slot "body" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 7] 5 (#$ . 435680)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-with-node-body side-effect-free t] 4) #@73 compiler-macro for inlining `js2-with-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-lp (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 436150)]) (put 'js2-with-node-lp 'compiler-macro 'js2-with-node-lp--cmacro) #@182 Access slot "lp" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 8] 5 (#$ . 436550)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-with-node-lp side-effect-free t] 4) #@73 compiler-macro for inlining `js2-with-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-with-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-with-node-rp (or (js2-with-node-p cl-x) (signal 'wrong-type-argument (list 'js2-with-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 437014)]) (put 'js2-with-node-rp 'compiler-macro 'js2-with-node-rp--cmacro) #@182 Access slot "rp" of `(js2-with-node (:include js2-node) (:constructor make-js2-with-node (&key (type js2-WITH) (pos js2-ts-cursor) len object body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-with-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-with-node-tags type-of signal wrong-type-argument js2-with-node 9] 5 (#$ . 437414)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-with-node-rp side-effect-free t defalias copy-js2-with-node copy-sequence] 4) #@139 compiler-macro for inlining `make-js2-with-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-WITH) (POS js2-ts-cursor) LEN OBJECT BODY LP RP) (defalias 'make-js2-with-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-WITH) :pos (nil js2-ts-cursor) :len (nil 1) :object :body :lp :rp (:type :pos :len :object :body :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :object :body :lp :rp)" cl--defsubst-expand (type pos len object body lp rp) (cl-block make-js2-with-node (record 'js2-with-node type pos len nil nil object body lp rp))] 22 (#$ . 437931)]) (put 'make-js2-with-node 'compiler-macro 'make-js2-with-node--cmacro) #@119 Constructor for objects of type `js2-with-node'. (fn &key (TYPE js2-WITH) (POS js2-ts-cursor) LEN OBJECT BODY LP RP) (defalias 'make-js2-with-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\211\203i\211@\314>\203Q\211AA\262\202>\315 >A@\203`\304\262\202>\316\317@\"\210\202>\210\320\321\304\211\n\n\n\n&\n\207" [js2-WITH js2-ts-cursor plist-member :type nil :pos :len (nil 1) :object :body :lp :rp (:type :pos :len :object :body :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :object :body :lp :rp)" record js2-with-node] 19 (#$ . 438889)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-with-node side-effect-free t cl-struct-define js2-with-node "AST node for a with-statement." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (object) (body) (lp) (rp)) cl-struct-js2-with-node-tags js2--struct-put js2-visitor js2-visit-with-node js2-printer js2-print-with-node] 11) #@12 (fn N V) (defalias 'js2-visit-with-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-with-node-tags js2-visit-ast type-of signal wrong-type-argument js2-with-node 6 7] 7 (#$ . 440068)]) #@12 (fn N I) (defalias 'js2-print-with-node #[514 "\301!\211\302\261\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\312c\210\313\304!>\2043\305\306\307D\"\210\314HT\"\210\211\315\261\207" [cl-struct-js2-with-node-tags js2-make-pad "with (" js2-print-ast type-of signal wrong-type-argument js2-with-node 6 0 ") {\n" js2-print-body 7 "}\n"] 8 (#$ . 440343)]) #@73 compiler-macro for inlining `js2-label-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-label-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-label-node-p (and (memq (type-of cl-x) cl-struct-js2-label-node-tags) t)) nil] 9 (#$ . 440726)]) (put 'js2-label-node-p 'compiler-macro 'js2-label-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-label-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-label-node-tags type-of t] 3 (#$ . 441086)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-label-node-p side-effect-free error-free put js2-label-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-label-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-label-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-label-node-type (or (js2-label-node-p cl-x) (signal 'wrong-type-argument (list 'js2-label-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 441378)]) (put 'js2-label-node-type 'compiler-macro 'js2-label-node-type--cmacro) #@174 Access slot "type" of `(js2-label-node (:include js2-node) (:constructor make-js2-label-node (&key (type js2-LABEL) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-label-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-label-node 1] 5 (#$ . 441795)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-label-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-label-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-label-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-label-node-pos (or (js2-label-node-p cl-x) (signal 'wrong-type-argument (list 'js2-label-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 442259)]) (put 'js2-label-node-pos 'compiler-macro 'js2-label-node-pos--cmacro) #@173 Access slot "pos" of `(js2-label-node (:include js2-node) (:constructor make-js2-label-node (&key (type js2-LABEL) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-label-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-label-node 2] 5 (#$ . 442671)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-label-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-label-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-label-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-label-node-len (or (js2-label-node-p cl-x) (signal 'wrong-type-argument (list 'js2-label-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 443132)]) (put 'js2-label-node-len 'compiler-macro 'js2-label-node-len--cmacro) #@173 Access slot "len" of `(js2-label-node (:include js2-node) (:constructor make-js2-label-node (&key (type js2-LABEL) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-label-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-label-node 3] 5 (#$ . 443544)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-label-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-label-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-label-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-label-node-props (or (js2-label-node-p cl-x) (signal 'wrong-type-argument (list 'js2-label-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 444005)]) (put 'js2-label-node-props 'compiler-macro 'js2-label-node-props--cmacro) #@175 Access slot "props" of `(js2-label-node (:include js2-node) (:constructor make-js2-label-node (&key (type js2-LABEL) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-label-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-label-node 4] 5 (#$ . 444427)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-label-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-label-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-label-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-label-node-parent (or (js2-label-node-p cl-x) (signal 'wrong-type-argument (list 'js2-label-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 444894)]) (put 'js2-label-node-parent 'compiler-macro 'js2-label-node-parent--cmacro) #@176 Access slot "parent" of `(js2-label-node (:include js2-node) (:constructor make-js2-label-node (&key (type js2-LABEL) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-label-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-label-node 5] 5 (#$ . 445321)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-label-node-parent side-effect-free t] 4) #@76 compiler-macro for inlining `js2-label-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-label-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-label-node-name (or (js2-label-node-p cl-x) (signal 'wrong-type-argument (list 'js2-label-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 445791)]) (put 'js2-label-node-name 'compiler-macro 'js2-label-node-name--cmacro) #@174 Access slot "name" of `(js2-label-node (:include js2-node) (:constructor make-js2-label-node (&key (type js2-LABEL) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-label-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-label-node 6] 5 (#$ . 446208)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-label-node-name side-effect-free t] 4) #@76 compiler-macro for inlining `js2-label-node-loop'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-label-node-loop--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-label-node-loop (or (js2-label-node-p cl-x) (signal 'wrong-type-argument (list 'js2-label-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 446672)]) (put 'js2-label-node-loop 'compiler-macro 'js2-label-node-loop--cmacro) #@174 Access slot "loop" of `(js2-label-node (:include js2-node) (:constructor make-js2-label-node (&key (type js2-LABEL) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-label-node-loop #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-label-node 7] 5 (#$ . 447089)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-label-node-loop side-effect-free t defalias copy-js2-label-node copy-sequence] 4) #@128 compiler-macro for inlining `make-js2-label-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-LABEL) (POS js2-ts-cursor) LEN NAME) (defalias 'make-js2-label-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-LABEL) :pos (nil js2-ts-cursor) :len (nil 1) :name (:type :pos :len :name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :name)" cl--defsubst-expand (type pos len name) (cl-block make-js2-label-node (record 'js2-label-node type pos len nil nil name nil))] 16 (#$ . 447607)]) (put 'make-js2-label-node 'compiler-macro 'make-js2-label-node--cmacro) #@108 Constructor for objects of type `js2-label-node'. (fn &key (TYPE js2-LABEL) (POS js2-ts-cursor) LEN NAME) (defalias 'make-js2-label-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211\304&\207" [js2-LABEL js2-ts-cursor plist-member :type nil :pos :len (nil 1) :name (:type :pos :len :name :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :name)" record js2-label-node] 14 (#$ . 448432)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-label-node side-effect-free t cl-struct-define js2-label-node "AST node for a statement label or case label." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (name) (loop)) cl-struct-js2-label-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-label] 11) #@12 (fn N I) (defalias 'js2-print-label #[514 "\301!\302!>\204\303\304\305D\"\210\306H\307\261\207" [cl-struct-js2-label-node-tags js2-make-pad type-of signal wrong-type-argument js2-label-node 6 ":\n"] 7 (#$ . 449500)]) #@80 compiler-macro for inlining `js2-labeled-stmt-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-labeled-stmt-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-labeled-stmt-node-p (and (memq (type-of cl-x) cl-struct-js2-labeled-stmt-node-tags) t)) nil] 9 (#$ . 449733)]) (put 'js2-labeled-stmt-node-p 'compiler-macro 'js2-labeled-stmt-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-labeled-stmt-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-labeled-stmt-node-tags type-of t] 3 (#$ . 450135)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-labeled-stmt-node-p side-effect-free error-free put js2-labeled-stmt-node cl-deftype-satisfies] 5) #@83 compiler-macro for inlining `js2-labeled-stmt-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-labeled-stmt-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-labeled-stmt-node-type (or (js2-labeled-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-labeled-stmt-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 450455)]) (put 'js2-labeled-stmt-node-type 'compiler-macro 'js2-labeled-stmt-node-type--cmacro) #@201 Access slot "type" of `(js2-labeled-stmt-node (:include js2-node) (:constructor make-js2-labeled-stmt-node (&key (type js2-EXPR_RESULT) (pos js2-ts-cursor) len labels stmt)))' struct CL-X. (fn CL-X) (defalias 'js2-labeled-stmt-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 1] 5 (#$ . 450921)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-labeled-stmt-node-type side-effect-free t] 4) #@82 compiler-macro for inlining `js2-labeled-stmt-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-labeled-stmt-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-labeled-stmt-node-pos (or (js2-labeled-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-labeled-stmt-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 451440)]) (put 'js2-labeled-stmt-node-pos 'compiler-macro 'js2-labeled-stmt-node-pos--cmacro) #@200 Access slot "pos" of `(js2-labeled-stmt-node (:include js2-node) (:constructor make-js2-labeled-stmt-node (&key (type js2-EXPR_RESULT) (pos js2-ts-cursor) len labels stmt)))' struct CL-X. (fn CL-X) (defalias 'js2-labeled-stmt-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 2] 5 (#$ . 451901)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-labeled-stmt-node-pos side-effect-free t] 4) #@82 compiler-macro for inlining `js2-labeled-stmt-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-labeled-stmt-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-labeled-stmt-node-len (or (js2-labeled-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-labeled-stmt-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 452417)]) (put 'js2-labeled-stmt-node-len 'compiler-macro 'js2-labeled-stmt-node-len--cmacro) #@200 Access slot "len" of `(js2-labeled-stmt-node (:include js2-node) (:constructor make-js2-labeled-stmt-node (&key (type js2-EXPR_RESULT) (pos js2-ts-cursor) len labels stmt)))' struct CL-X. (fn CL-X) (defalias 'js2-labeled-stmt-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 3] 5 (#$ . 452878)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-labeled-stmt-node-len side-effect-free t] 4) #@84 compiler-macro for inlining `js2-labeled-stmt-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-labeled-stmt-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-labeled-stmt-node-props (or (js2-labeled-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-labeled-stmt-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 453394)]) (put 'js2-labeled-stmt-node-props 'compiler-macro 'js2-labeled-stmt-node-props--cmacro) #@202 Access slot "props" of `(js2-labeled-stmt-node (:include js2-node) (:constructor make-js2-labeled-stmt-node (&key (type js2-EXPR_RESULT) (pos js2-ts-cursor) len labels stmt)))' struct CL-X. (fn CL-X) (defalias 'js2-labeled-stmt-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 4] 5 (#$ . 453865)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-labeled-stmt-node-props side-effect-free t] 4) #@85 compiler-macro for inlining `js2-labeled-stmt-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-labeled-stmt-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-labeled-stmt-node-parent (or (js2-labeled-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-labeled-stmt-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 454387)]) (put 'js2-labeled-stmt-node-parent 'compiler-macro 'js2-labeled-stmt-node-parent--cmacro) #@203 Access slot "parent" of `(js2-labeled-stmt-node (:include js2-node) (:constructor make-js2-labeled-stmt-node (&key (type js2-EXPR_RESULT) (pos js2-ts-cursor) len labels stmt)))' struct CL-X. (fn CL-X) (defalias 'js2-labeled-stmt-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 5] 5 (#$ . 454863)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-labeled-stmt-node-parent side-effect-free t] 4) #@85 compiler-macro for inlining `js2-labeled-stmt-node-labels'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-labeled-stmt-node-labels--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-labeled-stmt-node-labels (or (js2-labeled-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-labeled-stmt-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 455388)]) (put 'js2-labeled-stmt-node-labels 'compiler-macro 'js2-labeled-stmt-node-labels--cmacro) #@203 Access slot "labels" of `(js2-labeled-stmt-node (:include js2-node) (:constructor make-js2-labeled-stmt-node (&key (type js2-EXPR_RESULT) (pos js2-ts-cursor) len labels stmt)))' struct CL-X. (fn CL-X) (defalias 'js2-labeled-stmt-node-labels #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 6] 5 (#$ . 455864)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-labeled-stmt-node-labels side-effect-free t] 4) #@83 compiler-macro for inlining `js2-labeled-stmt-node-stmt'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-labeled-stmt-node-stmt--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-labeled-stmt-node-stmt (or (js2-labeled-stmt-node-p cl-x) (signal 'wrong-type-argument (list 'js2-labeled-stmt-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 456389)]) (put 'js2-labeled-stmt-node-stmt 'compiler-macro 'js2-labeled-stmt-node-stmt--cmacro) #@201 Access slot "stmt" of `(js2-labeled-stmt-node (:include js2-node) (:constructor make-js2-labeled-stmt-node (&key (type js2-EXPR_RESULT) (pos js2-ts-cursor) len labels stmt)))' struct CL-X. (fn CL-X) (defalias 'js2-labeled-stmt-node-stmt #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 7] 5 (#$ . 456855)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-labeled-stmt-node-stmt side-effect-free t defalias copy-js2-labeled-stmt-node copy-sequence] 4) #@148 compiler-macro for inlining `make-js2-labeled-stmt-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-EXPR_RESULT) (POS js2-ts-cursor) LEN LABELS STMT) (defalias 'make-js2-labeled-stmt-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-EXPR_RESULT) :pos (nil js2-ts-cursor) :len (nil 1) :labels :stmt (:type :pos :len :labels :stmt :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :labels :stmt)" cl--defsubst-expand (type pos len labels stmt) (cl-block make-js2-labeled-stmt-node (record 'js2-labeled-stmt-node type pos len nil nil labels stmt))] 18 (#$ . 457435)]) (put 'make-js2-labeled-stmt-node 'compiler-macro 'make-js2-labeled-stmt-node--cmacro) #@128 Constructor for objects of type `js2-labeled-stmt-node'. (fn &key (TYPE js2-EXPR_RESULT) (POS js2-ts-cursor) LEN LABELS STMT) (defalias 'make-js2-labeled-stmt-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211&\207" [js2-EXPR_RESULT js2-ts-cursor plist-member :type nil :pos :len (nil 1) :labels :stmt (:type :pos :len :labels :stmt :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :labels :stmt)" record js2-labeled-stmt-node] 15 (#$ . 458377)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-labeled-stmt-node side-effect-free t cl-struct-define js2-labeled-stmt-node "AST node for a statement with one or more labels.\nMultiple labels for a statement are collapsed into the labels field." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (labels) (stmt)) cl-struct-js2-labeled-stmt-node-tags js2--struct-put js2-visitor js2-visit-labeled-stmt js2-printer js2-print-labeled-stmt] 11) #@129 Return a `js2-label-node' by NAME from LBL-STMT's labels list. Returns nil if no such label is in the list. (fn LBL-STMT NAME) (defalias 'js2-get-label-by-name #[514 "\302!>\204\303\304\305D\"\210\306H\307\203C\211\204C\302@! >\204,\303\304\310@D\"\210@\306H\230\203<@\262\202A\262\202\207" [cl-struct-js2-labeled-stmt-node-tags cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 6 nil js2-label-node] 8 (#$ . 459636)]) #@12 (fn N V) (defalias 'js2-visit-labeled-stmt #[514 "\301!>\204\302\303\304D\"\210\305H\211\203$\211@\306\"\210A\266\202\202\210\306\301!>\2045\302\303\304D\"\210\307H\"\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 6 js2-visit-ast 7] 7 (#$ . 460122)]) #@12 (fn N I) (defalias 'js2-print-labeled-stmt #[514 "\301!>\204\302\303\304D\"\210\305H\211\203$\211@\306\"\210A\266\202\202\210\306\301!>\2045\302\303\304D\"\210\307H\"\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 6 js2-print-ast 7] 7 (#$ . 460452)]) #@122 Return t if NODE contains LABEL in its label set. NODE is a `js2-labels-node'. LABEL is an identifier. (fn NODE LABEL) (defalias 'js2-labeled-stmt-node-contains #[514 "\302!>\204\303\304\305D\"\210\306H\307\310\307:\203K@\262\302! >\204/\303\304\311D\"\210\306H\230\203@\310\262\307\211\262\202A\310\203KA\262\202?\205Q\211\207" [cl-struct-js2-labeled-stmt-node-tags cl-struct-js2-label-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 6 nil t js2-label-node] 11 (#$ . 460783)]) #@78 Add a `js2-label-node' to the label set for this statement. (fn NODE LABEL) (defalias 'js2-labeled-stmt-node-add-label #[514 "\301!>\204\302\303\304D\"\210\211\305\301!>\204\"\302\303\304D\"\210\305HC\244I\207" [cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-labeled-stmt-node 6] 9 (#$ . 461315)]) (put 'js2-labeled-stmt-node-add-label 'byte-optimizer 'byte-compile-inline-expand) #@72 compiler-macro for inlining `js2-jump-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-jump-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-jump-node-p (and (memq (type-of cl-x) cl-struct-js2-jump-node-tags) t)) nil] 9 (#$ . 461745)]) (put 'js2-jump-node-p 'compiler-macro 'js2-jump-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-jump-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-jump-node-tags type-of t] 3 (#$ . 462099)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-jump-node-p side-effect-free error-free put js2-jump-node cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `js2-jump-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-jump-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-jump-node-type (or (js2-jump-node-p cl-x) (signal 'wrong-type-argument (list 'js2-jump-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 462387)]) (put 'js2-jump-node-type 'compiler-macro 'js2-jump-node-type--cmacro) #@104 Access slot "type" of `(js2-jump-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-jump-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-jump-node-tags type-of signal wrong-type-argument js2-jump-node 1] 5 (#$ . 462797)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-jump-node-type side-effect-free t] 4) #@74 compiler-macro for inlining `js2-jump-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-jump-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-jump-node-pos (or (js2-jump-node-p cl-x) (signal 'wrong-type-argument (list 'js2-jump-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 463187)]) (put 'js2-jump-node-pos 'compiler-macro 'js2-jump-node-pos--cmacro) #@103 Access slot "pos" of `(js2-jump-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-jump-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-jump-node-tags type-of signal wrong-type-argument js2-jump-node 2] 5 (#$ . 463592)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-jump-node-pos side-effect-free t] 4) #@74 compiler-macro for inlining `js2-jump-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-jump-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-jump-node-len (or (js2-jump-node-p cl-x) (signal 'wrong-type-argument (list 'js2-jump-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 463979)]) (put 'js2-jump-node-len 'compiler-macro 'js2-jump-node-len--cmacro) #@103 Access slot "len" of `(js2-jump-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-jump-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-jump-node-tags type-of signal wrong-type-argument js2-jump-node 3] 5 (#$ . 464384)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-jump-node-len side-effect-free t] 4) #@76 compiler-macro for inlining `js2-jump-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-jump-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-jump-node-props (or (js2-jump-node-p cl-x) (signal 'wrong-type-argument (list 'js2-jump-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 464771)]) (put 'js2-jump-node-props 'compiler-macro 'js2-jump-node-props--cmacro) #@105 Access slot "props" of `(js2-jump-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-jump-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-jump-node-tags type-of signal wrong-type-argument js2-jump-node 4] 5 (#$ . 465186)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-jump-node-props side-effect-free t] 4) #@77 compiler-macro for inlining `js2-jump-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-jump-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-jump-node-parent (or (js2-jump-node-p cl-x) (signal 'wrong-type-argument (list 'js2-jump-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 465579)]) (put 'js2-jump-node-parent 'compiler-macro 'js2-jump-node-parent--cmacro) #@106 Access slot "parent" of `(js2-jump-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-jump-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-jump-node-tags type-of signal wrong-type-argument js2-jump-node 5] 5 (#$ . 465999)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-jump-node-parent side-effect-free t] 4) #@76 compiler-macro for inlining `js2-jump-node-label'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-jump-node-label--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-jump-node-label (or (js2-jump-node-p cl-x) (signal 'wrong-type-argument (list 'js2-jump-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 466395)]) (put 'js2-jump-node-label 'compiler-macro 'js2-jump-node-label--cmacro) #@105 Access slot "label" of `(js2-jump-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-jump-node-label #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-jump-node-tags type-of signal wrong-type-argument js2-jump-node 6] 5 (#$ . 466810)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-jump-node-label side-effect-free t] 4) #@77 compiler-macro for inlining `js2-jump-node-target'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-jump-node-target--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-jump-node-target (or (js2-jump-node-p cl-x) (signal 'wrong-type-argument (list 'js2-jump-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 467203)]) (put 'js2-jump-node-target 'compiler-macro 'js2-jump-node-target--cmacro) #@106 Access slot "target" of `(js2-jump-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-jump-node-target #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-jump-node-tags type-of signal wrong-type-argument js2-jump-node 7] 5 (#$ . 467623)]) (byte-code "\300\301\302\303#\304\305\306\"\210\307\310\311\312\313\314\315\316\310\303& \207" [function-put js2-jump-node-target side-effect-free t defalias copy-js2-jump-node copy-sequence cl-struct-define js2-jump-node "Abstract supertype of break and continue nodes." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (label) (target)) cl-struct-js2-jump-node-tags] 11) #@12 (fn N V) (defalias 'js2-visit-jump-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-jump-node-tags js2-visit-ast type-of signal wrong-type-argument js2-jump-node 6] 7 (#$ . 468333)]) #@73 compiler-macro for inlining `js2-break-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-break-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-break-node-p (and (memq (type-of cl-x) cl-struct-js2-break-node-tags) t)) nil] 9 (#$ . 468555)]) (put 'js2-break-node-p 'compiler-macro 'js2-break-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-break-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-break-node-tags type-of t] 3 (#$ . 468915)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-break-node-p side-effect-free error-free put js2-break-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-break-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-break-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-break-node-type (or (js2-break-node-p cl-x) (signal 'wrong-type-argument (list 'js2-break-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 469207)]) (put 'js2-break-node-type 'compiler-macro 'js2-break-node-type--cmacro) #@187 Access slot "type" of `(js2-break-node (:include js2-jump-node) (:constructor make-js2-break-node (&key (type js2-BREAK) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-break-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-break-node-tags type-of signal wrong-type-argument js2-break-node 1] 5 (#$ . 469624)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-break-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-break-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-break-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-break-node-pos (or (js2-break-node-p cl-x) (signal 'wrong-type-argument (list 'js2-break-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 470101)]) (put 'js2-break-node-pos 'compiler-macro 'js2-break-node-pos--cmacro) #@186 Access slot "pos" of `(js2-break-node (:include js2-jump-node) (:constructor make-js2-break-node (&key (type js2-BREAK) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-break-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-break-node-tags type-of signal wrong-type-argument js2-break-node 2] 5 (#$ . 470513)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-break-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-break-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-break-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-break-node-len (or (js2-break-node-p cl-x) (signal 'wrong-type-argument (list 'js2-break-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 470987)]) (put 'js2-break-node-len 'compiler-macro 'js2-break-node-len--cmacro) #@186 Access slot "len" of `(js2-break-node (:include js2-jump-node) (:constructor make-js2-break-node (&key (type js2-BREAK) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-break-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-break-node-tags type-of signal wrong-type-argument js2-break-node 3] 5 (#$ . 471399)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-break-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-break-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-break-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-break-node-props (or (js2-break-node-p cl-x) (signal 'wrong-type-argument (list 'js2-break-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 471873)]) (put 'js2-break-node-props 'compiler-macro 'js2-break-node-props--cmacro) #@188 Access slot "props" of `(js2-break-node (:include js2-jump-node) (:constructor make-js2-break-node (&key (type js2-BREAK) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-break-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-break-node-tags type-of signal wrong-type-argument js2-break-node 4] 5 (#$ . 472295)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-break-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-break-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-break-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-break-node-parent (or (js2-break-node-p cl-x) (signal 'wrong-type-argument (list 'js2-break-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 472775)]) (put 'js2-break-node-parent 'compiler-macro 'js2-break-node-parent--cmacro) #@189 Access slot "parent" of `(js2-break-node (:include js2-jump-node) (:constructor make-js2-break-node (&key (type js2-BREAK) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-break-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-break-node-tags type-of signal wrong-type-argument js2-break-node 5] 5 (#$ . 473202)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-break-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-break-node-label'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-break-node-label--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-break-node-label (or (js2-break-node-p cl-x) (signal 'wrong-type-argument (list 'js2-break-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 473685)]) (put 'js2-break-node-label 'compiler-macro 'js2-break-node-label--cmacro) #@188 Access slot "label" of `(js2-break-node (:include js2-jump-node) (:constructor make-js2-break-node (&key (type js2-BREAK) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-break-node-label #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-break-node-tags type-of signal wrong-type-argument js2-break-node 6] 5 (#$ . 474107)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-break-node-label side-effect-free t] 4) #@78 compiler-macro for inlining `js2-break-node-target'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-break-node-target--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-break-node-target (or (js2-break-node-p cl-x) (signal 'wrong-type-argument (list 'js2-break-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 474587)]) (put 'js2-break-node-target 'compiler-macro 'js2-break-node-target--cmacro) #@189 Access slot "target" of `(js2-break-node (:include js2-jump-node) (:constructor make-js2-break-node (&key (type js2-BREAK) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-break-node-target #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-break-node-tags type-of signal wrong-type-argument js2-break-node 7] 5 (#$ . 475014)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-break-node-target side-effect-free t defalias copy-js2-break-node copy-sequence] 4) #@136 compiler-macro for inlining `make-js2-break-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-BREAK) (POS js2-ts-cursor) LEN LABEL TARGET) (defalias 'make-js2-break-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-BREAK) :pos (nil js2-ts-cursor) :len (nil 1) :label :target (:type :pos :len :label :target :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :label :target)" cl--defsubst-expand (type pos len label target) (cl-block make-js2-break-node (record 'js2-break-node type pos len nil nil label target))] 18 (#$ . 475551)]) (put 'make-js2-break-node 'compiler-macro 'make-js2-break-node--cmacro) #@116 Constructor for objects of type `js2-break-node'. (fn &key (TYPE js2-BREAK) (POS js2-ts-cursor) LEN LABEL TARGET) (defalias 'make-js2-break-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211&\207" [js2-BREAK js2-ts-cursor plist-member :type nil :pos :len (nil 1) :label :target (:type :pos :len :label :target :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :label :target)" record js2-break-node] 15 (#$ . 476445)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-break-node side-effect-free t cl-struct-define js2-break-node "AST node for a break statement.\nThe label field is a `js2-name-node', possibly nil, for the named label\nif provided. E.g. in 'break foo', it represents 'foo'. The target field\nis the target of the break - a label node or enclosing loop/switch statement." js2-jump-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (label nil) (target nil)) cl-struct-js2-break-node-tags js2--struct-put js2-visitor js2-visit-jump-node js2-printer js2-print-break-node] 11) #@12 (fn N I) (defalias 'js2-print-break-node #[514 "\301!\302\261\210\303!>\204\304\305\306D\"\210\307H\2035\310c\210\311\303!>\204/\304\305\306D\"\210\307H\312\"\210\313c\207" [cl-struct-js2-break-node-tags js2-make-pad "break" type-of signal wrong-type-argument js2-break-node 6 " " js2-print-ast 0 ";\n"] 7 (#$ . 477801)]) #@76 compiler-macro for inlining `js2-continue-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-continue-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-continue-node-p (and (memq (type-of cl-x) cl-struct-js2-continue-node-tags) t)) nil] 9 (#$ . 478145)]) (put 'js2-continue-node-p 'compiler-macro 'js2-continue-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-continue-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-continue-node-tags type-of t] 3 (#$ . 478523)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-continue-node-p side-effect-free error-free put js2-continue-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-continue-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-continue-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-continue-node-type (or (js2-continue-node-p cl-x) (signal 'wrong-type-argument (list 'js2-continue-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 478827)]) (put 'js2-continue-node-type 'compiler-macro 'js2-continue-node-type--cmacro) #@196 Access slot "type" of `(js2-continue-node (:include js2-jump-node) (:constructor make-js2-continue-node (&key (type js2-CONTINUE) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-continue-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-continue-node-tags type-of signal wrong-type-argument js2-continue-node 1] 5 (#$ . 479265)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-continue-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-continue-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-continue-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-continue-node-pos (or (js2-continue-node-p cl-x) (signal 'wrong-type-argument (list 'js2-continue-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 479763)]) (put 'js2-continue-node-pos 'compiler-macro 'js2-continue-node-pos--cmacro) #@195 Access slot "pos" of `(js2-continue-node (:include js2-jump-node) (:constructor make-js2-continue-node (&key (type js2-CONTINUE) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-continue-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-continue-node-tags type-of signal wrong-type-argument js2-continue-node 2] 5 (#$ . 480196)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-continue-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-continue-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-continue-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-continue-node-len (or (js2-continue-node-p cl-x) (signal 'wrong-type-argument (list 'js2-continue-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 480691)]) (put 'js2-continue-node-len 'compiler-macro 'js2-continue-node-len--cmacro) #@195 Access slot "len" of `(js2-continue-node (:include js2-jump-node) (:constructor make-js2-continue-node (&key (type js2-CONTINUE) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-continue-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-continue-node-tags type-of signal wrong-type-argument js2-continue-node 3] 5 (#$ . 481124)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-continue-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-continue-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-continue-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-continue-node-props (or (js2-continue-node-p cl-x) (signal 'wrong-type-argument (list 'js2-continue-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 481619)]) (put 'js2-continue-node-props 'compiler-macro 'js2-continue-node-props--cmacro) #@197 Access slot "props" of `(js2-continue-node (:include js2-jump-node) (:constructor make-js2-continue-node (&key (type js2-CONTINUE) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-continue-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-continue-node-tags type-of signal wrong-type-argument js2-continue-node 4] 5 (#$ . 482062)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-continue-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-continue-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-continue-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-continue-node-parent (or (js2-continue-node-p cl-x) (signal 'wrong-type-argument (list 'js2-continue-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 482563)]) (put 'js2-continue-node-parent 'compiler-macro 'js2-continue-node-parent--cmacro) #@198 Access slot "parent" of `(js2-continue-node (:include js2-jump-node) (:constructor make-js2-continue-node (&key (type js2-CONTINUE) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-continue-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-continue-node-tags type-of signal wrong-type-argument js2-continue-node 5] 5 (#$ . 483011)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-continue-node-parent side-effect-free t] 4) #@80 compiler-macro for inlining `js2-continue-node-label'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-continue-node-label--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-continue-node-label (or (js2-continue-node-p cl-x) (signal 'wrong-type-argument (list 'js2-continue-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 483515)]) (put 'js2-continue-node-label 'compiler-macro 'js2-continue-node-label--cmacro) #@197 Access slot "label" of `(js2-continue-node (:include js2-jump-node) (:constructor make-js2-continue-node (&key (type js2-CONTINUE) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-continue-node-label #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-continue-node-tags type-of signal wrong-type-argument js2-continue-node 6] 5 (#$ . 483958)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-continue-node-label side-effect-free t] 4) #@81 compiler-macro for inlining `js2-continue-node-target'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-continue-node-target--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-continue-node-target (or (js2-continue-node-p cl-x) (signal 'wrong-type-argument (list 'js2-continue-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 484459)]) (put 'js2-continue-node-target 'compiler-macro 'js2-continue-node-target--cmacro) #@198 Access slot "target" of `(js2-continue-node (:include js2-jump-node) (:constructor make-js2-continue-node (&key (type js2-CONTINUE) (pos js2-ts-cursor) len label target)))' struct CL-X. (fn CL-X) (defalias 'js2-continue-node-target #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-continue-node-tags type-of signal wrong-type-argument js2-continue-node 7] 5 (#$ . 484907)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-continue-node-target side-effect-free t defalias copy-js2-continue-node copy-sequence] 4) #@142 compiler-macro for inlining `make-js2-continue-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-CONTINUE) (POS js2-ts-cursor) LEN LABEL TARGET) (defalias 'make-js2-continue-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-CONTINUE) :pos (nil js2-ts-cursor) :len (nil 1) :label :target (:type :pos :len :label :target :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :label :target)" cl--defsubst-expand (type pos len label target) (cl-block make-js2-continue-node (record 'js2-continue-node type pos len nil nil label target))] 18 (#$ . 485468)]) (put 'make-js2-continue-node 'compiler-macro 'make-js2-continue-node--cmacro) #@122 Constructor for objects of type `js2-continue-node'. (fn &key (TYPE js2-CONTINUE) (POS js2-ts-cursor) LEN LABEL TARGET) (defalias 'make-js2-continue-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211&\207" [js2-CONTINUE js2-ts-cursor plist-member :type nil :pos :len (nil 1) :label :target (:type :pos :len :label :target :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :label :target)" record js2-continue-node] 15 (#$ . 486386)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-continue-node side-effect-free t cl-struct-define js2-continue-node "AST node for a continue statement.\nThe label field is the user-supplied enclosing label name, a `js2-name-node'.\nIt is nil if continue specifies no label. The target field is the jump target:\na `js2-label-node' or the innermost enclosing loop." js2-jump-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (label nil) (target nil)) cl-struct-js2-continue-node-tags js2--struct-put js2-visitor js2-visit-jump-node js2-printer js2-print-continue-node] 11) #@12 (fn N I) (defalias 'js2-print-continue-node #[514 "\301!\302\261\210\303!>\204\304\305\306D\"\210\307H\2035\310c\210\311\303!>\204/\304\305\306D\"\210\307H\312\"\210\313c\207" [cl-struct-js2-continue-node-tags js2-make-pad "continue" type-of signal wrong-type-argument js2-continue-node 6 " " js2-print-ast 0 ";\n"] 7 (#$ . 487758)]) #@76 compiler-macro for inlining `js2-function-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-p (and (memq (type-of cl-x) cl-struct-js2-function-node-tags) t)) nil] 9 (#$ . 488114)]) (put 'js2-function-node-p 'compiler-macro 'js2-function-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-function-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-function-node-tags type-of t] 3 (#$ . 488492)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-function-node-p side-effect-free error-free put js2-function-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-function-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-type (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 488796)]) (put 'js2-function-node-type 'compiler-macro 'js2-function-node-type--cmacro) #@298 Access slot "type" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 1] 5 (#$ . 489234)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-function-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-pos (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 489834)]) (put 'js2-function-node-pos 'compiler-macro 'js2-function-node-pos--cmacro) #@297 Access slot "pos" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 2] 5 (#$ . 490267)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-function-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-len (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 490864)]) (put 'js2-function-node-len 'compiler-macro 'js2-function-node-len--cmacro) #@297 Access slot "len" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 3] 5 (#$ . 491297)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-function-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-props (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 491894)]) (put 'js2-function-node-props 'compiler-macro 'js2-function-node-props--cmacro) #@299 Access slot "props" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 4] 5 (#$ . 492337)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-function-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-parent (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 492940)]) (put 'js2-function-node-parent 'compiler-macro 'js2-function-node-parent--cmacro) #@300 Access slot "parent" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 5] 5 (#$ . 493388)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-function-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-kids (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 493994)]) (put 'js2-function-node-kids 'compiler-macro 'js2-function-node-kids--cmacro) #@298 Access slot "kids" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 6] 5 (#$ . 494432)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-kids side-effect-free t] 4) #@87 compiler-macro for inlining `js2-function-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-symbol-table (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 495032)]) (put 'js2-function-node-symbol-table 'compiler-macro 'js2-function-node-symbol-table--cmacro) #@306 Access slot "symbol-table" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 7] 5 (#$ . 495510)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-symbol-table side-effect-free t] 4) #@87 compiler-macro for inlining `js2-function-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-parent-scope (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 496134)]) (put 'js2-function-node-parent-scope 'compiler-macro 'js2-function-node-parent-scope--cmacro) #@306 Access slot "parent-scope" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 8] 5 (#$ . 496612)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-parent-scope side-effect-free t] 4) #@78 compiler-macro for inlining `js2-function-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-top (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 497236)]) (put 'js2-function-node-top 'compiler-macro 'js2-function-node-top--cmacro) #@297 Access slot "top" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 9] 5 (#$ . 497669)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-top side-effect-free t] 4) #@84 compiler-macro for inlining `js2-function-node-functions'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-functions--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-functions (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 498266)]) (put 'js2-function-node-functions 'compiler-macro 'js2-function-node-functions--cmacro) #@303 Access slot "functions" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-functions #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 10] 5 (#$ . 498730)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-functions side-effect-free t] 4) #@82 compiler-macro for inlining `js2-function-node-regexps'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-regexps--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-regexps (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 499346)]) (put 'js2-function-node-regexps 'compiler-macro 'js2-function-node-regexps--cmacro) #@301 Access slot "regexps" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-regexps #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 11] 5 (#$ . 499800)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-regexps side-effect-free t] 4) #@82 compiler-macro for inlining `js2-function-node-symbols'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-symbols--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-symbols (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 500410)]) (put 'js2-function-node-symbols 'compiler-macro 'js2-function-node-symbols--cmacro) #@301 Access slot "symbols" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-symbols #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 12] 5 (#$ . 500864)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-symbols side-effect-free t] 4) #@86 compiler-macro for inlining `js2-function-node-param-count'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-param-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-param-count (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 501474)]) (put 'js2-function-node-param-count 'compiler-macro 'js2-function-node-param-count--cmacro) #@305 Access slot "param-count" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-param-count #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 13] 5 (#$ . 501948)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-param-count side-effect-free t] 4) #@84 compiler-macro for inlining `js2-function-node-var-names'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-var-names--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-var-names (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 14)) nil] 9 (#$ . 502570)]) (put 'js2-function-node-var-names 'compiler-macro 'js2-function-node-var-names--cmacro) #@303 Access slot "var-names" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-var-names #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 14] 5 (#$ . 503034)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-var-names side-effect-free t] 4) #@81 compiler-macro for inlining `js2-function-node-consts'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-consts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-consts (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 15)) nil] 9 (#$ . 503650)]) (put 'js2-function-node-consts 'compiler-macro 'js2-function-node-consts--cmacro) #@300 Access slot "consts" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-consts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 15] 5 (#$ . 504099)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-consts side-effect-free t] 4) #@86 compiler-macro for inlining `js2-function-node-temp-number'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-temp-number--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-temp-number (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 16)) nil] 9 (#$ . 504706)]) (put 'js2-function-node-temp-number 'compiler-macro 'js2-function-node-temp-number--cmacro) #@305 Access slot "temp-number" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-temp-number #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 16] 5 (#$ . 505180)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-temp-number side-effect-free t] 4) #@80 compiler-macro for inlining `js2-function-node-ftype'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-ftype--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-ftype (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 17)) nil] 9 (#$ . 505802)]) (put 'js2-function-node-ftype 'compiler-macro 'js2-function-node-ftype--cmacro) #@299 Access slot "ftype" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-ftype #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 17] 5 (#$ . 506246)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-ftype side-effect-free t] 4) #@79 compiler-macro for inlining `js2-function-node-form'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-form--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-form (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 18)) nil] 9 (#$ . 506850)]) (put 'js2-function-node-form 'compiler-macro 'js2-function-node-form--cmacro) #@298 Access slot "form" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-form #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 18] 5 (#$ . 507289)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-form side-effect-free t] 4) #@79 compiler-macro for inlining `js2-function-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-name (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 19)) nil] 9 (#$ . 507890)]) (put 'js2-function-node-name 'compiler-macro 'js2-function-node-name--cmacro) #@298 Access slot "name" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 19] 5 (#$ . 508329)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-name side-effect-free t] 4) #@81 compiler-macro for inlining `js2-function-node-params'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-params--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-params (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 20)) nil] 9 (#$ . 508930)]) (put 'js2-function-node-params 'compiler-macro 'js2-function-node-params--cmacro) #@300 Access slot "params" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-params #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 20] 5 (#$ . 509379)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-params side-effect-free t] 4) #@81 compiler-macro for inlining `js2-function-node-rest-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-rest-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-rest-p (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 21)) nil] 9 (#$ . 509986)]) (put 'js2-function-node-rest-p 'compiler-macro 'js2-function-node-rest-p--cmacro) #@300 Access slot "rest-p" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-rest-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 21] 5 (#$ . 510435)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-rest-p side-effect-free t] 4) #@79 compiler-macro for inlining `js2-function-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-body (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 22)) nil] 9 (#$ . 511042)]) (put 'js2-function-node-body 'compiler-macro 'js2-function-node-body--cmacro) #@298 Access slot "body" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 22] 5 (#$ . 511481)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-body side-effect-free t] 4) #@77 compiler-macro for inlining `js2-function-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-lp (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 23)) nil] 9 (#$ . 512082)]) (put 'js2-function-node-lp 'compiler-macro 'js2-function-node-lp--cmacro) #@296 Access slot "lp" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 23] 5 (#$ . 512511)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-lp side-effect-free t] 4) #@77 compiler-macro for inlining `js2-function-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-rp (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 24)) nil] 9 (#$ . 513106)]) (put 'js2-function-node-rp 'compiler-macro 'js2-function-node-rp--cmacro) #@296 Access slot "rp" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 24] 5 (#$ . 513535)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-rp side-effect-free t] 4) #@89 compiler-macro for inlining `js2-function-node-ignore-dynamic'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-ignore-dynamic--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-ignore-dynamic (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 25)) nil] 9 (#$ . 514130)]) (put 'js2-function-node-ignore-dynamic 'compiler-macro 'js2-function-node-ignore-dynamic--cmacro) #@308 Access slot "ignore-dynamic" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-ignore-dynamic #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 25] 5 (#$ . 514619)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-ignore-dynamic side-effect-free t] 4) #@91 compiler-macro for inlining `js2-function-node-needs-activation'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-needs-activation--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-needs-activation (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 26)) nil] 9 (#$ . 515250)]) (put 'js2-function-node-needs-activation 'compiler-macro 'js2-function-node-needs-activation--cmacro) #@310 Access slot "needs-activation" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-needs-activation #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 26] 5 (#$ . 515749)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-needs-activation side-effect-free t] 4) #@89 compiler-macro for inlining `js2-function-node-generator-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-generator-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-generator-type (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 27)) nil] 9 (#$ . 516386)]) (put 'js2-function-node-generator-type 'compiler-macro 'js2-function-node-generator-type--cmacro) #@308 Access slot "generator-type" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-generator-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 27] 5 (#$ . 516875)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-generator-type side-effect-free t] 4) #@80 compiler-macro for inlining `js2-function-node-async'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-async--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-async (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 28)) nil] 9 (#$ . 517506)]) (put 'js2-function-node-async 'compiler-macro 'js2-function-node-async--cmacro) #@299 Access slot "async" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-async #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 28] 5 (#$ . 517950)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-function-node-async side-effect-free t] 4) #@86 compiler-macro for inlining `js2-function-node-member-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-function-node-member-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-function-node-member-expr (or (js2-function-node-p cl-x) (signal 'wrong-type-argument (list 'js2-function-node cl-x))) (aref cl-x 29)) nil] 9 (#$ . 518554)]) (put 'js2-function-node-member-expr 'compiler-macro 'js2-function-node-member-expr--cmacro) #@305 Access slot "member-expr" of `(js2-function-node (:include js2-script-node) (:constructor make-js2-function-node (&key (type js2-FUNCTION) (pos js2-ts-cursor) len (ftype (quote FUNCTION)) (form (quote FUNCTION_STATEMENT)) (name ) params rest-p body generator-type async lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-function-node-member-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 29] 5 (#$ . 519028)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-function-node-member-expr side-effect-free t defalias copy-js2-function-node copy-sequence] 4) #@234 compiler-macro for inlining `make-js2-function-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-FUNCTION) (POS js2-ts-cursor) LEN (FTYPE \='FUNCTION) (FORM \='FUNCTION_STATEMENT) (NAME "") PARAMS REST-P BODY GENERATOR-TYPE ASYNC LP RP) (defalias 'make-js2-function-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"\206&\310A@\300\311\"\2060\312A@\300\313\"\206;\314A@\300\315\"A@\300\316\"A@\300 \317\"A@\300\n\320\"A@\300 \321\"A@\300\f\322\"A@\300 \323\"A@ \211\203\233\211@\324>\203\203\211AA\262\202p\325>A@\203\222\326\262\202p\327\330@\"\210\202p\210\331\332\333\326\326&\207" [plist-member :type (nil js2-FUNCTION) :pos (nil js2-ts-cursor) :len (nil 1) :ftype (nil 'FUNCTION) :form (nil 'FUNCTION_STATEMENT) :name (nil "") :params :rest-p :body :generator-type :async :lp :rp (:type :pos :len :ftype :form :name :params :rest-p :body :generator-type :async :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :ftype :form :name :params :rest-p :body :generator-type :async :lp :rp)" cl--defsubst-expand (type pos len ftype form name params rest-p body generator-type async lp rp) (cl-block make-js2-function-node (record 'js2-function-node type pos len nil nil nil nil nil nil nil nil nil 0 nil nil 0 ftype form name params rest-p body lp rp nil nil generator-type async nil))] 34 (#$ . 519707)]) (put 'make-js2-function-node 'compiler-macro 'make-js2-function-node--cmacro) #@214 Constructor for objects of type `js2-function-node'. (fn &key (TYPE js2-FUNCTION) (POS js2-ts-cursor) LEN (FTYPE \='FUNCTION) (FORM \='FUNCTION_STATEMENT) (NAME "") PARAMS REST-P BODY GENERATOR-TYPE ASYNC LP RP) (defalias 'make-js2-function-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"\206*\311A@\302\312\"\2064\313A@\302\314\"\206?\315A@\302\316\"A@\302\317\"A@\302 \320\"A@\302\n\321\"A@\302 \322\"A@\302\f\323\"A@\302 \324\"A@ \211\203\237\211@\325>\203\207\211AA\262\202t\326>A@\203\226\304\262\202t\327\330@\"\210\202t\210\331\332\304\211\211\211\211\211\211\211\211\333\304\211\333\304\211\304&\207" [js2-FUNCTION js2-ts-cursor plist-member :type nil :pos :len (nil 1) :ftype (nil FUNCTION) :form (nil FUNCTION_STATEMENT) :name (nil "") :params :rest-p :body :generator-type :async :lp :rp (:type :pos :len :ftype :form :name :params :rest-p :body :generator-type :async :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :ftype :form :name :params :rest-p :body :generator-type :async :lp :rp)" record js2-function-node 0] 45 (#$ . 521252)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-function-node side-effect-free t cl-struct-define js2-function-node "AST node for a function declaration.\nThe `params' field is a Lisp list of nodes. Each node is either a simple\n`js2-name-node', or if it's a destructuring-assignment parameter, a\n`js2-array-node' or `js2-object-node'." js2-script-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (functions nil) (regexps nil) (symbols nil) (param-count 0) (var-names nil) (consts nil) (temp-number 0) (ftype) (form) (name) (params) (rest-p) (body) (lp) (rp) (ignore-dynamic) (needs-activation) (generator-type) (async) (member-expr)) cl-struct-js2-function-node-tags js2--struct-put js2-visitor js2-visit-function-node js2-printer js2-print-function-node] 11) #@12 (fn N V) (defalias 'js2-visit-function-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\211\203:\211@\301\"\210A\266\202\202(\210\301\302!>\204K\303\304\305D\"\210\310H\"\207" [cl-struct-js2-function-node-tags js2-visit-ast type-of signal wrong-type-argument js2-function-node 19 20 22] 7 (#$ . 523414)]) #@12 (fn N I) (defalias 'js2-print-function-node #[514 "\303!\304\305\306\307!>\204\310\311\312D\"\210\313H\"A@\206\"\211\266\203\307! >\2044\310\311\314D\"\210\315H\206M\307! >\204J\310\311\314D\"\210\316H\307! >\204]\310\311\314D\"\210\317H\307! >\204q\310\311\314D\"\210\320H\321=\307! >\204\207\310\311\314 D\"\210\322H\307! >\204\234\310\311\314\nD\"\210\323H\307 ! >\204\261\310\311\314 D\"\210\320H\324=?\204c\210\307\n! >\204\322\310\311\314\fD\"\210 \325H\203\334\326c\210\204\343\327c\210\307\n! >\204\364\310\311\314\fD\"\210 \330H\331=\203\332c\210\203 \333c\210\334\335\"\210\336c\210G\305\337:\203E@\262\203,\211U\203,\340c\210\334\335\"\210\211W\203:\341c\210A\262\211T\262\202\266\342c\210\203Q\343c\210\344c\210\211\204[\345c\210\307!\n>\203m\346\nT\"\210\202r\334\335\"\210\347\261\210\211?\205\345c\207" [cl-struct-js2-node-tags cl-struct-js2-function-node-tags cl-struct-js2-block-node-tags js2-make-pad METHOD_TYPE nil assoc type-of signal wrong-type-argument js2-node 4 js2-function-node 19 29 20 18 FUNCTION_ARROW 21 22 FUNCTION_STATEMENT 28 "async " "function" 27 STAR "*" " " js2-print-ast 0 "(" 1 "..." ", " ") " "=> " "{" "\n" js2-print-body "}"] 17 (#$ . 523793)]) #@87 Return function name for NODE, a `js2-function-node', or nil if anonymous. (fn NODE) (defalias 'js2-function-name #[257 "\302!>\204\303\304\305D\"\210\211\306H\205[\302\211!>\204%\303\304\305D\"\210\306H! >\204G\303\304\307\302!>\204A\303\304\305D\"\210\306HD\"\210\302!>\204V\303\304\305D\"\210\211\306H\310H\207" [cl-struct-js2-function-node-tags cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-function-node 19 js2-name-node 6] 8 (#$ . 525096)]) #@76 compiler-macro for inlining `js2-var-decl-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-decl-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-decl-node-p (and (memq (type-of cl-x) cl-struct-js2-var-decl-node-tags) t)) nil] 9 (#$ . 525594)]) (put 'js2-var-decl-node-p 'compiler-macro 'js2-var-decl-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-var-decl-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-var-decl-node-tags type-of t] 3 (#$ . 525972)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-var-decl-node-p side-effect-free error-free put js2-var-decl-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-var-decl-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-decl-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-decl-node-type (or (js2-var-decl-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-decl-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 526276)]) (put 'js2-var-decl-node-type 'compiler-macro 'js2-var-decl-node-type--cmacro) #@198 Access slot "type" of `(js2-var-decl-node (:include js2-node) (:constructor make-js2-var-decl-node (&key (type js2-VAR) (pos (js2-current-token-beg)) len kids decl-type)))' struct CL-X. (fn CL-X) (defalias 'js2-var-decl-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-decl-node 1] 5 (#$ . 526714)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-decl-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-var-decl-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-decl-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-decl-node-pos (or (js2-var-decl-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-decl-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 527214)]) (put 'js2-var-decl-node-pos 'compiler-macro 'js2-var-decl-node-pos--cmacro) #@197 Access slot "pos" of `(js2-var-decl-node (:include js2-node) (:constructor make-js2-var-decl-node (&key (type js2-VAR) (pos (js2-current-token-beg)) len kids decl-type)))' struct CL-X. (fn CL-X) (defalias 'js2-var-decl-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-decl-node 2] 5 (#$ . 527647)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-decl-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-var-decl-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-decl-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-decl-node-len (or (js2-var-decl-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-decl-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 528144)]) (put 'js2-var-decl-node-len 'compiler-macro 'js2-var-decl-node-len--cmacro) #@197 Access slot "len" of `(js2-var-decl-node (:include js2-node) (:constructor make-js2-var-decl-node (&key (type js2-VAR) (pos (js2-current-token-beg)) len kids decl-type)))' struct CL-X. (fn CL-X) (defalias 'js2-var-decl-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-decl-node 3] 5 (#$ . 528577)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-decl-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-var-decl-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-decl-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-decl-node-props (or (js2-var-decl-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-decl-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 529074)]) (put 'js2-var-decl-node-props 'compiler-macro 'js2-var-decl-node-props--cmacro) #@199 Access slot "props" of `(js2-var-decl-node (:include js2-node) (:constructor make-js2-var-decl-node (&key (type js2-VAR) (pos (js2-current-token-beg)) len kids decl-type)))' struct CL-X. (fn CL-X) (defalias 'js2-var-decl-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-decl-node 4] 5 (#$ . 529517)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-decl-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-var-decl-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-decl-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-decl-node-parent (or (js2-var-decl-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-decl-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 530020)]) (put 'js2-var-decl-node-parent 'compiler-macro 'js2-var-decl-node-parent--cmacro) #@200 Access slot "parent" of `(js2-var-decl-node (:include js2-node) (:constructor make-js2-var-decl-node (&key (type js2-VAR) (pos (js2-current-token-beg)) len kids decl-type)))' struct CL-X. (fn CL-X) (defalias 'js2-var-decl-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-decl-node 5] 5 (#$ . 530468)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-decl-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-var-decl-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-decl-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-decl-node-kids (or (js2-var-decl-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-decl-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 530974)]) (put 'js2-var-decl-node-kids 'compiler-macro 'js2-var-decl-node-kids--cmacro) #@198 Access slot "kids" of `(js2-var-decl-node (:include js2-node) (:constructor make-js2-var-decl-node (&key (type js2-VAR) (pos (js2-current-token-beg)) len kids decl-type)))' struct CL-X. (fn CL-X) (defalias 'js2-var-decl-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-decl-node 6] 5 (#$ . 531412)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-decl-node-kids side-effect-free t] 4) #@84 compiler-macro for inlining `js2-var-decl-node-decl-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-decl-node-decl-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-decl-node-decl-type (or (js2-var-decl-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-decl-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 531912)]) (put 'js2-var-decl-node-decl-type 'compiler-macro 'js2-var-decl-node-decl-type--cmacro) #@203 Access slot "decl-type" of `(js2-var-decl-node (:include js2-node) (:constructor make-js2-var-decl-node (&key (type js2-VAR) (pos (js2-current-token-beg)) len kids decl-type)))' struct CL-X. (fn CL-X) (defalias 'js2-var-decl-node-decl-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-decl-node 7] 5 (#$ . 532375)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-var-decl-node-decl-type side-effect-free t defalias copy-js2-var-decl-node copy-sequence] 4) #@149 compiler-macro for inlining `make-js2-var-decl-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-VAR) (POS (js2-current-token-beg)) LEN KIDS DECL-TYPE) (defalias 'make-js2-var-decl-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-VAR) :pos (nil (js2-current-token-beg)) :len (nil 1) :kids :decl-type (:type :pos :len :kids :decl-type :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :kids :decl-type)" cl--defsubst-expand (type pos len kids decl-type) (cl-block make-js2-var-decl-node (record 'js2-var-decl-node type pos len nil nil kids decl-type))] 18 (#$ . 532947)]) (put 'make-js2-var-decl-node 'compiler-macro 'make-js2-var-decl-node--cmacro) #@129 Constructor for objects of type `js2-var-decl-node'. (fn &key (TYPE js2-VAR) (POS (js2-current-token-beg)) LEN KIDS DECL-TYPE) (defalias 'make-js2-var-decl-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\211\203p\211@\321>\203X\211AA\262\202E\322>A@\203g\306\262\202E\323\324@\"\210\202E\210\325\326\306\211&\207" [js2-VAR js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :kids :decl-type (:type :pos :len :kids :decl-type :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :kids :decl-type)" record js2-var-decl-node] 15 (#$ . 533887)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-var-decl-node side-effect-free t cl-struct-define js2-var-decl-node "AST node for a variable declaration list (VAR, CONST or LET).\nThe node bounds differ depending on the declaration type. For VAR or\nCONST declarations, the bounds include the var/const keyword. For LET\ndeclarations, the node begins at the position of the first child." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids) (decl-type)) cl-struct-js2-var-decl-node-tags js2--struct-put js2-visitor js2-visit-var-decl js2-printer js2-print-var-decl] 11) #@12 (fn N V) (defalias 'js2-visit-var-decl #[514 "\301!>\204\302\303\304D\"\210\305H\211\205$\211@\306\"\210A\266\202\202\207" [cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-decl-node 6 js2-visit-ast] 7 (#$ . 535418)]) #@12 (fn N I) (defalias 'js2-print-var-decl #[514 "\304!\305!>\204\306\307\310D\"\210\311Hc\210\211 U\203\"\312\2029\211\nU\203,\313\2029\211 U\2036\314\2029\315\316!c\210\305!>\204K\306\307\310D\"\210\317H\211G\320\321:\203u@\262\322\323\"\210\211W\203j\324c\210A\262\211T\262\202S\320\266\205\207" [cl-struct-js2-var-decl-node-tags js2-VAR js2-LET js2-CONST js2-make-pad type-of signal wrong-type-argument js2-var-decl-node 7 "var " "let " "const " error "malformed var-decl node" 6 nil 1 js2-print-ast 0 ", "] 12 (#$ . 535683)]) #@76 compiler-macro for inlining `js2-var-init-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-init-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-init-node-p (and (memq (type-of cl-x) cl-struct-js2-var-init-node-tags) t)) nil] 9 (#$ . 536250)]) (put 'js2-var-init-node-p 'compiler-macro 'js2-var-init-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-var-init-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-var-init-node-tags type-of t] 3 (#$ . 536628)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-var-init-node-p side-effect-free error-free put js2-var-init-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-var-init-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-init-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-init-node-type (or (js2-var-init-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-init-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 536932)]) (put 'js2-var-init-node-type 'compiler-macro 'js2-var-init-node-type--cmacro) #@192 Access slot "type" of `(js2-var-init-node (:include js2-node) (:constructor make-js2-var-init-node (&key (type js2-VAR) (pos js2-ts-cursor) len target initializer)))' struct CL-X. (fn CL-X) (defalias 'js2-var-init-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-init-node-tags type-of signal wrong-type-argument js2-var-init-node 1] 5 (#$ . 537370)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-init-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-var-init-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-init-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-init-node-pos (or (js2-var-init-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-init-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 537864)]) (put 'js2-var-init-node-pos 'compiler-macro 'js2-var-init-node-pos--cmacro) #@191 Access slot "pos" of `(js2-var-init-node (:include js2-node) (:constructor make-js2-var-init-node (&key (type js2-VAR) (pos js2-ts-cursor) len target initializer)))' struct CL-X. (fn CL-X) (defalias 'js2-var-init-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-init-node-tags type-of signal wrong-type-argument js2-var-init-node 2] 5 (#$ . 538297)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-init-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-var-init-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-init-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-init-node-len (or (js2-var-init-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-init-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 538788)]) (put 'js2-var-init-node-len 'compiler-macro 'js2-var-init-node-len--cmacro) #@191 Access slot "len" of `(js2-var-init-node (:include js2-node) (:constructor make-js2-var-init-node (&key (type js2-VAR) (pos js2-ts-cursor) len target initializer)))' struct CL-X. (fn CL-X) (defalias 'js2-var-init-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-init-node-tags type-of signal wrong-type-argument js2-var-init-node 3] 5 (#$ . 539221)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-init-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-var-init-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-init-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-init-node-props (or (js2-var-init-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-init-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 539712)]) (put 'js2-var-init-node-props 'compiler-macro 'js2-var-init-node-props--cmacro) #@193 Access slot "props" of `(js2-var-init-node (:include js2-node) (:constructor make-js2-var-init-node (&key (type js2-VAR) (pos js2-ts-cursor) len target initializer)))' struct CL-X. (fn CL-X) (defalias 'js2-var-init-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-init-node-tags type-of signal wrong-type-argument js2-var-init-node 4] 5 (#$ . 540155)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-init-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-var-init-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-init-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-init-node-parent (or (js2-var-init-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-init-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 540652)]) (put 'js2-var-init-node-parent 'compiler-macro 'js2-var-init-node-parent--cmacro) #@194 Access slot "parent" of `(js2-var-init-node (:include js2-node) (:constructor make-js2-var-init-node (&key (type js2-VAR) (pos js2-ts-cursor) len target initializer)))' struct CL-X. (fn CL-X) (defalias 'js2-var-init-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-init-node-tags type-of signal wrong-type-argument js2-var-init-node 5] 5 (#$ . 541100)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-init-node-parent side-effect-free t] 4) #@81 compiler-macro for inlining `js2-var-init-node-target'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-init-node-target--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-init-node-target (or (js2-var-init-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-init-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 541600)]) (put 'js2-var-init-node-target 'compiler-macro 'js2-var-init-node-target--cmacro) #@194 Access slot "target" of `(js2-var-init-node (:include js2-node) (:constructor make-js2-var-init-node (&key (type js2-VAR) (pos js2-ts-cursor) len target initializer)))' struct CL-X. (fn CL-X) (defalias 'js2-var-init-node-target #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-init-node-tags type-of signal wrong-type-argument js2-var-init-node 6] 5 (#$ . 542048)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-var-init-node-target side-effect-free t] 4) #@86 compiler-macro for inlining `js2-var-init-node-initializer'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-var-init-node-initializer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-var-init-node-initializer (or (js2-var-init-node-p cl-x) (signal 'wrong-type-argument (list 'js2-var-init-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 542548)]) (put 'js2-var-init-node-initializer 'compiler-macro 'js2-var-init-node-initializer--cmacro) #@199 Access slot "initializer" of `(js2-var-init-node (:include js2-node) (:constructor make-js2-var-init-node (&key (type js2-VAR) (pos js2-ts-cursor) len target initializer)))' struct CL-X. (fn CL-X) (defalias 'js2-var-init-node-initializer #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-var-init-node-tags type-of signal wrong-type-argument js2-var-init-node 7] 5 (#$ . 543021)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-var-init-node-initializer side-effect-free t defalias copy-js2-var-init-node copy-sequence] 4) #@143 compiler-macro for inlining `make-js2-var-init-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-VAR) (POS js2-ts-cursor) LEN TARGET INITIALIZER) (defalias 'make-js2-var-init-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-VAR) :pos (nil js2-ts-cursor) :len (nil 1) :target :initializer (:type :pos :len :target :initializer :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :target :initializer)" cl--defsubst-expand (type pos len target initializer) (cl-block make-js2-var-init-node (record 'js2-var-init-node type pos len nil nil target initializer))] 18 (#$ . 543593)]) (put 'make-js2-var-init-node 'compiler-macro 'make-js2-var-init-node--cmacro) #@123 Constructor for objects of type `js2-var-init-node'. (fn &key (TYPE js2-VAR) (POS js2-ts-cursor) LEN TARGET INITIALIZER) (defalias 'make-js2-var-init-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211&\207" [js2-VAR js2-ts-cursor plist-member :type nil :pos :len (nil 1) :target :initializer (:type :pos :len :target :initializer :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :target :initializer)" record js2-var-init-node] 15 (#$ . 544537)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-var-init-node side-effect-free t cl-struct-define js2-var-init-node "AST node for a variable declaration.\nThe type field will be js2-CONST for a const decl." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (target) (initializer)) cl-struct-js2-var-init-node-tags js2--struct-put js2-visitor js2-visit-var-init-node js2-printer js2-print-var-init-node] 11) #@12 (fn N V) (defalias 'js2-visit-var-init-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-var-init-node-tags js2-visit-ast type-of signal wrong-type-argument js2-var-init-node 6 7] 7 (#$ . 545761)]) #@12 (fn N I) (defalias 'js2-print-var-init-node #[514 "\301!\302!>\204\303\304\305D\"\210\306H\302!>\204%\303\304\305D\"\210\307Hc\210\310\311\"\210\211\205;\312c\210\310\311\"\207" [cl-struct-js2-var-init-node-tags js2-make-pad type-of signal wrong-type-argument js2-var-init-node 6 7 js2-print-ast 0 " = "] 8 (#$ . 546048)]) #@72 compiler-macro for inlining `js2-cond-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-p (and (memq (type-of cl-x) cl-struct-js2-cond-node-tags) t)) nil] 9 (#$ . 546396)]) (put 'js2-cond-node-p 'compiler-macro 'js2-cond-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-cond-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-cond-node-tags type-of t] 3 (#$ . 546750)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-cond-node-p side-effect-free error-free put js2-cond-node cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `js2-cond-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-type (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 547038)]) (put 'js2-cond-node-type 'compiler-macro 'js2-cond-node-type--cmacro) #@209 Access slot "type" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 1] 5 (#$ . 547448)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-type side-effect-free t] 4) #@74 compiler-macro for inlining `js2-cond-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-pos (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 547943)]) (put 'js2-cond-node-pos 'compiler-macro 'js2-cond-node-pos--cmacro) #@208 Access slot "pos" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 2] 5 (#$ . 548348)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-pos side-effect-free t] 4) #@74 compiler-macro for inlining `js2-cond-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-len (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 548840)]) (put 'js2-cond-node-len 'compiler-macro 'js2-cond-node-len--cmacro) #@208 Access slot "len" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 3] 5 (#$ . 549245)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-len side-effect-free t] 4) #@76 compiler-macro for inlining `js2-cond-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-props (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 549737)]) (put 'js2-cond-node-props 'compiler-macro 'js2-cond-node-props--cmacro) #@210 Access slot "props" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 4] 5 (#$ . 550152)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-props side-effect-free t] 4) #@77 compiler-macro for inlining `js2-cond-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-parent (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 550650)]) (put 'js2-cond-node-parent 'compiler-macro 'js2-cond-node-parent--cmacro) #@211 Access slot "parent" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 5] 5 (#$ . 551070)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-parent side-effect-free t] 4) #@80 compiler-macro for inlining `js2-cond-node-test-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-test-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-test-expr (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 551571)]) (put 'js2-cond-node-test-expr 'compiler-macro 'js2-cond-node-test-expr--cmacro) #@214 Access slot "test-expr" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-test-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 6] 5 (#$ . 552006)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-test-expr side-effect-free t] 4) #@80 compiler-macro for inlining `js2-cond-node-true-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-true-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-true-expr (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 552516)]) (put 'js2-cond-node-true-expr 'compiler-macro 'js2-cond-node-true-expr--cmacro) #@214 Access slot "true-expr" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-true-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 7] 5 (#$ . 552951)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-true-expr side-effect-free t] 4) #@81 compiler-macro for inlining `js2-cond-node-false-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-false-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-false-expr (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 553461)]) (put 'js2-cond-node-false-expr 'compiler-macro 'js2-cond-node-false-expr--cmacro) #@215 Access slot "false-expr" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-false-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 8] 5 (#$ . 553901)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-false-expr side-effect-free t] 4) #@76 compiler-macro for inlining `js2-cond-node-q-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-q-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-q-pos (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 554414)]) (put 'js2-cond-node-q-pos 'compiler-macro 'js2-cond-node-q-pos--cmacro) #@210 Access slot "q-pos" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-q-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 9] 5 (#$ . 554829)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-cond-node-q-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-cond-node-c-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-cond-node-c-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-cond-node-c-pos (or (js2-cond-node-p cl-x) (signal 'wrong-type-argument (list 'js2-cond-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 555327)]) (put 'js2-cond-node-c-pos 'compiler-macro 'js2-cond-node-c-pos--cmacro) #@210 Access slot "c-pos" of `(js2-cond-node (:include js2-node) (:constructor make-js2-cond-node (&key (type js2-HOOK) (pos js2-ts-cursor) len test-expr true-expr false-expr q-pos c-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-cond-node-c-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-cond-node-tags type-of signal wrong-type-argument js2-cond-node 10] 5 (#$ . 555743)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-cond-node-c-pos side-effect-free t defalias copy-js2-cond-node copy-sequence] 4) #@164 compiler-macro for inlining `make-js2-cond-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-HOOK) (POS js2-ts-cursor) LEN TEST-EXPR TRUE-EXPR FALSE-EXPR Q-POS C-POS) (defalias 'make-js2-cond-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\211\203l\211@\314>\203T\211AA\262\202A\315\n>A@\203c\316\262\202A\317\320@\"\210\202A\210\321\322\323\316 \316        & \207" [plist-member :type (nil js2-HOOK) :pos (nil js2-ts-cursor) :len (nil 1) :test-expr :true-expr :false-expr :q-pos :c-pos (:type :pos :len :test-expr :true-expr :false-expr :q-pos :c-pos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :test-expr :true-expr :false-expr :q-pos :c-pos)" cl--defsubst-expand (type pos len test-expr true-expr false-expr q-pos c-pos) (cl-block make-js2-cond-node (record 'js2-cond-node type pos len nil nil test-expr true-expr false-expr q-pos c-pos))] 24 (#$ . 556295)]) (put 'make-js2-cond-node 'compiler-macro 'make-js2-cond-node--cmacro) #@144 Constructor for objects of type `js2-cond-node'. (fn &key (TYPE js2-HOOK) (POS js2-ts-cursor) LEN TEST-EXPR TRUE-EXPR FALSE-EXPR Q-POS C-POS) (defalias 'make-js2-cond-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\302\314\"A@\211\203p\211@\315>\203X\211AA\262\202E\316\n>A@\203g\304\262\202E\317\320@\"\210\202E\210\321\322   \304\211     & \207" [js2-HOOK js2-ts-cursor plist-member :type nil :pos :len (nil 1) :test-expr :true-expr :false-expr :q-pos :c-pos (:type :pos :len :test-expr :true-expr :false-expr :q-pos :c-pos :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :test-expr :true-expr :false-expr :q-pos :c-pos)" record js2-cond-node] 21 (#$ . 557413)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-cond-node side-effect-free t cl-struct-define js2-cond-node "AST node for the ternary operator" js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (test-expr) (true-expr) (false-expr) (q-pos) (c-pos)) cl-struct-js2-cond-node-tags js2--struct-put js2-visitor js2-visit-cond-node js2-printer js2-print-cond-node] 11) #@12 (fn N V) (defalias 'js2-visit-cond-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\210\301\302!>\204<\303\304\305D\"\210\310H\"\207" [cl-struct-js2-cond-node-tags js2-visit-ast type-of signal wrong-type-argument js2-cond-node 6 7 8] 7 (#$ . 558737)]) #@12 (fn N I) (defalias 'js2-print-cond-node #[514 "\301!\211c\210\302\303!>\204\304\305\306D\"\210\307H\310\"\210\311c\210\302\303!>\2041\304\305\306D\"\210\312H\310\"\210\313c\210\302\303!>\204K\304\305\306D\"\210\314H\310\"\207" [cl-struct-js2-cond-node-tags js2-make-pad js2-print-ast type-of signal wrong-type-argument js2-cond-node 6 0 " ? " 7 " : " 8] 8 (#$ . 559065)]) #@73 compiler-macro for inlining `js2-infix-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-p (and (memq (type-of cl-x) cl-struct-js2-infix-node-tags) t)) nil] 9 (#$ . 559465)]) (put 'js2-infix-node-p 'compiler-macro 'js2-infix-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-infix-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-infix-node-tags type-of t] 3 (#$ . 559825)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-infix-node-p side-effect-free error-free put js2-infix-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-infix-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-type (or (js2-infix-node-p cl-x) (signal 'wrong-type-argument (list 'js2-infix-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 560117)]) (put 'js2-infix-node-type 'compiler-macro 'js2-infix-node-type--cmacro) #@175 Access slot "type" of `(js2-infix-node (:include js2-node) (:constructor make-js2-infix-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-infix-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-infix-node-tags type-of signal wrong-type-argument js2-infix-node 1] 5 (#$ . 560534)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-infix-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-infix-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-pos (or (js2-infix-node-p cl-x) (signal 'wrong-type-argument (list 'js2-infix-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 560999)]) (put 'js2-infix-node-pos 'compiler-macro 'js2-infix-node-pos--cmacro) #@174 Access slot "pos" of `(js2-infix-node (:include js2-node) (:constructor make-js2-infix-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-infix-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-infix-node-tags type-of signal wrong-type-argument js2-infix-node 2] 5 (#$ . 561411)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-infix-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-infix-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-len (or (js2-infix-node-p cl-x) (signal 'wrong-type-argument (list 'js2-infix-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 561873)]) (put 'js2-infix-node-len 'compiler-macro 'js2-infix-node-len--cmacro) #@174 Access slot "len" of `(js2-infix-node (:include js2-node) (:constructor make-js2-infix-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-infix-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-infix-node-tags type-of signal wrong-type-argument js2-infix-node 3] 5 (#$ . 562285)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-infix-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-infix-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-props (or (js2-infix-node-p cl-x) (signal 'wrong-type-argument (list 'js2-infix-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 562747)]) (put 'js2-infix-node-props 'compiler-macro 'js2-infix-node-props--cmacro) #@176 Access slot "props" of `(js2-infix-node (:include js2-node) (:constructor make-js2-infix-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-infix-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-infix-node-tags type-of signal wrong-type-argument js2-infix-node 4] 5 (#$ . 563169)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-infix-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-infix-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-parent (or (js2-infix-node-p cl-x) (signal 'wrong-type-argument (list 'js2-infix-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 563637)]) (put 'js2-infix-node-parent 'compiler-macro 'js2-infix-node-parent--cmacro) #@177 Access slot "parent" of `(js2-infix-node (:include js2-node) (:constructor make-js2-infix-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-infix-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-infix-node-tags type-of signal wrong-type-argument js2-infix-node 5] 5 (#$ . 564064)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-infix-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `js2-infix-node-op-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-op-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-op-pos (or (js2-infix-node-p cl-x) (signal 'wrong-type-argument (list 'js2-infix-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 564535)]) (put 'js2-infix-node-op-pos 'compiler-macro 'js2-infix-node-op-pos--cmacro) #@177 Access slot "op-pos" of `(js2-infix-node (:include js2-node) (:constructor make-js2-infix-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-infix-node-op-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-infix-node-tags type-of signal wrong-type-argument js2-infix-node 6] 5 (#$ . 564962)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-infix-node-op-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-infix-node-left'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-left--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-left (or (js2-infix-node-p cl-x) (signal 'wrong-type-argument (list 'js2-infix-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 565433)]) (put 'js2-infix-node-left 'compiler-macro 'js2-infix-node-left--cmacro) #@175 Access slot "left" of `(js2-infix-node (:include js2-node) (:constructor make-js2-infix-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-infix-node-left #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-infix-node-tags type-of signal wrong-type-argument js2-infix-node 7] 5 (#$ . 565850)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-infix-node-left side-effect-free t] 4) #@77 compiler-macro for inlining `js2-infix-node-right'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-infix-node-right--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-infix-node-right (or (js2-infix-node-p cl-x) (signal 'wrong-type-argument (list 'js2-infix-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 566315)]) (put 'js2-infix-node-right 'compiler-macro 'js2-infix-node-right--cmacro) #@176 Access slot "right" of `(js2-infix-node (:include js2-node) (:constructor make-js2-infix-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-infix-node-right #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-infix-node-tags type-of signal wrong-type-argument js2-infix-node 8] 5 (#$ . 566737)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-infix-node-right side-effect-free t defalias copy-js2-infix-node copy-sequence] 4) #@129 compiler-macro for inlining `make-js2-infix-node'. (fn CL-WHOLE &cl-quote &key TYPE (POS js2-ts-cursor) LEN OP-POS LEFT RIGHT) (defalias 'make-js2-infix-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\211\203^\211@\312>\203F\211AA\262\2023\313>A@\203U\314\262\2023\315\316@\"\210\2023\210\317\320\321\314 \314      & \207" [plist-member :type (nil -1) :pos (nil js2-ts-cursor) :len (nil 1) :op-pos :left :right (:type :pos :len :op-pos :left :right :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :op-pos :left :right)" cl--defsubst-expand (type pos len op-pos left right) (cl-block make-js2-infix-node (record 'js2-infix-node type pos len nil nil op-pos left right))] 20 (#$ . 567259)]) (put 'make-js2-infix-node 'compiler-macro 'make-js2-infix-node--cmacro) #@109 Constructor for objects of type `js2-infix-node'. (fn &key TYPE (POS js2-ts-cursor) LEN OP-POS LEFT RIGHT) (defalias 'make-js2-infix-node #[128 "\301\302\"\206\303A@\301\304\"\206\305DA@\301\306\"\206\307A@\301\310\"A@\301\311\"A@\301\312\"A@\211\203`\211@\313>\203H\211AA\262\2025\314>A@\203W\305\262\2025\315\316@\"\210\2025\210\317\320\305\211   & \207" [js2-ts-cursor plist-member :type (nil -1) :pos nil :len (nil 1) :op-pos :left :right (:type :pos :len :op-pos :left :right :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :op-pos :left :right)" record js2-infix-node] 17 (#$ . 568177)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-infix-node side-effect-free t cl-struct-define js2-infix-node "Represents infix expressions.\nIncludes assignment ops like `|=', and the comma operator.\nThe type field inherited from `js2-node' holds the operator." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (op-pos) (left) (right)) cl-struct-js2-infix-node-tags js2--struct-put js2-visitor js2-visit-infix-node js2-printer js2-print-infix-node] 11) #@12 (fn N V) (defalias 'js2-visit-infix-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-infix-node-tags js2-visit-ast type-of signal wrong-type-argument js2-infix-node 7 8] 7 (#$ . 569445)]) (defconst js2-operator-tokens (byte-code "\306\307\310\"\311B \312B\n\313B \314B\f\315B \316B?\317B@\320BA\321BB\322BC\323BD\324BE\325BF\326BG\327BH\330BI\331BJ\332BK\333BL\334BM\335BN\336BO\337BP\340BQ\341BR\342BS\343BT\344BU\345BV\346BW\347BX\350BY\351BZ\342B[\343B\\\352B]\353B^\354B_\355B`\356Ba\357Bb\360Bc\361Bd\362Be\363Bf\364Bg\365Bh\366Bi\367Bj\370Bk\371Bl\372Bm\373Bn\374B\2576\211\375\211:\203\372@\262\211A\262\242\262\376#\210A\262\202\333\266\207" [js2-IN js2-TYPEOF js2-INSTANCEOF js2-DELPROP js2-AWAIT js2-VOID make-hash-table :test eq "in" "typeof" "instanceof" "delete" "await" "void" "," ":" "||" "&&" "??" "++" "--" "|" "^" "&" "==" "!=" "<" "<=" ">" ">=" "<<" ">>" ">>>" "+" "-" "*" "**" "/" "%" "!" "~" "..." "===" "!==" "=" "|=" "^=" "&=" "<<=" ">>=" ">>>=" "+=" "-=" "*=" "**=" "/=" "%=" "&&=" "||=" "??=" nil puthash js2-COMMA js2-COLON js2-OR js2-AND js2-NULLISH-COALESCING js2-INC js2-DEC js2-BITOR js2-BITXOR js2-BITAND js2-EQ js2-NE js2-LT js2-LE js2-GT js2-GE js2-LSH js2-RSH js2-URSH js2-ADD js2-SUB js2-MUL js2-EXPON js2-DIV js2-MOD js2-NOT js2-BITNOT js2-POS js2-NEG js2-TRIPLEDOT js2-SHEQ js2-SHNE js2-ASSIGN js2-ASSIGN_BITOR js2-ASSIGN_BITXOR js2-ASSIGN_BITAND js2-ASSIGN_LSH js2-ASSIGN_RSH js2-ASSIGN_URSH js2-ASSIGN_ADD js2-ASSIGN_SUB js2-ASSIGN_MUL js2-ASSIGN_EXPON js2-ASSIGN_DIV js2-ASSIGN_MOD js2-ASSIGN_AND js2-ASSIGN_OR js2-ASSIGN_NULLISH] 56)) #@12 (fn N I) (defalias 'js2-print-infix-node #[514 "\304!>\204\305\306\307D\"\210\310H\311 \"\211\2042\312\313\304!>\204-\305\306\307D\"\210\310H\"\210\314!c\210\315\304!\n>\204H\305\306\316D\"\210\317H\320\"\210 U\204W\321c\210\211c\210\321c\210\315\304!\n>\204n\305\306\316D\"\210\322H\320\"\207" [cl-struct-js2-node-tags js2-operator-tokens cl-struct-js2-infix-node-tags js2-COMMA type-of signal wrong-type-argument js2-node 1 gethash error "unrecognized infix operator %s" js2-make-pad js2-print-ast js2-infix-node 7 0 " " 8] 10 (#$ . 571176)]) #@74 compiler-macro for inlining `js2-assign-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-p (and (memq (type-of cl-x) cl-struct-js2-assign-node-tags) t)) nil] 9 (#$ . 571757)]) (put 'js2-assign-node-p 'compiler-macro 'js2-assign-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-assign-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-assign-node-tags type-of t] 3 (#$ . 572123)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-assign-node-p side-effect-free error-free put js2-assign-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-assign-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-type (or (js2-assign-node-p cl-x) (signal 'wrong-type-argument (list 'js2-assign-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 572419)]) (put 'js2-assign-node-type 'compiler-macro 'js2-assign-node-type--cmacro) #@183 Access slot "type" of `(js2-assign-node (:include js2-infix-node) (:constructor make-js2-assign-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-assign-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-assign-node-tags type-of signal wrong-type-argument js2-assign-node 1] 5 (#$ . 572843)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-assign-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-assign-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-pos (or (js2-assign-node-p cl-x) (signal 'wrong-type-argument (list 'js2-assign-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 573320)]) (put 'js2-assign-node-pos 'compiler-macro 'js2-assign-node-pos--cmacro) #@182 Access slot "pos" of `(js2-assign-node (:include js2-infix-node) (:constructor make-js2-assign-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-assign-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-assign-node-tags type-of signal wrong-type-argument js2-assign-node 2] 5 (#$ . 573739)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-assign-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-assign-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-len (or (js2-assign-node-p cl-x) (signal 'wrong-type-argument (list 'js2-assign-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 574213)]) (put 'js2-assign-node-len 'compiler-macro 'js2-assign-node-len--cmacro) #@182 Access slot "len" of `(js2-assign-node (:include js2-infix-node) (:constructor make-js2-assign-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-assign-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-assign-node-tags type-of signal wrong-type-argument js2-assign-node 3] 5 (#$ . 574632)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-assign-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-assign-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-props (or (js2-assign-node-p cl-x) (signal 'wrong-type-argument (list 'js2-assign-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 575106)]) (put 'js2-assign-node-props 'compiler-macro 'js2-assign-node-props--cmacro) #@184 Access slot "props" of `(js2-assign-node (:include js2-infix-node) (:constructor make-js2-assign-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-assign-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-assign-node-tags type-of signal wrong-type-argument js2-assign-node 4] 5 (#$ . 575535)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-assign-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-assign-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-parent (or (js2-assign-node-p cl-x) (signal 'wrong-type-argument (list 'js2-assign-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 576015)]) (put 'js2-assign-node-parent 'compiler-macro 'js2-assign-node-parent--cmacro) #@185 Access slot "parent" of `(js2-assign-node (:include js2-infix-node) (:constructor make-js2-assign-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-assign-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-assign-node-tags type-of signal wrong-type-argument js2-assign-node 5] 5 (#$ . 576449)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-assign-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-assign-node-op-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-op-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-op-pos (or (js2-assign-node-p cl-x) (signal 'wrong-type-argument (list 'js2-assign-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 576932)]) (put 'js2-assign-node-op-pos 'compiler-macro 'js2-assign-node-op-pos--cmacro) #@185 Access slot "op-pos" of `(js2-assign-node (:include js2-infix-node) (:constructor make-js2-assign-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-assign-node-op-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-assign-node-tags type-of signal wrong-type-argument js2-assign-node 6] 5 (#$ . 577366)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-assign-node-op-pos side-effect-free t] 4) #@77 compiler-macro for inlining `js2-assign-node-left'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-left--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-left (or (js2-assign-node-p cl-x) (signal 'wrong-type-argument (list 'js2-assign-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 577849)]) (put 'js2-assign-node-left 'compiler-macro 'js2-assign-node-left--cmacro) #@183 Access slot "left" of `(js2-assign-node (:include js2-infix-node) (:constructor make-js2-assign-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-assign-node-left #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-assign-node-tags type-of signal wrong-type-argument js2-assign-node 7] 5 (#$ . 578273)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-assign-node-left side-effect-free t] 4) #@78 compiler-macro for inlining `js2-assign-node-right'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-assign-node-right--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-assign-node-right (or (js2-assign-node-p cl-x) (signal 'wrong-type-argument (list 'js2-assign-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 578750)]) (put 'js2-assign-node-right 'compiler-macro 'js2-assign-node-right--cmacro) #@184 Access slot "right" of `(js2-assign-node (:include js2-infix-node) (:constructor make-js2-assign-node (&key type (pos js2-ts-cursor) len op-pos left right)))' struct CL-X. (fn CL-X) (defalias 'js2-assign-node-right #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-assign-node-tags type-of signal wrong-type-argument js2-assign-node 8] 5 (#$ . 579179)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-assign-node-right side-effect-free t defalias copy-js2-assign-node copy-sequence] 4) #@130 compiler-macro for inlining `make-js2-assign-node'. (fn CL-WHOLE &cl-quote &key TYPE (POS js2-ts-cursor) LEN OP-POS LEFT RIGHT) (defalias 'make-js2-assign-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\211\203^\211@\312>\203F\211AA\262\2023\313>A@\203U\314\262\2023\315\316@\"\210\2023\210\317\320\321\314 \314      & \207" [plist-member :type (nil -1) :pos (nil js2-ts-cursor) :len (nil 1) :op-pos :left :right (:type :pos :len :op-pos :left :right :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :op-pos :left :right)" cl--defsubst-expand (type pos len op-pos left right) (cl-block make-js2-assign-node (record 'js2-assign-node type pos len nil nil op-pos left right))] 20 (#$ . 579714)]) (put 'make-js2-assign-node 'compiler-macro 'make-js2-assign-node--cmacro) #@110 Constructor for objects of type `js2-assign-node'. (fn &key TYPE (POS js2-ts-cursor) LEN OP-POS LEFT RIGHT) (defalias 'make-js2-assign-node #[128 "\301\302\"\206\303A@\301\304\"\206\305DA@\301\306\"\206\307A@\301\310\"A@\301\311\"A@\301\312\"A@\211\203`\211@\313>\203H\211AA\262\2025\314>A@\203W\305\262\2025\315\316@\"\210\2025\210\317\320\305\211   & \207" [js2-ts-cursor plist-member :type (nil -1) :pos nil :len (nil 1) :op-pos :left :right (:type :pos :len :op-pos :left :right :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :op-pos :left :right)" record js2-assign-node] 17 (#$ . 580638)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-assign-node side-effect-free t cl-struct-define js2-assign-node "Represents any assignment.\nThe type field holds the actual assignment operator." js2-infix-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (op-pos nil) (left nil) (right nil)) cl-struct-js2-assign-node-tags js2--struct-put js2-visitor js2-visit-infix-node js2-printer js2-print-infix-node] 11) #@73 compiler-macro for inlining `js2-unary-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-unary-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-unary-node-p (and (memq (type-of cl-x) cl-struct-js2-unary-node-tags) t)) nil] 9 (#$ . 581859)]) (put 'js2-unary-node-p 'compiler-macro 'js2-unary-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-unary-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-unary-node-tags type-of t] 3 (#$ . 582219)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-unary-node-p side-effect-free error-free put js2-unary-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-unary-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-unary-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-unary-node-type (or (js2-unary-node-p cl-x) (signal 'wrong-type-argument (list 'js2-unary-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 582511)]) (put 'js2-unary-node-type 'compiler-macro 'js2-unary-node-type--cmacro) #@165 Access slot "type" of `(js2-unary-node (:include js2-node) (:constructor make-js2-unary-node (&key type (pos js2-ts-cursor) len operand)))' struct CL-X. (fn CL-X) (defalias 'js2-unary-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-unary-node-tags type-of signal wrong-type-argument js2-unary-node 1] 5 (#$ . 582928)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-unary-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-unary-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-unary-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-unary-node-pos (or (js2-unary-node-p cl-x) (signal 'wrong-type-argument (list 'js2-unary-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 583383)]) (put 'js2-unary-node-pos 'compiler-macro 'js2-unary-node-pos--cmacro) #@164 Access slot "pos" of `(js2-unary-node (:include js2-node) (:constructor make-js2-unary-node (&key type (pos js2-ts-cursor) len operand)))' struct CL-X. (fn CL-X) (defalias 'js2-unary-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-unary-node-tags type-of signal wrong-type-argument js2-unary-node 2] 5 (#$ . 583795)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-unary-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-unary-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-unary-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-unary-node-len (or (js2-unary-node-p cl-x) (signal 'wrong-type-argument (list 'js2-unary-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 584247)]) (put 'js2-unary-node-len 'compiler-macro 'js2-unary-node-len--cmacro) #@164 Access slot "len" of `(js2-unary-node (:include js2-node) (:constructor make-js2-unary-node (&key type (pos js2-ts-cursor) len operand)))' struct CL-X. (fn CL-X) (defalias 'js2-unary-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-unary-node-tags type-of signal wrong-type-argument js2-unary-node 3] 5 (#$ . 584659)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-unary-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-unary-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-unary-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-unary-node-props (or (js2-unary-node-p cl-x) (signal 'wrong-type-argument (list 'js2-unary-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 585111)]) (put 'js2-unary-node-props 'compiler-macro 'js2-unary-node-props--cmacro) #@166 Access slot "props" of `(js2-unary-node (:include js2-node) (:constructor make-js2-unary-node (&key type (pos js2-ts-cursor) len operand)))' struct CL-X. (fn CL-X) (defalias 'js2-unary-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-unary-node-tags type-of signal wrong-type-argument js2-unary-node 4] 5 (#$ . 585533)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-unary-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-unary-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-unary-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-unary-node-parent (or (js2-unary-node-p cl-x) (signal 'wrong-type-argument (list 'js2-unary-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 585991)]) (put 'js2-unary-node-parent 'compiler-macro 'js2-unary-node-parent--cmacro) #@167 Access slot "parent" of `(js2-unary-node (:include js2-node) (:constructor make-js2-unary-node (&key type (pos js2-ts-cursor) len operand)))' struct CL-X. (fn CL-X) (defalias 'js2-unary-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-unary-node-tags type-of signal wrong-type-argument js2-unary-node 5] 5 (#$ . 586418)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-unary-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-unary-node-operand'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-unary-node-operand--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-unary-node-operand (or (js2-unary-node-p cl-x) (signal 'wrong-type-argument (list 'js2-unary-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 586879)]) (put 'js2-unary-node-operand 'compiler-macro 'js2-unary-node-operand--cmacro) #@168 Access slot "operand" of `(js2-unary-node (:include js2-node) (:constructor make-js2-unary-node (&key type (pos js2-ts-cursor) len operand)))' struct CL-X. (fn CL-X) (defalias 'js2-unary-node-operand #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-unary-node-tags type-of signal wrong-type-argument js2-unary-node 6] 5 (#$ . 587311)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-unary-node-operand side-effect-free t defalias copy-js2-unary-node copy-sequence] 4) #@119 compiler-macro for inlining `make-js2-unary-node'. (fn CL-WHOLE &cl-quote &key TYPE (POS js2-ts-cursor) LEN OPERAND) (defalias 'make-js2-unary-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil -1) :pos (nil js2-ts-cursor) :len (nil 1) :operand (:type :pos :len :operand :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :operand)" cl--defsubst-expand (type pos len operand) (cl-block make-js2-unary-node (record 'js2-unary-node type pos len nil nil operand))] 16 (#$ . 587829)]) (put 'make-js2-unary-node 'compiler-macro 'make-js2-unary-node--cmacro) #@99 Constructor for objects of type `js2-unary-node'. (fn &key TYPE (POS js2-ts-cursor) LEN OPERAND) (defalias 'make-js2-unary-node #[128 "\301\302\"\206\303A@\301\304\"\206\305DA@\301\306\"\206\307A@\301\310\"A@\211\203R\211@\311>\203:\211AA\262\202'\312>A@\203I\305\262\202'\313\314@\"\210\202'\210\315\316\305\211&\207" [js2-ts-cursor plist-member :type (nil -1) :pos nil :len (nil 1) :operand (:type :pos :len :operand :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :operand)" record js2-unary-node] 13 (#$ . 588648)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-unary-node side-effect-free t cl-struct-define js2-unary-node "AST node type for unary operator nodes.\nThe type field can be NOT, BITNOT, POS, NEG, INC, DEC,\nTYPEOF, DELPROP, TRIPLEDOT or AWAIT. For INC or DEC, a 'postfix node\nproperty is added if the operator follows the operand." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (operand)) cl-struct-js2-unary-node-tags js2--struct-put js2-visitor js2-visit-unary-node js2-printer js2-print-unary-node] 11) #@12 (fn N V) (defalias 'js2-visit-unary-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-unary-node-tags js2-visit-ast type-of signal wrong-type-argument js2-unary-node 6] 7 (#$ . 589892)]) #@12 (fn N I) (defalias 'js2-print-unary-node #[514 "\306!>\204\307\310\311D\"\210\312H\313 \"\314\315\316\306!>\204+\307\310\311D\"\210\317H\"A@\2065\211\266\203\204@\320\321\"\210\322!c\210\211\204Lc\210\nU\204d U\204d\fU\204d U\203g\323c\210\324\306!>\204z\307\310\325D\"\210\326H\327\"\210\211\205\206c\207" [cl-struct-js2-node-tags js2-operator-tokens js2-TYPEOF js2-DELPROP js2-AWAIT js2-VOID type-of signal wrong-type-argument js2-node 1 gethash postfix nil assoc 4 error "unrecognized unary operator %s" js2-make-pad " " js2-print-ast js2-unary-node 6 0 cl-struct-js2-unary-node-tags] 13 (#$ . 590117)]) #@71 compiler-macro for inlining `js2-let-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-p (and (memq (type-of cl-x) cl-struct-js2-let-node-tags) t)) nil] 9 (#$ . 590772)]) (put 'js2-let-node-p 'compiler-macro 'js2-let-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-let-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-let-node-tags type-of t] 3 (#$ . 591120)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-let-node-p side-effect-free error-free put js2-let-node cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `js2-let-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-type (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 591404)]) (put 'js2-let-node-type 'compiler-macro 'js2-let-node-type--cmacro) #@194 Access slot "type" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 1] 5 (#$ . 591807)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-type side-effect-free t] 4) #@73 compiler-macro for inlining `js2-let-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-pos (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 592283)]) (put 'js2-let-node-pos 'compiler-macro 'js2-let-node-pos--cmacro) #@193 Access slot "pos" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 2] 5 (#$ . 592681)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-pos side-effect-free t] 4) #@73 compiler-macro for inlining `js2-let-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-len (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 593154)]) (put 'js2-let-node-len 'compiler-macro 'js2-let-node-len--cmacro) #@193 Access slot "len" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 3] 5 (#$ . 593552)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-len side-effect-free t] 4) #@75 compiler-macro for inlining `js2-let-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-props (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 594025)]) (put 'js2-let-node-props 'compiler-macro 'js2-let-node-props--cmacro) #@195 Access slot "props" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 4] 5 (#$ . 594433)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-props side-effect-free t] 4) #@76 compiler-macro for inlining `js2-let-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-parent (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 594912)]) (put 'js2-let-node-parent 'compiler-macro 'js2-let-node-parent--cmacro) #@196 Access slot "parent" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 5] 5 (#$ . 595325)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-parent side-effect-free t] 4) #@74 compiler-macro for inlining `js2-let-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-kids (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 595807)]) (put 'js2-let-node-kids 'compiler-macro 'js2-let-node-kids--cmacro) #@194 Access slot "kids" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 6] 5 (#$ . 596210)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-kids side-effect-free t] 4) #@82 compiler-macro for inlining `js2-let-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-symbol-table (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 596686)]) (put 'js2-let-node-symbol-table 'compiler-macro 'js2-let-node-symbol-table--cmacro) #@202 Access slot "symbol-table" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 7] 5 (#$ . 597129)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-symbol-table side-effect-free t] 4) #@82 compiler-macro for inlining `js2-let-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-parent-scope (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 597629)]) (put 'js2-let-node-parent-scope 'compiler-macro 'js2-let-node-parent-scope--cmacro) #@202 Access slot "parent-scope" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 8] 5 (#$ . 598072)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-parent-scope side-effect-free t] 4) #@73 compiler-macro for inlining `js2-let-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-top (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 598572)]) (put 'js2-let-node-top 'compiler-macro 'js2-let-node-top--cmacro) #@193 Access slot "top" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 9] 5 (#$ . 598970)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-top side-effect-free t] 4) #@74 compiler-macro for inlining `js2-let-node-vars'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-vars--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-vars (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 599443)]) (put 'js2-let-node-vars 'compiler-macro 'js2-let-node-vars--cmacro) #@194 Access slot "vars" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-vars #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 10] 5 (#$ . 599847)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-vars side-effect-free t] 4) #@74 compiler-macro for inlining `js2-let-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-body (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 600324)]) (put 'js2-let-node-body 'compiler-macro 'js2-let-node-body--cmacro) #@194 Access slot "body" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 11] 5 (#$ . 600728)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-body side-effect-free t] 4) #@72 compiler-macro for inlining `js2-let-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-lp (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 601205)]) (put 'js2-let-node-lp 'compiler-macro 'js2-let-node-lp--cmacro) #@192 Access slot "lp" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 12] 5 (#$ . 601599)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-let-node-lp side-effect-free t] 4) #@72 compiler-macro for inlining `js2-let-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-let-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-let-node-rp (or (js2-let-node-p cl-x) (signal 'wrong-type-argument (list 'js2-let-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 602070)]) (put 'js2-let-node-rp 'compiler-macro 'js2-let-node-rp--cmacro) #@192 Access slot "rp" of `(js2-let-node (:include js2-scope) (:constructor make-js2-let-node (&key (type js2-LETEXPR) (pos (js2-current-token-beg)) len vars body lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-let-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-let-node-tags type-of signal wrong-type-argument js2-let-node 13] 5 (#$ . 602464)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-let-node-rp side-effect-free t defalias copy-js2-let-node copy-sequence] 4) #@149 compiler-macro for inlining `make-js2-let-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-LETEXPR) (POS (js2-current-token-beg)) LEN VARS BODY LP RP) (defalias 'make-js2-let-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-LETEXPR) :pos (nil (js2-current-token-beg)) :len (nil 1) :vars :body :lp :rp (:type :pos :len :vars :body :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :vars :body :lp :rp)" cl--defsubst-expand (type pos len vars body lp rp) (cl-block make-js2-let-node (record 'js2-let-node type pos len nil nil nil nil nil nil vars body lp rp))] 22 (#$ . 602987)]) (put 'make-js2-let-node 'compiler-macro 'make-js2-let-node--cmacro) #@129 Constructor for objects of type `js2-let-node'. (fn &key (TYPE js2-LETEXPR) (POS (js2-current-token-beg)) LEN VARS BODY LP RP) (defalias 'make-js2-let-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\304\321\"A@\304\322\"A@\211\203\211@\323>\203g\211AA\262\202T\324 >A@\203v\306\262\202T\325\326@\"\210\202T\210\327\330\306\211\211\211\211\211&\207" [js2-LETEXPR js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :vars :body :lp :rp (:type :pos :len :vars :body :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :vars :body :lp :rp)" record js2-let-node] 23 (#$ . 603969)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-let-node side-effect-free t cl-struct-define js2-let-node "AST node for a let expression or a let statement.\nNote that a let declaration such as let x=6, y=7 is a `js2-var-decl-node'." js2-scope record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (vars) (body) (lp) (rp)) cl-struct-js2-let-node-tags js2--struct-put js2-visitor js2-visit-let-node js2-printer js2-print-let-node] 11) #@12 (fn N V) (defalias 'js2-visit-let-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-let-node-tags js2-visit-ast type-of signal wrong-type-argument js2-let-node 10 11] 7 (#$ . 605456)]) #@12 (fn N I) (defalias 'js2-print-let-node #[514 "\301!\302\261\210`\303\304!>\204\305\306\307D\"\210\310H\311\"\210\211\312\\|\266\313c\210\303\304!>\2049\305\306\307D\"\210\314H\"\207" [cl-struct-js2-let-node-tags js2-make-pad "let (" js2-print-ast type-of signal wrong-type-argument js2-let-node 10 0 4 ") " 11] 8 (#$ . 605730)]) #@75 compiler-macro for inlining `js2-keyword-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-keyword-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-keyword-node-p (and (memq (type-of cl-x) cl-struct-js2-keyword-node-tags) t)) nil] 9 (#$ . 606084)]) (put 'js2-keyword-node-p 'compiler-macro 'js2-keyword-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-keyword-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-keyword-node-tags type-of t] 3 (#$ . 606456)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-keyword-node-p side-effect-free error-free put js2-keyword-node cl-deftype-satisfies] 5) #@78 compiler-macro for inlining `js2-keyword-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-keyword-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-keyword-node-type (or (js2-keyword-node-p cl-x) (signal 'wrong-type-argument (list 'js2-keyword-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 606756)]) (put 'js2-keyword-node-type 'compiler-macro 'js2-keyword-node-type--cmacro) #@195 Access slot "type" of `(js2-keyword-node (:include js2-node) (:constructor make-js2-keyword-node (&key type (pos (js2-current-token-beg)) (len (- js2-ts-cursor pos)))))' struct CL-X. (fn CL-X) (defalias 'js2-keyword-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-keyword-node-tags type-of signal wrong-type-argument js2-keyword-node 1] 5 (#$ . 607187)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-keyword-node-type side-effect-free t] 4) #@77 compiler-macro for inlining `js2-keyword-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-keyword-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-keyword-node-pos (or (js2-keyword-node-p cl-x) (signal 'wrong-type-argument (list 'js2-keyword-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 607680)]) (put 'js2-keyword-node-pos 'compiler-macro 'js2-keyword-node-pos--cmacro) #@194 Access slot "pos" of `(js2-keyword-node (:include js2-node) (:constructor make-js2-keyword-node (&key type (pos (js2-current-token-beg)) (len (- js2-ts-cursor pos)))))' struct CL-X. (fn CL-X) (defalias 'js2-keyword-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-keyword-node-tags type-of signal wrong-type-argument js2-keyword-node 2] 5 (#$ . 608106)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-keyword-node-pos side-effect-free t] 4) #@77 compiler-macro for inlining `js2-keyword-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-keyword-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-keyword-node-len (or (js2-keyword-node-p cl-x) (signal 'wrong-type-argument (list 'js2-keyword-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 608596)]) (put 'js2-keyword-node-len 'compiler-macro 'js2-keyword-node-len--cmacro) #@194 Access slot "len" of `(js2-keyword-node (:include js2-node) (:constructor make-js2-keyword-node (&key type (pos (js2-current-token-beg)) (len (- js2-ts-cursor pos)))))' struct CL-X. (fn CL-X) (defalias 'js2-keyword-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-keyword-node-tags type-of signal wrong-type-argument js2-keyword-node 3] 5 (#$ . 609022)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-keyword-node-len side-effect-free t] 4) #@79 compiler-macro for inlining `js2-keyword-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-keyword-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-keyword-node-props (or (js2-keyword-node-p cl-x) (signal 'wrong-type-argument (list 'js2-keyword-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 609512)]) (put 'js2-keyword-node-props 'compiler-macro 'js2-keyword-node-props--cmacro) #@196 Access slot "props" of `(js2-keyword-node (:include js2-node) (:constructor make-js2-keyword-node (&key type (pos (js2-current-token-beg)) (len (- js2-ts-cursor pos)))))' struct CL-X. (fn CL-X) (defalias 'js2-keyword-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-keyword-node-tags type-of signal wrong-type-argument js2-keyword-node 4] 5 (#$ . 609948)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-keyword-node-props side-effect-free t] 4) #@80 compiler-macro for inlining `js2-keyword-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-keyword-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-keyword-node-parent (or (js2-keyword-node-p cl-x) (signal 'wrong-type-argument (list 'js2-keyword-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 610444)]) (put 'js2-keyword-node-parent 'compiler-macro 'js2-keyword-node-parent--cmacro) #@197 Access slot "parent" of `(js2-keyword-node (:include js2-node) (:constructor make-js2-keyword-node (&key type (pos (js2-current-token-beg)) (len (- js2-ts-cursor pos)))))' struct CL-X. (fn CL-X) (defalias 'js2-keyword-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-keyword-node-tags type-of signal wrong-type-argument js2-keyword-node 5] 5 (#$ . 610885)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-keyword-node-parent side-effect-free t defalias copy-js2-keyword-node copy-sequence] 4) #@127 Constructor for objects of type `js2-keyword-node'. (fn &key TYPE (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor pos))) (defalias 'make-js2-keyword-node #[128 "\304\305\"\206\306A@\304\307\"\206*\310 H\311!\n>\204$\312\313\314D\"\210\211\315H\262DA@\304\316\"\2068\310 ZDA@\211\203e\211@\317>\203N\211AA\262\202;\320>A@\203\\\310\262\202;\321\322@\"\210\202;\210\323\324\310\211&\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor plist-member :type (nil -1) :pos nil type-of signal wrong-type-argument js2-token 2 :len (:type :pos :len :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len)" record js2-keyword-node] 11 (#$ . 611440)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-keyword-node side-effect-free t cl-struct-define js2-keyword-node "AST node representing a literal keyword such as `null'.\nUsed for `null', `this', `true', `false' and `debugger'.\nThe node type is set to js2-NULL, js2-THIS, etc." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil)) cl-struct-js2-keyword-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-keyword-node] 11) #@12 (fn N I) (defalias 'js2-print-keyword-node #[514 "\306!\307!>\204\310\311\312D\"\210\313H\211 U\203\314\202V\211\nU\203)\315\202V\211 U\2033\316\202V\211\fU\203=\317\202V\211 U\203G\320\202V\211U\203R\321\202V\322\323\"\262\261\207" [cl-struct-js2-node-tags js2-THIS js2-SUPER js2-NULL js2-TRUE js2-FALSE js2-make-pad type-of signal wrong-type-argument js2-node 1 "this" "super" "null" "true" "false" "debugger" error "Invalid keyword literal type: %d" js2-DEBUGGER] 7 (#$ . 612761)]) #@84 Return t if NODE is a `js2-literal-node' of type js2-THIS or js2-SUPER. (fn NODE) (defalias 'js2-this-or-super-node-p #[257 "\303!>\204\304\305\306D\"\210\211\307H\211 =\206\211\n=\207" [cl-struct-js2-node-tags js2-THIS js2-SUPER type-of signal wrong-type-argument js2-node 1] 5 (#$ . 613279)]) (put 'js2-this-or-super-node-p 'byte-optimizer 'byte-compile-inline-expand) #@71 compiler-macro for inlining `js2-new-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-p (and (memq (type-of cl-x) cl-struct-js2-new-node-tags) t)) nil] 9 (#$ . 613664)]) (put 'js2-new-node-p 'compiler-macro 'js2-new-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-new-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-new-node-tags type-of t] 3 (#$ . 614012)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-new-node-p side-effect-free error-free put js2-new-node cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `js2-new-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-type (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 614296)]) (put 'js2-new-node-type 'compiler-macro 'js2-new-node-type--cmacro) #@203 Access slot "type" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 1] 5 (#$ . 614699)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-type side-effect-free t] 4) #@73 compiler-macro for inlining `js2-new-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-pos (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 615184)]) (put 'js2-new-node-pos 'compiler-macro 'js2-new-node-pos--cmacro) #@202 Access slot "pos" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 2] 5 (#$ . 615582)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-pos side-effect-free t] 4) #@73 compiler-macro for inlining `js2-new-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-len (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 616064)]) (put 'js2-new-node-len 'compiler-macro 'js2-new-node-len--cmacro) #@202 Access slot "len" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 3] 5 (#$ . 616462)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-len side-effect-free t] 4) #@75 compiler-macro for inlining `js2-new-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-props (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 616944)]) (put 'js2-new-node-props 'compiler-macro 'js2-new-node-props--cmacro) #@204 Access slot "props" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 4] 5 (#$ . 617352)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-props side-effect-free t] 4) #@76 compiler-macro for inlining `js2-new-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-parent (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 617840)]) (put 'js2-new-node-parent 'compiler-macro 'js2-new-node-parent--cmacro) #@205 Access slot "parent" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 5] 5 (#$ . 618253)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-parent side-effect-free t] 4) #@76 compiler-macro for inlining `js2-new-node-target'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-target--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-target (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 618744)]) (put 'js2-new-node-target 'compiler-macro 'js2-new-node-target--cmacro) #@205 Access slot "target" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-target #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 6] 5 (#$ . 619157)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-target side-effect-free t] 4) #@74 compiler-macro for inlining `js2-new-node-args'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-args--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-args (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 619648)]) (put 'js2-new-node-args 'compiler-macro 'js2-new-node-args--cmacro) #@203 Access slot "args" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-args #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 7] 5 (#$ . 620051)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-args side-effect-free t] 4) #@72 compiler-macro for inlining `js2-new-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-lp (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 620536)]) (put 'js2-new-node-lp 'compiler-macro 'js2-new-node-lp--cmacro) #@201 Access slot "lp" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 8] 5 (#$ . 620929)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-lp side-effect-free t] 4) #@72 compiler-macro for inlining `js2-new-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-rp (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 621408)]) (put 'js2-new-node-rp 'compiler-macro 'js2-new-node-rp--cmacro) #@201 Access slot "rp" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 9] 5 (#$ . 621801)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-new-node-rp side-effect-free t] 4) #@81 compiler-macro for inlining `js2-new-node-initializer'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-new-node-initializer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-new-node-initializer (or (js2-new-node-p cl-x) (signal 'wrong-type-argument (list 'js2-new-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 622280)]) (put 'js2-new-node-initializer 'compiler-macro 'js2-new-node-initializer--cmacro) #@210 Access slot "initializer" of `(js2-new-node (:include js2-node) (:constructor make-js2-new-node (&key (type js2-NEW) (pos (js2-current-token-beg)) len target args initializer lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-new-node-initializer #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-new-node-tags type-of signal wrong-type-argument js2-new-node 10] 5 (#$ . 622719)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-new-node-initializer side-effect-free t defalias copy-js2-new-node copy-sequence] 4) #@159 compiler-macro for inlining `make-js2-new-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-NEW) (POS (js2-current-token-beg)) LEN TARGET ARGS INITIALIZER LP RP) (defalias 'make-js2-new-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\211\203l\211@\314>\203T\211AA\262\202A\315\n>A@\203c\316\262\202A\317\320@\"\210\202A\210\321\322\323\316 \316        & \207" [plist-member :type (nil js2-NEW) :pos (nil (js2-current-token-beg)) :len (nil 1) :target :args :initializer :lp :rp (:type :pos :len :target :args :initializer :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :target :args :initializer :lp :rp)" cl--defsubst-expand (type pos len target args initializer lp rp) (cl-block make-js2-new-node (record 'js2-new-node type pos len nil nil target args lp rp initializer))] 24 (#$ . 623278)]) (put 'make-js2-new-node 'compiler-macro 'make-js2-new-node--cmacro) #@139 Constructor for objects of type `js2-new-node'. (fn &key (TYPE js2-NEW) (POS (js2-current-token-beg)) LEN TARGET ARGS INITIALIZER LP RP) (defalias 'make-js2-new-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\304\321\"A@\304\322\"A@\304\323\"A@\211\203\206\211@\324>\203n\211AA\262\202[\325\n>A@\203}\306\262\202[\326\327@\"\210\202[\210\330\331   \306\211  \n\n & \207" [js2-NEW js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :target :args :initializer :lp :rp (:type :pos :len :target :args :initializer :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :target :args :initializer :lp :rp)" record js2-new-node] 21 (#$ . 624330)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-new-node side-effect-free t cl-struct-define js2-new-node "AST node for new-expression such as new Foo()." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (target) (args) (lp) (rp) (initializer)) cl-struct-js2-new-node-tags js2--struct-put js2-visitor js2-visit-new-node js2-printer js2-print-new-node] 11) #@12 (fn N V) (defalias 'js2-visit-new-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\211\203:\211@\301\"\210A\266\202\202(\210\301\302!>\204K\303\304\305D\"\210\310H\"\207" [cl-struct-js2-new-node-tags js2-visit-ast type-of signal wrong-type-argument js2-new-node 6 7 10] 7 (#$ . 625751)]) #@12 (fn N I) (defalias 'js2-print-new-node #[514 "\301!\302\261\210\303\304!>\204\305\306\307D\"\210\310H!\210\311c\210\312\304!>\204/\305\306\307D\"\210\313H!\210\314c\210\304!>\204F\305\306\307D\"\210\315H\205c\316c\210\303\304!>\204_\305\306\307D\"\210\315H!\207" [cl-struct-js2-new-node-tags js2-make-pad "new " js2-print-ast type-of signal wrong-type-argument js2-new-node 6 "(" js2-print-list 7 ")" 10 " "] 7 (#$ . 626113)]) #@72 compiler-macro for inlining `js2-name-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-name-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-name-node-p (and (memq (type-of cl-x) cl-struct-js2-name-node-tags) t)) nil] 9 (#$ . 626572)]) (put 'js2-name-node-p 'compiler-macro 'js2-name-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-name-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-name-node-tags type-of t] 3 (#$ . 626926)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-name-node-p side-effect-free error-free put js2-name-node cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `js2-name-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-name-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-name-node-type (or (js2-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-name-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 627214)]) (put 'js2-name-node-type 'compiler-macro 'js2-name-node-type--cmacro) #@254 Access slot "type" of `(js2-name-node (:include js2-node) (:constructor make-js2-name-node (&key (type js2-NAME) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (name (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-name-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 1] 5 (#$ . 627624)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-name-node-type side-effect-free t] 4) #@74 compiler-macro for inlining `js2-name-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-name-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-name-node-pos (or (js2-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-name-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 628164)]) (put 'js2-name-node-pos 'compiler-macro 'js2-name-node-pos--cmacro) #@253 Access slot "pos" of `(js2-name-node (:include js2-node) (:constructor make-js2-name-node (&key (type js2-NAME) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (name (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-name-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 2] 5 (#$ . 628569)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-name-node-pos side-effect-free t] 4) #@74 compiler-macro for inlining `js2-name-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-name-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-name-node-len (or (js2-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-name-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 629106)]) (put 'js2-name-node-len 'compiler-macro 'js2-name-node-len--cmacro) #@253 Access slot "len" of `(js2-name-node (:include js2-node) (:constructor make-js2-name-node (&key (type js2-NAME) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (name (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-name-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 3] 5 (#$ . 629511)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-name-node-len side-effect-free t] 4) #@76 compiler-macro for inlining `js2-name-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-name-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-name-node-props (or (js2-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-name-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 630048)]) (put 'js2-name-node-props 'compiler-macro 'js2-name-node-props--cmacro) #@255 Access slot "props" of `(js2-name-node (:include js2-node) (:constructor make-js2-name-node (&key (type js2-NAME) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (name (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-name-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 4] 5 (#$ . 630463)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-name-node-props side-effect-free t] 4) #@77 compiler-macro for inlining `js2-name-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-name-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-name-node-parent (or (js2-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-name-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 631006)]) (put 'js2-name-node-parent 'compiler-macro 'js2-name-node-parent--cmacro) #@256 Access slot "parent" of `(js2-name-node (:include js2-node) (:constructor make-js2-name-node (&key (type js2-NAME) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (name (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-name-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 5] 5 (#$ . 631426)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-name-node-parent side-effect-free t] 4) #@75 compiler-macro for inlining `js2-name-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-name-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-name-node-name (or (js2-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-name-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 631972)]) (put 'js2-name-node-name 'compiler-macro 'js2-name-node-name--cmacro) #@254 Access slot "name" of `(js2-name-node (:include js2-node) (:constructor make-js2-name-node (&key (type js2-NAME) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (name (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-name-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 6] 5 (#$ . 632382)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-name-node-name side-effect-free t] 4) #@76 compiler-macro for inlining `js2-name-node-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-name-node-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-name-node-scope (or (js2-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-name-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 632922)]) (put 'js2-name-node-scope 'compiler-macro 'js2-name-node-scope--cmacro) #@255 Access slot "scope" of `(js2-name-node (:include js2-node) (:constructor make-js2-name-node (&key (type js2-NAME) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (name (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-name-node-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 7] 5 (#$ . 633337)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-name-node-scope side-effect-free t defalias copy-js2-name-node copy-sequence] 4) #@209 compiler-macro for inlining `make-js2-name-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-NAME) (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg))) (NAME (js2-current-token-string))) (defalias 'make-js2-name-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"\206&\310A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\313\262\202)\314\315@\"\210\202)\210\316\317\320\313 \313    & \207" [plist-member :type (nil js2-NAME) :pos (nil (js2-current-token-beg)) :len (nil (- js2-ts-cursor (js2-current-token-beg))) :name (nil (js2-current-token-string)) (:type :pos :len :name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :name)" cl--defsubst-expand (type pos len name) (cl-block make-js2-name-node (record 'js2-name-node type pos len nil nil name nil))] 16 (#$ . 633933)]) (put 'make-js2-name-node 'compiler-macro 'make-js2-name-node--cmacro) #@189 Constructor for objects of type `js2-name-node'. (fn &key (TYPE js2-NAME) (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg))) (NAME (js2-current-token-string))) (defalias 'make-js2-name-node #[128 "\305\306\"\206\n\307DA@\305\310\"\206,\307 \nH\311! >\204&\312\313\314D\"\210\211\315H\262DA@\305\316\"\206P\307\f \nH\311! >\204I\312\313\314D\"\210\211\315H\262ZDA@\305\317\"\206r\307 \nH\311! >\204l\312\313\314D\"\210\211\320H\262DA@\211\203\240\211@\321>\203\210\211AA\262\202u\322>A@\203\227\307\262\202u\323\324@\"\210\202u\210\325\326\307\211\307&\207" [js2-NAME js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len :name 4 (:type :pos :len :name :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :name)" record js2-name-node] 14 (#$ . 634926)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-name-node side-effect-free t cl-struct-define js2-name-node "AST node for a JavaScript identifier" js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (name) (scope)) cl-struct-js2-name-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-name-node] 11) #@12 (fn N I) (defalias 'js2-print-name-node #[514 "\301!\302!>\204\303\304\305D\"\210\306H\261\207" [cl-struct-js2-name-node-tags js2-make-pad type-of signal wrong-type-argument js2-name-node 6] 7 (#$ . 636345)]) #@122 Return identifier length of NODE, a `js2-name-node'. Returns 0 if NODE is nil or its identifier field is nil. (fn NODE) (defalias 'js2-name-node-length #[257 "\211\203\301!>\204\302\303\304D\"\210\211\305HG\207\306\207" [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 6 0] 5 (#$ . 636571)]) (put 'js2-name-node-length 'byte-optimizer 'byte-compile-inline-expand) #@74 compiler-macro for inlining `js2-number-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-p (and (memq (type-of cl-x) cl-struct-js2-number-node-tags) t)) nil] 9 (#$ . 636979)]) (put 'js2-number-node-p 'compiler-macro 'js2-number-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-number-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-number-node-tags type-of t] 3 (#$ . 637345)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-number-node-p side-effect-free error-free put js2-number-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-number-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-type (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 637641)]) (put 'js2-number-node-type 'compiler-macro 'js2-number-node-type--cmacro) #@438 Access slot "type" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 1] 5 (#$ . 638065)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-number-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-number-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-pos (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 638797)]) (put 'js2-number-node-pos 'compiler-macro 'js2-number-node-pos--cmacro) #@437 Access slot "pos" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 2] 5 (#$ . 639216)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-number-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-number-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-len (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 639945)]) (put 'js2-number-node-len 'compiler-macro 'js2-number-node-len--cmacro) #@437 Access slot "len" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 3] 5 (#$ . 640364)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-number-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-number-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-props (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 641093)]) (put 'js2-number-node-props 'compiler-macro 'js2-number-node-props--cmacro) #@439 Access slot "props" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 4] 5 (#$ . 641522)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-number-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-number-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-parent (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 642257)]) (put 'js2-number-node-parent 'compiler-macro 'js2-number-node-parent--cmacro) #@440 Access slot "parent" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 5] 5 (#$ . 642691)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-number-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `js2-number-node-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-value (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 643429)]) (put 'js2-number-node-value 'compiler-macro 'js2-number-node-value--cmacro) #@439 Access slot "value" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 6] 5 (#$ . 643858)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-number-node-value side-effect-free t] 4) #@82 compiler-macro for inlining `js2-number-node-num-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-num-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-num-value (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 644593)]) (put 'js2-number-node-num-value 'compiler-macro 'js2-number-node-num-value--cmacro) #@443 Access slot "num-value" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-num-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 7] 5 (#$ . 645042)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-number-node-num-value side-effect-free t] 4) #@81 compiler-macro for inlining `js2-number-node-num-base'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-num-base--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-num-base (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 645789)]) (put 'js2-number-node-num-base 'compiler-macro 'js2-number-node-num-base--cmacro) #@442 Access slot "num-base" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-num-base #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 8] 5 (#$ . 646233)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-number-node-num-base side-effect-free t] 4) #@87 compiler-macro for inlining `js2-number-node-legacy-octal-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-number-node-legacy-octal-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-number-node-legacy-octal-p (or (js2-number-node-p cl-x) (signal 'wrong-type-argument (list 'js2-number-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 646977)]) (put 'js2-number-node-legacy-octal-p 'compiler-macro 'js2-number-node-legacy-octal-p--cmacro) #@448 Access slot "legacy-octal-p" of `(js2-number-node (:include js2-node) (:constructor make-js2-number-node (&key (type js2-NUMBER) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)) (num-value (js2-token-number (js2-current-token))) (num-base (js2-token-number-base (js2-current-token))) (legacy-octal-p (js2-token-number-legacy-octal-p (js2-current-token))))))' struct CL-X. (fn CL-X) (defalias 'js2-number-node-legacy-octal-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-number-node 9] 5 (#$ . 647451)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-number-node-legacy-octal-p side-effect-free t defalias copy-js2-number-node copy-sequence] 4) #@391 compiler-macro for inlining `make-js2-number-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-NUMBER) (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg))) (VALUE (js2-current-token-string)) (NUM-VALUE (js2-token-number (js2-current-token))) (NUM-BASE (js2-token-number-base (js2-current-token))) (LEGACY-OCTAL-P (js2-token-number-legacy-octal-p (js2-current-token)))) (defalias 'make-js2-number-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"\206&\310A@\300\311\"\2060\312A@\300\313\"\206;\314A@\300\315\"\206F\316A@\211\203u\211@\317>\203]\211AA\262\202J\320 >A@\203l\321\262\202J\322\323@\"\210\202J\210\324\325\326\321\f\321\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-NUMBER) :pos (nil (js2-current-token-beg)) :len (nil (- js2-ts-cursor (js2-current-token-beg))) :value (nil (js2-current-token-string)) :num-value (nil (js2-token-number (js2-current-token))) :num-base (nil (js2-token-number-base (js2-current-token))) :legacy-octal-p (nil (js2-token-number-legacy-octal-p (js2-current-token))) (:type :pos :len :value :num-value :num-base :legacy-octal-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :value :num-value :num-base :legacy-octal-p)" cl--defsubst-expand (type pos len value num-value num-base legacy-octal-p) (cl-block make-js2-number-node (record 'js2-number-node type pos len nil nil value num-value num-base legacy-octal-p))] 22 (#$ . 648268)]) (put 'make-js2-number-node 'compiler-macro 'make-js2-number-node--cmacro) #@371 Constructor for objects of type `js2-number-node'. (fn &key (TYPE js2-NUMBER) (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg))) (VALUE (js2-current-token-string)) (NUM-VALUE (js2-token-number (js2-current-token))) (NUM-BASE (js2-token-number-base (js2-current-token))) (LEGACY-OCTAL-P (js2-token-number-legacy-octal-p (js2-current-token)))) (defalias 'make-js2-number-node #[128 "\305\306\"\206\n\307DA@\305\310\"\206,\307 \nH\311! >\204&\312\313\314D\"\210\211\315H\262DA@\305\316\"\206P\307\f \nH\311! >\204I\312\313\314D\"\210\211\315H\262ZDA@\305\317\"\206r\307 \nH\311! >\204l\312\313\314D\"\210\211\320H\262DA@\305\321\"\206\224\307 \nH\311! >\204\216\312\313\314D\"\210\211\322H\262DA@\305\323\"\206\267\307 \nH\311! >\204\261\312\313\314D\"\210\211\324H\262DA@\305\325\"\206\332\307 \nH\311! >\204\324\312\313\314D\"\210\211\326H\262DA@\211\203 \211@\327>\203\361\211AA\262\202\336\330 >A@\203\307\262\202\336\331\332@\"\210\202\336\210\333\334\307\211\n\n\n\n&\n\207" [js2-NUMBER js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len :value 4 :num-value 5 :num-base 6 :legacy-octal-p 7 (:type :pos :len :value :num-value :num-base :legacy-octal-p :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :value :num-value :num-base :legacy-octal-p)" record js2-number-node] 19 (#$ . 649877)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-number-node side-effect-free t cl-struct-define js2-number-node "AST node for a number literal." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (value) (num-value) (num-base) (legacy-octal-p)) cl-struct-js2-number-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-number-node] 11) #@12 (fn N I) (defalias 'js2-print-number-node #[514 "\301!\302\303!>\204\304\305\306D\"\210\307H!\261\207" [cl-struct-js2-number-node-tags js2-make-pad number-to-string type-of signal wrong-type-argument js2-number-node 7] 8 (#$ . 651901)]) #@74 compiler-macro for inlining `js2-regexp-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-regexp-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-regexp-node-p (and (memq (type-of cl-x) cl-struct-js2-regexp-node-tags) t)) nil] 9 (#$ . 652155)]) (put 'js2-regexp-node-p 'compiler-macro 'js2-regexp-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-regexp-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-regexp-node-tags type-of t] 3 (#$ . 652521)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-regexp-node-p side-effect-free error-free put js2-regexp-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-regexp-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-regexp-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-regexp-node-type (or (js2-regexp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-regexp-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 652817)]) (put 'js2-regexp-node-type 'compiler-macro 'js2-regexp-node-type--cmacro) #@238 Access slot "type" of `(js2-regexp-node (:include js2-node) (:constructor make-js2-regexp-node (&key (type js2-REGEXP) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) value flags)))' struct CL-X. (fn CL-X) (defalias 'js2-regexp-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-regexp-node-tags type-of signal wrong-type-argument js2-regexp-node 1] 5 (#$ . 653241)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-regexp-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-regexp-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-regexp-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-regexp-node-pos (or (js2-regexp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-regexp-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 653773)]) (put 'js2-regexp-node-pos 'compiler-macro 'js2-regexp-node-pos--cmacro) #@237 Access slot "pos" of `(js2-regexp-node (:include js2-node) (:constructor make-js2-regexp-node (&key (type js2-REGEXP) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) value flags)))' struct CL-X. (fn CL-X) (defalias 'js2-regexp-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-regexp-node-tags type-of signal wrong-type-argument js2-regexp-node 2] 5 (#$ . 654192)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-regexp-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-regexp-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-regexp-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-regexp-node-len (or (js2-regexp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-regexp-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 654721)]) (put 'js2-regexp-node-len 'compiler-macro 'js2-regexp-node-len--cmacro) #@237 Access slot "len" of `(js2-regexp-node (:include js2-node) (:constructor make-js2-regexp-node (&key (type js2-REGEXP) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) value flags)))' struct CL-X. (fn CL-X) (defalias 'js2-regexp-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-regexp-node-tags type-of signal wrong-type-argument js2-regexp-node 3] 5 (#$ . 655140)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-regexp-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-regexp-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-regexp-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-regexp-node-props (or (js2-regexp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-regexp-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 655669)]) (put 'js2-regexp-node-props 'compiler-macro 'js2-regexp-node-props--cmacro) #@239 Access slot "props" of `(js2-regexp-node (:include js2-node) (:constructor make-js2-regexp-node (&key (type js2-REGEXP) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) value flags)))' struct CL-X. (fn CL-X) (defalias 'js2-regexp-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-regexp-node-tags type-of signal wrong-type-argument js2-regexp-node 4] 5 (#$ . 656098)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-regexp-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-regexp-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-regexp-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-regexp-node-parent (or (js2-regexp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-regexp-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 656633)]) (put 'js2-regexp-node-parent 'compiler-macro 'js2-regexp-node-parent--cmacro) #@240 Access slot "parent" of `(js2-regexp-node (:include js2-node) (:constructor make-js2-regexp-node (&key (type js2-REGEXP) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) value flags)))' struct CL-X. (fn CL-X) (defalias 'js2-regexp-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-regexp-node-tags type-of signal wrong-type-argument js2-regexp-node 5] 5 (#$ . 657067)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-regexp-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `js2-regexp-node-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-regexp-node-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-regexp-node-value (or (js2-regexp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-regexp-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 657605)]) (put 'js2-regexp-node-value 'compiler-macro 'js2-regexp-node-value--cmacro) #@239 Access slot "value" of `(js2-regexp-node (:include js2-node) (:constructor make-js2-regexp-node (&key (type js2-REGEXP) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) value flags)))' struct CL-X. (fn CL-X) (defalias 'js2-regexp-node-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-regexp-node-tags type-of signal wrong-type-argument js2-regexp-node 6] 5 (#$ . 658034)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-regexp-node-value side-effect-free t] 4) #@78 compiler-macro for inlining `js2-regexp-node-flags'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-regexp-node-flags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-regexp-node-flags (or (js2-regexp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-regexp-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 658569)]) (put 'js2-regexp-node-flags 'compiler-macro 'js2-regexp-node-flags--cmacro) #@239 Access slot "flags" of `(js2-regexp-node (:include js2-node) (:constructor make-js2-regexp-node (&key (type js2-REGEXP) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) value flags)))' struct CL-X. (fn CL-X) (defalias 'js2-regexp-node-flags #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-regexp-node-tags type-of signal wrong-type-argument js2-regexp-node 7] 5 (#$ . 658998)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-regexp-node-flags side-effect-free t defalias copy-js2-regexp-node copy-sequence] 4) #@191 compiler-macro for inlining `make-js2-regexp-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-REGEXP) (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg))) VALUE FLAGS) (defalias 'make-js2-regexp-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-REGEXP) :pos (nil (js2-current-token-beg)) :len (nil (- js2-ts-cursor (js2-current-token-beg))) :value :flags (:type :pos :len :value :flags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :value :flags)" cl--defsubst-expand (type pos len value flags) (cl-block make-js2-regexp-node (record 'js2-regexp-node type pos len nil nil value flags))] 18 (#$ . 659588)]) (put 'make-js2-regexp-node 'compiler-macro 'make-js2-regexp-node--cmacro) #@171 Constructor for objects of type `js2-regexp-node'. (fn &key (TYPE js2-REGEXP) (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg))) VALUE FLAGS) (defalias 'make-js2-regexp-node #[128 "\305\306\"\206\n\307DA@\305\310\"\206,\307 \nH\311! >\204&\312\313\314D\"\210\211\315H\262DA@\305\316\"\206P\307\f \nH\311! >\204I\312\313\314D\"\210\211\315H\262ZDA@\305\317\"A@\305\320\"A@\211\203\212\211@\321>\203r\211AA\262\202_\322>A@\203\201\307\262\202_\323\324@\"\210\202_\210\325\326\307\211&\207" [js2-REGEXP js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len :value :flags (:type :pos :len :value :flags :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :value :flags)" record js2-regexp-node] 15 (#$ . 660588)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-regexp-node side-effect-free t cl-struct-define js2-regexp-node "AST node for a regular expression literal." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (value) (flags)) cl-struct-js2-regexp-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-regexp] 11) #@12 (fn N I) (defalias 'js2-print-regexp #[514 "\301!\302\303!>\204\304\305\306D\"\210\307H\302\261\210\303!>\204*\304\305\306D\"\210\310H\205C\303!>\204?\304\305\306D\"\210\310Hc\207" [cl-struct-js2-regexp-node-tags js2-make-pad "/" type-of signal wrong-type-argument js2-regexp-node 6 7] 8 (#$ . 661975)]) #@74 compiler-macro for inlining `js2-string-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-string-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-string-node-p (and (memq (type-of cl-x) cl-struct-js2-string-node-tags) t)) nil] 9 (#$ . 662307)]) (put 'js2-string-node-p 'compiler-macro 'js2-string-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-string-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-string-node-tags type-of t] 3 (#$ . 662673)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-string-node-p side-effect-free error-free put js2-string-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-string-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-string-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-string-node-type (or (js2-string-node-p cl-x) (signal 'wrong-type-argument (list 'js2-string-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 662969)]) (put 'js2-string-node-type 'compiler-macro 'js2-string-node-type--cmacro) #@261 Access slot "type" of `(js2-string-node (:include js2-node) (:constructor make-js2-string-node (&key (type js2-STRING) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-string-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-string-node-tags type-of signal wrong-type-argument js2-string-node 1] 5 (#$ . 663393)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-string-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-string-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-string-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-string-node-pos (or (js2-string-node-p cl-x) (signal 'wrong-type-argument (list 'js2-string-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 663948)]) (put 'js2-string-node-pos 'compiler-macro 'js2-string-node-pos--cmacro) #@260 Access slot "pos" of `(js2-string-node (:include js2-node) (:constructor make-js2-string-node (&key (type js2-STRING) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-string-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-string-node-tags type-of signal wrong-type-argument js2-string-node 2] 5 (#$ . 664367)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-string-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-string-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-string-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-string-node-len (or (js2-string-node-p cl-x) (signal 'wrong-type-argument (list 'js2-string-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 664919)]) (put 'js2-string-node-len 'compiler-macro 'js2-string-node-len--cmacro) #@260 Access slot "len" of `(js2-string-node (:include js2-node) (:constructor make-js2-string-node (&key (type js2-STRING) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-string-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-string-node-tags type-of signal wrong-type-argument js2-string-node 3] 5 (#$ . 665338)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-string-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-string-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-string-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-string-node-props (or (js2-string-node-p cl-x) (signal 'wrong-type-argument (list 'js2-string-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 665890)]) (put 'js2-string-node-props 'compiler-macro 'js2-string-node-props--cmacro) #@262 Access slot "props" of `(js2-string-node (:include js2-node) (:constructor make-js2-string-node (&key (type js2-STRING) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-string-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-string-node-tags type-of signal wrong-type-argument js2-string-node 4] 5 (#$ . 666319)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-string-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-string-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-string-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-string-node-parent (or (js2-string-node-p cl-x) (signal 'wrong-type-argument (list 'js2-string-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 666877)]) (put 'js2-string-node-parent 'compiler-macro 'js2-string-node-parent--cmacro) #@263 Access slot "parent" of `(js2-string-node (:include js2-node) (:constructor make-js2-string-node (&key (type js2-STRING) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-string-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-string-node-tags type-of signal wrong-type-argument js2-string-node 5] 5 (#$ . 667311)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-string-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `js2-string-node-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-string-node-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-string-node-value (or (js2-string-node-p cl-x) (signal 'wrong-type-argument (list 'js2-string-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 667872)]) (put 'js2-string-node-value 'compiler-macro 'js2-string-node-value--cmacro) #@262 Access slot "value" of `(js2-string-node (:include js2-node) (:constructor make-js2-string-node (&key (type js2-STRING) (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))) (value (js2-current-token-string)))))' struct CL-X. (fn CL-X) (defalias 'js2-string-node-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-string-node-tags type-of signal wrong-type-argument js2-string-node 6] 5 (#$ . 668301)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-string-node-value side-effect-free t defalias copy-js2-string-node copy-sequence] 4) #@214 compiler-macro for inlining `make-js2-string-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-STRING) (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg))) (VALUE (js2-current-token-string))) (defalias 'make-js2-string-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"\206&\310A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\313\262\202)\314\315@\"\210\202)\210\316\317\320\313 \313    & \207" [plist-member :type (nil js2-STRING) :pos (nil (js2-current-token-beg)) :len (nil (- js2-ts-cursor (js2-current-token-beg))) :value (nil (js2-current-token-string)) (:type :pos :len :value :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :value)" cl--defsubst-expand (type pos len value) (cl-block make-js2-string-node (record 'js2-string-node type pos len nil nil value))] 16 (#$ . 668914)]) (put 'make-js2-string-node 'compiler-macro 'make-js2-string-node--cmacro) #@194 Constructor for objects of type `js2-string-node'. (fn &key (TYPE js2-STRING) (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg))) (VALUE (js2-current-token-string))) (defalias 'make-js2-string-node #[128 "\305\306\"\206\n\307DA@\305\310\"\206,\307 \nH\311! >\204&\312\313\314D\"\210\211\315H\262DA@\305\316\"\206P\307\f \nH\311! >\204I\312\313\314D\"\210\211\315H\262ZDA@\305\317\"\206r\307 \nH\311! >\204l\312\313\314D\"\210\211\320H\262DA@\211\203\240\211@\321>\203\210\211AA\262\202u\322>A@\203\227\307\262\202u\323\324@\"\210\202u\210\325\326\307\211&\207" [js2-STRING js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len :value 4 (:type :pos :len :value :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :value)" record js2-string-node] 13 (#$ . 669925)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-string-node side-effect-free t cl-struct-define js2-string-node "String literal.\nEscape characters are not evaluated; e.g. \n is 2 chars in value field.\nYou can tell the quote type by looking at the first character." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (value)) cl-struct-js2-string-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-string-node] 11) #@12 (fn N I) (defalias 'js2-print-string-node #[514 "\300!\301!\261\207" [js2-make-pad js2-node-string] 5 (#$ . 671471)]) #@76 compiler-macro for inlining `js2-template-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-template-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-template-node-p (and (memq (type-of cl-x) cl-struct-js2-template-node-tags) t)) nil] 9 (#$ . 671600)]) (put 'js2-template-node-p 'compiler-macro 'js2-template-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-template-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-template-node-tags type-of t] 3 (#$ . 671978)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-template-node-p side-effect-free error-free put js2-template-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-template-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-template-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-template-node-type (or (js2-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-template-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 672282)]) (put 'js2-template-node-type 'compiler-macro 'js2-template-node-type--cmacro) #@172 Access slot "type" of `(js2-template-node (:include js2-node) (:constructor make-js2-template-node (&key (type js2-TEMPLATE_HEAD) pos len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-template-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-template-node-tags type-of signal wrong-type-argument js2-template-node 1] 5 (#$ . 672720)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-template-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-template-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-template-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-template-node-pos (or (js2-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-template-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 673194)]) (put 'js2-template-node-pos 'compiler-macro 'js2-template-node-pos--cmacro) #@171 Access slot "pos" of `(js2-template-node (:include js2-node) (:constructor make-js2-template-node (&key (type js2-TEMPLATE_HEAD) pos len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-template-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-template-node-tags type-of signal wrong-type-argument js2-template-node 2] 5 (#$ . 673627)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-template-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-template-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-template-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-template-node-len (or (js2-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-template-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 674098)]) (put 'js2-template-node-len 'compiler-macro 'js2-template-node-len--cmacro) #@171 Access slot "len" of `(js2-template-node (:include js2-node) (:constructor make-js2-template-node (&key (type js2-TEMPLATE_HEAD) pos len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-template-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-template-node-tags type-of signal wrong-type-argument js2-template-node 3] 5 (#$ . 674531)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-template-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-template-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-template-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-template-node-props (or (js2-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-template-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 675002)]) (put 'js2-template-node-props 'compiler-macro 'js2-template-node-props--cmacro) #@173 Access slot "props" of `(js2-template-node (:include js2-node) (:constructor make-js2-template-node (&key (type js2-TEMPLATE_HEAD) pos len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-template-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-template-node-tags type-of signal wrong-type-argument js2-template-node 4] 5 (#$ . 675445)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-template-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-template-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-template-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-template-node-parent (or (js2-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-template-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 675922)]) (put 'js2-template-node-parent 'compiler-macro 'js2-template-node-parent--cmacro) #@174 Access slot "parent" of `(js2-template-node (:include js2-node) (:constructor make-js2-template-node (&key (type js2-TEMPLATE_HEAD) pos len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-template-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-template-node-tags type-of signal wrong-type-argument js2-template-node 5] 5 (#$ . 676370)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-template-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-template-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-template-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-template-node-kids (or (js2-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-template-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 676850)]) (put 'js2-template-node-kids 'compiler-macro 'js2-template-node-kids--cmacro) #@172 Access slot "kids" of `(js2-template-node (:include js2-node) (:constructor make-js2-template-node (&key (type js2-TEMPLATE_HEAD) pos len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-template-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-template-node-tags type-of signal wrong-type-argument js2-template-node 6] 5 (#$ . 677288)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-template-node-kids side-effect-free t defalias copy-js2-template-node copy-sequence] 4) #@123 compiler-macro for inlining `make-js2-template-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-TEMPLATE_HEAD) POS LEN KIDS) (defalias 'make-js2-template-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-TEMPLATE_HEAD) :pos (nil -1) :len (nil 1) :kids (:type :pos :len :kids :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :kids)" cl--defsubst-expand (type pos len kids) (cl-block make-js2-template-node (record 'js2-template-node type pos len nil nil kids))] 16 (#$ . 677819)]) (put 'make-js2-template-node 'compiler-macro 'make-js2-template-node--cmacro) #@103 Constructor for objects of type `js2-template-node'. (fn &key (TYPE js2-TEMPLATE_HEAD) POS LEN KIDS) (defalias 'make-js2-template-node #[128 "\301\302\"\206\n\303DA@\301\304\"\206\305A@\301\306\"\206\307A@\301\310\"A@\211\203R\211@\311>\203:\211AA\262\202'\312>A@\203I\303\262\202'\313\314@\"\210\202'\210\315\316\303\211&\207" [js2-TEMPLATE_HEAD plist-member :type nil :pos (nil -1) :len (nil 1) :kids (:type :pos :len :kids :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :kids)" record js2-template-node] 13 (#$ . 678647)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-template-node side-effect-free t cl-struct-define js2-template-node "Template literal." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids)) cl-struct-js2-template-node-tags js2--struct-put js2-visitor js2-visit-template js2-printer js2-print-template] 11) #@19 (fn N CALLBACK) (defalias 'js2-visit-template #[514 "\301!>\204\302\303\304D\"\210\305H\211\205$\211@\306\"\210A\266\202\202\207" [cl-struct-js2-template-node-tags type-of signal wrong-type-argument js2-template-node 6 js2-visit-ast] 7 (#$ . 679694)]) #@12 (fn N I) (defalias 'js2-print-template #[514 "\302!c\210\303!>\204\304\305\306D\"\210\307H\211\2058\211@\303! >\203-\310!c\210\2021\311!\210A\266\202\202\207" [cl-struct-js2-template-node-tags cl-struct-js2-string-node-tags js2-make-pad type-of signal wrong-type-argument js2-template-node 6 js2-node-string js2-print-ast] 6 (#$ . 679966)]) #@83 compiler-macro for inlining `js2-tagged-template-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-tagged-template-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-tagged-template-node-p (and (memq (type-of cl-x) cl-struct-js2-tagged-template-node-tags) t)) nil] 9 (#$ . 680331)]) (put 'js2-tagged-template-node-p 'compiler-macro 'js2-tagged-template-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-tagged-template-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-tagged-template-node-tags type-of t] 3 (#$ . 680751)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-tagged-template-node-p side-effect-free error-free put js2-tagged-template-node cl-deftype-satisfies] 5) #@86 compiler-macro for inlining `js2-tagged-template-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-tagged-template-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-tagged-template-node-type (or (js2-tagged-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-tagged-template-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 681083)]) (put 'js2-tagged-template-node-type 'compiler-macro 'js2-tagged-template-node-type--cmacro) #@196 Access slot "type" of `(js2-tagged-template-node (:include js2-node) (:constructor make-js2-tagged-template-node (&key (type js2-TAGGED_TEMPLATE) pos len tag template)))' struct CL-X. (fn CL-X) (defalias 'js2-tagged-template-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-tagged-template-node-tags type-of signal wrong-type-argument js2-tagged-template-node 1] 5 (#$ . 681570)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-tagged-template-node-type side-effect-free t] 4) #@85 compiler-macro for inlining `js2-tagged-template-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-tagged-template-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-tagged-template-node-pos (or (js2-tagged-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-tagged-template-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 682096)]) (put 'js2-tagged-template-node-pos 'compiler-macro 'js2-tagged-template-node-pos--cmacro) #@195 Access slot "pos" of `(js2-tagged-template-node (:include js2-node) (:constructor make-js2-tagged-template-node (&key (type js2-TAGGED_TEMPLATE) pos len tag template)))' struct CL-X. (fn CL-X) (defalias 'js2-tagged-template-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-tagged-template-node-tags type-of signal wrong-type-argument js2-tagged-template-node 2] 5 (#$ . 682578)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-tagged-template-node-pos side-effect-free t] 4) #@85 compiler-macro for inlining `js2-tagged-template-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-tagged-template-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-tagged-template-node-len (or (js2-tagged-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-tagged-template-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 683101)]) (put 'js2-tagged-template-node-len 'compiler-macro 'js2-tagged-template-node-len--cmacro) #@195 Access slot "len" of `(js2-tagged-template-node (:include js2-node) (:constructor make-js2-tagged-template-node (&key (type js2-TAGGED_TEMPLATE) pos len tag template)))' struct CL-X. (fn CL-X) (defalias 'js2-tagged-template-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-tagged-template-node-tags type-of signal wrong-type-argument js2-tagged-template-node 3] 5 (#$ . 683583)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-tagged-template-node-len side-effect-free t] 4) #@87 compiler-macro for inlining `js2-tagged-template-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-tagged-template-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-tagged-template-node-props (or (js2-tagged-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-tagged-template-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 684106)]) (put 'js2-tagged-template-node-props 'compiler-macro 'js2-tagged-template-node-props--cmacro) #@197 Access slot "props" of `(js2-tagged-template-node (:include js2-node) (:constructor make-js2-tagged-template-node (&key (type js2-TAGGED_TEMPLATE) pos len tag template)))' struct CL-X. (fn CL-X) (defalias 'js2-tagged-template-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-tagged-template-node-tags type-of signal wrong-type-argument js2-tagged-template-node 4] 5 (#$ . 684598)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-tagged-template-node-props side-effect-free t] 4) #@88 compiler-macro for inlining `js2-tagged-template-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-tagged-template-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-tagged-template-node-parent (or (js2-tagged-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-tagged-template-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 685127)]) (put 'js2-tagged-template-node-parent 'compiler-macro 'js2-tagged-template-node-parent--cmacro) #@198 Access slot "parent" of `(js2-tagged-template-node (:include js2-node) (:constructor make-js2-tagged-template-node (&key (type js2-TAGGED_TEMPLATE) pos len tag template)))' struct CL-X. (fn CL-X) (defalias 'js2-tagged-template-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-tagged-template-node-tags type-of signal wrong-type-argument js2-tagged-template-node 5] 5 (#$ . 685624)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-tagged-template-node-parent side-effect-free t] 4) #@85 compiler-macro for inlining `js2-tagged-template-node-tag'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-tagged-template-node-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-tagged-template-node-tag (or (js2-tagged-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-tagged-template-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 686156)]) (put 'js2-tagged-template-node-tag 'compiler-macro 'js2-tagged-template-node-tag--cmacro) #@195 Access slot "tag" of `(js2-tagged-template-node (:include js2-node) (:constructor make-js2-tagged-template-node (&key (type js2-TAGGED_TEMPLATE) pos len tag template)))' struct CL-X. (fn CL-X) (defalias 'js2-tagged-template-node-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-tagged-template-node-tags type-of signal wrong-type-argument js2-tagged-template-node 6] 5 (#$ . 686638)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-tagged-template-node-tag side-effect-free t] 4) #@90 compiler-macro for inlining `js2-tagged-template-node-template'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-tagged-template-node-template--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-tagged-template-node-template (or (js2-tagged-template-node-p cl-x) (signal 'wrong-type-argument (list 'js2-tagged-template-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 687161)]) (put 'js2-tagged-template-node-template 'compiler-macro 'js2-tagged-template-node-template--cmacro) #@200 Access slot "template" of `(js2-tagged-template-node (:include js2-node) (:constructor make-js2-tagged-template-node (&key (type js2-TAGGED_TEMPLATE) pos len tag template)))' struct CL-X. (fn CL-X) (defalias 'js2-tagged-template-node-template #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-tagged-template-node-tags type-of signal wrong-type-argument js2-tagged-template-node 7] 5 (#$ . 687668)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-tagged-template-node-template side-effect-free t defalias copy-js2-tagged-template-node copy-sequence] 4) #@140 compiler-macro for inlining `make-js2-tagged-template-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-TAGGED_TEMPLATE) POS LEN TAG TEMPLATE) (defalias 'make-js2-tagged-template-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-TAGGED_TEMPLATE) :pos (nil -1) :len (nil 1) :tag :template (:type :pos :len :tag :template :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :tag :template)" cl--defsubst-expand (type pos len tag template) (cl-block make-js2-tagged-template-node (record 'js2-tagged-template-node type pos len nil nil tag template))] 18 (#$ . 688270)]) (put 'make-js2-tagged-template-node 'compiler-macro 'make-js2-tagged-template-node--cmacro) #@120 Constructor for objects of type `js2-tagged-template-node'. (fn &key (TYPE js2-TAGGED_TEMPLATE) POS LEN TAG TEMPLATE) (defalias 'make-js2-tagged-template-node #[128 "\301\302\"\206\n\303DA@\301\304\"\206\305A@\301\306\"\206\307A@\301\310\"A@\301\311\"A@\211\203X\211@\312>\203@\211AA\262\202-\313>A@\203O\303\262\202-\314\315@\"\210\202-\210\316\317\303\211&\207" [js2-TAGGED_TEMPLATE plist-member :type nil :pos (nil -1) :len (nil 1) :tag :template (:type :pos :len :tag :template :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :tag :template)" record js2-tagged-template-node] 15 (#$ . 689217)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-tagged-template-node side-effect-free t cl-struct-define js2-tagged-template-node "Tagged template literal." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (tag) (template)) cl-struct-js2-tagged-template-node-tags js2--struct-put js2-visitor js2-visit-tagged-template js2-printer js2-print-tagged-template] 11) #@19 (fn N CALLBACK) (defalias 'js2-visit-tagged-template #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-tagged-template-node-tags js2-visit-ast type-of signal wrong-type-argument js2-tagged-template-node 6 7] 7 (#$ . 690394)]) #@12 (fn N I) (defalias 'js2-print-tagged-template #[514 "\301!c\210\302\303!>\204\304\305\306D\"\210\307H!\210\302\303!>\204*\304\305\306D\"\210\310H!\207" [cl-struct-js2-tagged-template-node-tags js2-make-pad js2-print-ast type-of signal wrong-type-argument js2-tagged-template-node 6 7] 7 (#$ . 690704)]) #@73 compiler-macro for inlining `js2-array-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-array-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-array-node-p (and (memq (type-of cl-x) cl-struct-js2-array-node-tags) t)) nil] 9 (#$ . 691027)]) (put 'js2-array-node-p 'compiler-macro 'js2-array-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-array-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-array-node-tags type-of t] 3 (#$ . 691387)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-array-node-p side-effect-free error-free put js2-array-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-array-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-array-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-array-node-type (or (js2-array-node-p cl-x) (signal 'wrong-type-argument (list 'js2-array-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 691679)]) (put 'js2-array-node-type 'compiler-macro 'js2-array-node-type--cmacro) #@178 Access slot "type" of `(js2-array-node (:include js2-node) (:constructor make-js2-array-node (&key (type js2-ARRAYLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-array-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-array-node-tags type-of signal wrong-type-argument js2-array-node 1] 5 (#$ . 692096)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-array-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-array-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-array-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-array-node-pos (or (js2-array-node-p cl-x) (signal 'wrong-type-argument (list 'js2-array-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 692564)]) (put 'js2-array-node-pos 'compiler-macro 'js2-array-node-pos--cmacro) #@177 Access slot "pos" of `(js2-array-node (:include js2-node) (:constructor make-js2-array-node (&key (type js2-ARRAYLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-array-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-array-node-tags type-of signal wrong-type-argument js2-array-node 2] 5 (#$ . 692976)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-array-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-array-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-array-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-array-node-len (or (js2-array-node-p cl-x) (signal 'wrong-type-argument (list 'js2-array-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 693441)]) (put 'js2-array-node-len 'compiler-macro 'js2-array-node-len--cmacro) #@177 Access slot "len" of `(js2-array-node (:include js2-node) (:constructor make-js2-array-node (&key (type js2-ARRAYLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-array-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-array-node-tags type-of signal wrong-type-argument js2-array-node 3] 5 (#$ . 693853)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-array-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-array-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-array-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-array-node-props (or (js2-array-node-p cl-x) (signal 'wrong-type-argument (list 'js2-array-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 694318)]) (put 'js2-array-node-props 'compiler-macro 'js2-array-node-props--cmacro) #@179 Access slot "props" of `(js2-array-node (:include js2-node) (:constructor make-js2-array-node (&key (type js2-ARRAYLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-array-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-array-node-tags type-of signal wrong-type-argument js2-array-node 4] 5 (#$ . 694740)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-array-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-array-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-array-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-array-node-parent (or (js2-array-node-p cl-x) (signal 'wrong-type-argument (list 'js2-array-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 695211)]) (put 'js2-array-node-parent 'compiler-macro 'js2-array-node-parent--cmacro) #@180 Access slot "parent" of `(js2-array-node (:include js2-node) (:constructor make-js2-array-node (&key (type js2-ARRAYLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-array-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-array-node-tags type-of signal wrong-type-argument js2-array-node 5] 5 (#$ . 695638)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-array-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-array-node-elems'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-array-node-elems--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-array-node-elems (or (js2-array-node-p cl-x) (signal 'wrong-type-argument (list 'js2-array-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 696112)]) (put 'js2-array-node-elems 'compiler-macro 'js2-array-node-elems--cmacro) #@179 Access slot "elems" of `(js2-array-node (:include js2-node) (:constructor make-js2-array-node (&key (type js2-ARRAYLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-array-node-elems #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-array-node-tags type-of signal wrong-type-argument js2-array-node 6] 5 (#$ . 696534)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-array-node-elems side-effect-free t defalias copy-js2-array-node copy-sequence] 4) #@132 compiler-macro for inlining `make-js2-array-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-ARRAYLIT) (POS js2-ts-cursor) LEN ELEMS) (defalias 'make-js2-array-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-ARRAYLIT) :pos (nil js2-ts-cursor) :len (nil 1) :elems (:type :pos :len :elems :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :elems)" cl--defsubst-expand (type pos len elems) (cl-block make-js2-array-node (record 'js2-array-node type pos len nil nil elems))] 16 (#$ . 697059)]) (put 'make-js2-array-node 'compiler-macro 'make-js2-array-node--cmacro) #@112 Constructor for objects of type `js2-array-node'. (fn &key (TYPE js2-ARRAYLIT) (POS js2-ts-cursor) LEN ELEMS) (defalias 'make-js2-array-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211&\207" [js2-ARRAYLIT js2-ts-cursor plist-member :type nil :pos :len (nil 1) :elems (:type :pos :len :elems :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :elems)" record js2-array-node] 13 (#$ . 697892)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-array-node side-effect-free t cl-struct-define js2-array-node "AST node for an array literal." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (elems)) cl-struct-js2-array-node-tags js2--struct-put js2-visitor js2-visit-array-node js2-printer js2-print-array-node] 11) #@12 (fn N V) (defalias 'js2-visit-array-node #[514 "\301!>\204\302\303\304D\"\210\305H\211\205$\211@\306\"\210A\266\202\202\207" [cl-struct-js2-array-node-tags type-of signal wrong-type-argument js2-array-node 6 js2-visit-ast] 7 (#$ . 698956)]) #@12 (fn N I) (defalias 'js2-print-array-node #[514 "\301!\302\261\210\303!>\204\304\305\306D\"\210\307H\310!\210\211\203+\311!@\204+\312c\210\210\313c\207" [cl-struct-js2-array-node-tags js2-make-pad "[" type-of signal wrong-type-argument js2-array-node 6 js2-print-list last "," "]"] 6 (#$ . 699217)]) #@74 compiler-macro for inlining `js2-object-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-node-p (and (memq (type-of cl-x) cl-struct-js2-object-node-tags) t)) nil] 9 (#$ . 699536)]) (put 'js2-object-node-p 'compiler-macro 'js2-object-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-object-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-object-node-tags type-of t] 3 (#$ . 699902)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-object-node-p side-effect-free error-free put js2-object-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-object-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-node-type (or (js2-object-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 700198)]) (put 'js2-object-node-type 'compiler-macro 'js2-object-node-type--cmacro) #@181 Access slot "type" of `(js2-object-node (:include js2-node) (:constructor make-js2-object-node (&key (type js2-OBJECTLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-object-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-object-node 1] 5 (#$ . 700622)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-object-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-node-pos (or (js2-object-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 701097)]) (put 'js2-object-node-pos 'compiler-macro 'js2-object-node-pos--cmacro) #@180 Access slot "pos" of `(js2-object-node (:include js2-node) (:constructor make-js2-object-node (&key (type js2-OBJECTLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-object-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-object-node 2] 5 (#$ . 701516)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-object-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-node-len (or (js2-object-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 701988)]) (put 'js2-object-node-len 'compiler-macro 'js2-object-node-len--cmacro) #@180 Access slot "len" of `(js2-object-node (:include js2-node) (:constructor make-js2-object-node (&key (type js2-OBJECTLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-object-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-object-node 3] 5 (#$ . 702407)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-object-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-node-props (or (js2-object-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 702879)]) (put 'js2-object-node-props 'compiler-macro 'js2-object-node-props--cmacro) #@182 Access slot "props" of `(js2-object-node (:include js2-node) (:constructor make-js2-object-node (&key (type js2-OBJECTLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-object-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-object-node 4] 5 (#$ . 703308)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-object-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-node-parent (or (js2-object-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 703786)]) (put 'js2-object-node-parent 'compiler-macro 'js2-object-node-parent--cmacro) #@183 Access slot "parent" of `(js2-object-node (:include js2-node) (:constructor make-js2-object-node (&key (type js2-OBJECTLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-object-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-object-node 5] 5 (#$ . 704220)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `js2-object-node-elems'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-node-elems--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-node-elems (or (js2-object-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 704701)]) (put 'js2-object-node-elems 'compiler-macro 'js2-object-node-elems--cmacro) #@182 Access slot "elems" of `(js2-object-node (:include js2-node) (:constructor make-js2-object-node (&key (type js2-OBJECTLIT) (pos js2-ts-cursor) len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-object-node-elems #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-object-node 6] 5 (#$ . 705130)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-object-node-elems side-effect-free t defalias copy-js2-object-node copy-sequence] 4) #@134 compiler-macro for inlining `make-js2-object-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-OBJECTLIT) (POS js2-ts-cursor) LEN ELEMS) (defalias 'make-js2-object-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-OBJECTLIT) :pos (nil js2-ts-cursor) :len (nil 1) :elems (:type :pos :len :elems :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :elems)" cl--defsubst-expand (type pos len elems) (cl-block make-js2-object-node (record 'js2-object-node type pos len nil nil elems))] 16 (#$ . 705663)]) (put 'make-js2-object-node 'compiler-macro 'make-js2-object-node--cmacro) #@114 Constructor for objects of type `js2-object-node'. (fn &key (TYPE js2-OBJECTLIT) (POS js2-ts-cursor) LEN ELEMS) (defalias 'make-js2-object-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211&\207" [js2-OBJECTLIT js2-ts-cursor plist-member :type nil :pos :len (nil 1) :elems (:type :pos :len :elems :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :elems)" record js2-object-node] 13 (#$ . 706504)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-object-node side-effect-free t cl-struct-define js2-object-node "AST node for an object literal expression.\n`elems' is a list of `js2-object-prop-node'." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (elems)) cl-struct-js2-object-node-tags js2--struct-put js2-visitor js2-visit-object-node js2-printer js2-print-object-node] 11) #@12 (fn N V) (defalias 'js2-visit-object-node #[514 "\301!>\204\302\303\304D\"\210\305H\211\205$\211@\306\"\210A\266\202\202\207" [cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-object-node 6 js2-visit-ast] 7 (#$ . 707636)]) #@12 (fn N I) (defalias 'js2-print-object-node #[514 "\301!\302\261\210\303\304!>\204\305\306\307D\"\210\310H!\210\311c\207" [cl-struct-js2-object-node-tags js2-make-pad "{" js2-print-list type-of signal wrong-type-argument js2-object-node 6 "}"] 7 (#$ . 707900)]) #@73 compiler-macro for inlining `js2-class-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-p (and (memq (type-of cl-x) cl-struct-js2-class-node-tags) t)) nil] 9 (#$ . 708176)]) (put 'js2-class-node-p 'compiler-macro 'js2-class-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-class-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-class-node-tags type-of t] 3 (#$ . 708536)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-class-node-p side-effect-free error-free put js2-class-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-class-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-type (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 708828)]) (put 'js2-class-node-type 'compiler-macro 'js2-class-node-type--cmacro) #@229 Access slot "type" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 1] 5 (#$ . 709245)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-class-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-class-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-pos (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 709764)]) (put 'js2-class-node-pos 'compiler-macro 'js2-class-node-pos--cmacro) #@228 Access slot "pos" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 2] 5 (#$ . 710176)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-class-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-class-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-len (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 710692)]) (put 'js2-class-node-len 'compiler-macro 'js2-class-node-len--cmacro) #@228 Access slot "len" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 3] 5 (#$ . 711104)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-class-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-class-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-props (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 711620)]) (put 'js2-class-node-props 'compiler-macro 'js2-class-node-props--cmacro) #@230 Access slot "props" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 4] 5 (#$ . 712042)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-class-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-class-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-parent (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 712564)]) (put 'js2-class-node-parent 'compiler-macro 'js2-class-node-parent--cmacro) #@231 Access slot "parent" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 5] 5 (#$ . 712991)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-class-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-class-node-elems'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-elems--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-elems (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 713516)]) (put 'js2-class-node-elems 'compiler-macro 'js2-class-node-elems--cmacro) #@230 Access slot "elems" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-elems #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 6] 5 (#$ . 713938)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-class-node-elems side-effect-free t] 4) #@76 compiler-macro for inlining `js2-class-node-form'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-form--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-form (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 714460)]) (put 'js2-class-node-form 'compiler-macro 'js2-class-node-form--cmacro) #@229 Access slot "form" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-form #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 7] 5 (#$ . 714877)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-class-node-form side-effect-free t] 4) #@76 compiler-macro for inlining `js2-class-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-name (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 715396)]) (put 'js2-class-node-name 'compiler-macro 'js2-class-node-name--cmacro) #@229 Access slot "name" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 8] 5 (#$ . 715813)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-class-node-name side-effect-free t] 4) #@79 compiler-macro for inlining `js2-class-node-extends'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-class-node-extends--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-class-node-extends (or (js2-class-node-p cl-x) (signal 'wrong-type-argument (list 'js2-class-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 716332)]) (put 'js2-class-node-extends 'compiler-macro 'js2-class-node-extends--cmacro) #@232 Access slot "extends" of `(js2-class-node (:include js2-object-node) (:constructor make-js2-class-node (&key (type js2-CLASS) (pos js2-ts-cursor) (form (quote CLASS_STATEMENT)) (name ) extends len elems)))' struct CL-X. (fn CL-X) (defalias 'js2-class-node-extends #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-class-node-tags type-of signal wrong-type-argument js2-class-node 9] 5 (#$ . 716764)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-class-node-extends side-effect-free t defalias copy-js2-class-node copy-sequence] 4) #@173 compiler-macro for inlining `make-js2-class-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-CLASS) (POS js2-ts-cursor) (FORM \='CLASS_STATEMENT) (NAME "") EXTENDS LEN ELEMS) (defalias 'make-js2-class-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"\206&\310A@\300\311\"A@\300\312\"\2067\313A@\300\314\"A@\211\203m\211@\315>\203U\211AA\262\202B\316 >A@\203d\317\262\202B\320\321@\"\210\202B\210\322\323\324\317\f\317\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-CLASS) :pos (nil js2-ts-cursor) :form (nil 'CLASS_STATEMENT) :name (nil "") :extends :len (nil 1) :elems (:type :pos :form :name :extends :len :elems :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :form :name :extends :len :elems)" cl--defsubst-expand (type pos form name extends len elems) (cl-block make-js2-class-node (record 'js2-class-node type pos len nil nil elems form name extends))] 22 (#$ . 717346)]) (put 'make-js2-class-node 'compiler-macro 'make-js2-class-node--cmacro) #@153 Constructor for objects of type `js2-class-node'. (fn &key (TYPE js2-CLASS) (POS js2-ts-cursor) (FORM \='CLASS_STATEMENT) (NAME "") EXTENDS LEN ELEMS) (defalias 'make-js2-class-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"\206*\311A@\302\312\"A@\302\313\"\206;\314A@\302\315\"A@\211\203q\211@\316>\203Y\211AA\262\202F\317 >A@\203h\304\262\202F\320\321@\"\210\202F\210\322\323\304\211\f\f\f&\n\207" [js2-CLASS js2-ts-cursor plist-member :type nil :pos :form (nil CLASS_STATEMENT) :name (nil "") :extends :len (nil 1) :elems (:type :pos :form :name :extends :len :elems :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :form :name :extends :len :elems)" record js2-class-node] 19 (#$ . 718425)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-class-node side-effect-free t cl-struct-define js2-class-node "AST node for an class expression.\n`elems' is a list of `js2-object-prop-node', and `extends' is an\noptional `js2-expr-node'" js2-object-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (elems nil) (form) (name) (extends)) cl-struct-js2-class-node-tags js2--struct-put js2-visitor js2-visit-class-node js2-printer js2-print-class-node] 11) #@12 (fn N V) (defalias 'js2-visit-class-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\210\302!>\204;\303\304\305D\"\210\310H\211\205P\211@\301\"\210A\266\202\202>\207" [cl-struct-js2-class-node-tags js2-visit-ast type-of signal wrong-type-argument js2-class-node 8 9 6] 7 (#$ . 719825)]) #@12 (fn N I) (defalias 'js2-print-class-node #[514 "\302!\303!>\204\304\305\306D\"\210\307H\303!>\204%\304\305\306D\"\210\310H\303!>\2048\304\305\306D\"\210\311H\312\261\210\203L\313c\210\314\315\"\210\203W\316c\210\314!\210\317c\210\211\211\203\247\211@\320c\210\211\321\322\323\303! >\204y\304\305\324D\"\210\325H\"A@\206\203\211\266\203\203\231\302T!\326\261\210\314\315\"\210\202\240\314T\"\210A\266\202\202[\210\320\327\261\207" [cl-struct-js2-class-node-tags cl-struct-js2-node-tags js2-make-pad type-of signal wrong-type-argument js2-class-node 8 9 6 "class" " " js2-print-ast 0 " extends " " {" "\n" STATIC nil assoc js2-node 4 "static " "}"] 17 (#$ . 720192)]) #@86 compiler-macro for inlining `js2-computed-prop-name-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-computed-prop-name-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-computed-prop-name-node-p (and (memq (type-of cl-x) cl-struct-js2-computed-prop-name-node-tags) t)) nil] 9 (#$ . 720914)]) (put 'js2-computed-prop-name-node-p 'compiler-macro 'js2-computed-prop-name-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-computed-prop-name-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-computed-prop-name-node-tags type-of t] 3 (#$ . 721352)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-computed-prop-name-node-p side-effect-free error-free put js2-computed-prop-name-node cl-deftype-satisfies] 5) #@89 compiler-macro for inlining `js2-computed-prop-name-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-computed-prop-name-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-computed-prop-name-node-type (or (js2-computed-prop-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-computed-prop-name-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 721696)]) (put 'js2-computed-prop-name-node-type 'compiler-macro 'js2-computed-prop-name-node-type--cmacro) #@251 Access slot "type" of `(js2-computed-prop-name-node (:include js2-node) (:constructor make-js2-computed-prop-name-node (&key (type js2-LB) expr (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))))))' struct CL-X. (fn CL-X) (defalias 'js2-computed-prop-name-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-computed-prop-name-node-tags type-of signal wrong-type-argument js2-computed-prop-name-node 1] 5 (#$ . 722204)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-computed-prop-name-node-type side-effect-free t] 4) #@88 compiler-macro for inlining `js2-computed-prop-name-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-computed-prop-name-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-computed-prop-name-node-pos (or (js2-computed-prop-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-computed-prop-name-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 722797)]) (put 'js2-computed-prop-name-node-pos 'compiler-macro 'js2-computed-prop-name-node-pos--cmacro) #@250 Access slot "pos" of `(js2-computed-prop-name-node (:include js2-node) (:constructor make-js2-computed-prop-name-node (&key (type js2-LB) expr (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))))))' struct CL-X. (fn CL-X) (defalias 'js2-computed-prop-name-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-computed-prop-name-node-tags type-of signal wrong-type-argument js2-computed-prop-name-node 2] 5 (#$ . 723300)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-computed-prop-name-node-pos side-effect-free t] 4) #@88 compiler-macro for inlining `js2-computed-prop-name-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-computed-prop-name-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-computed-prop-name-node-len (or (js2-computed-prop-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-computed-prop-name-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 723890)]) (put 'js2-computed-prop-name-node-len 'compiler-macro 'js2-computed-prop-name-node-len--cmacro) #@250 Access slot "len" of `(js2-computed-prop-name-node (:include js2-node) (:constructor make-js2-computed-prop-name-node (&key (type js2-LB) expr (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))))))' struct CL-X. (fn CL-X) (defalias 'js2-computed-prop-name-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-computed-prop-name-node-tags type-of signal wrong-type-argument js2-computed-prop-name-node 3] 5 (#$ . 724393)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-computed-prop-name-node-len side-effect-free t] 4) #@90 compiler-macro for inlining `js2-computed-prop-name-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-computed-prop-name-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-computed-prop-name-node-props (or (js2-computed-prop-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-computed-prop-name-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 724983)]) (put 'js2-computed-prop-name-node-props 'compiler-macro 'js2-computed-prop-name-node-props--cmacro) #@252 Access slot "props" of `(js2-computed-prop-name-node (:include js2-node) (:constructor make-js2-computed-prop-name-node (&key (type js2-LB) expr (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))))))' struct CL-X. (fn CL-X) (defalias 'js2-computed-prop-name-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-computed-prop-name-node-tags type-of signal wrong-type-argument js2-computed-prop-name-node 4] 5 (#$ . 725496)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-computed-prop-name-node-props side-effect-free t] 4) #@91 compiler-macro for inlining `js2-computed-prop-name-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-computed-prop-name-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-computed-prop-name-node-parent (or (js2-computed-prop-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-computed-prop-name-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 726092)]) (put 'js2-computed-prop-name-node-parent 'compiler-macro 'js2-computed-prop-name-node-parent--cmacro) #@253 Access slot "parent" of `(js2-computed-prop-name-node (:include js2-node) (:constructor make-js2-computed-prop-name-node (&key (type js2-LB) expr (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))))))' struct CL-X. (fn CL-X) (defalias 'js2-computed-prop-name-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-computed-prop-name-node-tags type-of signal wrong-type-argument js2-computed-prop-name-node 5] 5 (#$ . 726610)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-computed-prop-name-node-parent side-effect-free t] 4) #@89 compiler-macro for inlining `js2-computed-prop-name-node-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-computed-prop-name-node-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-computed-prop-name-node-expr (or (js2-computed-prop-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-computed-prop-name-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 727209)]) (put 'js2-computed-prop-name-node-expr 'compiler-macro 'js2-computed-prop-name-node-expr--cmacro) #@251 Access slot "expr" of `(js2-computed-prop-name-node (:include js2-node) (:constructor make-js2-computed-prop-name-node (&key (type js2-LB) expr (pos (js2-current-token-beg)) (len (- js2-ts-cursor (js2-current-token-beg))))))' struct CL-X. (fn CL-X) (defalias 'js2-computed-prop-name-node-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-computed-prop-name-node-tags type-of signal wrong-type-argument js2-computed-prop-name-node 6] 5 (#$ . 727717)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-computed-prop-name-node-expr side-effect-free t defalias copy-js2-computed-prop-name-node copy-sequence] 4) #@192 compiler-macro for inlining `make-js2-computed-prop-name-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-LB) EXPR (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg)))) (defalias 'make-js2-computed-prop-name-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"A@\300\304\"\206\305A@\300\306\"\206\"\307A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-LB) :expr :pos (nil (js2-current-token-beg)) :len (nil (- js2-ts-cursor (js2-current-token-beg))) (:type :expr :pos :len :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :expr :pos :len)" cl--defsubst-expand (type expr pos len) (cl-block make-js2-computed-prop-name-node (record 'js2-computed-prop-name-node type pos len nil nil expr))] 16 (#$ . 728377)]) (put 'make-js2-computed-prop-name-node 'compiler-macro 'make-js2-computed-prop-name-node--cmacro) #@172 Constructor for objects of type `js2-computed-prop-name-node'. (fn &key (TYPE js2-LB) EXPR (POS (js2-current-token-beg)) (LEN (- js2-ts-cursor (js2-current-token-beg)))) (defalias 'make-js2-computed-prop-name-node #[128 "\305\306\"\206\n\307DA@\305\310\"A@\305\311\"\2062\307 \nH\312! >\204,\313\314\315D\"\210\211\316H\262DA@\305\317\"\206V\307\f \nH\312! >\204O\313\314\315D\"\210\211\316H\262ZDA@\211\203\204\211@\320>\203l\211AA\262\202Y\321>A@\203{\307\262\202Y\322\323@\"\210\202Y\210\324\325\307\211 &\207" [js2-LB js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor plist-member :type nil :expr :pos type-of signal wrong-type-argument js2-token 2 :len (:type :expr :pos :len :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :expr :pos :len)" record js2-computed-prop-name-node] 13 (#$ . 729375)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-computed-prop-name-node side-effect-free t cl-struct-define js2-computed-prop-name-node "AST node for a `ComputedPropertyName'." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (expr)) cl-struct-js2-computed-prop-name-node-tags js2--struct-put js2-visitor js2-visit-computed-prop-name-node js2-printer js2-print-computed-prop-name-node] 11) #@12 (fn N V) (defalias 'js2-visit-computed-prop-name-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-computed-prop-name-node-tags js2-visit-ast type-of signal wrong-type-argument js2-computed-prop-name-node 6] 7 (#$ . 730797)]) #@12 (fn N I) (defalias 'js2-print-computed-prop-name-node #[514 "\301!\302\261\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\312c\207" [cl-struct-js2-computed-prop-name-node-tags js2-make-pad "[" js2-print-ast type-of signal wrong-type-argument js2-computed-prop-name-node 6 0 "]"] 7 (#$ . 731061)]) #@79 compiler-macro for inlining `js2-object-prop-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-p (and (memq (type-of cl-x) cl-struct-js2-object-prop-node-tags) t)) nil] 9 (#$ . 731379)]) (put 'js2-object-prop-node-p 'compiler-macro 'js2-object-prop-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-object-prop-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-object-prop-node-tags type-of t] 3 (#$ . 731775)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-object-prop-node-p side-effect-free error-free put js2-object-prop-node cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `js2-object-prop-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-type (or (js2-object-prop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-prop-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 732091)]) (put 'js2-object-prop-node-type 'compiler-macro 'js2-object-prop-node-type--cmacro) #@205 Access slot "type" of `(js2-object-prop-node (:include js2-infix-node) (:constructor make-js2-object-prop-node (&key (type js2-COLON) (pos js2-ts-cursor) len left right op-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-object-prop-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-prop-node-tags type-of signal wrong-type-argument js2-object-prop-node 1] 5 (#$ . 732550)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-prop-node-type side-effect-free t] 4) #@81 compiler-macro for inlining `js2-object-prop-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-pos (or (js2-object-prop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-prop-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 733069)]) (put 'js2-object-prop-node-pos 'compiler-macro 'js2-object-prop-node-pos--cmacro) #@204 Access slot "pos" of `(js2-object-prop-node (:include js2-infix-node) (:constructor make-js2-object-prop-node (&key (type js2-COLON) (pos js2-ts-cursor) len left right op-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-object-prop-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-prop-node-tags type-of signal wrong-type-argument js2-object-prop-node 2] 5 (#$ . 733523)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-prop-node-pos side-effect-free t] 4) #@81 compiler-macro for inlining `js2-object-prop-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-len (or (js2-object-prop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-prop-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 734039)]) (put 'js2-object-prop-node-len 'compiler-macro 'js2-object-prop-node-len--cmacro) #@204 Access slot "len" of `(js2-object-prop-node (:include js2-infix-node) (:constructor make-js2-object-prop-node (&key (type js2-COLON) (pos js2-ts-cursor) len left right op-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-object-prop-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-prop-node-tags type-of signal wrong-type-argument js2-object-prop-node 3] 5 (#$ . 734493)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-prop-node-len side-effect-free t] 4) #@83 compiler-macro for inlining `js2-object-prop-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-props (or (js2-object-prop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-prop-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 735009)]) (put 'js2-object-prop-node-props 'compiler-macro 'js2-object-prop-node-props--cmacro) #@206 Access slot "props" of `(js2-object-prop-node (:include js2-infix-node) (:constructor make-js2-object-prop-node (&key (type js2-COLON) (pos js2-ts-cursor) len left right op-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-object-prop-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-prop-node-tags type-of signal wrong-type-argument js2-object-prop-node 4] 5 (#$ . 735473)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-prop-node-props side-effect-free t] 4) #@84 compiler-macro for inlining `js2-object-prop-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-parent (or (js2-object-prop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-prop-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 735995)]) (put 'js2-object-prop-node-parent 'compiler-macro 'js2-object-prop-node-parent--cmacro) #@207 Access slot "parent" of `(js2-object-prop-node (:include js2-infix-node) (:constructor make-js2-object-prop-node (&key (type js2-COLON) (pos js2-ts-cursor) len left right op-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-object-prop-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-prop-node-tags type-of signal wrong-type-argument js2-object-prop-node 5] 5 (#$ . 736464)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-prop-node-parent side-effect-free t] 4) #@84 compiler-macro for inlining `js2-object-prop-node-op-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-op-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-op-pos (or (js2-object-prop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-prop-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 736989)]) (put 'js2-object-prop-node-op-pos 'compiler-macro 'js2-object-prop-node-op-pos--cmacro) #@207 Access slot "op-pos" of `(js2-object-prop-node (:include js2-infix-node) (:constructor make-js2-object-prop-node (&key (type js2-COLON) (pos js2-ts-cursor) len left right op-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-object-prop-node-op-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-prop-node-tags type-of signal wrong-type-argument js2-object-prop-node 6] 5 (#$ . 737458)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-prop-node-op-pos side-effect-free t] 4) #@82 compiler-macro for inlining `js2-object-prop-node-left'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-left--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-left (or (js2-object-prop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-prop-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 737983)]) (put 'js2-object-prop-node-left 'compiler-macro 'js2-object-prop-node-left--cmacro) #@205 Access slot "left" of `(js2-object-prop-node (:include js2-infix-node) (:constructor make-js2-object-prop-node (&key (type js2-COLON) (pos js2-ts-cursor) len left right op-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-object-prop-node-left #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-prop-node-tags type-of signal wrong-type-argument js2-object-prop-node 7] 5 (#$ . 738442)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-object-prop-node-left side-effect-free t] 4) #@83 compiler-macro for inlining `js2-object-prop-node-right'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-object-prop-node-right--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-object-prop-node-right (or (js2-object-prop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-object-prop-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 738961)]) (put 'js2-object-prop-node-right 'compiler-macro 'js2-object-prop-node-right--cmacro) #@206 Access slot "right" of `(js2-object-prop-node (:include js2-infix-node) (:constructor make-js2-object-prop-node (&key (type js2-COLON) (pos js2-ts-cursor) len left right op-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-object-prop-node-right #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-object-prop-node-tags type-of signal wrong-type-argument js2-object-prop-node 8] 5 (#$ . 739425)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-object-prop-node-right side-effect-free t defalias copy-js2-object-prop-node copy-sequence] 4) #@147 compiler-macro for inlining `make-js2-object-prop-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-COLON) (POS js2-ts-cursor) LEN LEFT RIGHT OP-POS) (defalias 'make-js2-object-prop-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\211\203^\211@\312>\203F\211AA\262\2023\313>A@\203U\314\262\2023\315\316@\"\210\2023\210\317\320\321\314 \314      & \207" [plist-member :type (nil js2-COLON) :pos (nil js2-ts-cursor) :len (nil 1) :left :right :op-pos (:type :pos :len :left :right :op-pos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :left :right :op-pos)" cl--defsubst-expand (type pos len left right op-pos) (cl-block make-js2-object-prop-node (record 'js2-object-prop-node type pos len nil nil op-pos left right))] 20 (#$ . 740007)]) (put 'make-js2-object-prop-node 'compiler-macro 'make-js2-object-prop-node--cmacro) #@127 Constructor for objects of type `js2-object-prop-node'. (fn &key (TYPE js2-COLON) (POS js2-ts-cursor) LEN LEFT RIGHT OP-POS) (defalias 'make-js2-object-prop-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\211\203b\211@\313>\203J\211AA\262\2027\314>A@\203Y\304\262\2027\315\316@\"\210\2027\210\317\320\304\211\n\n& \207" [js2-COLON js2-ts-cursor plist-member :type nil :pos :len (nil 1) :left :right :op-pos (:type :pos :len :left :right :op-pos :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :left :right :op-pos)" record js2-object-prop-node] 17 (#$ . 740980)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-object-prop-node side-effect-free t cl-struct-define js2-object-prop-node "AST node for an object literal prop:value entry.\nThe `left' field is the property: a name node, string node,\nnumber node or expression node. The `right' field is a\n`js2-node' representing the initializer value. If the property\nis abbreviated, the node's `SHORTHAND' property is non-nil and\nboth fields have the same value." js2-infix-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (op-pos nil) (left nil) (right nil)) cl-struct-js2-object-prop-node-tags js2--struct-put js2-visitor js2-visit-infix-node js2-printer js2-print-object-prop-node] 11) #@12 (fn N I) (defalias 'js2-print-object-prop-node #[514 "\302!>\204\303\304\305D\"\210\306H\302!>\204!\303\304\305D\"\210\307H\310\"\210\311\312\313\302! >\204>\303\304\314D\"\210\315H\"A@\206H\211\266\203?\205U\316c\210\310\317\"\207" [cl-struct-js2-object-prop-node-tags cl-struct-js2-node-tags type-of signal wrong-type-argument js2-object-prop-node 7 8 js2-print-ast SHORTHAND nil assoc js2-node 4 ": " 0] 13 (#$ . 742504)]) #@74 compiler-macro for inlining `js2-method-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-p (and (memq (type-of cl-x) cl-struct-js2-method-node-tags) t)) nil] 9 (#$ . 742961)]) (put 'js2-method-node-p 'compiler-macro 'js2-method-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-method-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-method-node-tags type-of t] 3 (#$ . 743327)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-method-node-p side-effect-free error-free put js2-method-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-method-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-type (or (js2-method-node-p cl-x) (signal 'wrong-type-argument (list 'js2-method-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 743623)]) (put 'js2-method-node-type 'compiler-macro 'js2-method-node-type--cmacro) #@171 Access slot "type" of `(js2-method-node (:include js2-infix-node) (:constructor make-js2-method-node (&key (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-method-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-method-node-tags type-of signal wrong-type-argument js2-method-node 1] 5 (#$ . 744047)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-method-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-method-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-pos (or (js2-method-node-p cl-x) (signal 'wrong-type-argument (list 'js2-method-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 744512)]) (put 'js2-method-node-pos 'compiler-macro 'js2-method-node-pos--cmacro) #@170 Access slot "pos" of `(js2-method-node (:include js2-infix-node) (:constructor make-js2-method-node (&key (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-method-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-method-node-tags type-of signal wrong-type-argument js2-method-node 2] 5 (#$ . 744931)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-method-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-method-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-len (or (js2-method-node-p cl-x) (signal 'wrong-type-argument (list 'js2-method-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 745393)]) (put 'js2-method-node-len 'compiler-macro 'js2-method-node-len--cmacro) #@170 Access slot "len" of `(js2-method-node (:include js2-infix-node) (:constructor make-js2-method-node (&key (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-method-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-method-node-tags type-of signal wrong-type-argument js2-method-node 3] 5 (#$ . 745812)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-method-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-method-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-props (or (js2-method-node-p cl-x) (signal 'wrong-type-argument (list 'js2-method-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 746274)]) (put 'js2-method-node-props 'compiler-macro 'js2-method-node-props--cmacro) #@172 Access slot "props" of `(js2-method-node (:include js2-infix-node) (:constructor make-js2-method-node (&key (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-method-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-method-node-tags type-of signal wrong-type-argument js2-method-node 4] 5 (#$ . 746703)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-method-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-method-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-parent (or (js2-method-node-p cl-x) (signal 'wrong-type-argument (list 'js2-method-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 747171)]) (put 'js2-method-node-parent 'compiler-macro 'js2-method-node-parent--cmacro) #@173 Access slot "parent" of `(js2-method-node (:include js2-infix-node) (:constructor make-js2-method-node (&key (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-method-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-method-node-tags type-of signal wrong-type-argument js2-method-node 5] 5 (#$ . 747605)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-method-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-method-node-op-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-op-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-op-pos (or (js2-method-node-p cl-x) (signal 'wrong-type-argument (list 'js2-method-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 748076)]) (put 'js2-method-node-op-pos 'compiler-macro 'js2-method-node-op-pos--cmacro) #@173 Access slot "op-pos" of `(js2-method-node (:include js2-infix-node) (:constructor make-js2-method-node (&key (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-method-node-op-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-method-node-tags type-of signal wrong-type-argument js2-method-node 6] 5 (#$ . 748510)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-method-node-op-pos side-effect-free t] 4) #@77 compiler-macro for inlining `js2-method-node-left'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-left--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-left (or (js2-method-node-p cl-x) (signal 'wrong-type-argument (list 'js2-method-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 748981)]) (put 'js2-method-node-left 'compiler-macro 'js2-method-node-left--cmacro) #@171 Access slot "left" of `(js2-method-node (:include js2-infix-node) (:constructor make-js2-method-node (&key (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-method-node-left #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-method-node-tags type-of signal wrong-type-argument js2-method-node 7] 5 (#$ . 749405)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-method-node-left side-effect-free t] 4) #@78 compiler-macro for inlining `js2-method-node-right'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-method-node-right--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-method-node-right (or (js2-method-node-p cl-x) (signal 'wrong-type-argument (list 'js2-method-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 749870)]) (put 'js2-method-node-right 'compiler-macro 'js2-method-node-right--cmacro) #@172 Access slot "right" of `(js2-method-node (:include js2-infix-node) (:constructor make-js2-method-node (&key (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-method-node-right #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-method-node-tags type-of signal wrong-type-argument js2-method-node 8] 5 (#$ . 750299)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-method-node-right side-effect-free t defalias copy-js2-method-node copy-sequence] 4) #@118 compiler-macro for inlining `make-js2-method-node'. (fn CL-WHOLE &cl-quote &key (POS js2-ts-cursor) LEN LEFT RIGHT) (defalias 'make-js2-method-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"A@\300\306\"A@\211\203L\211@\307>\2034\211AA\262\202!\310>A@\203C\311\262\202!\312\313@\"\210\202!\210\314\315\316\311 \311    & \207" [plist-member :pos (nil js2-ts-cursor) :len (nil 1) :left :right (:pos :len :left :right :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:pos :len :left :right)" cl--defsubst-expand (pos len left right) (cl-block make-js2-method-node (record 'js2-method-node -1 pos len nil nil nil left right))] 16 (#$ . 750822)]) (put 'make-js2-method-node 'compiler-macro 'make-js2-method-node--cmacro) #@98 Constructor for objects of type `js2-method-node'. (fn &key (POS js2-ts-cursor) LEN LEFT RIGHT) (defalias 'make-js2-method-node #[128 "\301\302\"\206\n\303DA@\301\304\"\206\305A@\301\306\"A@\301\307\"A@\211\203N\211@\310>\2036\211AA\262\202#\311>A@\203E\303\262\202#\312\313@\"\210\202#\210\314\315\316\303\211\211  & \207" [js2-ts-cursor plist-member :pos nil :len (nil 1) :left :right (:pos :len :left :right :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:pos :len :left :right)" record js2-method-node -1] 15 (#$ . 751623)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-method-node side-effect-free t cl-struct-define js2-method-node "AST node for a method in an object literal or a class body.\nThe `left' field is the `js2-name-node' naming the method.\nThe `right' field is always an anonymous `js2-function-node' with a node\nproperty `METHOD_TYPE' set to 'GET or 'SET. " js2-infix-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (op-pos nil) (left nil) (right nil)) cl-struct-js2-method-node-tags js2--struct-put js2-visitor js2-visit-infix-node js2-printer js2-print-method] 11) #@12 (fn N I) (defalias 'js2-print-method #[514 "\303!\304!>\204\305\306\307D\"\210\310H\304!>\204%\305\306\307D\"\210\311H\211\312\313\314\304! >\204=\305\306\315D\"\210\316H\"A@\206G\211\266\203c\210\211\203W\314\317\"Ac\210\304!\n>\203y\304!\n>\204n\305\306\320D\"\210\321H\322=\203y\323c\210\324\325\"\210\324\325\"\207" [cl-struct-js2-method-node-tags cl-struct-js2-node-tags cl-struct-js2-function-node-tags js2-make-pad type-of signal wrong-type-argument js2-method-node 7 8 METHOD_TYPE nil assoc js2-node 4 ((GET . "get ") (SET . "set ") (ASYNC . "async ") (FUNCTION . "")) js2-function-node 27 STAR "*" js2-print-ast 0] 14 (#$ . 752906)]) #@76 compiler-macro for inlining `js2-prop-get-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-p (and (memq (type-of cl-x) cl-struct-js2-prop-get-node-tags) t)) nil] 9 (#$ . 753589)]) (put 'js2-prop-get-node-p 'compiler-macro 'js2-prop-get-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-prop-get-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-prop-get-node-tags type-of t] 3 (#$ . 753967)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-prop-get-node-p side-effect-free error-free put js2-prop-get-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-prop-get-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-type (or (js2-prop-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-prop-get-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 754271)]) (put 'js2-prop-get-node-type 'compiler-macro 'js2-prop-get-node-type--cmacro) #@194 Access slot "type" of `(js2-prop-get-node (:include js2-infix-node) (:constructor make-js2-prop-get-node (&key (type js2-GETPROP) (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-prop-get-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-prop-get-node-tags type-of signal wrong-type-argument js2-prop-get-node 1] 5 (#$ . 754709)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-prop-get-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-prop-get-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-pos (or (js2-prop-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-prop-get-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 755205)]) (put 'js2-prop-get-node-pos 'compiler-macro 'js2-prop-get-node-pos--cmacro) #@193 Access slot "pos" of `(js2-prop-get-node (:include js2-infix-node) (:constructor make-js2-prop-get-node (&key (type js2-GETPROP) (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-prop-get-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-prop-get-node-tags type-of signal wrong-type-argument js2-prop-get-node 2] 5 (#$ . 755638)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-prop-get-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-prop-get-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-len (or (js2-prop-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-prop-get-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 756131)]) (put 'js2-prop-get-node-len 'compiler-macro 'js2-prop-get-node-len--cmacro) #@193 Access slot "len" of `(js2-prop-get-node (:include js2-infix-node) (:constructor make-js2-prop-get-node (&key (type js2-GETPROP) (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-prop-get-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-prop-get-node-tags type-of signal wrong-type-argument js2-prop-get-node 3] 5 (#$ . 756564)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-prop-get-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-prop-get-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-props (or (js2-prop-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-prop-get-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 757057)]) (put 'js2-prop-get-node-props 'compiler-macro 'js2-prop-get-node-props--cmacro) #@195 Access slot "props" of `(js2-prop-get-node (:include js2-infix-node) (:constructor make-js2-prop-get-node (&key (type js2-GETPROP) (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-prop-get-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-prop-get-node-tags type-of signal wrong-type-argument js2-prop-get-node 4] 5 (#$ . 757500)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-prop-get-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-prop-get-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-parent (or (js2-prop-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-prop-get-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 757999)]) (put 'js2-prop-get-node-parent 'compiler-macro 'js2-prop-get-node-parent--cmacro) #@196 Access slot "parent" of `(js2-prop-get-node (:include js2-infix-node) (:constructor make-js2-prop-get-node (&key (type js2-GETPROP) (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-prop-get-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-prop-get-node-tags type-of signal wrong-type-argument js2-prop-get-node 5] 5 (#$ . 758447)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-prop-get-node-parent side-effect-free t] 4) #@81 compiler-macro for inlining `js2-prop-get-node-op-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-op-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-op-pos (or (js2-prop-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-prop-get-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 758949)]) (put 'js2-prop-get-node-op-pos 'compiler-macro 'js2-prop-get-node-op-pos--cmacro) #@196 Access slot "op-pos" of `(js2-prop-get-node (:include js2-infix-node) (:constructor make-js2-prop-get-node (&key (type js2-GETPROP) (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-prop-get-node-op-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-prop-get-node-tags type-of signal wrong-type-argument js2-prop-get-node 6] 5 (#$ . 759397)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-prop-get-node-op-pos side-effect-free t] 4) #@79 compiler-macro for inlining `js2-prop-get-node-left'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-left--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-left (or (js2-prop-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-prop-get-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 759899)]) (put 'js2-prop-get-node-left 'compiler-macro 'js2-prop-get-node-left--cmacro) #@194 Access slot "left" of `(js2-prop-get-node (:include js2-infix-node) (:constructor make-js2-prop-get-node (&key (type js2-GETPROP) (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-prop-get-node-left #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-prop-get-node-tags type-of signal wrong-type-argument js2-prop-get-node 7] 5 (#$ . 760337)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-prop-get-node-left side-effect-free t] 4) #@80 compiler-macro for inlining `js2-prop-get-node-right'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-prop-get-node-right--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-prop-get-node-right (or (js2-prop-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-prop-get-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 760833)]) (put 'js2-prop-get-node-right 'compiler-macro 'js2-prop-get-node-right--cmacro) #@195 Access slot "right" of `(js2-prop-get-node (:include js2-infix-node) (:constructor make-js2-prop-get-node (&key (type js2-GETPROP) (pos js2-ts-cursor) len left right)))' struct CL-X. (fn CL-X) (defalias 'js2-prop-get-node-right #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-prop-get-node-tags type-of signal wrong-type-argument js2-prop-get-node 8] 5 (#$ . 761276)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-prop-get-node-right side-effect-free t defalias copy-js2-prop-get-node copy-sequence] 4) #@139 compiler-macro for inlining `make-js2-prop-get-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-GETPROP) (POS js2-ts-cursor) LEN LEFT RIGHT) (defalias 'make-js2-prop-get-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-GETPROP) :pos (nil js2-ts-cursor) :len (nil 1) :left :right (:type :pos :len :left :right :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :left :right)" cl--defsubst-expand (type pos len left right) (cl-block make-js2-prop-get-node (record 'js2-prop-get-node type pos len nil nil nil left right))] 18 (#$ . 761832)]) (put 'make-js2-prop-get-node 'compiler-macro 'make-js2-prop-get-node--cmacro) #@119 Constructor for objects of type `js2-prop-get-node'. (fn &key (TYPE js2-GETPROP) (POS js2-ts-cursor) LEN LEFT RIGHT) (defalias 'make-js2-prop-get-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211\211  & \207" [js2-GETPROP js2-ts-cursor plist-member :type nil :pos :len (nil 1) :left :right (:type :pos :len :left :right :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :left :right)" record js2-prop-get-node] 16 (#$ . 762740)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-prop-get-node side-effect-free t cl-struct-define js2-prop-get-node "AST node for a dotted property reference, e.g. foo.bar or foo().bar" js2-infix-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (op-pos nil) (left nil) (right nil)) cl-struct-js2-prop-get-node-tags js2--struct-put js2-visitor js2-visit-prop-get-node js2-printer js2-print-prop-get-node] 11) #@12 (fn N V) (defalias 'js2-visit-prop-get-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-prop-get-node-tags js2-visit-ast type-of signal wrong-type-argument js2-prop-get-node 7 8] 7 (#$ . 763942)]) #@12 (fn N I) (defalias 'js2-print-prop-get-node #[514 "\301!c\210\302\303!>\204\304\305\306D\"\210\307H\310\"\210\311c\210\302\303!>\204.\304\305\306D\"\210\312H\310\"\207" [cl-struct-js2-prop-get-node-tags js2-make-pad js2-print-ast type-of signal wrong-type-argument js2-prop-get-node 7 0 "." 8] 7 (#$ . 764229)]) #@76 compiler-macro for inlining `js2-elem-get-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-p (and (memq (type-of cl-x) cl-struct-js2-elem-get-node-tags) t)) nil] 9 (#$ . 764561)]) (put 'js2-elem-get-node-p 'compiler-macro 'js2-elem-get-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-elem-get-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-elem-get-node-tags type-of t] 3 (#$ . 764939)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-elem-get-node-p side-effect-free error-free put js2-elem-get-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-elem-get-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-type (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 765243)]) (put 'js2-elem-get-node-type 'compiler-macro 'js2-elem-get-node-type--cmacro) #@198 Access slot "type" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 1] 5 (#$ . 765681)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-elem-get-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-elem-get-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-pos (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 766181)]) (put 'js2-elem-get-node-pos 'compiler-macro 'js2-elem-get-node-pos--cmacro) #@197 Access slot "pos" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 2] 5 (#$ . 766614)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-elem-get-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-elem-get-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-len (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 767111)]) (put 'js2-elem-get-node-len 'compiler-macro 'js2-elem-get-node-len--cmacro) #@197 Access slot "len" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 3] 5 (#$ . 767544)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-elem-get-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-elem-get-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-props (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 768041)]) (put 'js2-elem-get-node-props 'compiler-macro 'js2-elem-get-node-props--cmacro) #@199 Access slot "props" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 4] 5 (#$ . 768484)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-elem-get-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-elem-get-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-parent (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 768987)]) (put 'js2-elem-get-node-parent 'compiler-macro 'js2-elem-get-node-parent--cmacro) #@200 Access slot "parent" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 5] 5 (#$ . 769435)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-elem-get-node-parent side-effect-free t] 4) #@81 compiler-macro for inlining `js2-elem-get-node-target'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-target--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-target (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 769941)]) (put 'js2-elem-get-node-target 'compiler-macro 'js2-elem-get-node-target--cmacro) #@200 Access slot "target" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-target #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 6] 5 (#$ . 770389)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-elem-get-node-target side-effect-free t] 4) #@82 compiler-macro for inlining `js2-elem-get-node-element'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-element--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-element (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 770895)]) (put 'js2-elem-get-node-element 'compiler-macro 'js2-elem-get-node-element--cmacro) #@201 Access slot "element" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-element #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 7] 5 (#$ . 771348)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-elem-get-node-element side-effect-free t] 4) #@77 compiler-macro for inlining `js2-elem-get-node-lb'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-lb--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-lb (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 771857)]) (put 'js2-elem-get-node-lb 'compiler-macro 'js2-elem-get-node-lb--cmacro) #@196 Access slot "lb" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-lb #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 8] 5 (#$ . 772285)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-elem-get-node-lb side-effect-free t] 4) #@77 compiler-macro for inlining `js2-elem-get-node-rb'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-elem-get-node-rb--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-elem-get-node-rb (or (js2-elem-get-node-p cl-x) (signal 'wrong-type-argument (list 'js2-elem-get-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 772779)]) (put 'js2-elem-get-node-rb 'compiler-macro 'js2-elem-get-node-rb--cmacro) #@196 Access slot "rb" of `(js2-elem-get-node (:include js2-node) (:constructor make-js2-elem-get-node (&key (type js2-GETELEM) (pos js2-ts-cursor) len target element lb rb)))' struct CL-X. (fn CL-X) (defalias 'js2-elem-get-node-rb #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-elem-get-node 9] 5 (#$ . 773207)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-elem-get-node-rb side-effect-free t defalias copy-js2-elem-get-node copy-sequence] 4) #@149 compiler-macro for inlining `make-js2-elem-get-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-GETELEM) (POS js2-ts-cursor) LEN TARGET ELEMENT LB RB) (defalias 'make-js2-elem-get-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-GETELEM) :pos (nil js2-ts-cursor) :len (nil 1) :target :element :lb :rb (:type :pos :len :target :element :lb :rb :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :target :element :lb :rb)" cl--defsubst-expand (type pos len target element lb rb) (cl-block make-js2-elem-get-node (record 'js2-elem-get-node type pos len nil nil target element lb rb))] 22 (#$ . 773758)]) (put 'make-js2-elem-get-node 'compiler-macro 'make-js2-elem-get-node--cmacro) #@129 Constructor for objects of type `js2-elem-get-node'. (fn &key (TYPE js2-GETELEM) (POS js2-ts-cursor) LEN TARGET ELEMENT LB RB) (defalias 'make-js2-elem-get-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\211\203i\211@\314>\203Q\211AA\262\202>\315 >A@\203`\304\262\202>\316\317@\"\210\202>\210\320\321\304\211\n\n\n\n&\n\207" [js2-GETELEM js2-ts-cursor plist-member :type nil :pos :len (nil 1) :target :element :lb :rb (:type :pos :len :target :element :lb :rb :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :target :element :lb :rb)" record js2-elem-get-node] 19 (#$ . 774764)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-elem-get-node side-effect-free t cl-struct-define js2-elem-get-node "AST node for an array index expression such as foo[bar]." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (target) (element) (lb) (rb)) cl-struct-js2-elem-get-node-tags js2--struct-put js2-visitor js2-visit-elem-get-node js2-printer js2-print-elem-get-node] 11) #@12 (fn N V) (defalias 'js2-visit-elem-get-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-elem-get-node-tags js2-visit-ast type-of signal wrong-type-argument js2-elem-get-node 6 7] 7 (#$ . 776022)]) #@12 (fn N I) (defalias 'js2-print-elem-get-node #[514 "\301!c\210\302\303!>\204\304\305\306D\"\210\307H\310\"\210\311c\210\302\303!>\204.\304\305\306D\"\210\312H\310\"\210\313c\207" [cl-struct-js2-elem-get-node-tags js2-make-pad js2-print-ast type-of signal wrong-type-argument js2-elem-get-node 6 0 "[" 7 "]"] 7 (#$ . 776309)]) #@72 compiler-macro for inlining `js2-call-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-p (and (memq (type-of cl-x) cl-struct-js2-call-node-tags) t)) nil] 9 (#$ . 776654)]) (put 'js2-call-node-p 'compiler-macro 'js2-call-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-call-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-call-node-tags type-of t] 3 (#$ . 777008)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-call-node-p side-effect-free error-free put js2-call-node cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `js2-call-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-type (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 777296)]) (put 'js2-call-node-type 'compiler-macro 'js2-call-node-type--cmacro) #@184 Access slot "type" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 1] 5 (#$ . 777706)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-call-node-type side-effect-free t] 4) #@74 compiler-macro for inlining `js2-call-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-pos (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 778176)]) (put 'js2-call-node-pos 'compiler-macro 'js2-call-node-pos--cmacro) #@183 Access slot "pos" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 2] 5 (#$ . 778581)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-call-node-pos side-effect-free t] 4) #@74 compiler-macro for inlining `js2-call-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-len (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 779048)]) (put 'js2-call-node-len 'compiler-macro 'js2-call-node-len--cmacro) #@183 Access slot "len" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 3] 5 (#$ . 779453)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-call-node-len side-effect-free t] 4) #@76 compiler-macro for inlining `js2-call-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-props (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 779920)]) (put 'js2-call-node-props 'compiler-macro 'js2-call-node-props--cmacro) #@185 Access slot "props" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 4] 5 (#$ . 780335)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-call-node-props side-effect-free t] 4) #@77 compiler-macro for inlining `js2-call-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-parent (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 780808)]) (put 'js2-call-node-parent 'compiler-macro 'js2-call-node-parent--cmacro) #@186 Access slot "parent" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 5] 5 (#$ . 781228)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-call-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-call-node-target'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-target--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-target (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 781704)]) (put 'js2-call-node-target 'compiler-macro 'js2-call-node-target--cmacro) #@186 Access slot "target" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-target #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 6] 5 (#$ . 782124)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-call-node-target side-effect-free t] 4) #@75 compiler-macro for inlining `js2-call-node-args'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-args--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-args (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 782600)]) (put 'js2-call-node-args 'compiler-macro 'js2-call-node-args--cmacro) #@184 Access slot "args" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-args #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 7] 5 (#$ . 783010)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-call-node-args side-effect-free t] 4) #@73 compiler-macro for inlining `js2-call-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-lp (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 783480)]) (put 'js2-call-node-lp 'compiler-macro 'js2-call-node-lp--cmacro) #@182 Access slot "lp" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 8] 5 (#$ . 783880)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-call-node-lp side-effect-free t] 4) #@73 compiler-macro for inlining `js2-call-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-call-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-call-node-rp (or (js2-call-node-p cl-x) (signal 'wrong-type-argument (list 'js2-call-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 784344)]) (put 'js2-call-node-rp 'compiler-macro 'js2-call-node-rp--cmacro) #@182 Access slot "rp" of `(js2-call-node (:include js2-node) (:constructor make-js2-call-node (&key (type js2-CALL) (pos js2-ts-cursor) len target args lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-call-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-call-node 9] 5 (#$ . 784744)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-call-node-rp side-effect-free t defalias copy-js2-call-node copy-sequence] 4) #@139 compiler-macro for inlining `make-js2-call-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-CALL) (POS js2-ts-cursor) LEN TARGET ARGS LP RP) (defalias 'make-js2-call-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-CALL) :pos (nil js2-ts-cursor) :len (nil 1) :target :args :lp :rp (:type :pos :len :target :args :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :target :args :lp :rp)" cl--defsubst-expand (type pos len target args lp rp) (cl-block make-js2-call-node (record 'js2-call-node type pos len nil nil target args lp rp))] 22 (#$ . 785261)]) (put 'make-js2-call-node 'compiler-macro 'make-js2-call-node--cmacro) #@119 Constructor for objects of type `js2-call-node'. (fn &key (TYPE js2-CALL) (POS js2-ts-cursor) LEN TARGET ARGS LP RP) (defalias 'make-js2-call-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\211\203i\211@\314>\203Q\211AA\262\202>\315 >A@\203`\304\262\202>\316\317@\"\210\202>\210\320\321\304\211\n\n\n\n&\n\207" [js2-CALL js2-ts-cursor plist-member :type nil :pos :len (nil 1) :target :args :lp :rp (:type :pos :len :target :args :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :target :args :lp :rp)" record js2-call-node] 19 (#$ . 786219)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-call-node side-effect-free t cl-struct-define js2-call-node "AST node for a JavaScript function call." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (target) (args) (lp) (rp)) cl-struct-js2-call-node-tags js2--struct-put js2-visitor js2-visit-call-node js2-printer js2-print-call-node] 11) #@12 (fn N V) (defalias 'js2-visit-call-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\211\205:\211@\301\"\210A\266\202\202(\207" [cl-struct-js2-call-node-tags js2-visit-ast type-of signal wrong-type-argument js2-call-node 6 7] 7 (#$ . 787408)]) #@12 (fn N I) (defalias 'js2-print-call-node #[514 "\301!c\210\302\303!>\204\304\305\306D\"\210\307H\310\"\210\311c\210\312\303!>\204.\304\305\306D\"\210\313H!\210\314c\207" [cl-struct-js2-call-node-tags js2-make-pad js2-print-ast type-of signal wrong-type-argument js2-call-node 6 0 "(" js2-print-list 7 ")"] 7 (#$ . 787719)]) #@73 compiler-macro for inlining `js2-yield-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-yield-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-yield-node-p (and (memq (type-of cl-x) cl-struct-js2-yield-node-tags) t)) nil] 9 (#$ . 788062)]) (put 'js2-yield-node-p 'compiler-macro 'js2-yield-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-yield-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-yield-node-tags type-of t] 3 (#$ . 788422)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-yield-node-p side-effect-free error-free put js2-yield-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-yield-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-yield-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-yield-node-type (or (js2-yield-node-p cl-x) (signal 'wrong-type-argument (list 'js2-yield-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 788714)]) (put 'js2-yield-node-type 'compiler-macro 'js2-yield-node-type--cmacro) #@182 Access slot "type" of `(js2-yield-node (:include js2-node) (:constructor make-js2-yield-node (&key (type js2-YIELD) (pos js2-ts-cursor) len value star-p)))' struct CL-X. (fn CL-X) (defalias 'js2-yield-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-yield-node-tags type-of signal wrong-type-argument js2-yield-node 1] 5 (#$ . 789131)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-yield-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-yield-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-yield-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-yield-node-pos (or (js2-yield-node-p cl-x) (signal 'wrong-type-argument (list 'js2-yield-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 789603)]) (put 'js2-yield-node-pos 'compiler-macro 'js2-yield-node-pos--cmacro) #@181 Access slot "pos" of `(js2-yield-node (:include js2-node) (:constructor make-js2-yield-node (&key (type js2-YIELD) (pos js2-ts-cursor) len value star-p)))' struct CL-X. (fn CL-X) (defalias 'js2-yield-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-yield-node-tags type-of signal wrong-type-argument js2-yield-node 2] 5 (#$ . 790015)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-yield-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-yield-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-yield-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-yield-node-len (or (js2-yield-node-p cl-x) (signal 'wrong-type-argument (list 'js2-yield-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 790484)]) (put 'js2-yield-node-len 'compiler-macro 'js2-yield-node-len--cmacro) #@181 Access slot "len" of `(js2-yield-node (:include js2-node) (:constructor make-js2-yield-node (&key (type js2-YIELD) (pos js2-ts-cursor) len value star-p)))' struct CL-X. (fn CL-X) (defalias 'js2-yield-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-yield-node-tags type-of signal wrong-type-argument js2-yield-node 3] 5 (#$ . 790896)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-yield-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-yield-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-yield-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-yield-node-props (or (js2-yield-node-p cl-x) (signal 'wrong-type-argument (list 'js2-yield-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 791365)]) (put 'js2-yield-node-props 'compiler-macro 'js2-yield-node-props--cmacro) #@183 Access slot "props" of `(js2-yield-node (:include js2-node) (:constructor make-js2-yield-node (&key (type js2-YIELD) (pos js2-ts-cursor) len value star-p)))' struct CL-X. (fn CL-X) (defalias 'js2-yield-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-yield-node-tags type-of signal wrong-type-argument js2-yield-node 4] 5 (#$ . 791787)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-yield-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-yield-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-yield-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-yield-node-parent (or (js2-yield-node-p cl-x) (signal 'wrong-type-argument (list 'js2-yield-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 792262)]) (put 'js2-yield-node-parent 'compiler-macro 'js2-yield-node-parent--cmacro) #@184 Access slot "parent" of `(js2-yield-node (:include js2-node) (:constructor make-js2-yield-node (&key (type js2-YIELD) (pos js2-ts-cursor) len value star-p)))' struct CL-X. (fn CL-X) (defalias 'js2-yield-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-yield-node-tags type-of signal wrong-type-argument js2-yield-node 5] 5 (#$ . 792689)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-yield-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `js2-yield-node-star-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-yield-node-star-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-yield-node-star-p (or (js2-yield-node-p cl-x) (signal 'wrong-type-argument (list 'js2-yield-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 793167)]) (put 'js2-yield-node-star-p 'compiler-macro 'js2-yield-node-star-p--cmacro) #@184 Access slot "star-p" of `(js2-yield-node (:include js2-node) (:constructor make-js2-yield-node (&key (type js2-YIELD) (pos js2-ts-cursor) len value star-p)))' struct CL-X. (fn CL-X) (defalias 'js2-yield-node-star-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-yield-node-tags type-of signal wrong-type-argument js2-yield-node 6] 5 (#$ . 793594)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-yield-node-star-p side-effect-free t] 4) #@77 compiler-macro for inlining `js2-yield-node-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-yield-node-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-yield-node-value (or (js2-yield-node-p cl-x) (signal 'wrong-type-argument (list 'js2-yield-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 794072)]) (put 'js2-yield-node-value 'compiler-macro 'js2-yield-node-value--cmacro) #@183 Access slot "value" of `(js2-yield-node (:include js2-node) (:constructor make-js2-yield-node (&key (type js2-YIELD) (pos js2-ts-cursor) len value star-p)))' struct CL-X. (fn CL-X) (defalias 'js2-yield-node-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-yield-node-tags type-of signal wrong-type-argument js2-yield-node 7] 5 (#$ . 794494)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-yield-node-value side-effect-free t defalias copy-js2-yield-node copy-sequence] 4) #@136 compiler-macro for inlining `make-js2-yield-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-YIELD) (POS js2-ts-cursor) LEN VALUE STAR-P) (defalias 'make-js2-yield-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-YIELD) :pos (nil js2-ts-cursor) :len (nil 1) :value :star-p (:type :pos :len :value :star-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :value :star-p)" cl--defsubst-expand (type pos len value star-p) (cl-block make-js2-yield-node (record 'js2-yield-node type pos len nil nil star-p value))] 18 (#$ . 795023)]) (put 'make-js2-yield-node 'compiler-macro 'make-js2-yield-node--cmacro) #@116 Constructor for objects of type `js2-yield-node'. (fn &key (TYPE js2-YIELD) (POS js2-ts-cursor) LEN VALUE STAR-P) (defalias 'make-js2-yield-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211 &\207" [js2-YIELD js2-ts-cursor plist-member :type nil :pos :len (nil 1) :value :star-p (:type :pos :len :value :star-p :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :value :star-p)" record js2-yield-node] 15 (#$ . 795917)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-yield-node side-effect-free t cl-struct-define js2-yield-node "AST node for yield statement or expression." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (star-p) (value)) cl-struct-js2-yield-node-tags js2--struct-put js2-visitor js2-visit-yield-node js2-printer js2-print-yield-node] 11) #@12 (fn N V) (defalias 'js2-visit-yield-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-yield-node-tags js2-visit-ast type-of signal wrong-type-argument js2-yield-node 7] 7 (#$ . 797046)]) #@12 (fn N I) (defalias 'js2-print-yield-node #[514 "\301!c\210\302c\210\303!>\204\304\305\306D\"\210\307H\203 \310c\210\303!>\204/\304\305\306D\"\210\311H\205M\312c\210\313\303!>\204H\304\305\306D\"\210\311H\314\"\207" [cl-struct-js2-yield-node-tags js2-make-pad "yield" type-of signal wrong-type-argument js2-yield-node 6 "*" 7 " " js2-print-ast 0] 7 (#$ . 797271)]) #@73 compiler-macro for inlining `js2-paren-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-paren-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-paren-node-p (and (memq (type-of cl-x) cl-struct-js2-paren-node-tags) t)) nil] 9 (#$ . 797662)]) (put 'js2-paren-node-p 'compiler-macro 'js2-paren-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-paren-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-paren-node-tags type-of t] 3 (#$ . 798022)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-paren-node-p side-effect-free error-free put js2-paren-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `js2-paren-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-paren-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-paren-node-type (or (js2-paren-node-p cl-x) (signal 'wrong-type-argument (list 'js2-paren-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 798314)]) (put 'js2-paren-node-type 'compiler-macro 'js2-paren-node-type--cmacro) #@171 Access slot "type" of `(js2-paren-node (:include js2-node) (:constructor make-js2-paren-node (&key (type js2-LP) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-paren-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-paren-node-tags type-of signal wrong-type-argument js2-paren-node 1] 5 (#$ . 798731)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-paren-node-type side-effect-free t] 4) #@75 compiler-macro for inlining `js2-paren-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-paren-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-paren-node-pos (or (js2-paren-node-p cl-x) (signal 'wrong-type-argument (list 'js2-paren-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 799192)]) (put 'js2-paren-node-pos 'compiler-macro 'js2-paren-node-pos--cmacro) #@170 Access slot "pos" of `(js2-paren-node (:include js2-node) (:constructor make-js2-paren-node (&key (type js2-LP) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-paren-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-paren-node-tags type-of signal wrong-type-argument js2-paren-node 2] 5 (#$ . 799604)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-paren-node-pos side-effect-free t] 4) #@75 compiler-macro for inlining `js2-paren-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-paren-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-paren-node-len (or (js2-paren-node-p cl-x) (signal 'wrong-type-argument (list 'js2-paren-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 800062)]) (put 'js2-paren-node-len 'compiler-macro 'js2-paren-node-len--cmacro) #@170 Access slot "len" of `(js2-paren-node (:include js2-node) (:constructor make-js2-paren-node (&key (type js2-LP) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-paren-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-paren-node-tags type-of signal wrong-type-argument js2-paren-node 3] 5 (#$ . 800474)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-paren-node-len side-effect-free t] 4) #@77 compiler-macro for inlining `js2-paren-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-paren-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-paren-node-props (or (js2-paren-node-p cl-x) (signal 'wrong-type-argument (list 'js2-paren-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 800932)]) (put 'js2-paren-node-props 'compiler-macro 'js2-paren-node-props--cmacro) #@172 Access slot "props" of `(js2-paren-node (:include js2-node) (:constructor make-js2-paren-node (&key (type js2-LP) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-paren-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-paren-node-tags type-of signal wrong-type-argument js2-paren-node 4] 5 (#$ . 801354)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-paren-node-props side-effect-free t] 4) #@78 compiler-macro for inlining `js2-paren-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-paren-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-paren-node-parent (or (js2-paren-node-p cl-x) (signal 'wrong-type-argument (list 'js2-paren-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 801818)]) (put 'js2-paren-node-parent 'compiler-macro 'js2-paren-node-parent--cmacro) #@173 Access slot "parent" of `(js2-paren-node (:include js2-node) (:constructor make-js2-paren-node (&key (type js2-LP) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-paren-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-paren-node-tags type-of signal wrong-type-argument js2-paren-node 5] 5 (#$ . 802245)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-paren-node-parent side-effect-free t] 4) #@76 compiler-macro for inlining `js2-paren-node-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-paren-node-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-paren-node-expr (or (js2-paren-node-p cl-x) (signal 'wrong-type-argument (list 'js2-paren-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 802712)]) (put 'js2-paren-node-expr 'compiler-macro 'js2-paren-node-expr--cmacro) #@171 Access slot "expr" of `(js2-paren-node (:include js2-node) (:constructor make-js2-paren-node (&key (type js2-LP) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-paren-node-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-paren-node-tags type-of signal wrong-type-argument js2-paren-node 6] 5 (#$ . 803129)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-paren-node-expr side-effect-free t defalias copy-js2-paren-node copy-sequence] 4) #@125 compiler-macro for inlining `make-js2-paren-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-LP) (POS js2-ts-cursor) LEN EXPR) (defalias 'make-js2-paren-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-LP) :pos (nil js2-ts-cursor) :len (nil 1) :expr (:type :pos :len :expr :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :expr)" cl--defsubst-expand (type pos len expr) (cl-block make-js2-paren-node (record 'js2-paren-node type pos len nil nil expr))] 16 (#$ . 803644)]) (put 'make-js2-paren-node 'compiler-macro 'make-js2-paren-node--cmacro) #@105 Constructor for objects of type `js2-paren-node'. (fn &key (TYPE js2-LP) (POS js2-ts-cursor) LEN EXPR) (defalias 'make-js2-paren-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211&\207" [js2-LP js2-ts-cursor plist-member :type nil :pos :len (nil 1) :expr (:type :pos :len :expr :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :expr)" record js2-paren-node] 13 (#$ . 804459)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-paren-node side-effect-free t cl-struct-define js2-paren-node "AST node for a parenthesized expression.\nIn particular, used when the parens are syntactically optional,\nas opposed to required parens such as those enclosing an if-conditional." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (expr)) cl-struct-js2-paren-node-tags js2--struct-put js2-visitor js2-visit-paren-node js2-printer js2-print-paren-node] 11) #@12 (fn N V) (defalias 'js2-visit-paren-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-paren-node-tags js2-visit-ast type-of signal wrong-type-argument js2-paren-node 6] 7 (#$ . 805655)]) #@12 (fn N I) (defalias 'js2-print-paren-node #[514 "\301!c\210\302c\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\312c\207" [cl-struct-js2-paren-node-tags js2-make-pad "(" js2-print-ast type-of signal wrong-type-argument js2-paren-node 6 0 ")"] 7 (#$ . 805880)]) #@72 compiler-macro for inlining `js2-comp-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-p (and (memq (type-of cl-x) cl-struct-js2-comp-node-tags) t)) nil] 9 (#$ . 806160)]) (put 'js2-comp-node-p 'compiler-macro 'js2-comp-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-comp-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-comp-node-tags type-of t] 3 (#$ . 806514)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-comp-node-p side-effect-free error-free put js2-comp-node cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `js2-comp-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-type (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 806802)]) (put 'js2-comp-node-type 'compiler-macro 'js2-comp-node-type--cmacro) #@198 Access slot "type" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 1] 5 (#$ . 807212)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-type side-effect-free t] 4) #@74 compiler-macro for inlining `js2-comp-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-pos (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 807696)]) (put 'js2-comp-node-pos 'compiler-macro 'js2-comp-node-pos--cmacro) #@197 Access slot "pos" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 2] 5 (#$ . 808101)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-pos side-effect-free t] 4) #@74 compiler-macro for inlining `js2-comp-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-len (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 808582)]) (put 'js2-comp-node-len 'compiler-macro 'js2-comp-node-len--cmacro) #@197 Access slot "len" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 3] 5 (#$ . 808987)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-len side-effect-free t] 4) #@76 compiler-macro for inlining `js2-comp-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-props (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 809468)]) (put 'js2-comp-node-props 'compiler-macro 'js2-comp-node-props--cmacro) #@199 Access slot "props" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 4] 5 (#$ . 809883)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-props side-effect-free t] 4) #@77 compiler-macro for inlining `js2-comp-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-parent (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 810370)]) (put 'js2-comp-node-parent 'compiler-macro 'js2-comp-node-parent--cmacro) #@200 Access slot "parent" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 5] 5 (#$ . 810790)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-parent side-effect-free t] 4) #@75 compiler-macro for inlining `js2-comp-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-kids (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 811280)]) (put 'js2-comp-node-kids 'compiler-macro 'js2-comp-node-kids--cmacro) #@198 Access slot "kids" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 6] 5 (#$ . 811690)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-kids side-effect-free t] 4) #@83 compiler-macro for inlining `js2-comp-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-symbol-table (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 812174)]) (put 'js2-comp-node-symbol-table 'compiler-macro 'js2-comp-node-symbol-table--cmacro) #@206 Access slot "symbol-table" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 7] 5 (#$ . 812624)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-symbol-table side-effect-free t] 4) #@83 compiler-macro for inlining `js2-comp-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-parent-scope (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 813132)]) (put 'js2-comp-node-parent-scope 'compiler-macro 'js2-comp-node-parent-scope--cmacro) #@206 Access slot "parent-scope" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 8] 5 (#$ . 813582)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-parent-scope side-effect-free t] 4) #@74 compiler-macro for inlining `js2-comp-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-top (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 814090)]) (put 'js2-comp-node-top 'compiler-macro 'js2-comp-node-top--cmacro) #@197 Access slot "top" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 9] 5 (#$ . 814495)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-top side-effect-free t] 4) #@77 compiler-macro for inlining `js2-comp-node-result'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-result--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-result (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 814976)]) (put 'js2-comp-node-result 'compiler-macro 'js2-comp-node-result--cmacro) #@200 Access slot "result" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-result #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 10] 5 (#$ . 815397)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-result side-effect-free t] 4) #@76 compiler-macro for inlining `js2-comp-node-loops'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-loops--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-loops (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 815888)]) (put 'js2-comp-node-loops 'compiler-macro 'js2-comp-node-loops--cmacro) #@199 Access slot "loops" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-loops #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 11] 5 (#$ . 816304)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-loops side-effect-free t] 4) #@78 compiler-macro for inlining `js2-comp-node-filters'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-filters--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-filters (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 816792)]) (put 'js2-comp-node-filters 'compiler-macro 'js2-comp-node-filters--cmacro) #@201 Access slot "filters" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-filters #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 12] 5 (#$ . 817218)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-node-filters side-effect-free t] 4) #@75 compiler-macro for inlining `js2-comp-node-form'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-node-form--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-node-form (or (js2-comp-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 817712)]) (put 'js2-comp-node-form 'compiler-macro 'js2-comp-node-form--cmacro) #@198 Access slot "form" of `(js2-comp-node (:include js2-scope) (:constructor make-js2-comp-node (&key (type js2-ARRAYCOMP) (pos js2-ts-cursor) len result loops filters form)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-node-form #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-node-tags type-of signal wrong-type-argument js2-comp-node 13] 5 (#$ . 818123)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-comp-node-form side-effect-free t defalias copy-js2-comp-node copy-sequence] 4) #@152 compiler-macro for inlining `make-js2-comp-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-ARRAYCOMP) (POS js2-ts-cursor) LEN RESULT LOOPS FILTERS FORM) (defalias 'make-js2-comp-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-ARRAYCOMP) :pos (nil js2-ts-cursor) :len (nil 1) :result :loops :filters :form (:type :pos :len :result :loops :filters :form :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :result :loops :filters :form)" cl--defsubst-expand (type pos len result loops filters form) (cl-block make-js2-comp-node (record 'js2-comp-node type pos len nil nil nil nil nil nil result loops filters form))] 22 (#$ . 818661)]) (put 'make-js2-comp-node 'compiler-macro 'make-js2-comp-node--cmacro) #@132 Constructor for objects of type `js2-comp-node'. (fn &key (TYPE js2-ARRAYCOMP) (POS js2-ts-cursor) LEN RESULT LOOPS FILTERS FORM) (defalias 'make-js2-comp-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\211\203i\211@\314>\203Q\211AA\262\202>\315 >A@\203`\304\262\202>\316\317@\"\210\202>\210\320\321\304\211\211\211\211\211&\207" [js2-ARRAYCOMP js2-ts-cursor plist-member :type nil :pos :len (nil 1) :result :loops :filters :form (:type :pos :len :result :loops :filters :form :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :result :loops :filters :form)" record js2-comp-node] 23 (#$ . 819693)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-comp-node side-effect-free t cl-struct-define js2-comp-node "AST node for an Array comprehension such as [[x,y] for (x in foo) for (y in bar)]." js2-scope record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (result) (loops) (filters) (form)) cl-struct-js2-comp-node-tags js2--struct-put js2-visitor js2-visit-comp-node js2-printer js2-print-comp-node] 11) #@12 (fn N V) (defalias 'js2-visit-comp-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\211\203:\211@\301\"\210A\266\202\202(\210\302!>\204J\303\304\305D\"\210\310H\211\205_\211@\301\"\210A\266\202\202M\207" [cl-struct-js2-comp-node-tags js2-visit-ast type-of signal wrong-type-argument js2-comp-node 10 11 12] 7 (#$ . 821045)]) #@12 (fn N I) (defalias 'js2-print-comp-node #[514 "\301!\302!>\204\303\304\305D\"\210\306H\302!>\204%\303\304\305D\"\210\307H\302!>\2048\303\304\305D\"\210\310H\302!>\204L\303\304\305D\"\210\311H\312=\302!>\204b\303\304\305 D\"\210\311H\313=\203q\314\202r\315\261\210\203~\316\317\"\210\211\203\237\211@\203\214\320c\210\316\317\"\210\204\230\320c\210A\266\202\202\210\211\203\307\211@\203\256\320c\210\321c\210\316\317\"\210\322c\210\204\300\320c\210A\266\202\202\241\210\204\321\316\317\"\210\211\203\331\322\202\332\323c\207" [cl-struct-js2-comp-node-tags js2-make-pad type-of signal wrong-type-argument js2-comp-node 10 11 12 13 LEGACY_ARRAY STAR_GENERATOR "(" "[" js2-print-ast 0 " " "if (" ")" "]"] 13 (#$ . 821448)]) #@77 compiler-macro for inlining `js2-comp-loop-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-p (and (memq (type-of cl-x) cl-struct-js2-comp-loop-node-tags) t)) nil] 9 (#$ . 822241)]) (put 'js2-comp-loop-node-p 'compiler-macro 'js2-comp-loop-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-comp-loop-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-comp-loop-node-tags type-of t] 3 (#$ . 822625)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-comp-loop-node-p side-effect-free error-free put js2-comp-loop-node cl-deftype-satisfies] 5) #@80 compiler-macro for inlining `js2-comp-loop-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-type (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 822933)]) (put 'js2-comp-loop-node-type 'compiler-macro 'js2-comp-loop-node-type--cmacro) #@238 Access slot "type" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 1] 5 (#$ . 823378)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-type side-effect-free t] 4) #@79 compiler-macro for inlining `js2-comp-loop-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-pos (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 823922)]) (put 'js2-comp-loop-node-pos 'compiler-macro 'js2-comp-loop-node-pos--cmacro) #@237 Access slot "pos" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 2] 5 (#$ . 824362)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-pos side-effect-free t] 4) #@79 compiler-macro for inlining `js2-comp-loop-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-len (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 824903)]) (put 'js2-comp-loop-node-len 'compiler-macro 'js2-comp-loop-node-len--cmacro) #@237 Access slot "len" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 3] 5 (#$ . 825343)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-len side-effect-free t] 4) #@81 compiler-macro for inlining `js2-comp-loop-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-props (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 825884)]) (put 'js2-comp-loop-node-props 'compiler-macro 'js2-comp-loop-node-props--cmacro) #@239 Access slot "props" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 4] 5 (#$ . 826334)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-props side-effect-free t] 4) #@82 compiler-macro for inlining `js2-comp-loop-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-parent (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 826881)]) (put 'js2-comp-loop-node-parent 'compiler-macro 'js2-comp-loop-node-parent--cmacro) #@240 Access slot "parent" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 5] 5 (#$ . 827336)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-parent side-effect-free t] 4) #@80 compiler-macro for inlining `js2-comp-loop-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-kids (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 827886)]) (put 'js2-comp-loop-node-kids 'compiler-macro 'js2-comp-loop-node-kids--cmacro) #@238 Access slot "kids" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 6] 5 (#$ . 828331)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-kids side-effect-free t] 4) #@88 compiler-macro for inlining `js2-comp-loop-node-symbol-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-symbol-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-symbol-table (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 828875)]) (put 'js2-comp-loop-node-symbol-table 'compiler-macro 'js2-comp-loop-node-symbol-table--cmacro) #@246 Access slot "symbol-table" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-symbol-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 7] 5 (#$ . 829360)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-symbol-table side-effect-free t] 4) #@88 compiler-macro for inlining `js2-comp-loop-node-parent-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-parent-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-parent-scope (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 829928)]) (put 'js2-comp-loop-node-parent-scope 'compiler-macro 'js2-comp-loop-node-parent-scope--cmacro) #@246 Access slot "parent-scope" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-parent-scope #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 8] 5 (#$ . 830413)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-parent-scope side-effect-free t] 4) #@79 compiler-macro for inlining `js2-comp-loop-node-top'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-top--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-top (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 830981)]) (put 'js2-comp-loop-node-top 'compiler-macro 'js2-comp-loop-node-top--cmacro) #@237 Access slot "top" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-top #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 9] 5 (#$ . 831421)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-top side-effect-free t] 4) #@80 compiler-macro for inlining `js2-comp-loop-node-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-body (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 831962)]) (put 'js2-comp-loop-node-body 'compiler-macro 'js2-comp-loop-node-body--cmacro) #@238 Access slot "body" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 10] 5 (#$ . 832408)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-body side-effect-free t] 4) #@78 compiler-macro for inlining `js2-comp-loop-node-lp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-lp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-lp (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 832953)]) (put 'js2-comp-loop-node-lp 'compiler-macro 'js2-comp-loop-node-lp--cmacro) #@236 Access slot "lp" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-lp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 11] 5 (#$ . 833389)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-lp side-effect-free t] 4) #@78 compiler-macro for inlining `js2-comp-loop-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-rp (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 12)) nil] 9 (#$ . 833928)]) (put 'js2-comp-loop-node-rp 'compiler-macro 'js2-comp-loop-node-rp--cmacro) #@236 Access slot "rp" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 12] 5 (#$ . 834364)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-rp side-effect-free t] 4) #@84 compiler-macro for inlining `js2-comp-loop-node-iterator'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-iterator--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-iterator (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 13)) nil] 9 (#$ . 834903)]) (put 'js2-comp-loop-node-iterator 'compiler-macro 'js2-comp-loop-node-iterator--cmacro) #@242 Access slot "iterator" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-iterator #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 13] 5 (#$ . 835369)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-iterator side-effect-free t] 4) #@82 compiler-macro for inlining `js2-comp-loop-node-object'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-object--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-object (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 14)) nil] 9 (#$ . 835926)]) (put 'js2-comp-loop-node-object 'compiler-macro 'js2-comp-loop-node-object--cmacro) #@240 Access slot "object" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-object #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 14] 5 (#$ . 836382)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-object side-effect-free t] 4) #@82 compiler-macro for inlining `js2-comp-loop-node-in-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-in-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-in-pos (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 15)) nil] 9 (#$ . 836933)]) (put 'js2-comp-loop-node-in-pos 'compiler-macro 'js2-comp-loop-node-in-pos--cmacro) #@240 Access slot "in-pos" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-in-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 15] 5 (#$ . 837389)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-in-pos side-effect-free t] 4) #@84 compiler-macro for inlining `js2-comp-loop-node-each-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-each-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-each-pos (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 16)) nil] 9 (#$ . 837940)]) (put 'js2-comp-loop-node-each-pos 'compiler-macro 'js2-comp-loop-node-each-pos--cmacro) #@242 Access slot "each-pos" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-each-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 16] 5 (#$ . 838406)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-each-pos side-effect-free t] 4) #@85 compiler-macro for inlining `js2-comp-loop-node-foreach-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-foreach-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-foreach-p (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 17)) nil] 9 (#$ . 838963)]) (put 'js2-comp-loop-node-foreach-p 'compiler-macro 'js2-comp-loop-node-foreach-p--cmacro) #@243 Access slot "foreach-p" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-foreach-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 17] 5 (#$ . 839434)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-comp-loop-node-foreach-p side-effect-free t] 4) #@83 compiler-macro for inlining `js2-comp-loop-node-forof-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-comp-loop-node-forof-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-comp-loop-node-forof-p (or (js2-comp-loop-node-p cl-x) (signal 'wrong-type-argument (list 'js2-comp-loop-node cl-x))) (aref cl-x 18)) nil] 9 (#$ . 839994)]) (put 'js2-comp-loop-node-forof-p 'compiler-macro 'js2-comp-loop-node-forof-p--cmacro) #@241 Access slot "forof-p" of `(js2-comp-loop-node (:include js2-for-in-node) (:constructor make-js2-comp-loop-node (&key (type js2-FOR) (pos js2-ts-cursor) len iterator object in-pos foreach-p each-pos forof-p lp rp)))' struct CL-X. (fn CL-X) (defalias 'js2-comp-loop-node-forof-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-comp-loop-node 18] 5 (#$ . 840455)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-comp-loop-node-forof-p side-effect-free t defalias copy-js2-comp-loop-node copy-sequence] 4) #@181 compiler-macro for inlining `make-js2-comp-loop-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-FOR) (POS js2-ts-cursor) LEN ITERATOR OBJECT IN-POS FOREACH-P EACH-POS FOROF-P LP RP) (defalias 'make-js2-comp-loop-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\300 \314\"A@\300\n\315\"A@\300 \316\"A@ \211\203\201\211@\317>\203i\211AA\262\202V\320 >A@\203x\321\262\202V\322\323@\"\210\202V\210\324\325\326\321\321&\207" [plist-member :type (nil js2-FOR) :pos (nil js2-ts-cursor) :len (nil 1) :iterator :object :in-pos :foreach-p :each-pos :forof-p :lp :rp (:type :pos :len :iterator :object :in-pos :foreach-p :each-pos :forof-p :lp :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :iterator :object :in-pos :foreach-p :each-pos :forof-p :lp :rp)" cl--defsubst-expand (type pos len iterator object in-pos foreach-p each-pos forof-p lp rp) (cl-block make-js2-comp-loop-node (record 'js2-comp-loop-node type pos len nil nil nil nil nil nil nil lp rp iterator object in-pos each-pos foreach-p forof-p))] 30 (#$ . 841067)]) (put 'make-js2-comp-loop-node 'compiler-macro 'make-js2-comp-loop-node--cmacro) #@161 Constructor for objects of type `js2-comp-loop-node'. (fn &key (TYPE js2-FOR) (POS js2-ts-cursor) LEN ITERATOR OBJECT IN-POS FOREACH-P EACH-POS FOROF-P LP RP) (defalias 'make-js2-comp-loop-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\302\314\"A@\302 \315\"A@\302\n\316\"A@\302 \317\"A@ \211\203\205\211@\320>\203m\211AA\262\202Z\321 >A@\203|\304\262\202Z\322\323@\"\210\202Z\210\324\325\f\f\f\304\211\211\211\211\211\211  &\207" [js2-FOR js2-ts-cursor plist-member :type nil :pos :len (nil 1) :iterator :object :in-pos :foreach-p :each-pos :forof-p :lp :rp (:type :pos :len :iterator :object :in-pos :foreach-p :each-pos :forof-p :lp :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :iterator :object :in-pos :foreach-p :each-pos :forof-p :lp :rp)" record js2-comp-loop-node] 32 (#$ . 842371)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-comp-loop-node side-effect-free t cl-struct-define js2-comp-loop-node "AST subtree for each 'for (foo in bar)' loop in an array comprehension." js2-for-in-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (symbol-table nil) (parent-scope nil) (top nil) (body nil) (lp nil) (rp nil) (iterator nil) (object nil) (in-pos nil) (each-pos nil) (foreach-p nil) (forof-p nil)) cl-struct-js2-comp-loop-node-tags js2--struct-put js2-visitor js2-visit-comp-loop js2-printer js2-print-comp-loop] 11) #@12 (fn N V) (defalias 'js2-visit-comp-loop #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-comp-loop-node-tags js2-visit-ast type-of signal wrong-type-argument js2-comp-loop-node 13 14] 7 (#$ . 844024)]) #@12 (fn N I) (defalias 'js2-print-comp-loop #[514 "\301c\210\302!>\204\303\304\305D\"\210\306H\203\307c\210\310c\210\311\302!>\204.\303\304\305D\"\210\312H\313\"\210\302!>\204C\303\304\305D\"\210\314H\203M\315\202N\316c\210\311\302!>\204`\303\304\305D\"\210\317H\313\"\210\320c\207" [cl-struct-js2-comp-loop-node-tags "for " type-of signal wrong-type-argument js2-comp-loop-node 17 "each " "(" js2-print-ast 13 0 18 " of " " in " 14 ")"] 7 (#$ . 844311)]) #@78 compiler-macro for inlining `js2-empty-expr-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-empty-expr-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-empty-expr-node-p (and (memq (type-of cl-x) cl-struct-js2-empty-expr-node-tags) t)) nil] 9 (#$ . 844796)]) (put 'js2-empty-expr-node-p 'compiler-macro 'js2-empty-expr-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-empty-expr-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-empty-expr-node-tags type-of t] 3 (#$ . 845186)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-empty-expr-node-p side-effect-free error-free put js2-empty-expr-node cl-deftype-satisfies] 5) #@81 compiler-macro for inlining `js2-empty-expr-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-empty-expr-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-empty-expr-node-type (or (js2-empty-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-empty-expr-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 845498)]) (put 'js2-empty-expr-node-type 'compiler-macro 'js2-empty-expr-node-type--cmacro) #@189 Access slot "type" of `(js2-empty-expr-node (:include js2-node) (:constructor make-js2-empty-expr-node (&key (type js2-EMPTY) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-empty-expr-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-empty-expr-node-tags type-of signal wrong-type-argument js2-empty-expr-node 1] 5 (#$ . 845950)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-empty-expr-node-type side-effect-free t] 4) #@80 compiler-macro for inlining `js2-empty-expr-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-empty-expr-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-empty-expr-node-pos (or (js2-empty-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-empty-expr-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 846449)]) (put 'js2-empty-expr-node-pos 'compiler-macro 'js2-empty-expr-node-pos--cmacro) #@188 Access slot "pos" of `(js2-empty-expr-node (:include js2-node) (:constructor make-js2-empty-expr-node (&key (type js2-EMPTY) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-empty-expr-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-empty-expr-node-tags type-of signal wrong-type-argument js2-empty-expr-node 2] 5 (#$ . 846896)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-empty-expr-node-pos side-effect-free t] 4) #@80 compiler-macro for inlining `js2-empty-expr-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-empty-expr-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-empty-expr-node-len (or (js2-empty-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-empty-expr-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 847392)]) (put 'js2-empty-expr-node-len 'compiler-macro 'js2-empty-expr-node-len--cmacro) #@188 Access slot "len" of `(js2-empty-expr-node (:include js2-node) (:constructor make-js2-empty-expr-node (&key (type js2-EMPTY) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-empty-expr-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-empty-expr-node-tags type-of signal wrong-type-argument js2-empty-expr-node 3] 5 (#$ . 847839)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-empty-expr-node-len side-effect-free t] 4) #@82 compiler-macro for inlining `js2-empty-expr-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-empty-expr-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-empty-expr-node-props (or (js2-empty-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-empty-expr-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 848335)]) (put 'js2-empty-expr-node-props 'compiler-macro 'js2-empty-expr-node-props--cmacro) #@190 Access slot "props" of `(js2-empty-expr-node (:include js2-node) (:constructor make-js2-empty-expr-node (&key (type js2-EMPTY) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-empty-expr-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-empty-expr-node-tags type-of signal wrong-type-argument js2-empty-expr-node 4] 5 (#$ . 848792)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-empty-expr-node-props side-effect-free t] 4) #@83 compiler-macro for inlining `js2-empty-expr-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-empty-expr-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-empty-expr-node-parent (or (js2-empty-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-empty-expr-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 849294)]) (put 'js2-empty-expr-node-parent 'compiler-macro 'js2-empty-expr-node-parent--cmacro) #@191 Access slot "parent" of `(js2-empty-expr-node (:include js2-node) (:constructor make-js2-empty-expr-node (&key (type js2-EMPTY) (pos (js2-current-token-beg)) len)))' struct CL-X. (fn CL-X) (defalias 'js2-empty-expr-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-empty-expr-node-tags type-of signal wrong-type-argument js2-empty-expr-node 5] 5 (#$ . 849756)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-empty-expr-node-parent side-effect-free t defalias copy-js2-empty-expr-node copy-sequence] 4) #@138 compiler-macro for inlining `make-js2-empty-expr-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-EMPTY) (POS (js2-current-token-beg)) LEN) (defalias 'make-js2-empty-expr-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\211\203I\211@\307>\2032\211AA\262\202\310>A@\203@\311\262\202\312\313@\"\210\202\210\314\315\316\311\311&\207" [plist-member :type (nil js2-EMPTY) :pos (nil (js2-current-token-beg)) :len (nil 1) (:type :pos :len :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len)" cl--defsubst-expand (type pos len) (cl-block make-js2-empty-expr-node (record 'js2-empty-expr-node type pos len nil nil))] 14 (#$ . 850320)]) (put 'make-js2-empty-expr-node 'compiler-macro 'make-js2-empty-expr-node--cmacro) #@118 Constructor for objects of type `js2-empty-expr-node'. (fn &key (TYPE js2-EMPTY) (POS (js2-current-token-beg)) LEN) (defalias 'make-js2-empty-expr-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\211\203c\211@\317>\203L\211AA\262\2029\320>A@\203Z\306\262\2029\321\322@\"\210\2029\210\323\324\306\211&\207" [js2-EMPTY js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) (:type :pos :len :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len)" record js2-empty-expr-node] 11 (#$ . 851142)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-empty-expr-node side-effect-free t cl-struct-define js2-empty-expr-node "AST node for an empty expression." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil)) cl-struct-js2-empty-expr-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-none] 11) #@71 compiler-macro for inlining `js2-xml-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-node-tags) t)) nil] 9 (#$ . 852324)]) (put 'js2-xml-node-p 'compiler-macro 'js2-xml-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-node-tags type-of t] 3 (#$ . 852672)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-node-p side-effect-free error-free put js2-xml-node cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `js2-xml-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-node-type (or (js2-xml-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 852956)]) (put 'js2-xml-node-type 'compiler-macro 'js2-xml-node-type--cmacro) #@184 Access slot "type" of `(js2-xml-node (:include js2-block-node) (:constructor make-js2-xml-node (&key (type js2-XML) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-node-tags type-of signal wrong-type-argument js2-xml-node 1] 5 (#$ . 853359)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-node-type side-effect-free t] 4) #@73 compiler-macro for inlining `js2-xml-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-node-pos (or (js2-xml-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 853825)]) (put 'js2-xml-node-pos 'compiler-macro 'js2-xml-node-pos--cmacro) #@183 Access slot "pos" of `(js2-xml-node (:include js2-block-node) (:constructor make-js2-xml-node (&key (type js2-XML) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-node-tags type-of signal wrong-type-argument js2-xml-node 2] 5 (#$ . 854223)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-node-pos side-effect-free t] 4) #@73 compiler-macro for inlining `js2-xml-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-node-len (or (js2-xml-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 854686)]) (put 'js2-xml-node-len 'compiler-macro 'js2-xml-node-len--cmacro) #@183 Access slot "len" of `(js2-xml-node (:include js2-block-node) (:constructor make-js2-xml-node (&key (type js2-XML) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-node-tags type-of signal wrong-type-argument js2-xml-node 3] 5 (#$ . 855084)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-node-len side-effect-free t] 4) #@75 compiler-macro for inlining `js2-xml-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-node-props (or (js2-xml-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 855547)]) (put 'js2-xml-node-props 'compiler-macro 'js2-xml-node-props--cmacro) #@185 Access slot "props" of `(js2-xml-node (:include js2-block-node) (:constructor make-js2-xml-node (&key (type js2-XML) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-node-tags type-of signal wrong-type-argument js2-xml-node 4] 5 (#$ . 855955)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-node-props side-effect-free t] 4) #@76 compiler-macro for inlining `js2-xml-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-node-parent (or (js2-xml-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 856424)]) (put 'js2-xml-node-parent 'compiler-macro 'js2-xml-node-parent--cmacro) #@186 Access slot "parent" of `(js2-xml-node (:include js2-block-node) (:constructor make-js2-xml-node (&key (type js2-XML) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-node-tags type-of signal wrong-type-argument js2-xml-node 5] 5 (#$ . 856837)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-node-parent side-effect-free t] 4) #@74 compiler-macro for inlining `js2-xml-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-node-kids (or (js2-xml-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 857309)]) (put 'js2-xml-node-kids 'compiler-macro 'js2-xml-node-kids--cmacro) #@184 Access slot "kids" of `(js2-xml-node (:include js2-block-node) (:constructor make-js2-xml-node (&key (type js2-XML) (pos (js2-current-token-beg)) len kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-node-tags type-of signal wrong-type-argument js2-xml-node 6] 5 (#$ . 857712)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-node-kids side-effect-free t defalias copy-js2-xml-node copy-sequence] 4) #@134 compiler-macro for inlining `make-js2-xml-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS (js2-current-token-beg)) LEN KIDS) (defalias 'make-js2-xml-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-XML) :pos (nil (js2-current-token-beg)) :len (nil 1) :kids (:type :pos :len :kids :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :kids)" cl--defsubst-expand (type pos len kids) (cl-block make-js2-xml-node (record 'js2-xml-node type pos len nil nil kids))] 16 (#$ . 858230)]) (put 'make-js2-xml-node 'compiler-macro 'make-js2-xml-node--cmacro) #@114 Constructor for objects of type `js2-xml-node'. (fn &key (TYPE js2-XML) (POS (js2-current-token-beg)) LEN KIDS) (defalias 'make-js2-xml-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\211\203j\211@\320>\203R\211AA\262\202?\321>A@\203a\306\262\202?\322\323@\"\210\202?\210\324\325\306\211&\207" [js2-XML js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :kids (:type :pos :len :kids :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :kids)" record js2-xml-node] 13 (#$ . 859055)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-node side-effect-free t cl-struct-define js2-xml-node "AST node for initial parse of E4X literals.\nThe kids field is a list of XML fragments, each a `js2-string-node' or\na `js2-xml-js-expr-node'. Equivalent to Rhino's XmlLiteral node." js2-block-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil)) cl-struct-js2-xml-node-tags js2--struct-put js2-visitor js2-visit-block js2-printer js2-print-xml-node] 11) #@12 (fn N I) (defalias 'js2-print-xml-node #[514 "\301!>\204\302\303\304D\"\210\305H\211\205$\211@\306\"\210A\266\202\202\207" [cl-struct-js2-xml-node-tags type-of signal wrong-type-argument js2-xml-node 6 js2-print-ast] 7 (#$ . 860401)]) #@79 compiler-macro for inlining `js2-xml-js-expr-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-js-expr-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-js-expr-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-js-expr-node-tags) t)) nil] 9 (#$ . 860656)]) (put 'js2-xml-js-expr-node-p 'compiler-macro 'js2-xml-js-expr-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-js-expr-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-js-expr-node-tags type-of t] 3 (#$ . 861052)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-js-expr-node-p side-effect-free error-free put js2-xml-js-expr-node cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `js2-xml-js-expr-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-js-expr-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-js-expr-node-type (or (js2-xml-js-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-js-expr-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 861368)]) (put 'js2-xml-js-expr-node-type 'compiler-macro 'js2-xml-js-expr-node-type--cmacro) #@188 Access slot "type" of `(js2-xml-js-expr-node (:include js2-xml-node) (:constructor make-js2-xml-js-expr-node (&key (type js2-XML) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-js-expr-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-js-expr-node-tags type-of signal wrong-type-argument js2-xml-js-expr-node 1] 5 (#$ . 861827)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-js-expr-node-type side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-js-expr-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-js-expr-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-js-expr-node-pos (or (js2-xml-js-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-js-expr-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 862329)]) (put 'js2-xml-js-expr-node-pos 'compiler-macro 'js2-xml-js-expr-node-pos--cmacro) #@187 Access slot "pos" of `(js2-xml-js-expr-node (:include js2-xml-node) (:constructor make-js2-xml-js-expr-node (&key (type js2-XML) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-js-expr-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-js-expr-node-tags type-of signal wrong-type-argument js2-xml-js-expr-node 2] 5 (#$ . 862783)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-js-expr-node-pos side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-js-expr-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-js-expr-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-js-expr-node-len (or (js2-xml-js-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-js-expr-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 863282)]) (put 'js2-xml-js-expr-node-len 'compiler-macro 'js2-xml-js-expr-node-len--cmacro) #@187 Access slot "len" of `(js2-xml-js-expr-node (:include js2-xml-node) (:constructor make-js2-xml-js-expr-node (&key (type js2-XML) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-js-expr-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-js-expr-node-tags type-of signal wrong-type-argument js2-xml-js-expr-node 3] 5 (#$ . 863736)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-js-expr-node-len side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-js-expr-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-js-expr-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-js-expr-node-props (or (js2-xml-js-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-js-expr-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 864235)]) (put 'js2-xml-js-expr-node-props 'compiler-macro 'js2-xml-js-expr-node-props--cmacro) #@189 Access slot "props" of `(js2-xml-js-expr-node (:include js2-xml-node) (:constructor make-js2-xml-js-expr-node (&key (type js2-XML) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-js-expr-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-js-expr-node-tags type-of signal wrong-type-argument js2-xml-js-expr-node 4] 5 (#$ . 864699)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-js-expr-node-props side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-js-expr-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-js-expr-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-js-expr-node-parent (or (js2-xml-js-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-js-expr-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 865204)]) (put 'js2-xml-js-expr-node-parent 'compiler-macro 'js2-xml-js-expr-node-parent--cmacro) #@190 Access slot "parent" of `(js2-xml-js-expr-node (:include js2-xml-node) (:constructor make-js2-xml-js-expr-node (&key (type js2-XML) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-js-expr-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-js-expr-node-tags type-of signal wrong-type-argument js2-xml-js-expr-node 5] 5 (#$ . 865673)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-js-expr-node-parent side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-js-expr-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-js-expr-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-js-expr-node-kids (or (js2-xml-js-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-js-expr-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 866181)]) (put 'js2-xml-js-expr-node-kids 'compiler-macro 'js2-xml-js-expr-node-kids--cmacro) #@188 Access slot "kids" of `(js2-xml-js-expr-node (:include js2-xml-node) (:constructor make-js2-xml-js-expr-node (&key (type js2-XML) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-js-expr-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-js-expr-node-tags type-of signal wrong-type-argument js2-xml-js-expr-node 6] 5 (#$ . 866640)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-js-expr-node-kids side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-js-expr-node-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-js-expr-node-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-js-expr-node-expr (or (js2-xml-js-expr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-js-expr-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 867142)]) (put 'js2-xml-js-expr-node-expr 'compiler-macro 'js2-xml-js-expr-node-expr--cmacro) #@188 Access slot "expr" of `(js2-xml-js-expr-node (:include js2-xml-node) (:constructor make-js2-xml-js-expr-node (&key (type js2-XML) (pos js2-ts-cursor) len expr)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-js-expr-node-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-js-expr-node-tags type-of signal wrong-type-argument js2-xml-js-expr-node 7] 5 (#$ . 867601)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-js-expr-node-expr side-effect-free t defalias copy-js2-xml-js-expr-node copy-sequence] 4) #@132 compiler-macro for inlining `make-js2-xml-js-expr-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN EXPR) (defalias 'make-js2-xml-js-expr-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) :expr (:type :pos :len :expr :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :expr)" cl--defsubst-expand (type pos len expr) (cl-block make-js2-xml-js-expr-node (record 'js2-xml-js-expr-node type pos len nil nil nil expr))] 16 (#$ . 868163)]) (put 'make-js2-xml-js-expr-node 'compiler-macro 'make-js2-xml-js-expr-node--cmacro) #@112 Constructor for objects of type `js2-xml-js-expr-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN EXPR) (defalias 'make-js2-xml-js-expr-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211\211&\207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) :expr (:type :pos :len :expr :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :expr)" record js2-xml-js-expr-node] 14 (#$ . 869020)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-js-expr-node side-effect-free t cl-struct-define js2-xml-js-expr-node "AST node for an embedded JavaScript {expression} in an E4X literal.\nThe start and end fields correspond to the curly-braces." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (expr)) cl-struct-js2-xml-js-expr-node-tags js2--struct-put js2-visitor js2-visit-xml-js-expr js2-printer js2-print-xml-js-expr] 11) #@12 (fn N V) (defalias 'js2-visit-xml-js-expr #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-xml-js-expr-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-js-expr-node 7] 7 (#$ . 870221)]) #@12 (fn N I) (defalias 'js2-print-xml-js-expr #[514 "\301!c\210\302c\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\312c\207" [cl-struct-js2-xml-js-expr-node-tags js2-make-pad "{" js2-print-ast type-of signal wrong-type-argument js2-xml-js-expr-node 7 0 "}"] 7 (#$ . 870459)]) #@81 compiler-macro for inlining `js2-xml-dot-query-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-dot-query-node-tags) t)) nil] 9 (#$ . 870752)]) (put 'js2-xml-dot-query-node-p 'compiler-macro 'js2-xml-dot-query-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-dot-query-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-dot-query-node-tags type-of t] 3 (#$ . 871160)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-dot-query-node-p side-effect-free error-free put js2-xml-dot-query-node cl-deftype-satisfies] 5) #@84 compiler-macro for inlining `js2-xml-dot-query-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-type (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 871484)]) (put 'js2-xml-dot-query-node-type 'compiler-macro 'js2-xml-dot-query-node-type--cmacro) #@215 Access slot "type" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 1] 5 (#$ . 871957)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-dot-query-node-type side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-dot-query-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-pos (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 872494)]) (put 'js2-xml-dot-query-node-pos 'compiler-macro 'js2-xml-dot-query-node-pos--cmacro) #@214 Access slot "pos" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 2] 5 (#$ . 872962)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-dot-query-node-pos side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-dot-query-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-len (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 873496)]) (put 'js2-xml-dot-query-node-len 'compiler-macro 'js2-xml-dot-query-node-len--cmacro) #@214 Access slot "len" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 3] 5 (#$ . 873964)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-dot-query-node-len side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-dot-query-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-props (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 874498)]) (put 'js2-xml-dot-query-node-props 'compiler-macro 'js2-xml-dot-query-node-props--cmacro) #@216 Access slot "props" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 4] 5 (#$ . 874976)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-dot-query-node-props side-effect-free t] 4) #@86 compiler-macro for inlining `js2-xml-dot-query-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-parent (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 875516)]) (put 'js2-xml-dot-query-node-parent 'compiler-macro 'js2-xml-dot-query-node-parent--cmacro) #@217 Access slot "parent" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 5] 5 (#$ . 875999)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-dot-query-node-parent side-effect-free t] 4) #@86 compiler-macro for inlining `js2-xml-dot-query-node-op-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-op-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-op-pos (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 876542)]) (put 'js2-xml-dot-query-node-op-pos 'compiler-macro 'js2-xml-dot-query-node-op-pos--cmacro) #@217 Access slot "op-pos" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-op-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 6] 5 (#$ . 877025)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-dot-query-node-op-pos side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-dot-query-node-left'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-left--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-left (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 877568)]) (put 'js2-xml-dot-query-node-left 'compiler-macro 'js2-xml-dot-query-node-left--cmacro) #@215 Access slot "left" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-left #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 7] 5 (#$ . 878041)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-dot-query-node-left side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-dot-query-node-right'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-right--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-right (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 878578)]) (put 'js2-xml-dot-query-node-right 'compiler-macro 'js2-xml-dot-query-node-right--cmacro) #@216 Access slot "right" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-right #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 8] 5 (#$ . 879056)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-dot-query-node-right side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-dot-query-node-rp'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-dot-query-node-rp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-dot-query-node-rp (or (js2-xml-dot-query-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-dot-query-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 879596)]) (put 'js2-xml-dot-query-node-rp 'compiler-macro 'js2-xml-dot-query-node-rp--cmacro) #@213 Access slot "rp" of `(js2-xml-dot-query-node (:include js2-infix-node) (:constructor make-js2-xml-dot-query-node (&key (type js2-DOTQUERY) (pos js2-ts-cursor) op-pos len left right rp)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-dot-query-node-rp #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-xml-dot-query-node 9] 5 (#$ . 880059)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-dot-query-node-rp side-effect-free t defalias copy-js2-xml-dot-query-node copy-sequence] 4) #@155 compiler-macro for inlining `make-js2-xml-dot-query-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-DOTQUERY) (POS js2-ts-cursor) OP-POS LEN LEFT RIGHT RP) (defalias 'make-js2-xml-dot-query-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"A@\300\306\"\206\"\307A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-DOTQUERY) :pos (nil js2-ts-cursor) :op-pos :len (nil 1) :left :right :rp (:type :pos :op-pos :len :left :right :rp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :op-pos :len :left :right :rp)" cl--defsubst-expand (type pos op-pos len left right rp) (cl-block make-js2-xml-dot-query-node (record 'js2-xml-dot-query-node type pos len nil nil op-pos left right rp))] 22 (#$ . 880652)]) (put 'make-js2-xml-dot-query-node 'compiler-macro 'make-js2-xml-dot-query-node--cmacro) #@135 Constructor for objects of type `js2-xml-dot-query-node'. (fn &key (TYPE js2-DOTQUERY) (POS js2-ts-cursor) OP-POS LEN LEFT RIGHT RP) (defalias 'make-js2-xml-dot-query-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"A@\302\307\"\206&\310A@\302\311\"A@\302\312\"A@\302\313\"A@\211\203i\211@\314>\203Q\211AA\262\202>\315 >A@\203`\304\262\202>\316\317@\"\210\202>\210\320\321\304\211 \n\n\n&\n\207" [js2-DOTQUERY js2-ts-cursor plist-member :type nil :pos :op-pos :len (nil 1) :left :right :rp (:type :pos :op-pos :len :left :right :rp :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :op-pos :len :left :right :rp)" record js2-xml-dot-query-node] 19 (#$ . 881691)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-dot-query-node side-effect-free t cl-struct-define js2-xml-dot-query-node "AST node for an E4X foo.(bar) filter expression.\nNote that the left-paren is automatically the character immediately\nfollowing the dot (.) in the operator. No whitespace is permitted\nbetween the dot and the lp by the scanner." js2-infix-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (op-pos nil) (left nil) (right nil) (rp)) cl-struct-js2-xml-dot-query-node-tags js2--struct-put js2-visitor js2-visit-infix-node js2-printer js2-print-xml-dot-query] 11) #@12 (fn N I) (defalias 'js2-print-xml-dot-query #[514 "\301!c\210\302\303!>\204\304\305\306D\"\210\307H\310\"\210\311c\210\302\303!>\204.\304\305\306D\"\210\312H\310\"\210\313c\207" [cl-struct-js2-xml-dot-query-node-tags js2-make-pad js2-print-ast type-of signal wrong-type-argument js2-xml-dot-query-node 7 0 ".(" 8 ")"] 7 (#$ . 883168)]) #@75 compiler-macro for inlining `js2-xml-ref-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-ref-node-tags) t)) nil] 9 (#$ . 883524)]) (put 'js2-xml-ref-node-p 'compiler-macro 'js2-xml-ref-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-ref-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-ref-node-tags type-of t] 3 (#$ . 883896)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-ref-node-p side-effect-free error-free put js2-xml-ref-node cl-deftype-satisfies] 5) #@78 compiler-macro for inlining `js2-xml-ref-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-type (or (js2-xml-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-ref-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 884196)]) (put 'js2-xml-ref-node-type 'compiler-macro 'js2-xml-ref-node-type--cmacro) #@107 Access slot "type" of `(js2-xml-ref-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-xml-ref-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 1] 5 (#$ . 884627)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-ref-node-type side-effect-free t] 4) #@77 compiler-macro for inlining `js2-xml-ref-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-pos (or (js2-xml-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-ref-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 885032)]) (put 'js2-xml-ref-node-pos 'compiler-macro 'js2-xml-ref-node-pos--cmacro) #@106 Access slot "pos" of `(js2-xml-ref-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-xml-ref-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 2] 5 (#$ . 885458)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-ref-node-pos side-effect-free t] 4) #@77 compiler-macro for inlining `js2-xml-ref-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-len (or (js2-xml-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-ref-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 885860)]) (put 'js2-xml-ref-node-len 'compiler-macro 'js2-xml-ref-node-len--cmacro) #@106 Access slot "len" of `(js2-xml-ref-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-xml-ref-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 3] 5 (#$ . 886286)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-ref-node-len side-effect-free t] 4) #@79 compiler-macro for inlining `js2-xml-ref-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-props (or (js2-xml-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-ref-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 886688)]) (put 'js2-xml-ref-node-props 'compiler-macro 'js2-xml-ref-node-props--cmacro) #@108 Access slot "props" of `(js2-xml-ref-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-xml-ref-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 4] 5 (#$ . 887124)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-ref-node-props side-effect-free t] 4) #@80 compiler-macro for inlining `js2-xml-ref-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-parent (or (js2-xml-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-ref-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 887532)]) (put 'js2-xml-ref-node-parent 'compiler-macro 'js2-xml-ref-node-parent--cmacro) #@109 Access slot "parent" of `(js2-xml-ref-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-xml-ref-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 5] 5 (#$ . 887973)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-ref-node-parent side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-ref-node-namespace'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-namespace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-namespace (or (js2-xml-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-ref-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 888384)]) (put 'js2-xml-ref-node-namespace 'compiler-macro 'js2-xml-ref-node-namespace--cmacro) #@112 Access slot "namespace" of `(js2-xml-ref-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-xml-ref-node-namespace #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 6] 5 (#$ . 888840)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-ref-node-namespace side-effect-free t] 4) #@80 compiler-macro for inlining `js2-xml-ref-node-at-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-at-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-at-pos (or (js2-xml-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-ref-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 889260)]) (put 'js2-xml-ref-node-at-pos 'compiler-macro 'js2-xml-ref-node-at-pos--cmacro) #@109 Access slot "at-pos" of `(js2-xml-ref-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-xml-ref-node-at-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 7] 5 (#$ . 889701)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-ref-node-at-pos side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-ref-node-colon-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-ref-node-colon-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-ref-node-colon-pos (or (js2-xml-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-ref-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 890112)]) (put 'js2-xml-ref-node-colon-pos 'compiler-macro 'js2-xml-ref-node-colon-pos--cmacro) #@112 Access slot "colon-pos" of `(js2-xml-ref-node (:include js2-node) (:constructor nil))' struct CL-X. (fn CL-X) (defalias 'js2-xml-ref-node-colon-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 8] 5 (#$ . 890568)]) (byte-code "\300\301\302\303#\304\305\306\"\210\307\310\311\312\313\314\315\316\310\303& \207" [function-put js2-xml-ref-node-colon-pos side-effect-free t defalias copy-js2-xml-ref-node copy-sequence cl-struct-define js2-xml-ref-node "Base type for E4X XML attribute-access or property-get expressions.\nSuch expressions can take a variety of forms. The general syntax has\nthree parts:\n\n - (optional) an @ (specifying an attribute access)\n - (optional) a namespace (a `js2-name-node') and double-colon\n - (required) either a `js2-name-node' or a bracketed [expression]\n\nThe property-name expressions (examples: ns::name, @name) are\nrepresented as `js2-xml-prop-ref' nodes. The bracketed-expression\nversions (examples: ns::[name], @[name]) become `js2-xml-elem-ref' nodes.\n\nThis node type (or more specifically, its subclasses) will sometimes\nbe the right-hand child of a `js2-prop-get-node' or a\n`js2-infix-node' of type `js2-DOTDOT', the .. xml-descendants operator.\nThe `js2-xml-ref-node' may also be a standalone primary expression with\nno explicit target, which is valid in certain expression contexts such as\n\n company..employee.(@id < 100)\n\nin this case, the @id is a `js2-xml-ref' that is part of an infix '<'\nexpression whose parent is a `js2-xml-dot-query-node'." js2-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (namespace) (at-pos) (colon-pos)) cl-struct-js2-xml-ref-node-tags] 11) #@69 Return non-nil if this expression began with an @-token. (fn NODE) (defalias 'js2-xml-ref-node-attr-access-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\247\205-\301!>\204%\302\303\304D\"\210\211\305H\211\306V\262\207" [cl-struct-js2-xml-ref-node-tags type-of signal wrong-type-argument js2-xml-ref-node 7 0] 5 (#$ . 892344)]) (put 'js2-xml-ref-node-attr-access-p 'byte-optimizer 'byte-compile-inline-expand) #@80 compiler-macro for inlining `js2-xml-prop-ref-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-prop-ref-node-tags) t)) nil] 9 (#$ . 892773)]) (put 'js2-xml-prop-ref-node-p 'compiler-macro 'js2-xml-prop-ref-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-prop-ref-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-prop-ref-node-tags type-of t] 3 (#$ . 893175)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-prop-ref-node-p side-effect-free error-free put js2-xml-prop-ref-node cl-deftype-satisfies] 5) #@83 compiler-macro for inlining `js2-xml-prop-ref-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-type (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 893495)]) (put 'js2-xml-prop-ref-node-type 'compiler-macro 'js2-xml-prop-ref-node-type--cmacro) #@240 Access slot "type" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 1] 5 (#$ . 893961)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-prop-ref-node-type side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-prop-ref-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-pos (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 894519)]) (put 'js2-xml-prop-ref-node-pos 'compiler-macro 'js2-xml-prop-ref-node-pos--cmacro) #@239 Access slot "pos" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 2] 5 (#$ . 894980)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-prop-ref-node-pos side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-prop-ref-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-len (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 895535)]) (put 'js2-xml-prop-ref-node-len 'compiler-macro 'js2-xml-prop-ref-node-len--cmacro) #@239 Access slot "len" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 3] 5 (#$ . 895996)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-prop-ref-node-len side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-prop-ref-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-props (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 896551)]) (put 'js2-xml-prop-ref-node-props 'compiler-macro 'js2-xml-prop-ref-node-props--cmacro) #@241 Access slot "props" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 4] 5 (#$ . 897022)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-prop-ref-node-props side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-prop-ref-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-parent (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 897583)]) (put 'js2-xml-prop-ref-node-parent 'compiler-macro 'js2-xml-prop-ref-node-parent--cmacro) #@242 Access slot "parent" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 5] 5 (#$ . 898059)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-prop-ref-node-parent side-effect-free t] 4) #@88 compiler-macro for inlining `js2-xml-prop-ref-node-namespace'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-namespace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-namespace (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 898623)]) (put 'js2-xml-prop-ref-node-namespace 'compiler-macro 'js2-xml-prop-ref-node-namespace--cmacro) #@245 Access slot "namespace" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-namespace #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 6] 5 (#$ . 899114)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-prop-ref-node-namespace side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-prop-ref-node-at-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-at-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-at-pos (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 899687)]) (put 'js2-xml-prop-ref-node-at-pos 'compiler-macro 'js2-xml-prop-ref-node-at-pos--cmacro) #@242 Access slot "at-pos" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-at-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 7] 5 (#$ . 900163)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-prop-ref-node-at-pos side-effect-free t] 4) #@88 compiler-macro for inlining `js2-xml-prop-ref-node-colon-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-colon-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-colon-pos (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 900727)]) (put 'js2-xml-prop-ref-node-colon-pos 'compiler-macro 'js2-xml-prop-ref-node-colon-pos--cmacro) #@245 Access slot "colon-pos" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-colon-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 8] 5 (#$ . 901218)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-prop-ref-node-colon-pos side-effect-free t] 4) #@87 compiler-macro for inlining `js2-xml-prop-ref-node-propname'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-prop-ref-node-propname--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-prop-ref-node-propname (or (js2-xml-prop-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-prop-ref-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 901791)]) (put 'js2-xml-prop-ref-node-propname 'compiler-macro 'js2-xml-prop-ref-node-propname--cmacro) #@244 Access slot "propname" of `(js2-xml-prop-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-prop-ref-node (&key (type js2-REF_NAME) (pos (js2-current-token-beg)) len propname namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-prop-ref-node-propname #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-prop-ref-node-tags type-of signal wrong-type-argument js2-xml-prop-ref-node 9] 5 (#$ . 902277)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-prop-ref-node-propname side-effect-free t defalias copy-js2-xml-prop-ref-node copy-sequence] 4) #@179 compiler-macro for inlining `make-js2-xml-prop-ref-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-REF_NAME) (POS (js2-current-token-beg)) LEN PROPNAME NAMESPACE AT-POS COLON-POS) (defalias 'make-js2-xml-prop-ref-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-REF_NAME) :pos (nil (js2-current-token-beg)) :len (nil 1) :propname :namespace :at-pos :colon-pos (:type :pos :len :propname :namespace :at-pos :colon-pos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :propname :namespace :at-pos :colon-pos)" cl--defsubst-expand (type pos len propname namespace at-pos colon-pos) (cl-block make-js2-xml-prop-ref-node (record 'js2-xml-prop-ref-node type pos len nil nil namespace at-pos colon-pos propname))] 22 (#$ . 902908)]) (put 'make-js2-xml-prop-ref-node 'compiler-macro 'make-js2-xml-prop-ref-node--cmacro) #@159 Constructor for objects of type `js2-xml-prop-ref-node'. (fn &key (TYPE js2-REF_NAME) (POS (js2-current-token-beg)) LEN PROPNAME NAMESPACE AT-POS COLON-POS) (defalias 'make-js2-xml-prop-ref-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\304\321\"A@\304\322\"A@\211\203\211@\323>\203g\211AA\262\202T\324 >A@\203v\306\262\202T\325\326@\"\210\202T\210\327\330\306\211    &\n\207" [js2-REF_NAME js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :propname :namespace :at-pos :colon-pos (:type :pos :len :propname :namespace :at-pos :colon-pos :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :propname :namespace :at-pos :colon-pos)" record js2-xml-prop-ref-node] 19 (#$ . 904050)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-prop-ref-node side-effect-free t cl-struct-define js2-xml-prop-ref-node "AST node for an E4X XML [expr] property-ref expression.\nThe JavaScript syntax is an optional @, an optional ns::, and a name.\n\n [ '@' ] [ name '::' ] name\n\nExamples include name, ns::name, ns::*, *::name, *::*, @attr, @ns::attr,\n@ns::*, @*::attr, @*::*, and @*.\n\nThe node starts at the @ token, if present. Otherwise it starts at the\nnamespace name. The node bounds extend through the closing right-bracket,\nor if it is missing due to a syntax error, through the end of the index\nexpression." js2-xml-ref-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (namespace nil) (at-pos nil) (colon-pos nil) (propname)) cl-struct-js2-xml-prop-ref-node-tags js2--struct-put js2-visitor js2-visit-xml-prop-ref-node js2-printer js2-print-xml-prop-ref-node] 11) #@12 (fn N V) (defalias 'js2-visit-xml-prop-ref-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-xml-prop-ref-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-prop-ref-node 6 9] 7 (#$ . 906036)]) #@12 (fn N I) (defalias 'js2-print-xml-prop-ref-node #[514 "\302!c\210\303!>\204\304\305\306D\"\210\211\307H\247\2053\303!>\204+\304\305\306D\"\210\211\307H\211\310V\262\262\203;\311c\210\303! >\204J\304\305\312D\"\210\313H\203i\314\303! >\204`\304\305\312D\"\210\313H\310\"\210\315c\210\303! >\204x\304\305\312D\"\210\316H\205\223\314\303! >\204\216\304\305\312D\"\210\316H\310\"\207" [cl-struct-js2-xml-ref-node-tags cl-struct-js2-xml-prop-ref-node-tags js2-make-pad type-of signal wrong-type-argument js2-xml-ref-node 7 0 "@" js2-xml-prop-ref-node 6 js2-print-ast "::" 9] 7 (#$ . 906335)]) #@80 compiler-macro for inlining `js2-xml-elem-ref-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-elem-ref-node-tags) t)) nil] 9 (#$ . 906964)]) (put 'js2-xml-elem-ref-node-p 'compiler-macro 'js2-xml-elem-ref-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-elem-ref-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-elem-ref-node-tags type-of t] 3 (#$ . 907366)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-elem-ref-node-p side-effect-free error-free put js2-xml-elem-ref-node cl-deftype-satisfies] 5) #@83 compiler-macro for inlining `js2-xml-elem-ref-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-type (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 907686)]) (put 'js2-xml-elem-ref-node-type 'compiler-macro 'js2-xml-elem-ref-node-type--cmacro) #@244 Access slot "type" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 1] 5 (#$ . 908152)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-type side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-elem-ref-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-pos (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 908714)]) (put 'js2-xml-elem-ref-node-pos 'compiler-macro 'js2-xml-elem-ref-node-pos--cmacro) #@243 Access slot "pos" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 2] 5 (#$ . 909175)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-pos side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-elem-ref-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-len (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 909734)]) (put 'js2-xml-elem-ref-node-len 'compiler-macro 'js2-xml-elem-ref-node-len--cmacro) #@243 Access slot "len" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 3] 5 (#$ . 910195)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-len side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-elem-ref-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-props (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 910754)]) (put 'js2-xml-elem-ref-node-props 'compiler-macro 'js2-xml-elem-ref-node-props--cmacro) #@245 Access slot "props" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 4] 5 (#$ . 911225)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-props side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-elem-ref-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-parent (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 911790)]) (put 'js2-xml-elem-ref-node-parent 'compiler-macro 'js2-xml-elem-ref-node-parent--cmacro) #@246 Access slot "parent" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 5] 5 (#$ . 912266)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-parent side-effect-free t] 4) #@88 compiler-macro for inlining `js2-xml-elem-ref-node-namespace'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-namespace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-namespace (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 912834)]) (put 'js2-xml-elem-ref-node-namespace 'compiler-macro 'js2-xml-elem-ref-node-namespace--cmacro) #@249 Access slot "namespace" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-namespace #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 6] 5 (#$ . 913325)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-namespace side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-elem-ref-node-at-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-at-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-at-pos (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 913902)]) (put 'js2-xml-elem-ref-node-at-pos 'compiler-macro 'js2-xml-elem-ref-node-at-pos--cmacro) #@246 Access slot "at-pos" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-at-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 7] 5 (#$ . 914378)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-at-pos side-effect-free t] 4) #@88 compiler-macro for inlining `js2-xml-elem-ref-node-colon-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-colon-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-colon-pos (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 914946)]) (put 'js2-xml-elem-ref-node-colon-pos 'compiler-macro 'js2-xml-elem-ref-node-colon-pos--cmacro) #@249 Access slot "colon-pos" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-colon-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 8] 5 (#$ . 915437)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-colon-pos side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-elem-ref-node-expr'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-expr--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-expr (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 916014)]) (put 'js2-xml-elem-ref-node-expr 'compiler-macro 'js2-xml-elem-ref-node-expr--cmacro) #@244 Access slot "expr" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-expr #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 9] 5 (#$ . 916480)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-expr side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-elem-ref-node-lb'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-lb--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-lb (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 917042)]) (put 'js2-xml-elem-ref-node-lb 'compiler-macro 'js2-xml-elem-ref-node-lb--cmacro) #@242 Access slot "lb" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-lb #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 10] 5 (#$ . 917499)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-elem-ref-node-lb side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-elem-ref-node-rb'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-elem-ref-node-rb--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-elem-ref-node-rb (or (js2-xml-elem-ref-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-elem-ref-node cl-x))) (aref cl-x 11)) nil] 9 (#$ . 918056)]) (put 'js2-xml-elem-ref-node-rb 'compiler-macro 'js2-xml-elem-ref-node-rb--cmacro) #@242 Access slot "rb" of `(js2-xml-elem-ref-node (:include js2-xml-ref-node) (:constructor make-js2-xml-elem-ref-node (&key (type js2-REF_MEMBER) (pos (js2-current-token-beg)) len expr lb rb namespace at-pos colon-pos)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-elem-ref-node-rb #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-elem-ref-node-tags type-of signal wrong-type-argument js2-xml-elem-ref-node 11] 5 (#$ . 918513)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-elem-ref-node-rb side-effect-free t defalias copy-js2-xml-elem-ref-node copy-sequence] 4) #@183 compiler-macro for inlining `make-js2-xml-elem-ref-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-REF_MEMBER) (POS (js2-current-token-beg)) LEN EXPR LB RB NAMESPACE AT-POS COLON-POS) (defalias 'make-js2-xml-elem-ref-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\300 \314\"A@ \211\203s\211@\315>\203[\211AA\262\202H\316 >A@\203j\317\262\202H\320\321@\"\210\202H\210\322\323\324\317\317&\207" [plist-member :type (nil js2-REF_MEMBER) :pos (nil (js2-current-token-beg)) :len (nil 1) :expr :lb :rb :namespace :at-pos :colon-pos (:type :pos :len :expr :lb :rb :namespace :at-pos :colon-pos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :expr :lb :rb :namespace :at-pos :colon-pos)" cl--defsubst-expand (type pos len expr lb rb namespace at-pos colon-pos) (cl-block make-js2-xml-elem-ref-node (record 'js2-xml-elem-ref-node type pos len nil nil namespace at-pos colon-pos expr lb rb))] 26 (#$ . 919131)]) (put 'make-js2-xml-elem-ref-node 'compiler-macro 'make-js2-xml-elem-ref-node--cmacro) #@163 Constructor for objects of type `js2-xml-elem-ref-node'. (fn &key (TYPE js2-REF_MEMBER) (POS (js2-current-token-beg)) LEN EXPR LB RB NAMESPACE AT-POS COLON-POS) (defalias 'make-js2-xml-elem-ref-node #[128 "\304\305\"\206\n\306DA@\304\307\"\206,\306 \nH\310! >\204&\311\312\313D\"\210\211\314H\262DA@\304\315\"\2066\316A@\304\317\"A@\304\320\"A@\304\321\"A@\304\322\"A@\304\323\"A@\304 \324\"A@ \211\203\215\211@\325>\203u\211AA\262\202b\326 >A@\203\204\306\262\202b\327\330@\"\210\202b\210\331\332\n\n\n\306\211   &\f\207" [js2-REF_MEMBER js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags plist-member :type nil :pos type-of signal wrong-type-argument js2-token 2 :len (nil 1) :expr :lb :rb :namespace :at-pos :colon-pos (:type :pos :len :expr :lb :rb :namespace :at-pos :colon-pos :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :expr :lb :rb :namespace :at-pos :colon-pos)" record js2-xml-elem-ref-node] 23 (#$ . 920317)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-elem-ref-node side-effect-free t cl-struct-define js2-xml-elem-ref-node "AST node for an E4X XML [expr] member-ref expression.\nSyntax:\n\n [ '@' ] [ name '::' ] '[' expr ']'\n\nExamples include ns::[expr], @ns::[expr], @[expr], *::[expr] and @*::[expr].\n\nNote that the form [expr] (i.e. no namespace or attribute-qualifier)\nis not a legal E4X XML element-ref expression, since it's already used\nfor standard JavaScript element-get array indexing. Hence, a\n`js2-xml-elem-ref-node' always has either the attribute-qualifier, a\nnon-nil namespace node, or both.\n\nThe node starts at the @ token, if present. Otherwise it starts\nat the namespace name. The node bounds extend through the closing\nright-bracket, or if it is missing due to a syntax error, through the\nend of the index expression." js2-xml-ref-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (namespace nil) (at-pos nil) (colon-pos nil) (expr) (lb) (rb)) cl-struct-js2-xml-elem-ref-node-tags js2--struct-put js2-visitor js2-visit-xml-elem-ref-node js2-printer js2-print-xml-elem-ref-node] 11) #@12 (fn N V) (defalias 'js2-visit-xml-elem-ref-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-xml-elem-ref-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-elem-ref-node 6 9] 7 (#$ . 922592)]) #@12 (fn N I) (defalias 'js2-print-xml-elem-ref-node #[514 "\302!c\210\303!>\204\304\305\306D\"\210\211\307H\247\2053\303!>\204+\304\305\306D\"\210\211\307H\211\310V\262\262\203;\311c\210\303! >\204J\304\305\312D\"\210\313H\203i\314\303! >\204`\304\305\312D\"\210\313H\310\"\210\315c\210\316c\210\303! >\204{\304\305\312D\"\210\317H\203\227\314\303! >\204\221\304\305\312D\"\210\317H\310\"\210\320c\207" [cl-struct-js2-xml-ref-node-tags cl-struct-js2-xml-elem-ref-node-tags js2-make-pad type-of signal wrong-type-argument js2-xml-ref-node 7 0 "@" js2-xml-elem-ref-node 6 js2-print-ast "::" "[" 9 "]"] 7 (#$ . 922891)]) #@81 compiler-macro for inlining `js2-xml-start-tag-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-start-tag-node-tags) t)) nil] 9 (#$ . 923546)]) (put 'js2-xml-start-tag-node-p 'compiler-macro 'js2-xml-start-tag-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-start-tag-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-start-tag-node-tags type-of t] 3 (#$ . 923954)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-start-tag-node-p side-effect-free error-free put js2-xml-start-tag-node cl-deftype-satisfies] 5) #@84 compiler-macro for inlining `js2-xml-start-tag-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-type (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 924278)]) (put 'js2-xml-start-tag-node-type 'compiler-macro 'js2-xml-start-tag-node-type--cmacro) #@211 Access slot "type" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 1] 5 (#$ . 924751)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-start-tag-node-type side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-start-tag-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-pos (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 925284)]) (put 'js2-xml-start-tag-node-pos 'compiler-macro 'js2-xml-start-tag-node-pos--cmacro) #@210 Access slot "pos" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 2] 5 (#$ . 925752)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-start-tag-node-pos side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-start-tag-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-len (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 926282)]) (put 'js2-xml-start-tag-node-len 'compiler-macro 'js2-xml-start-tag-node-len--cmacro) #@210 Access slot "len" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 3] 5 (#$ . 926750)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-start-tag-node-len side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-start-tag-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-props (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 927280)]) (put 'js2-xml-start-tag-node-props 'compiler-macro 'js2-xml-start-tag-node-props--cmacro) #@212 Access slot "props" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 4] 5 (#$ . 927758)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-start-tag-node-props side-effect-free t] 4) #@86 compiler-macro for inlining `js2-xml-start-tag-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-parent (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 928294)]) (put 'js2-xml-start-tag-node-parent 'compiler-macro 'js2-xml-start-tag-node-parent--cmacro) #@213 Access slot "parent" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 5] 5 (#$ . 928777)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-start-tag-node-parent side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-start-tag-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-kids (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 929316)]) (put 'js2-xml-start-tag-node-kids 'compiler-macro 'js2-xml-start-tag-node-kids--cmacro) #@211 Access slot "kids" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 6] 5 (#$ . 929789)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-start-tag-node-kids side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-start-tag-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-name (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 930322)]) (put 'js2-xml-start-tag-node-name 'compiler-macro 'js2-xml-start-tag-node-name--cmacro) #@211 Access slot "name" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 7] 5 (#$ . 930795)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-start-tag-node-name side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-start-tag-node-attrs'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-attrs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-attrs (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 931328)]) (put 'js2-xml-start-tag-node-attrs 'compiler-macro 'js2-xml-start-tag-node-attrs--cmacro) #@212 Access slot "attrs" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-attrs #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 8] 5 (#$ . 931806)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-start-tag-node-attrs side-effect-free t] 4) #@87 compiler-macro for inlining `js2-xml-start-tag-node-empty-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-start-tag-node-empty-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-start-tag-node-empty-p (or (js2-xml-start-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-start-tag-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 932342)]) (put 'js2-xml-start-tag-node-empty-p 'compiler-macro 'js2-xml-start-tag-node-empty-p--cmacro) #@214 Access slot "empty-p" of `(js2-xml-start-tag-node (:include js2-xml-node) (:constructor make-js2-xml-start-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs kids empty-p)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-start-tag-node-empty-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-start-tag-node-tags type-of signal wrong-type-argument js2-xml-start-tag-node 9] 5 (#$ . 932830)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-start-tag-node-empty-p side-effect-free t defalias copy-js2-xml-start-tag-node copy-sequence] 4) #@153 compiler-macro for inlining `make-js2-xml-start-tag-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAME ATTRS KIDS EMPTY-P) (defalias 'make-js2-xml-start-tag-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) :name :attrs :kids :empty-p (:type :pos :len :name :attrs :kids :empty-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :name :attrs :kids :empty-p)" cl--defsubst-expand (type pos len name attrs kids empty-p) (cl-block make-js2-xml-start-tag-node (record 'js2-xml-start-tag-node type pos len nil nil kids name attrs empty-p))] 22 (#$ . 933434)]) (put 'make-js2-xml-start-tag-node 'compiler-macro 'make-js2-xml-start-tag-node--cmacro) #@133 Constructor for objects of type `js2-xml-start-tag-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAME ATTRS KIDS EMPTY-P) (defalias 'make-js2-xml-start-tag-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\211\203i\211@\314>\203Q\211AA\262\202>\315 >A@\203`\304\262\202>\316\317@\"\210\202>\210\320\321\304\211  \n&\n\207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) :name :attrs :kids :empty-p (:type :pos :len :name :attrs :kids :empty-p :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :name :attrs :kids :empty-p)" record js2-xml-start-tag-node] 19 (#$ . 934480)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-start-tag-node side-effect-free t cl-struct-define js2-xml-start-tag-node "AST node for an XML start-tag. Not currently used.\nThe `kids' field is a Lisp list of child content nodes." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (name) (attrs) (empty-p)) cl-struct-js2-xml-start-tag-node-tags js2--struct-put js2-visitor js2-visit-xml-start-tag js2-printer js2-print-xml-start-tag] 11) #@12 (fn N V) (defalias 'js2-visit-xml-start-tag #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\211\203:\211@\301\"\210A\266\202\202(\210\310\"\207" [cl-struct-js2-xml-start-tag-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-start-tag-node 7 8 js2-visit-block] 7 (#$ . 935832)]) #@12 (fn N I) (defalias 'js2-print-xml-start-tag #[514 "\301!\302\261\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\304!>\204,\305\306\307D\"\210\312H\203K\313c\210\314\304!>\204E\305\306\307D\"\210\312H\313\"\210\315c\207" [cl-struct-js2-xml-start-tag-node-tags js2-make-pad "<" js2-print-ast type-of signal wrong-type-argument js2-xml-start-tag-node 7 0 8 " " js2-print-list ">"] 7 (#$ . 936193)]) #@79 compiler-macro for inlining `js2-xml-end-tag-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-end-tag-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-end-tag-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-end-tag-node-tags) t)) nil] 9 (#$ . 936621)]) (put 'js2-xml-end-tag-node-p 'compiler-macro 'js2-xml-end-tag-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-end-tag-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-end-tag-node-tags type-of t] 3 (#$ . 937017)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-end-tag-node-p side-effect-free error-free put js2-xml-end-tag-node cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `js2-xml-end-tag-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-end-tag-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-end-tag-node-type (or (js2-xml-end-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-end-tag-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 937333)]) (put 'js2-xml-end-tag-node-type 'compiler-macro 'js2-xml-end-tag-node-type--cmacro) #@188 Access slot "type" of `(js2-xml-end-tag-node (:include js2-xml-node) (:constructor make-js2-xml-end-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-end-tag-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-end-tag-node-tags type-of signal wrong-type-argument js2-xml-end-tag-node 1] 5 (#$ . 937792)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-end-tag-node-type side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-end-tag-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-end-tag-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-end-tag-node-pos (or (js2-xml-end-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-end-tag-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 938294)]) (put 'js2-xml-end-tag-node-pos 'compiler-macro 'js2-xml-end-tag-node-pos--cmacro) #@187 Access slot "pos" of `(js2-xml-end-tag-node (:include js2-xml-node) (:constructor make-js2-xml-end-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-end-tag-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-end-tag-node-tags type-of signal wrong-type-argument js2-xml-end-tag-node 2] 5 (#$ . 938748)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-end-tag-node-pos side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-end-tag-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-end-tag-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-end-tag-node-len (or (js2-xml-end-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-end-tag-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 939247)]) (put 'js2-xml-end-tag-node-len 'compiler-macro 'js2-xml-end-tag-node-len--cmacro) #@187 Access slot "len" of `(js2-xml-end-tag-node (:include js2-xml-node) (:constructor make-js2-xml-end-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-end-tag-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-end-tag-node-tags type-of signal wrong-type-argument js2-xml-end-tag-node 3] 5 (#$ . 939701)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-end-tag-node-len side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-end-tag-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-end-tag-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-end-tag-node-props (or (js2-xml-end-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-end-tag-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 940200)]) (put 'js2-xml-end-tag-node-props 'compiler-macro 'js2-xml-end-tag-node-props--cmacro) #@189 Access slot "props" of `(js2-xml-end-tag-node (:include js2-xml-node) (:constructor make-js2-xml-end-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-end-tag-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-end-tag-node-tags type-of signal wrong-type-argument js2-xml-end-tag-node 4] 5 (#$ . 940664)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-end-tag-node-props side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-end-tag-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-end-tag-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-end-tag-node-parent (or (js2-xml-end-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-end-tag-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 941169)]) (put 'js2-xml-end-tag-node-parent 'compiler-macro 'js2-xml-end-tag-node-parent--cmacro) #@190 Access slot "parent" of `(js2-xml-end-tag-node (:include js2-xml-node) (:constructor make-js2-xml-end-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-end-tag-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-end-tag-node-tags type-of signal wrong-type-argument js2-xml-end-tag-node 5] 5 (#$ . 941638)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-end-tag-node-parent side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-end-tag-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-end-tag-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-end-tag-node-kids (or (js2-xml-end-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-end-tag-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 942146)]) (put 'js2-xml-end-tag-node-kids 'compiler-macro 'js2-xml-end-tag-node-kids--cmacro) #@188 Access slot "kids" of `(js2-xml-end-tag-node (:include js2-xml-node) (:constructor make-js2-xml-end-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-end-tag-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-end-tag-node-tags type-of signal wrong-type-argument js2-xml-end-tag-node 6] 5 (#$ . 942605)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-end-tag-node-kids side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-end-tag-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-end-tag-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-end-tag-node-name (or (js2-xml-end-tag-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-end-tag-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 943107)]) (put 'js2-xml-end-tag-node-name 'compiler-macro 'js2-xml-end-tag-node-name--cmacro) #@188 Access slot "name" of `(js2-xml-end-tag-node (:include js2-xml-node) (:constructor make-js2-xml-end-tag-node (&key (type js2-XML) (pos js2-ts-cursor) len name)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-end-tag-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-end-tag-node-tags type-of signal wrong-type-argument js2-xml-end-tag-node 7] 5 (#$ . 943566)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-end-tag-node-name side-effect-free t defalias copy-js2-xml-end-tag-node copy-sequence] 4) #@132 compiler-macro for inlining `make-js2-xml-end-tag-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAME) (defalias 'make-js2-xml-end-tag-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) :name (:type :pos :len :name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :name)" cl--defsubst-expand (type pos len name) (cl-block make-js2-xml-end-tag-node (record 'js2-xml-end-tag-node type pos len nil nil nil name))] 16 (#$ . 944128)]) (put 'make-js2-xml-end-tag-node 'compiler-macro 'make-js2-xml-end-tag-node--cmacro) #@112 Constructor for objects of type `js2-xml-end-tag-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAME) (defalias 'make-js2-xml-end-tag-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211\211&\207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) :name (:type :pos :len :name :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :name)" record js2-xml-end-tag-node] 14 (#$ . 944985)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-end-tag-node side-effect-free t cl-struct-define js2-xml-end-tag-node "AST node for an XML end-tag. Not currently used." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (name)) cl-struct-js2-xml-end-tag-node-tags js2--struct-put js2-visitor js2-visit-xml-end-tag js2-printer js2-print-xml-end-tag] 11) #@12 (fn N V) (defalias 'js2-visit-xml-end-tag #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-xml-end-tag-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-end-tag-node 7] 7 (#$ . 946110)]) #@12 (fn N I) (defalias 'js2-print-xml-end-tag #[514 "\301!c\210\302c\210\303\304!>\204\305\306\307D\"\210\310H\311\"\210\312c\207" [cl-struct-js2-xml-end-tag-node-tags js2-make-pad ""] 7 (#$ . 946348)]) #@76 compiler-macro for inlining `js2-xml-name-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-name-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-name-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-name-node-tags) t)) nil] 9 (#$ . 946642)]) (put 'js2-xml-name-node-p 'compiler-macro 'js2-xml-name-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-name-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-name-node-tags type-of t] 3 (#$ . 947020)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-name-node-p side-effect-free error-free put js2-xml-name-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-xml-name-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-name-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-name-node-type (or (js2-xml-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-name-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 947324)]) (put 'js2-xml-name-node-type 'compiler-macro 'js2-xml-name-node-type--cmacro) #@192 Access slot "type" of `(js2-xml-name-node (:include js2-xml-node) (:constructor make-js2-xml-name-node (&key (type js2-XML) (pos js2-ts-cursor) len namespace kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-name-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-name-node-tags type-of signal wrong-type-argument js2-xml-name-node 1] 5 (#$ . 947762)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-name-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-xml-name-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-name-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-name-node-pos (or (js2-xml-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-name-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 948256)]) (put 'js2-xml-name-node-pos 'compiler-macro 'js2-xml-name-node-pos--cmacro) #@191 Access slot "pos" of `(js2-xml-name-node (:include js2-xml-node) (:constructor make-js2-xml-name-node (&key (type js2-XML) (pos js2-ts-cursor) len namespace kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-name-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-name-node-tags type-of signal wrong-type-argument js2-xml-name-node 2] 5 (#$ . 948689)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-name-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-xml-name-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-name-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-name-node-len (or (js2-xml-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-name-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 949180)]) (put 'js2-xml-name-node-len 'compiler-macro 'js2-xml-name-node-len--cmacro) #@191 Access slot "len" of `(js2-xml-name-node (:include js2-xml-node) (:constructor make-js2-xml-name-node (&key (type js2-XML) (pos js2-ts-cursor) len namespace kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-name-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-name-node-tags type-of signal wrong-type-argument js2-xml-name-node 3] 5 (#$ . 949613)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-name-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-xml-name-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-name-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-name-node-props (or (js2-xml-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-name-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 950104)]) (put 'js2-xml-name-node-props 'compiler-macro 'js2-xml-name-node-props--cmacro) #@193 Access slot "props" of `(js2-xml-name-node (:include js2-xml-node) (:constructor make-js2-xml-name-node (&key (type js2-XML) (pos js2-ts-cursor) len namespace kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-name-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-name-node-tags type-of signal wrong-type-argument js2-xml-name-node 4] 5 (#$ . 950547)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-name-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-name-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-name-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-name-node-parent (or (js2-xml-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-name-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 951044)]) (put 'js2-xml-name-node-parent 'compiler-macro 'js2-xml-name-node-parent--cmacro) #@194 Access slot "parent" of `(js2-xml-name-node (:include js2-xml-node) (:constructor make-js2-xml-name-node (&key (type js2-XML) (pos js2-ts-cursor) len namespace kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-name-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-name-node-tags type-of signal wrong-type-argument js2-xml-name-node 5] 5 (#$ . 951492)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-name-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-xml-name-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-name-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-name-node-kids (or (js2-xml-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-name-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 951992)]) (put 'js2-xml-name-node-kids 'compiler-macro 'js2-xml-name-node-kids--cmacro) #@192 Access slot "kids" of `(js2-xml-name-node (:include js2-xml-node) (:constructor make-js2-xml-name-node (&key (type js2-XML) (pos js2-ts-cursor) len namespace kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-name-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-name-node-tags type-of signal wrong-type-argument js2-xml-name-node 6] 5 (#$ . 952430)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-name-node-kids side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-name-node-namespace'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-name-node-namespace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-name-node-namespace (or (js2-xml-name-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-name-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 952924)]) (put 'js2-xml-name-node-namespace 'compiler-macro 'js2-xml-name-node-namespace--cmacro) #@197 Access slot "namespace" of `(js2-xml-name-node (:include js2-xml-node) (:constructor make-js2-xml-name-node (&key (type js2-XML) (pos js2-ts-cursor) len namespace kids)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-name-node-namespace #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-name-node-tags type-of signal wrong-type-argument js2-xml-name-node 7] 5 (#$ . 953387)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-name-node-namespace side-effect-free t defalias copy-js2-xml-name-node copy-sequence] 4) #@139 compiler-macro for inlining `make-js2-xml-name-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAMESPACE KIDS) (defalias 'make-js2-xml-name-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) :namespace :kids (:type :pos :len :namespace :kids :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :namespace :kids)" cl--defsubst-expand (type pos len namespace kids) (cl-block make-js2-xml-name-node (record 'js2-xml-name-node type pos len nil nil kids namespace))] 18 (#$ . 953953)]) (put 'make-js2-xml-name-node 'compiler-macro 'make-js2-xml-name-node--cmacro) #@119 Constructor for objects of type `js2-xml-name-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAMESPACE KIDS) (defalias 'make-js2-xml-name-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211 &\207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) :namespace :kids (:type :pos :len :namespace :kids :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :namespace :kids)" record js2-xml-name-node] 15 (#$ . 954873)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-name-node side-effect-free t cl-struct-define js2-xml-name-node "AST node for an E4X XML name. Not currently used.\nAny XML name can be qualified with a namespace, hence the namespace field.\nFurther, any E4X name can be comprised of arbitrary JavaScript {} expressions.\nThe kids field is a list of `js2-name-node' and `js2-xml-js-expr-node'.\nFor a simple name, the kids list has exactly one node, a `js2-name-node'." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (namespace)) cl-struct-js2-xml-name-node-tags js2--struct-put js2-visitor js2-visit-xml-name-node js2-printer js2-print-xml-name-node] 11) #@12 (fn N V) (defalias 'js2-visit-xml-name-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-xml-name-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-name-node 7] 7 (#$ . 956351)]) #@12 (fn N I) (defalias 'js2-print-xml-name-node #[514 "\301!c\210\302!>\204\303\304\305D\"\210\306H\2033\307\302!>\204*\303\304\305D\"\210\306H\310\"\210\311c\210\302!>\204B\303\304\305D\"\210\312H\211\205W\211@\307\310\"\210A\266\202\202E\207" [cl-struct-js2-xml-name-node-tags js2-make-pad type-of signal wrong-type-argument js2-xml-name-node 7 js2-print-ast 0 "::" 6] 7 (#$ . 956585)]) #@74 compiler-macro for inlining `js2-xml-pi-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-pi-node-tags) t)) nil] 9 (#$ . 957000)]) (put 'js2-xml-pi-node-p 'compiler-macro 'js2-xml-pi-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-pi-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-pi-node-tags type-of t] 3 (#$ . 957366)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-pi-node-p side-effect-free error-free put js2-xml-pi-node cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `js2-xml-pi-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-type (or (js2-xml-pi-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-pi-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 957662)]) (put 'js2-xml-pi-node-type 'compiler-macro 'js2-xml-pi-node-type--cmacro) #@184 Access slot "type" of `(js2-xml-pi-node (:include js2-xml-node) (:constructor make-js2-xml-pi-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-pi-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-pi-node-tags type-of signal wrong-type-argument js2-xml-pi-node 1] 5 (#$ . 958086)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-pi-node-type side-effect-free t] 4) #@76 compiler-macro for inlining `js2-xml-pi-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-pos (or (js2-xml-pi-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-pi-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 958564)]) (put 'js2-xml-pi-node-pos 'compiler-macro 'js2-xml-pi-node-pos--cmacro) #@183 Access slot "pos" of `(js2-xml-pi-node (:include js2-xml-node) (:constructor make-js2-xml-pi-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-pi-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-pi-node-tags type-of signal wrong-type-argument js2-xml-pi-node 2] 5 (#$ . 958983)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-pi-node-pos side-effect-free t] 4) #@76 compiler-macro for inlining `js2-xml-pi-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-len (or (js2-xml-pi-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-pi-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 959458)]) (put 'js2-xml-pi-node-len 'compiler-macro 'js2-xml-pi-node-len--cmacro) #@183 Access slot "len" of `(js2-xml-pi-node (:include js2-xml-node) (:constructor make-js2-xml-pi-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-pi-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-pi-node-tags type-of signal wrong-type-argument js2-xml-pi-node 3] 5 (#$ . 959877)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-pi-node-len side-effect-free t] 4) #@78 compiler-macro for inlining `js2-xml-pi-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-props (or (js2-xml-pi-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-pi-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 960352)]) (put 'js2-xml-pi-node-props 'compiler-macro 'js2-xml-pi-node-props--cmacro) #@185 Access slot "props" of `(js2-xml-pi-node (:include js2-xml-node) (:constructor make-js2-xml-pi-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-pi-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-pi-node-tags type-of signal wrong-type-argument js2-xml-pi-node 4] 5 (#$ . 960781)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-pi-node-props side-effect-free t] 4) #@79 compiler-macro for inlining `js2-xml-pi-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-parent (or (js2-xml-pi-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-pi-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 961262)]) (put 'js2-xml-pi-node-parent 'compiler-macro 'js2-xml-pi-node-parent--cmacro) #@186 Access slot "parent" of `(js2-xml-pi-node (:include js2-xml-node) (:constructor make-js2-xml-pi-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-pi-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-pi-node-tags type-of signal wrong-type-argument js2-xml-pi-node 5] 5 (#$ . 961696)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-pi-node-parent side-effect-free t] 4) #@77 compiler-macro for inlining `js2-xml-pi-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-kids (or (js2-xml-pi-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-pi-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 962180)]) (put 'js2-xml-pi-node-kids 'compiler-macro 'js2-xml-pi-node-kids--cmacro) #@184 Access slot "kids" of `(js2-xml-pi-node (:include js2-xml-node) (:constructor make-js2-xml-pi-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-pi-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-pi-node-tags type-of signal wrong-type-argument js2-xml-pi-node 6] 5 (#$ . 962604)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-pi-node-kids side-effect-free t] 4) #@77 compiler-macro for inlining `js2-xml-pi-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-name (or (js2-xml-pi-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-pi-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 963082)]) (put 'js2-xml-pi-node-name 'compiler-macro 'js2-xml-pi-node-name--cmacro) #@184 Access slot "name" of `(js2-xml-pi-node (:include js2-xml-node) (:constructor make-js2-xml-pi-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-pi-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-pi-node-tags type-of signal wrong-type-argument js2-xml-pi-node 7] 5 (#$ . 963506)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-pi-node-name side-effect-free t] 4) #@78 compiler-macro for inlining `js2-xml-pi-node-attrs'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-pi-node-attrs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-pi-node-attrs (or (js2-xml-pi-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-pi-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 963984)]) (put 'js2-xml-pi-node-attrs 'compiler-macro 'js2-xml-pi-node-attrs--cmacro) #@185 Access slot "attrs" of `(js2-xml-pi-node (:include js2-xml-node) (:constructor make-js2-xml-pi-node (&key (type js2-XML) (pos js2-ts-cursor) len name attrs)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-pi-node-attrs #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-pi-node-tags type-of signal wrong-type-argument js2-xml-pi-node 8] 5 (#$ . 964413)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-pi-node-attrs side-effect-free t defalias copy-js2-xml-pi-node copy-sequence] 4) #@133 compiler-macro for inlining `make-js2-xml-pi-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAME ATTRS) (defalias 'make-js2-xml-pi-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\211\203V\211@\311>\203>\211AA\262\202+\312>A@\203M\313\262\202+\314\315@\"\210\202+\210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) :name :attrs (:type :pos :len :name :attrs :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :name :attrs)" cl--defsubst-expand (type pos len name attrs) (cl-block make-js2-xml-pi-node (record 'js2-xml-pi-node type pos len nil nil nil name attrs))] 18 (#$ . 964949)]) (put 'make-js2-xml-pi-node 'compiler-macro 'make-js2-xml-pi-node--cmacro) #@113 Constructor for objects of type `js2-xml-pi-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAME ATTRS) (defalias 'make-js2-xml-pi-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\211\203Z\211@\312>\203B\211AA\262\202/\313>A@\203Q\304\262\202/\314\315@\"\210\202/\210\316\317\304\211\211  & \207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) :name :attrs (:type :pos :len :name :attrs :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :name :attrs)" record js2-xml-pi-node] 16 (#$ . 965837)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-pi-node side-effect-free t cl-struct-define js2-xml-pi-node "AST node for an E4X XML processing instruction. Not currently used." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (name) (attrs)) cl-struct-js2-xml-pi-node-tags js2--struct-put js2-visitor js2-visit-xml-pi-node js2-printer js2-print-xml-pi-node] 11) #@12 (fn N V) (defalias 'js2-visit-xml-pi-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\302!>\204%\303\304\305D\"\210\307H\211\205:\211@\301\"\210A\266\202\202(\207" [cl-struct-js2-xml-pi-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-pi-node 7 8] 7 (#$ . 967004)]) #@12 (fn N I) (defalias 'js2-print-xml-pi-node #[514 "\301!\302\261\210\303\304!>\204\305\306\307D\"\210\310H!\210\304!>\204+\305\306\307D\"\210\311H\203I\312c\210\313\304!>\204D\305\306\307D\"\210\311H!\210\314c\207" [cl-struct-js2-xml-pi-node-tags js2-make-pad ""] 7 (#$ . 967321)]) #@77 compiler-macro for inlining `js2-xml-cdata-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-cdata-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-cdata-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-cdata-node-tags) t)) nil] 9 (#$ . 967723)]) (put 'js2-xml-cdata-node-p 'compiler-macro 'js2-xml-cdata-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-cdata-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-cdata-node-tags type-of t] 3 (#$ . 968107)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-cdata-node-p side-effect-free error-free put js2-xml-cdata-node cl-deftype-satisfies] 5) #@80 compiler-macro for inlining `js2-xml-cdata-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-cdata-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-cdata-node-type (or (js2-xml-cdata-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-cdata-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 968415)]) (put 'js2-xml-cdata-node-type 'compiler-macro 'js2-xml-cdata-node-type--cmacro) #@187 Access slot "type" of `(js2-xml-cdata-node (:include js2-xml-node) (:constructor make-js2-xml-cdata-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-cdata-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-cdata-node-tags type-of signal wrong-type-argument js2-xml-cdata-node 1] 5 (#$ . 968860)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-cdata-node-type side-effect-free t] 4) #@79 compiler-macro for inlining `js2-xml-cdata-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-cdata-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-cdata-node-pos (or (js2-xml-cdata-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-cdata-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 969353)]) (put 'js2-xml-cdata-node-pos 'compiler-macro 'js2-xml-cdata-node-pos--cmacro) #@186 Access slot "pos" of `(js2-xml-cdata-node (:include js2-xml-node) (:constructor make-js2-xml-cdata-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-cdata-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-cdata-node-tags type-of signal wrong-type-argument js2-xml-cdata-node 2] 5 (#$ . 969793)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-cdata-node-pos side-effect-free t] 4) #@79 compiler-macro for inlining `js2-xml-cdata-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-cdata-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-cdata-node-len (or (js2-xml-cdata-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-cdata-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 970283)]) (put 'js2-xml-cdata-node-len 'compiler-macro 'js2-xml-cdata-node-len--cmacro) #@186 Access slot "len" of `(js2-xml-cdata-node (:include js2-xml-node) (:constructor make-js2-xml-cdata-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-cdata-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-cdata-node-tags type-of signal wrong-type-argument js2-xml-cdata-node 3] 5 (#$ . 970723)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-cdata-node-len side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-cdata-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-cdata-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-cdata-node-props (or (js2-xml-cdata-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-cdata-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 971213)]) (put 'js2-xml-cdata-node-props 'compiler-macro 'js2-xml-cdata-node-props--cmacro) #@188 Access slot "props" of `(js2-xml-cdata-node (:include js2-xml-node) (:constructor make-js2-xml-cdata-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-cdata-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-cdata-node-tags type-of signal wrong-type-argument js2-xml-cdata-node 4] 5 (#$ . 971663)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-cdata-node-props side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-cdata-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-cdata-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-cdata-node-parent (or (js2-xml-cdata-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-cdata-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 972159)]) (put 'js2-xml-cdata-node-parent 'compiler-macro 'js2-xml-cdata-node-parent--cmacro) #@189 Access slot "parent" of `(js2-xml-cdata-node (:include js2-xml-node) (:constructor make-js2-xml-cdata-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-cdata-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-cdata-node-tags type-of signal wrong-type-argument js2-xml-cdata-node 5] 5 (#$ . 972614)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-cdata-node-parent side-effect-free t] 4) #@80 compiler-macro for inlining `js2-xml-cdata-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-cdata-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-cdata-node-kids (or (js2-xml-cdata-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-cdata-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 973113)]) (put 'js2-xml-cdata-node-kids 'compiler-macro 'js2-xml-cdata-node-kids--cmacro) #@187 Access slot "kids" of `(js2-xml-cdata-node (:include js2-xml-node) (:constructor make-js2-xml-cdata-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-cdata-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-cdata-node-tags type-of signal wrong-type-argument js2-xml-cdata-node 6] 5 (#$ . 973558)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-cdata-node-kids side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-cdata-node-content'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-cdata-node-content--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-cdata-node-content (or (js2-xml-cdata-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-cdata-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 974051)]) (put 'js2-xml-cdata-node-content 'compiler-macro 'js2-xml-cdata-node-content--cmacro) #@190 Access slot "content" of `(js2-xml-cdata-node (:include js2-xml-node) (:constructor make-js2-xml-cdata-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-cdata-node-content #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-cdata-node-tags type-of signal wrong-type-argument js2-xml-cdata-node 7] 5 (#$ . 974511)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-cdata-node-content side-effect-free t defalias copy-js2-xml-cdata-node copy-sequence] 4) #@133 compiler-macro for inlining `make-js2-xml-cdata-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN CONTENT) (defalias 'make-js2-xml-cdata-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) :content (:type :pos :len :content :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :content)" cl--defsubst-expand (type pos len content) (cl-block make-js2-xml-cdata-node (record 'js2-xml-cdata-node type pos len nil nil nil content))] 16 (#$ . 975071)]) (put 'make-js2-xml-cdata-node 'compiler-macro 'make-js2-xml-cdata-node--cmacro) #@113 Constructor for objects of type `js2-xml-cdata-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN CONTENT) (defalias 'make-js2-xml-cdata-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211\211&\207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) :content (:type :pos :len :content :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :content)" record js2-xml-cdata-node] 14 (#$ . 975934)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-cdata-node side-effect-free t cl-struct-define js2-xml-cdata-node "AST node for a CDATA escape section. Not currently used." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (content)) cl-struct-js2-xml-cdata-node-tags js2--struct-put js2-visitor js2-visit-xml-cdata-node js2-printer js2-print-xml-cdata-node] 11) #@12 (fn N V) (defalias 'js2-visit-xml-cdata-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-xml-cdata-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-cdata-node 7] 7 (#$ . 977076)]) #@12 (fn N I) (defalias 'js2-print-xml-cdata-node #[514 "\301!c\210\302\303!>\204\304\305\306D\"\210\307H!\207" [cl-struct-js2-xml-cdata-node-tags js2-make-pad js2-print-ast type-of signal wrong-type-argument js2-xml-cdata-node 7] 7 (#$ . 977313)]) #@76 compiler-macro for inlining `js2-xml-attr-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-attr-node-tags) t)) nil] 9 (#$ . 977572)]) (put 'js2-xml-attr-node-p 'compiler-macro 'js2-xml-attr-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-attr-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-attr-node-tags type-of t] 3 (#$ . 977950)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-attr-node-p side-effect-free error-free put js2-xml-attr-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-xml-attr-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-type (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 978254)]) (put 'js2-xml-attr-node-type 'compiler-macro 'js2-xml-attr-node-type--cmacro) #@202 Access slot "type" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 1] 5 (#$ . 978692)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-xml-attr-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-pos (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 979196)]) (put 'js2-xml-attr-node-pos 'compiler-macro 'js2-xml-attr-node-pos--cmacro) #@201 Access slot "pos" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 2] 5 (#$ . 979629)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-xml-attr-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-len (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 980130)]) (put 'js2-xml-attr-node-len 'compiler-macro 'js2-xml-attr-node-len--cmacro) #@201 Access slot "len" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 3] 5 (#$ . 980563)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-xml-attr-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-props (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 981064)]) (put 'js2-xml-attr-node-props 'compiler-macro 'js2-xml-attr-node-props--cmacro) #@203 Access slot "props" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 4] 5 (#$ . 981507)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-attr-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-parent (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 982014)]) (put 'js2-xml-attr-node-parent 'compiler-macro 'js2-xml-attr-node-parent--cmacro) #@204 Access slot "parent" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 5] 5 (#$ . 982462)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-xml-attr-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-kids (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 982972)]) (put 'js2-xml-attr-node-kids 'compiler-macro 'js2-xml-attr-node-kids--cmacro) #@202 Access slot "kids" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 6] 5 (#$ . 983410)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-kids side-effect-free t] 4) #@79 compiler-macro for inlining `js2-xml-attr-node-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-name (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 983914)]) (put 'js2-xml-attr-node-name 'compiler-macro 'js2-xml-attr-node-name--cmacro) #@202 Access slot "name" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 7] 5 (#$ . 984352)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-name side-effect-free t] 4) #@80 compiler-macro for inlining `js2-xml-attr-node-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-value (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 8)) nil] 9 (#$ . 984856)]) (put 'js2-xml-attr-node-value 'compiler-macro 'js2-xml-attr-node-value--cmacro) #@203 Access slot "value" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 8] 5 (#$ . 985299)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-value side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-attr-node-eq-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-eq-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-eq-pos (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 9)) nil] 9 (#$ . 985806)]) (put 'js2-xml-attr-node-eq-pos 'compiler-macro 'js2-xml-attr-node-eq-pos--cmacro) #@204 Access slot "eq-pos" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-eq-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 9] 5 (#$ . 986254)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-attr-node-eq-pos side-effect-free t] 4) #@85 compiler-macro for inlining `js2-xml-attr-node-quote-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-attr-node-quote-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-attr-node-quote-type (or (js2-xml-attr-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-attr-node cl-x))) (aref cl-x 10)) nil] 9 (#$ . 986764)]) (put 'js2-xml-attr-node-quote-type 'compiler-macro 'js2-xml-attr-node-quote-type--cmacro) #@208 Access slot "quote-type" of `(js2-xml-attr-node (:include js2-xml-node) (:constructor make-js2-attr-node (&key (type js2-XML) (pos js2-ts-cursor) len name value eq-pos quote-type)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-attr-node-quote-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 10] 5 (#$ . 987233)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-attr-node-quote-type side-effect-free t defalias copy-js2-xml-attr-node copy-sequence] 4) #@145 compiler-macro for inlining `make-js2-xml-attr-node'. (fn CL-WHOLE &cl-quote &key TYPE POS LEN PROPS PARENT KIDS NAME VALUE EQ-POS QUOTE-TYPE) (defalias 'make-js2-xml-attr-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\300 \314\"A@\300\n\315\"A@\n\211\203z\211@\316>\203b\211AA\262\202O\317\f>A@\203q\320\262\202O\321\322@\"\210\202O\210\323\324\325\320\320&\207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :props :parent :kids :name :value :eq-pos :quote-type (:type :pos :len :props :parent :kids :name :value :eq-pos :quote-type :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :props :parent :kids :name :value :eq-pos :quote-type)" cl--defsubst-expand (type pos len props parent kids name value eq-pos quote-type) (cl-block make-js2-xml-attr-node (record 'js2-xml-attr-node type pos len props parent kids name value eq-pos quote-type))] 28 (#$ . 987813)]) (put 'make-js2-xml-attr-node 'compiler-macro 'make-js2-xml-attr-node--cmacro) #@125 Constructor for objects of type `js2-xml-attr-node'. (fn &key TYPE POS LEN PROPS PARENT KIDS NAME VALUE EQ-POS QUOTE-TYPE) (defalias 'make-js2-xml-attr-node #[128 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\300\313\"A@\300 \314\"A@\300\n\315\"A@\n\211\203z\211@\316>\203b\211AA\262\202O\317\f>A@\203q\320\262\202O\321\322@\"\210\202O\210\323\324          & \207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :props :parent :kids :name :value :eq-pos :quote-type (:type :pos :len :props :parent :kids :name :value :eq-pos :quote-type :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :props :parent :kids :name :value :eq-pos :quote-type)" record js2-xml-attr-node] 23 (#$ . 988967)]) (byte-code "\300\301\302\303#\300\207" [function-put make-js2-xml-attr-node side-effect-free t] 4) #@149 compiler-macro for inlining `make-js2-attr-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAME VALUE EQ-POS QUOTE-TYPE) (defalias 'make-js2-attr-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) :name :value :eq-pos :quote-type (:type :pos :len :name :value :eq-pos :quote-type :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :name :value :eq-pos :quote-type)" cl--defsubst-expand (type pos len name value eq-pos quote-type) (cl-block make-js2-attr-node (record 'js2-xml-attr-node type pos len nil nil nil name value eq-pos quote-type))] 22 (#$ . 989921)]) (put 'make-js2-attr-node 'compiler-macro 'make-js2-attr-node--cmacro) #@133 Constructor for objects of type `js2-xml-attr-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN NAME VALUE EQ-POS QUOTE-TYPE) (defalias 'make-js2-attr-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\302\311\"A@\302\312\"A@\302\313\"A@\211\203i\211@\314>\203Q\211AA\262\202>\315 >A@\203`\304\262\202>\316\317@\"\210\202>\210\320\321\304\211\211    & \207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) :name :value :eq-pos :quote-type (:type :pos :len :name :value :eq-pos :quote-type :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :name :value :eq-pos :quote-type)" record js2-xml-attr-node] 20 (#$ . 990951)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-attr-node side-effect-free t cl-struct-define js2-xml-attr-node "AST node representing a foo='bar' XML attribute value. Not yet used." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (name) (value) (eq-pos) (quote-type)) cl-struct-js2-xml-attr-node-tags js2--struct-put js2-visitor js2-visit-xml-attr-node js2-printer js2-print-xml-attr-node] 11) #@12 (fn N V) (defalias 'js2-visit-xml-attr-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\210\301\302!>\204&\303\304\305D\"\210\307H\"\207" [cl-struct-js2-xml-attr-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-attr-node 7 8] 7 (#$ . 992260)]) #@12 (fn N I) (defalias 'js2-print-xml-attr-node #[514 "\301!>\204\302\303\304D\"\210\305H\306=\203\307\202\310\311!c\210\312\301!>\2042\302\303\304D\"\210\313H\314\"\210\315\261\210\312\301!>\204N\302\303\304D\"\210\316H\314\"\210\211c\207" [cl-struct-js2-xml-attr-node-tags type-of signal wrong-type-argument js2-xml-attr-node 10 single "'" "\"" js2-make-pad js2-print-ast 7 0 "=" 8] 8 (#$ . 992547)]) #@76 compiler-macro for inlining `js2-xml-text-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-text-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-text-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-text-node-tags) t)) nil] 9 (#$ . 992979)]) (put 'js2-xml-text-node-p 'compiler-macro 'js2-xml-text-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-text-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-text-node-tags type-of t] 3 (#$ . 993357)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-text-node-p side-effect-free error-free put js2-xml-text-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `js2-xml-text-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-text-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-text-node-type (or (js2-xml-text-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-text-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 993661)]) (put 'js2-xml-text-node-type 'compiler-macro 'js2-xml-text-node-type--cmacro) #@181 Access slot "type" of `(js2-xml-text-node (:include js2-xml-node) (:constructor make-js2-text-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-text-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-text-node-tags type-of signal wrong-type-argument js2-xml-text-node 1] 5 (#$ . 994099)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-text-node-type side-effect-free t] 4) #@78 compiler-macro for inlining `js2-xml-text-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-text-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-text-node-pos (or (js2-xml-text-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-text-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 994582)]) (put 'js2-xml-text-node-pos 'compiler-macro 'js2-xml-text-node-pos--cmacro) #@180 Access slot "pos" of `(js2-xml-text-node (:include js2-xml-node) (:constructor make-js2-text-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-text-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-text-node-tags type-of signal wrong-type-argument js2-xml-text-node 2] 5 (#$ . 995015)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-text-node-pos side-effect-free t] 4) #@78 compiler-macro for inlining `js2-xml-text-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-text-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-text-node-len (or (js2-xml-text-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-text-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 995495)]) (put 'js2-xml-text-node-len 'compiler-macro 'js2-xml-text-node-len--cmacro) #@180 Access slot "len" of `(js2-xml-text-node (:include js2-xml-node) (:constructor make-js2-text-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-text-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-text-node-tags type-of signal wrong-type-argument js2-xml-text-node 3] 5 (#$ . 995928)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-text-node-len side-effect-free t] 4) #@80 compiler-macro for inlining `js2-xml-text-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-text-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-text-node-props (or (js2-xml-text-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-text-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 996408)]) (put 'js2-xml-text-node-props 'compiler-macro 'js2-xml-text-node-props--cmacro) #@182 Access slot "props" of `(js2-xml-text-node (:include js2-xml-node) (:constructor make-js2-text-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-text-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-text-node-tags type-of signal wrong-type-argument js2-xml-text-node 4] 5 (#$ . 996851)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-text-node-props side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-text-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-text-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-text-node-parent (or (js2-xml-text-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-text-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 997337)]) (put 'js2-xml-text-node-parent 'compiler-macro 'js2-xml-text-node-parent--cmacro) #@183 Access slot "parent" of `(js2-xml-text-node (:include js2-xml-node) (:constructor make-js2-text-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-text-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-text-node-tags type-of signal wrong-type-argument js2-xml-text-node 5] 5 (#$ . 997785)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-text-node-parent side-effect-free t] 4) #@79 compiler-macro for inlining `js2-xml-text-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-text-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-text-node-kids (or (js2-xml-text-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-text-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 998274)]) (put 'js2-xml-text-node-kids 'compiler-macro 'js2-xml-text-node-kids--cmacro) #@181 Access slot "kids" of `(js2-xml-text-node (:include js2-xml-node) (:constructor make-js2-text-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-text-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-text-node-tags type-of signal wrong-type-argument js2-xml-text-node 6] 5 (#$ . 998712)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-text-node-kids side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-text-node-content'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-text-node-content--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-text-node-content (or (js2-xml-text-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-text-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 999195)]) (put 'js2-xml-text-node-content 'compiler-macro 'js2-xml-text-node-content--cmacro) #@184 Access slot "content" of `(js2-xml-text-node (:include js2-xml-node) (:constructor make-js2-text-node (&key (type js2-XML) (pos js2-ts-cursor) len content)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-text-node-content #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-text-node-tags type-of signal wrong-type-argument js2-xml-text-node 7] 5 (#$ . 999648)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-text-node-content side-effect-free t defalias copy-js2-xml-text-node copy-sequence] 4) #@124 compiler-macro for inlining `make-js2-xml-text-node'. (fn CL-WHOLE &cl-quote &key TYPE POS LEN PROPS PARENT KIDS CONTENT) (defalias 'make-js2-xml-text-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321\322\315\f\315\f\f\f\f\f\f\f&\f\207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :props :parent :kids :content (:type :pos :len :props :parent :kids :content :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :props :parent :kids :content)" cl--defsubst-expand (type pos len props parent kids content) (cl-block make-js2-xml-text-node (record 'js2-xml-text-node type pos len props parent kids content))] 22 (#$ . 1000197)]) (put 'make-js2-xml-text-node 'compiler-macro 'make-js2-xml-text-node--cmacro) #@104 Constructor for objects of type `js2-xml-text-node'. (fn &key TYPE POS LEN PROPS PARENT KIDS CONTENT) (defalias 'make-js2-xml-text-node #[128 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\300\310\"A@\300\311\"A@\300\312\"A@\211\203e\211@\313>\203M\211AA\262\202:\314 >A@\203\\\315\262\202:\316\317@\"\210\202:\210\320\321&\207" [plist-member :type (nil -1) :pos (nil -1) :len (nil 1) :props :parent :kids :content (:type :pos :len :props :parent :kids :content :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :props :parent :kids :content)" record js2-xml-text-node] 17 (#$ . 1001176)]) (byte-code "\300\301\302\303#\300\207" [function-put make-js2-xml-text-node side-effect-free t] 4) #@128 compiler-macro for inlining `make-js2-text-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN CONTENT) (defalias 'make-js2-text-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203P\211@\310>\2038\211AA\262\202%\311>A@\203G\312\262\202%\313\314@\"\210\202%\210\315\316\317\312 \312    & \207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) :content (:type :pos :len :content :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len :content)" cl--defsubst-expand (type pos len content) (cl-block make-js2-text-node (record 'js2-xml-text-node type pos len nil nil nil content))] 16 (#$ . 1001988)]) (put 'make-js2-text-node 'compiler-macro 'make-js2-text-node--cmacro) #@112 Constructor for objects of type `js2-xml-text-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN CONTENT) (defalias 'make-js2-text-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\302\310\"A@\211\203T\211@\311>\203<\211AA\262\202)\312>A@\203K\304\262\202)\313\314@\"\210\202)\210\315\316\304\211\211&\207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) :content (:type :pos :len :content :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len :content)" record js2-xml-text-node] 14 (#$ . 1002826)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-text-node side-effect-free t cl-struct-define js2-xml-text-node "AST node for an E4X XML text node. Not currently used." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil) (content)) cl-struct-js2-xml-text-node-tags js2--struct-put js2-visitor js2-visit-xml-text-node js2-printer js2-print-xml-text-node] 11) #@12 (fn N V) (defalias 'js2-visit-xml-text-node #[514 "\301\302!>\204\303\304\305D\"\210\306H\"\207" [cl-struct-js2-xml-text-node-tags js2-visit-ast type-of signal wrong-type-argument js2-xml-text-node 7] 7 (#$ . 1003951)]) #@12 (fn N I) (defalias 'js2-print-xml-text-node #[514 "\301!c\210\302!>\204\303\304\305D\"\210\306H\211\205(\211@\307!\210A\266\202\202\207" [cl-struct-js2-xml-text-node-tags js2-make-pad type-of signal wrong-type-argument js2-xml-text-node 7 js2-print-ast] 6 (#$ . 1004186)]) #@79 compiler-macro for inlining `js2-xml-comment-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-comment-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-comment-node-p (and (memq (type-of cl-x) cl-struct-js2-xml-comment-node-tags) t)) nil] 9 (#$ . 1004479)]) (put 'js2-xml-comment-node-p 'compiler-macro 'js2-xml-comment-node-p--cmacro) #@13 (fn CL-X) (defalias 'js2-xml-comment-node-p #[257 "\301!>\205 \302\207" [cl-struct-js2-xml-comment-node-tags type-of t] 3 (#$ . 1004876)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put js2-xml-comment-node-p side-effect-free error-free put js2-xml-comment-node cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `js2-xml-comment-node-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-comment-node-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-comment-node-type (or (js2-xml-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-comment-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 1005193)]) (put 'js2-xml-comment-node-type 'compiler-macro 'js2-xml-comment-node-type--cmacro) #@183 Access slot "type" of `(js2-xml-comment-node (:include js2-xml-node) (:constructor make-js2-xml-comment-node (&key (type js2-XML) (pos js2-ts-cursor) len)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-comment-node-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-comment-node-tags type-of signal wrong-type-argument js2-xml-comment-node 1] 5 (#$ . 1005653)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-comment-node-type side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-comment-node-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-comment-node-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-comment-node-pos (or (js2-xml-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-comment-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 1006151)]) (put 'js2-xml-comment-node-pos 'compiler-macro 'js2-xml-comment-node-pos--cmacro) #@182 Access slot "pos" of `(js2-xml-comment-node (:include js2-xml-node) (:constructor make-js2-xml-comment-node (&key (type js2-XML) (pos js2-ts-cursor) len)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-comment-node-pos #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-comment-node-tags type-of signal wrong-type-argument js2-xml-comment-node 2] 5 (#$ . 1006606)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-comment-node-pos side-effect-free t] 4) #@81 compiler-macro for inlining `js2-xml-comment-node-len'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-comment-node-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-comment-node-len (or (js2-xml-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-comment-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 1007101)]) (put 'js2-xml-comment-node-len 'compiler-macro 'js2-xml-comment-node-len--cmacro) #@182 Access slot "len" of `(js2-xml-comment-node (:include js2-xml-node) (:constructor make-js2-xml-comment-node (&key (type js2-XML) (pos js2-ts-cursor) len)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-comment-node-len #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-comment-node-tags type-of signal wrong-type-argument js2-xml-comment-node 3] 5 (#$ . 1007556)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-comment-node-len side-effect-free t] 4) #@83 compiler-macro for inlining `js2-xml-comment-node-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-comment-node-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-comment-node-props (or (js2-xml-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-comment-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 1008051)]) (put 'js2-xml-comment-node-props 'compiler-macro 'js2-xml-comment-node-props--cmacro) #@184 Access slot "props" of `(js2-xml-comment-node (:include js2-xml-node) (:constructor make-js2-xml-comment-node (&key (type js2-XML) (pos js2-ts-cursor) len)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-comment-node-props #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-comment-node-tags type-of signal wrong-type-argument js2-xml-comment-node 4] 5 (#$ . 1008516)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-comment-node-props side-effect-free t] 4) #@84 compiler-macro for inlining `js2-xml-comment-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-comment-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-comment-node-parent (or (js2-xml-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-comment-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 1009017)]) (put 'js2-xml-comment-node-parent 'compiler-macro 'js2-xml-comment-node-parent--cmacro) #@185 Access slot "parent" of `(js2-xml-comment-node (:include js2-xml-node) (:constructor make-js2-xml-comment-node (&key (type js2-XML) (pos js2-ts-cursor) len)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-comment-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-comment-node-tags type-of signal wrong-type-argument js2-xml-comment-node 5] 5 (#$ . 1009487)]) (byte-code "\300\301\302\303#\300\207" [function-put js2-xml-comment-node-parent side-effect-free t] 4) #@82 compiler-macro for inlining `js2-xml-comment-node-kids'. (fn CL-WHOLE-ARG CL-X) (defalias 'js2-xml-comment-node-kids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block js2-xml-comment-node-kids (or (js2-xml-comment-node-p cl-x) (signal 'wrong-type-argument (list 'js2-xml-comment-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 1009991)]) (put 'js2-xml-comment-node-kids 'compiler-macro 'js2-xml-comment-node-kids--cmacro) #@183 Access slot "kids" of `(js2-xml-comment-node (:include js2-xml-node) (:constructor make-js2-xml-comment-node (&key (type js2-XML) (pos js2-ts-cursor) len)))' struct CL-X. (fn CL-X) (defalias 'js2-xml-comment-node-kids #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-js2-xml-comment-node-tags type-of signal wrong-type-argument js2-xml-comment-node 6] 5 (#$ . 1010451)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put js2-xml-comment-node-kids side-effect-free t defalias copy-js2-xml-comment-node copy-sequence] 4) #@127 compiler-macro for inlining `make-js2-xml-comment-node'. (fn CL-WHOLE &cl-quote &key (TYPE js2-XML) (POS js2-ts-cursor) LEN) (defalias 'make-js2-xml-comment-node--cmacro #[385 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\211\203I\211@\307>\2032\211AA\262\202\310>A@\203@\311\262\202\312\313@\"\210\202\210\314\315\316\311\311&\207" [plist-member :type (nil js2-XML) :pos (nil js2-ts-cursor) :len (nil 1) (:type :pos :len :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :pos :len)" cl--defsubst-expand (type pos len) (cl-block make-js2-xml-comment-node (record 'js2-xml-comment-node type pos len nil nil nil))] 14 (#$ . 1011009)]) (put 'make-js2-xml-comment-node 'compiler-macro 'make-js2-xml-comment-node--cmacro) #@107 Constructor for objects of type `js2-xml-comment-node'. (fn &key (TYPE js2-XML) (POS js2-ts-cursor) LEN) (defalias 'make-js2-xml-comment-node #[128 "\302\303\"\206\n\304DA@\302\305\"\206\304 DA@\302\306\"\206 \307A@\211\203M\211@\310>\2036\211AA\262\202#\311>A@\203D\304\262\202#\312\313@\"\210\202#\210\314\315\304\211\211&\207" [js2-XML js2-ts-cursor plist-member :type nil :pos :len (nil 1) (:type :pos :len :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:type :pos :len)" record js2-xml-comment-node] 12 (#$ . 1011818)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \210\314\305\315\316#\210\314\305\317\320#\207" [function-put make-js2-xml-comment-node side-effect-free t cl-struct-define js2-xml-comment-node "AST node for E4X XML comment. Not currently used." js2-xml-node record nil ((cl-tag-slot) (type -1) (pos -1) (len 1) (props nil) (parent nil) (kids nil)) cl-struct-js2-xml-comment-node-tags js2--struct-put js2-visitor js2-visit-none js2-printer js2-print-xml-comment] 11) #@12 (fn N I) (defalias 'js2-print-xml-comment #[514 "\300!\301!\261\207" [js2-make-pad js2-node-string] 5 (#$ . 1012892)]) #@126 Fetch the source line number at the start of node N. This is O(n) in the length of the source buffer; use prudently. (fn N) (defalias 'js2-node-line #[257 "\300e\301!\"T\207" [count-lines js2-node-abs-pos] 5 (#$ . 1013023)]) (put 'js2-node-line 'byte-optimizer 'byte-compile-inline-expand) #@71 Return child I of node N, or nil if there aren't that many. (fn N I) (defalias 'js2-block-node-kid #[514 "\211\301!>\204\302\303\304D\"\210\305H8\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 6] 7 (#$ . 1013321)]) (put 'js2-block-node-kid 'byte-optimizer 'byte-compile-inline-expand) #@70 Return first child of block node N, or nil if there is none. (fn N) (defalias 'js2-block-node-first #[257 "\301!>\204\302\303\304D\"\210\211\305H@\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 6] 5 (#$ . 1013658)]) (put 'js2-block-node-first 'byte-optimizer 'byte-compile-inline-expand) #@89 Return the root of the AST containing N. If N has no parent pointer, returns N. (fn N) (defalias 'js2-node-root #[257 "\301!>\204\302\303\304D\"\210\211\305H\211\203\306!\202\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 5 js2-node-root] 5 (#$ . 1013997)]) #@74 Return the short name of node N as a string, e.g. `js2-if-node'. (fn N) (defalias 'js2-node-short-name #[257 "\300\301H!\302\303\"\203\300\301H!\303G\304O\202\211\207" [symbol-name 0 string-prefix-p "cl-struct-" nil] 5 (#$ . 1014300)]) (put 'js2-node-short-name 'byte-optimizer 'byte-compile-inline-expand) #@332 Return the child list for NODE, a Lisp list of nodes. Works for block nodes, array nodes, obj literals, funarg lists, var decls and try nodes (for catch clauses). Note that you should call `js2-block-node-kids' on the function body for the body statements. Returns nil for zero-length child lists or unsupported nodes. (fn NODE) (defalias 'js2-node-child-list #[257 "\306!>\203\306!>\204\307\310\311D\"\210\211\312H\207\306! >\2036\306! >\2042\307\310\313D\"\210\211\314H\207\306!\n>\203Q\306!\n>\204M\307\310\315D\"\210\211\316H\207\306! >\203l\306! >\204h\307\310\317D\"\210\211\314H\207\306!\f>\203\207\306!\f>\204\203\307\310\320D\"\210\211\314H\207\306! >\203\242\306! >\204\236\307\310\321D\"\210\211\316H\207\306!>\203\277\306!>\204\273\307\310\322D\"\210\211\316H\207\306!>\203\334\306!>\204\330\307\310\323D\"\210\211\314H\207\324\207" [cl-struct-js2-function-node-tags cl-struct-js2-block-node-tags cl-struct-js2-try-node-tags cl-struct-js2-array-node-tags cl-struct-js2-object-node-tags cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-function-node 20 js2-block-node 6 js2-try-node 7 js2-array-node js2-object-node js2-call-node js2-new-node js2-var-decl-node nil cl-struct-js2-new-node-tags cl-struct-js2-var-decl-node-tags] 5 (#$ . 1014622)]) #@54 Set the child list for NODE to KIDS. (fn NODE KIDS) (defalias 'js2-node-set-child-list #[514 "\306!>\203!\306!>\204\307\310\311D\"\210\211\312I\266\202,\306! >\203B\306! >\2048\307\310\313D\"\210\211\314I\266\202,\306!\n>\203c\306!\n>\204Y\307\310\315D\"\210\211\316I\266\202,\306! >\203\204\306! >\204z\307\310\317D\"\210\211\314I\266\202,\306!\f>\203\245\306!\f>\204\233\307\310\320D\"\210\211\314I\266\202,\306! >\203\306\306! >\204\274\307\310\321D\"\210\211\316I\266\202,\306!>\203\351\306!>\204\337\307\310\322D\"\210\211\316I\266\202,\306!>\203\f\306!>\204\307\310\323D\"\210\211\314I\266\202,\324\325\326\327H!\330\331\"\203'\326\327H!\331G\332O\202(\211\266\202\"\210\207" [cl-struct-js2-function-node-tags cl-struct-js2-block-node-tags cl-struct-js2-try-node-tags cl-struct-js2-array-node-tags cl-struct-js2-object-node-tags cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-function-node 20 js2-block-node 6 js2-try-node 7 js2-array-node js2-object-node js2-call-node js2-new-node js2-var-decl-node error "Unsupported node type: %s" symbol-name 0 string-prefix-p "cl-struct-" nil cl-struct-js2-new-node-tags cl-struct-js2-var-decl-node-tags] 9 (#$ . 1015958)]) #@130 Node types that can have a parenthesized child expression. In particular, nodes that respond to `js2-node-lp' and `js2-node-rp'. (defconst js2-paren-expr-nodes '(cl-struct-js2-comp-loop-node cl-struct-js2-comp-node cl-struct-js2-call-node cl-struct-js2-catch-node cl-struct-js2-do-node cl-struct-js2-elem-get-node cl-struct-js2-for-in-node cl-struct-js2-for-node cl-struct-js2-function-node cl-struct-js2-if-node cl-struct-js2-let-node cl-struct-js2-new-node cl-struct-js2-paren-node cl-struct-js2-switch-node cl-struct-js2-while-node cl-struct-js2-with-node cl-struct-js2-xml-dot-query-node) (#$ . 1017246)) #@288 Return t for nodes that typically have a parenthesized child expression. Useful for computing the indentation anchors for arg-lists and conditions. Note that it may return a false positive, for instance when NODE is a `js2-new-node' and there are no arguments or parentheses. (fn NODE) (defalias 'js2-paren-expr-node-p #[257 "\211\301H>\207" [js2-paren-expr-nodes 0] 3 (#$ . 1017862)]) (put 'js2-paren-expr-node-p 'byte-optimizer 'byte-compile-inline-expand) #@201 Return relative left-paren position for NODE, if applicable. For `js2-elem-get-node' structs, returns left-bracket position. Note that the position may be nil in the case of a parse error. (fn NODE) (defalias 'js2-node-lp #[257 "\306!>\203\306!>\204\307\310\311D\"\210\211\312H\207\306! >\2036\306! >\2042\307\310\313D\"\210\211\314H\207\306!\n>\203Q\306!\n>\204M\307\310\315D\"\210\211\316H\207\306! >\203l\306! >\204h\307\310\317D\"\210\211\320H\207\306!\f>\203\207\306!\f>\204\203\307\310\321D\"\210\211\312H\207\306! >\203\242\306! >\204\236\307\310\322D\"\210\211\312H\207\306!\">\203\255\323\207\306!#>\203\312\306!#>\204\306\307\310\324D\"\210\211\325H\207\306!$>\203\347\306!$>\204\343\307\310\326D\"\210\211\327H\207\306!%>\203\306!%>\204\307\310\330D\"\210\211\325H\207\306!&>\203\323\207\306!'>\203,\306!'>\204(\307\310\331D\"\210\211\312H\207\306!(>\203J\306!)>\204E\307\310\332D\"\210\211\333HT\207\334\335\336\323H!\337\340\"\203e\336\323H!\340G\341O\202f\211\266\202\"\207" [cl-struct-js2-elem-get-node-tags cl-struct-js2-loop-node-tags cl-struct-js2-function-node-tags cl-struct-js2-if-node-tags cl-struct-js2-new-node-tags cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-elem-get-node 8 js2-loop-node 11 js2-function-node 23 js2-if-node 10 js2-new-node js2-call-node 0 js2-switch-node 12 js2-catch-node 13 js2-let-node js2-with-node js2-infix-node 6 error "Unsupported node type: %s" symbol-name string-prefix-p "cl-struct-" nil cl-struct-js2-paren-node-tags cl-struct-js2-switch-node-tags cl-struct-js2-catch-node-tags cl-struct-js2-let-node-tags cl-struct-js2-comp-node-tags cl-struct-js2-with-node-tags cl-struct-js2-xml-dot-query-node-tags cl-struct-js2-infix-node-tags] 8 (#$ . 1018330)]) #@203 Return relative right-paren position for NODE, if applicable. For `js2-elem-get-node' structs, returns right-bracket position. Note that the position may be nil in the case of a parse error. (fn NODE) (defalias 'js2-node-rp #[257 "\306!>\203\306!>\204\307\310\311D\"\210\211\312H\207\306! >\2036\306! >\2042\307\310\313D\"\210\211\314H\207\306!\n>\203Q\306!\n>\204M\307\310\315D\"\210\211\316H\207\306! >\203l\306! >\204h\307\310\317D\"\210\211\320H\207\306!\f>\203\207\306!\f>\204\203\307\310\321D\"\210\211\312H\207\306! >\203\242\306! >\204\236\307\310\322D\"\210\211\312H\207\306!#>\203\300\306!$>\204\273\307\310\323D\"\210\211\324HS\207\306!%>\203\335\306!%>\204\331\307\310\325D\"\210\211\326H\207\306!&>\203\372\306!&>\204\366\307\310\327D\"\210\211\330H\207\306!'>\203\306!'>\204\307\310\331D\"\210\211\326H\207\306!(>\2035\306!$>\2040\307\310\323D\"\210\211\324HS\207\306!)>\203R\306!)>\204N\307\310\332D\"\210\211\312H\207\306!*>\203p\306!*>\204k\307\310\333D\"\210\211\312HT\207\334\335\336\337H!\340\341\"\203\213\336\337H!\341G\342O\202\214\211\266\202\"\207" [cl-struct-js2-elem-get-node-tags cl-struct-js2-loop-node-tags cl-struct-js2-function-node-tags cl-struct-js2-if-node-tags cl-struct-js2-new-node-tags cl-struct-js2-call-node-tags type-of signal wrong-type-argument js2-elem-get-node 9 js2-loop-node 12 js2-function-node 24 js2-if-node 11 js2-new-node js2-call-node js2-node 3 js2-switch-node 13 js2-catch-node 14 js2-let-node js2-with-node js2-xml-dot-query-node error "Unsupported node type: %s" symbol-name 0 string-prefix-p "cl-struct-" nil cl-struct-js2-paren-node-tags cl-struct-js2-node-tags cl-struct-js2-switch-node-tags cl-struct-js2-catch-node-tags cl-struct-js2-let-node-tags cl-struct-js2-comp-node-tags cl-struct-js2-with-node-tags cl-struct-js2-xml-dot-query-node-tags] 8 (#$ . 1020153)]) #@72 Return the first element of `js2-node-child-list' for NODE. (fn NODE) (defalias 'js2-node-first-child #[257 "\300!@\207" [js2-node-child-list] 3 (#$ . 1022078)]) (put 'js2-node-first-child 'byte-optimizer 'byte-compile-inline-expand) #@71 Return the last element of `js2-node-last-child' for NODE. (fn NODE) (defalias 'js2-node-last-child #[257 "\300\301!!@\207" [last js2-node-child-list] 4 (#$ . 1022320)]) (put 'js2-node-last-child 'byte-optimizer 'byte-compile-inline-expand) #@215 Return the previous statement in parent. Works for parents supported by `js2-node-child-list'. Returns nil if NODE is not in the parent, or PARENT is not a supported node, or if NODE is the first child. (fn NODE) (defalias 'js2-node-prev-sibling #[257 "\301!>\204\302\303\304D\"\210\211\305H\306!\211@\203.A@=\204.A\262@\262\202\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 5 js2-node-child-list] 6 (#$ . 1022570)]) #@161 Return the next statement in parent block. Returns nil if NODE is not in the block, or PARENT is not a block node, or if NODE is the last statement. (fn NODE) (defalias 'js2-node-next-sibling #[257 "\301!>\204\302\303\304D\"\210\211\305H\306!\211\203'@=\204'\211A\262\202\211A@\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 5 js2-node-child-list] 5 (#$ . 1023040)]) #@286 Find the last child that starts before POS in parent. If AFTER is non-nil, returns first child starting after POS. POS is an absolute buffer position. PARENT is any node supported by `js2-node-child-list'. Returns nil if no applicable child is found. (fn POS PARENT &optional AFTER) (defalias 'js2-node-find-child-before #[770 "\303!>\203Q\303\211!>\204\304\305\306D\"\210\307H! >\204:\304\305\310\303!>\2044\304\305\306D\"\210\307HD\"\210\303!>\204I\304\305\306D\"\210\307H\311H\202T\312!\313\303!>\203s\303!>\204m\304\305\306D\"\210\307H\202t!\314\211\211\315\203\202\316\202\203\317\262\203\304\211\203\304@\262\303!\n>\204\244\304\305\320D\"\210\321H\\\n\"\203\271\262?\262\202\275\262A\262\202\205\207" [cl-struct-js2-function-node-tags cl-struct-js2-block-node-tags cl-struct-js2-node-tags type-of signal wrong-type-argument js2-function-node 22 js2-block-node 6 js2-node-child-list js2-node-abs-pos nil t >= < js2-node 2] 15 (#$ . 1023455)]) #@205 Find first child that starts after POS in parent. POS is an absolute buffer position. PARENT is any node supported by `js2-node-child-list'. Returns nil if no applicable child is found. (fn POS PARENT) (defalias 'js2-node-find-child-after #[514 "\300\301#\207" [js2-node-find-child-before after] 6 (#$ . 1024480)]) #@137 Replace node at index POS in PARENT with NEW-NODE. Only works for parents supported by `js2-node-child-list'. (fn POS PARENT NEW-NODE) (defalias 'js2-node-replace-child #[771 "\300!\301\211W\203A\262\211T\262\202\240\210\302\"\207" [js2-node-child-list 0 js2-node-add-children] 8 (#$ . 1024806)]) #@172 Return the buffer associated with AST N. Returns nil if the buffer is not set as a property on the root node, or if parent links were not recorded during parsing. (fn N) (defalias 'js2-node-buffer #[257 "\301!\211\205!\302!>\205!\302!>\204\303\304\305D\"\210\211\306H\207" [cl-struct-js2-ast-root-tags js2-node-root type-of signal wrong-type-argument js2-ast-root 17] 6 (#$ . 1025124)]) #@197 Push js2-node KID onto the end of js2-block-node N's child list. KID is always added to the -end- of the kids list. Function also calls `js2-node-add-children' to add the parent link. (fn N KID) (defalias 'js2-block-node-push #[514 "\300!\211\203\211AC\244\241\210\202\301C\"\210\302\"\207" [js2-node-child-list js2-node-set-child-list js2-node-add-children] 6 (#$ . 1025529)]) #@13 (fn NODE) (defalias 'js2-node-string #[257 "r\301!\206 \302\303\"q\210\304!\305\211\306!>\204#\307\310\311D\"\210\312H\\\"\262)\207" [cl-struct-js2-node-tags js2-node-buffer error "No buffer available for node %s" js2-node-abs-pos buffer-substring-no-properties type-of signal wrong-type-argument js2-node 3] 9 (#$ . 1025925)]) (defvar js2-discovered-node nil nil) (make-variable-buffer-local 'js2-discovered-node) (defvar js2-visitor-offset nil nil) (make-variable-buffer-local 'js2-visitor-offset) (defvar js2-node-search-point nil nil) (byte-code "\301\302!\210\203\303\304\305\"\210\303\306\307\"\210\301\207" [js2-mode-dev-mode-p make-variable-buffer-local js2-node-search-point defalias js2-find-node-at-point #[0 "\300 \301\302\206 \303\"\207" [js2-node-at-point message "%s" "No node found at point"] 4 nil nil] js2-node-name-at-point #[0 "\300 \301\302\203'\303\304H!\305\306\"\203!\303\304H!\306G\307O\202\"\211\266\202\202(\310\"\207" [js2-node-at-point message "%s" symbol-name 0 string-prefix-p "cl-struct-" nil "No node found at point."] 8 nil nil]] 3) #@350 Return AST node at POS, a buffer position, defaulting to current point. The `js2-mode-ast' variable must be set to the current parse tree. Signals an error if the AST (`js2-mode-ast') is nil. Always returns a node - if it can't find one, it returns the root. If SKIP-COMMENTS is non-nil, comment nodes are ignored. (fn &optional POS SKIP-COMMENTS) (defalias 'js2-node-at-point #[512 "\306\204\n\307\310!\210\206`\262\311!\312! >\204%\313\314\315D\"\210\316H\\\262V\2033\202;?\205;\317!\262\211\204W\306\320\321\216\3222R\323\324\"0\210)\n\262\203f\312! >\203f\306\262\211\206k\207" [js2-mode-ast cl-struct-js2-node-tags js2-discovered-node js2-visitor-offset js2-node-search-point cl-struct-js2-comment-node-tags nil error "No JavaScript AST available" js2-node-abs-pos type-of signal wrong-type-argument js2-node 3 js2-comment-at-point 0 #[0 "\302\211\211\207" [js2-visitor-offset js2-node-search-point nil] 3] js2-visit-done js2-visit-ast js2-node-at-point-visitor] 11 (#$ . 1027027)]) #@19 (fn NODE END-P) (defalias 'js2-node-at-point-visitor #[514 "\305!>\204\306\307\310D\"\210\311H\312\211 \203!\nZ\211\202j\305! >\203.\312\202j\n\\\211\262\313\305!>\204H\306\307\310\nD\"\210\314H\315#\262V\203]\316\317\312\"\202j\211V\203g\312\202j\320\207" [cl-struct-js2-node-tags js2-node-search-point js2-visitor-offset cl-struct-js2-comment-node-tags js2-discovered-node type-of signal wrong-type-argument js2-node 2 nil + 3 -1 throw js2-visit-done t] 12 (#$ . 1028061)]) #@83 Return non-nil if NODE is a comment node of format `jsdoc' or `block'. (fn NODE) (defalias 'js2-block-comment-p #[257 "\301!>\205\301!>\204\302\303\304D\"\210\211\305H\306>\207" [cl-struct-js2-comment-node-tags type-of signal wrong-type-argument js2-comment-node 6 (jsdoc block)] 5 (#$ . 1028581)]) (put 'js2-block-comment-p 'byte-optimizer 'byte-compile-inline-expand) #@194 Look through scanned comment nodes for one containing POS. POS is a buffer position that defaults to current point. Function returns nil if POS was not in any comment node. (fn &optional POS) (defalias 'js2-comment-at-point #[256 "\206`\303\211\204\304\305!\210\3062d\307! >\204$\310\311\312D\"\210\313H\211\203`\211@\314!\262\307!\n>\204B\310\311\315D\"\210\316H\\\262Y\203YX\203Y\317\306\"\210A\266\202\202'\303\2620\207" [js2-mode-ast cl-struct-js2-ast-root-tags cl-struct-js2-node-tags nil error "No JavaScript AST available" done type-of signal wrong-type-argument js2-ast-root 18 js2-node-abs-pos js2-node 3 throw] 12 (#$ . 1028968)]) #@194 Return comment nodes between START and END, nil if not found. START and END are absolute positions in current buffer. COMMENTS-LIST is the comments list to check. (fn START END COMMENTS-LIST) (defalias 'js2-comments-between #[771 "\301\211\211\211\203@\211@\302!\262\303!>\204\304\305\306D\"\210\307H\\S\262W\2049V\2049\211B\262A\266\202\202\262\237\207" [cl-struct-js2-node-tags nil js2-node-abs-pos type-of signal wrong-type-argument js2-node 3] 13 (#$ . 1029649)]) #@88 Find function enclosing NODE. Returns nil if NODE is not inside a function. (fn NODE) (defalias 'js2-mode-find-parent-fn #[257 "\302!>\204\303\304\305D\"\210\211\306H\262\211\2037\302! >\2047\302!>\204/\303\304\305D\"\210\211\306H\262\202\302! >\205@\211\207" [cl-struct-js2-node-tags cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-node 5] 5 (#$ . 1030151)]) #@50 Find function or root enclosing NODE. (fn NODE) (defalias 'js2-mode-find-enclosing-fn #[257 "\303!>\203 \207\303! >\204\304\305\306D\"\210\211\307H\262\303!>\204D\303!\n>\204D\303! >\204<\304\305\306D\"\210\211\307H\262\202\207" [cl-struct-js2-ast-root-tags cl-struct-js2-node-tags cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-node 5] 5 (#$ . 1030560)]) #@54 Find node fully enclosing BEG and END. (fn BEG END) (defalias 'js2-mode-find-enclosing-node #[514 "\302!\303\304\211\203S\305!>\2046\306!\211\262X\203<\305! >\204-\307\310\311D\"\210\312H\\Y\203<\303\262\202\305! >\204K\307\310\311D\"\210\313H\262\202\207" [cl-struct-js2-ast-root-tags cl-struct-js2-node-tags js2-node-at-point nil t type-of js2-node-abs-pos signal wrong-type-argument js2-node 3 5] 10 (#$ . 1030967)]) #@102 Find script or function immediately enclosing NODE. If NODE is the ast-root, returns nil. (fn NODE) (defalias 'js2-node-parent-script-or-fn #[257 "\304!>\205 \305?\205M\304! >\204\306\307\310D\"\210\211\311H\262\211\203L\304!\n>\204L\304! >\204L\304! >\204D\306\307\310D\"\210\211\311H\262\202!\211\207" [cl-struct-js2-ast-root-tags cl-struct-js2-node-tags cl-struct-js2-function-node-tags cl-struct-js2-script-node-tags type-of t signal wrong-type-argument js2-node 5] 5 (#$ . 1031423)]) #@67 Return t if NODE is a descendant of ANCESTOR. (fn NODE ANCESTOR) (defalias 'js2-node-is-descendant #[514 "\203!=\204!\301!>\204\302\303\304D\"\210\305H\262\202\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 5] 6 (#$ . 1031938)]) #@70 Visitor for AST node that have no node children. (fn NODE CALLBACK) (defalias 'js2-visit-none #[514 "\300\207" [nil] 3 (#$ . 1032216)]) #@72 Visitor for AST node with no printed representation. (fn NODE INDENT) (defalias 'js2-print-none #[514 "\300\207" ["Visitor for AST node with no printed representation."] 3 (#$ . 1032359)]) #@65 Print a statement, or a block without braces. (fn NODE INDENT) (defalias 'js2-print-body #[514 "\301!>\203-\301!>\204\302\303\304D\"\210\305H\211\205,\211@\306\"\210A\266\202\202\207\306\"\207" [cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 6 js2-print-ast] 7 (#$ . 1032555)]) #@33 (fn ARGS &optional DELIMITER) (defalias 'js2-print-list #[513 "G\300\301:\203/@\262\203\302\303\"\210\211W\203$\206\"\304c\210A\262\211T\262\202\300\207" [nil 1 js2-print-ast 0 ", "] 9 (#$ . 1032890)]) #@113 Prints an AST to the current buffer. Makes `js2-ast-parent-nodes' available to the printer functions. (fn AST) (defalias 'js2-print-tree #[257 "\301]\302!)\207" [max-lisp-eval-depth 1500 js2-print-ast] 3 (#$ . 1033120)]) #@174 Helper function for printing AST nodes. Requires `js2-ast-parent-nodes' to be non-nil. You should use `js2-print-tree' instead of this function. (fn NODE &optional INDENT) (defalias 'js2-print-ast #[513 "\300H\301N\206\n\300\205\"\207" [0 js2-printer] 7 (#$ . 1033352)]) (defconst js2-side-effecting-tokens (byte-code "\306\307\" \n \f  \n \f  !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKL\257I\211\203\245\211@\310I\210A\266\202\202\223\210\211\207" [js2-num-tokens js2-ASSIGN js2-ASSIGN_ADD js2-ASSIGN_BITAND js2-ASSIGN_BITOR js2-ASSIGN_BITXOR make-bool-vector nil t js2-ASSIGN_DIV js2-ASSIGN_LSH js2-ASSIGN_MOD js2-ASSIGN_MUL js2-ASSIGN_RSH js2-ASSIGN_SUB js2-ASSIGN_URSH js2-ASSIGN_EXPON js2-ASSIGN_AND js2-ASSIGN_OR js2-ASSIGN_NULLISH js2-BLOCK js2-BREAK js2-CALL js2-CATCH js2-CATCH_SCOPE js2-CLASS js2-CONST js2-CONTINUE js2-DEBUGGER js2-DEC js2-DELPROP js2-DEL_REF js2-DO js2-ELSE js2-EMPTY js2-ENTERWITH js2-EXPORT js2-EXPR_RESULT js2-FINALLY js2-FOR js2-FUNCTION js2-GOTO js2-IF js2-IFEQ js2-IFNE js2-IMPORT js2-INC js2-JSR js2-LABEL js2-LEAVEWITH js2-LET js2-LETEXPR js2-LOCAL_BLOCK js2-LOOP js2-NEW js2-REF_CALL js2-RETHROW js2-RETURN js2-RETURN_RESULT js2-SEMI js2-SETELEM js2-SETELEM_OP js2-SETNAME js2-SETPROP js2-SETPROP_OP js2-SETVAR js2-SET_REF js2-SET_REF_OP js2-SWITCH js2-TARGET js2-THROW js2-TRY js2-VAR js2-WHILE js2-WITH js2-WITHEXPR js2-YIELD] 74)) #@47 Return t if NODE has side effects. (fn NODE) (defalias 'js2-node-has-side-effects #[257 "\211\205O\306!>\204\307\310\311D\"\210\211\312H\211 U\203]\306!\n>\203]\306!\n>\2043\307\310\313D\"\210\314H\315!\206X\306! >\205X\306! >\204S\307\310\316D\"\210\211\314H\317\235\262\202M\211\fU\203g\320\202M\211 U\203\205\315\306!>\204~\307\310\321D\"\210\322H!\202M\211U\204\232\211U\204\232\211U\203\312\315\306!>\204\253\307\310\321D\"\210\322H!\206M\315\306!>\204\303\307\310\321D\"\210\323H!\202M\211U\203\315\306!>\204\342\307\310\324D\"\210\323H!\205M\315\306!>\204\372\307\310\324D\"\210\322H!\202M\306!>\203\"\315\306!>\204\307\310\325D\"\210\314H!\202M\211U\203-\326\202M\2039\211 U\204E!\203I\211\"U\203I\320\202M#H\262\207" [cl-struct-js2-node-tags js2-EXPR_VOID cl-struct-js2-expr-stmt-node-tags cl-struct-js2-string-node-tags js2-AWAIT js2-COMMA type-of signal wrong-type-argument js2-node 1 js2-expr-stmt-node 6 js2-node-has-side-effects js2-string-node ("use strict" "use asm") t js2-infix-node 8 7 js2-cond-node js2-paren-node nil cl-struct-js2-infix-node-tags js2-AND js2-OR js2-NULLISH-COALESCING js2-HOOK cl-struct-js2-cond-node-tags cl-struct-js2-paren-node-tags js2-ERROR js2-instanceof-has-side-effects js2-INSTANCEOF js2-getprop-has-side-effects js2-GETPROP js2-side-effecting-tokens] 7 (#$ . 1034834)]) #@543 Node types that only appear in statement contexts. The list does not include nodes that always appear as the child of another specific statement type, such as switch-cases, catch and finally blocks, and else-clauses. The list also excludes nodes like yield, let and var, which may appear in either expression or statement context, and in the latter context always have a `js2-expr-stmt-node' parent. Finally, the list does not include functions or scripts, which are treated separately from statements by the JavaScript parser and runtime. (defconst js2-stmt-node-types (list js2-BLOCK js2-BREAK js2-CONTINUE js2-DEFAULT js2-DO js2-EXPORT js2-EXPR_RESULT js2-EXPR_VOID js2-FOR js2-IF js2-IMPORT js2-RETURN js2-SWITCH js2-THROW js2-TRY js2-WHILE js2-WITH) (#$ . 1036262)) #@323 Heuristic for figuring out if NODE is a statement. Some node types can appear in either an expression context or a statement context, e.g. let-nodes, yield-nodes, and var-decl nodes. For these node types in a statement context, the parent will be a `js2-expr-stmt-node'. Functions aren't included in the check. (fn NODE) (defalias 'js2-stmt-node-p #[257 "\302!>\204\303\304\305D\"\210\211\306H >\207" [cl-struct-js2-node-tags js2-stmt-node-types type-of signal wrong-type-argument js2-node 1] 5 (#$ . 1037042)]) #@131 Search upward starting from NODE looking for a statement. For purposes of this function, a `js2-function-node' counts. (fn NODE) (defalias 'js2-mode-find-first-stmt #[257 "\302!\204%\303!>\204%\303! >\204\304\305\306D\"\210\211\307H\262\202\207" [cl-struct-js2-function-node-tags cl-struct-js2-node-tags js2-stmt-node-p type-of signal wrong-type-argument js2-node 5] 5 (#$ . 1037567)]) #@256 Return the node's first ancestor that is a statement. Returns nil if NODE is a `js2-ast-root'. Note that any expression appearing in a statement context will have a parent that is a `js2-expr-stmt-node' that will be returned by this function. (fn NODE) (defalias 'js2-node-parent-stmt #[257 "\302!>\204\303\304\305D\"\210\211\306H\211\203;\307!\204;\302! >\203?\302! >\2043\303\304\310D\"\210\211\311H\312=\203?\211\202B\313!\207" [cl-struct-js2-node-tags cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-node 5 js2-stmt-node-p js2-function-node 18 FUNCTION_STATEMENT js2-node-parent-stmt] 6 (#$ . 1037973)]) (defconst js2-END_UNREACHED 0) (defconst js2-END_DROPS_OFF 1) (defconst js2-END_RETURNS 2) (defconst js2-END_RETURNS_VALUE 4) (defconst js2-END_YIELDS 8) #@137 Check that every return usage in a function body is consistent. Returns t if the function satisfies strict mode requirement. (fn NODE) (defalias 'js2-has-consistent-return-usage #[257 "\304!\211\305\"\306U\266\202\206\211\307 \n #\305\"\306U\266\202\207" [js2-END_RETURNS_VALUE js2-END_DROPS_OFF js2-END_RETURNS js2-END_YIELDS js2-end-check logand 0 logior] 7 (#$ . 1038784)]) #@177 Ensure that return usage in then/else blocks is consistent. If there is no else block, then the return statement can fall through. Returns logical OR of END_* flags (fn NODE) (defalias 'js2-end-check-if #[257 "\303!>\204\304\305\306D\"\210\211\307H\303!>\204!\304\305\306D\"\210\310H\204, \202<\311\312!\203:\312!\202;\n\"\207" [cl-struct-js2-if-node-tags js2-END_UNREACHED js2-END_DROPS_OFF type-of signal wrong-type-argument js2-if-node 7 9 logior js2-end-check] 7 (#$ . 1039177)]) #@307 Consistency of return statements is checked between the case statements. If there is no default, then the switch can fall through. If there is a default, we check to see if all code paths in the default return or if there is a code path that can fall through. Returns logical OR of END_* flags. (fn NODE) (defalias 'js2-end-check-switch #[257 "\304\3052P\306! >\204\307\310\311D\"\210\312H\211\205M\211@\306!\n>\204-\307\310\313D\"\210\211\314H\203>\315\316!\"\262\202F\211\262\317\305\304\"\210A\266\202\202\2620\210\320\321 !\"\262\315\203e\322!\202f \"\262\207" [js2-END_UNREACHED cl-struct-js2-switch-node-tags cl-struct-js2-case-node-tags js2-END_DROPS_OFF nil break type-of signal wrong-type-argument js2-switch-node 11 js2-case-node 7 logior js2-end-check-block throw logand lognot js2-end-check] 9 (#$ . 1039687)]) #@367 If the block has a finally, return consistency is checked in the finally block. If all code paths in the finally return, then the returns in the try-catch blocks don't matter. If there is a code path that does not return or if there is no finally block, the returns of the try and catch blocks are checked for mismatch. Returns logical OR of END_* flags. (fn NODE) (defalias 'js2-end-check-try #[257 "\303!>\204\304\305\306D\"\210\211\307H\310\203.\311\303! >\204'\304\305\312D\"\210\313H!\202/\n\262\211\n\314\"\315U?\266\202\203\212\314\316\n!\"\262\317\311\303!>\204[\304\305\306D\"\210\313H!\"\262\303!>\204q\304\305\306D\"\210\320H\211\203\211\211@\317\311!\"\262A\266\202\202t\210\207" [cl-struct-js2-try-node-tags cl-struct-js2-finally-node-tags js2-END_DROPS_OFF type-of signal wrong-type-argument js2-try-node 8 nil js2-end-check js2-finally-node 6 logand 0 lognot logior 7] 10 (#$ . 1040548)]) #@460 Return statement in the loop body must be consistent. The default assumption for any kind of a loop is that it will eventually terminate. The only exception is a loop with a constant true condition. Code that follows such a loop is examined only if one can determine statically that there is a break out of the loop. for(... ; ... ; ...) {} for(... in ... ) {} while(...) { } do { } while(...) Returns logical OR of END_* flags. (fn NODE) (defalias 'js2-end-check-loop #[257 "\306\307!>\204\310\311\312D\"\210\313H!\307! >\2031\307! >\204+\310\311\314D\"\210\315H\202h\307!\n>\203N\307!\n>\204H\310\311\316D\"\210\315H\202h\307! >\205h\307! >\204e\310\311\317D\"\210\320H\211\203|\321!\322=\203|\323\324\f!\"\262\325\326 \327\307!>\204\224\310\311\330D\"\210\331H\"A@\206\236\211\266\203\"\262\207" [cl-struct-js2-loop-node-tags cl-struct-js2-while-node-tags cl-struct-js2-do-node-tags cl-struct-js2-for-node-tags js2-END_DROPS_OFF js2-END_UNREACHED js2-end-check type-of signal wrong-type-argument js2-loop-node 10 js2-while-node 13 js2-do-node js2-for-node 14 js2-always-defined-boolean-p ALWAYS_TRUE logand lognot logior CONTROL_BLOCK_PROP assoc js2-node 4 cl-struct-js2-node-tags] 14 (#$ . 1041498)]) #@216 A general block of code is examined statement by statement. If any statement (even a compound one) returns in all branches, then subsequent statements are not examined. Returns logical OR of END_* flags. (fn NODE) (defalias 'js2-end-check-block #[257 "\302! >\204\303\304\305D\"\210\306H\211@\211\203B\307\"\310U?\266\202\203B\307\311!\"\262\312\313!\"\262A\262@\262\202\207" [js2-END_DROPS_OFF cl-struct-js2-block-node-tags type-of signal wrong-type-argument js2-block-node 6 logand 0 lognot logior js2-end-check] 9 (#$ . 1042774)]) #@265 A labeled statement implies that there may be a break to the label. The function processes the labeled statement and then checks the CONTROL_BLOCK_PROP property to see if there is ever a break to the particular label. Returns logical OR of END_* flags. (fn NODE) (defalias 'js2-end-check-label #[257 "\303\304!>\204\305\306\307D\"\210\310H!\311\312 \313\304!\n>\204+\305\306\314D\"\210\315H\"A@\2065\211\266\203\"\207" [cl-struct-js2-labeled-stmt-node-tags js2-END_UNREACHED cl-struct-js2-node-tags js2-end-check type-of signal wrong-type-argument js2-labeled-stmt-node 7 logior CONTROL_BLOCK_PROP assoc js2-node 4] 13 (#$ . 1043341)]) #@162 When a break is encountered annotate the statement being broken out of by setting its CONTROL_BLOCK_PROP property. Returns logical OR of END_* flags. (fn NODE) (defalias 'js2-end-check-break #[257 "\304!>\204\305\306\307D\"\210\211\310H\203W\304!>\204$\305\306\307D\"\210\211\310H\311 \304!\n>\2048\305\306\312D\"\210\211\313D\304!\n>\204O\305\306\312 D\"\210\313HBI\266 \207" [cl-struct-js2-break-node-tags js2-END_DROPS_OFF cl-struct-js2-node-tags js2-END_UNREACHED type-of signal wrong-type-argument js2-break-node 7 CONTROL_BLOCK_PROP js2-node 4] 12 (#$ . 1044000)]) #@440 Examine the body of a function, doing a basic reachability analysis. Returns a combination of flags END_* flags that indicate how the function execution can terminate. These constitute only the pessimistic set of termination conditions. It is possible that at runtime certain code paths will never be actually taken. Hence this analysis will flag errors in cases where there may not be errors. Returns logical OR of END_* flags (fn NODE) (defalias 'js2-end-check #[257 "\306\307!>\203\310!\202\374\307! >\2039\307! >\204&\311\312\313D\"\210\314H\211\262\2035\315!\202\374\n\202\374\307! >\204I\307!\f>\203M \202\374\307!>\203y\307!>\204f\311\312\316D\"\210\314H\211\262\203t\202\374\202\374\307!>\203\210\317!\202\374\307!>\203\227\320!\202\374\307!>\203\246\321!\202\374\307!>\203\265\322!\202\374\307!>\203\304\323!\202\374\307!>\203\355\307!>\204\335\311\312\324D\"\210\314H\204\347\n\202\374\325!\202\374\307!>\203\373 \202\374\n\207" [cl-struct-js2-break-node-tags cl-struct-js2-expr-stmt-node-tags js2-END_DROPS_OFF cl-struct-js2-continue-node-tags cl-struct-js2-throw-node-tags js2-END_UNREACHED nil type-of js2-end-check-break signal wrong-type-argument js2-expr-stmt-node 6 js2-end-check js2-return-node js2-end-check-loop js2-end-check-switch js2-end-check-label js2-end-check-if js2-end-check-try js2-block-node js2-end-check-block cl-struct-js2-return-node-tags js2-END_RETURNS_VALUE js2-END_RETURNS cl-struct-js2-loop-node-tags cl-struct-js2-switch-node-tags cl-struct-js2-labeled-stmt-node-tags cl-struct-js2-if-node-tags cl-struct-js2-try-node-tags cl-struct-js2-block-node-tags cl-struct-js2-yield-node-tags js2-END_YIELDS] 6 (#$ . 1044602)]) #@170 Check if NODE always evaluates to true or false in boolean context. Returns 'ALWAYS_TRUE, 'ALWAYS_FALSE, or nil if it's neither always true nor always false. (fn NODE) (defalias 'js2-always-defined-boolean-p #[257 "\306!>\204\307\310\311D\"\210\211\312H\313 U\204\nU\203#\314\202\\ U\203-\315\202\\\fU\203[\306! >\204B\307\310\316D\"\210\317H\262\211\320=\204W\211\321U\204W\315\202\\\314\202\\\313\207" [cl-struct-js2-node-tags js2-FALSE js2-NULL js2-TRUE js2-NUMBER cl-struct-js2-number-node-tags type-of signal wrong-type-argument js2-node 1 nil ALWAYS_FALSE ALWAYS_TRUE js2-number-node 7 0.0e+NaN 0] 7 (#$ . 1046359)]) #@34 List of all defined token names. (defvar js2-tokens nil (#$ . 1047014)) #@70 Vector mapping int values to token string names, sans `js2-' prefix. (defconst js2-token-names (byte-code "\303\304\"\305\306\307!\211\305\310:\203<@\262\311>\2041\312!\2031J\313!\314\305O\227I\210\nBA\262\211T\262\202\f\266)\207" [js2-num-tokens case-fold-search js2-tokens make-vector -1 nil apropos-internal "^js2-\\(?:[[:upper:]_]+\\)" 0 (js2-EOF_CHAR js2-ERROR) boundp symbol-name 4] 10) (#$ . 1047092)) #@114 Return a string name for TOK, a token symbol or code. Signals an error if it's not a recognized token. (fn TOK) (defalias 'js2-tt-name #[257 "\2119\203\nJ\262\211\302=\203\303\2022\211\247\203.\211\211\304W\262\204.\211W\203. H\2022\305\306\"\207" [js2-num-tokens js2-token-names -1 "ERROR" 0 error "Invalid token: %s"] 5 (#$ . 1047529)]) #@75 Return symbol for TOK given its code, e.g. 'js2-LP for code 86. (fn TOK) (defalias 'js2-tt-sym #[257 "\300\301!!\207" [intern js2-tt-name] 4 (#$ . 1047890)]) (put 'js2-tt-sym 'byte-optimizer 'byte-compile-inline-expand) #@58 Hashtable mapping token type symbols to their bytecodes. (defconst js2-token-codes (byte-code "\302\303\304\305\306$\307\310\211T\211\262GW\203-H\262\311\312\226P!\262\313\211J#\210\202\n\266\313\314 #\210\211\207" [js2-token-names js2-DELPROP make-hash-table :test eq :size 256 -1 nil intern "js2-" puthash js2-DELETE] 9) (#$ . 1048118)) #@66 Return code for token symbol SYM, e.g. 86 for 'js2-LP. (fn SYM) (defalias 'js2-tt-code #[257 "\301\"\206 \302\303\"\207" [js2-token-codes gethash error "Invalid token symbol: %s "] 4 (#$ . 1048479)]) (put 'js2-tt-code 'byte-optimizer 'byte-compile-inline-expand) #@39 (fn MSG &optional NO-THROW BEG LEN) (defalias 'js2-report-scan-error #[1025 " H\305!\n>\204\306\307\310D\"\210\211\211\311 I\266\312\313\2067 H\305!\n>\2042\306\307\310D\"\210\211\314H\262\206=\315 $\210?\205H\316\317\f\"\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor js2-ERROR type-of signal wrong-type-argument js2-token 3 js2-report-error nil 2 js2-current-token-len throw return] 12 (#$ . 1048753)]) #@72 Set `string' and `end' slots for TOKEN, return the string. (fn TOKEN) (defalias 'js2-set-string-from-buffer #[257 "\303!>\204\304\305\306D\"\210\211\211\307 I\266\303!>\204%\304\305\306D\"\210\211\211\310\311\n!I\207" [cl-struct-js2-token-tags js2-ts-cursor js2-ts-string-buffer type-of signal wrong-type-argument js2-token 3 4 js2-collect-string] 6 (#$ . 1049217)]) #@10 (fn C) (defalias 'js2-add-to-string #[257 "\211B\211\207" [js2-ts-string-buffer] 3 (#$ . 1049601)]) (put 'js2-add-to-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'js2-unget-char #[0 "S\211\207" [js2-ts-cursor] 2]) (put 'js2-unget-char 'byte-optimizer 'byte-compile-inline-expand) #@308 Read and return the next character from the input buffer. Increments `js2-ts-lineno' if the return value is a newline char. Updates `js2-ts-cursor' to the point after the returned char. Returns `js2-EOF_CHAR' if we hit the end of the buffer. Also updates `js2-ts-hit-eof' and `js2-ts-line-start' as needed. (defalias 'js2-get-char #[0 "\305dY\203\306T\n\211\262\202+T\211\206`Sf\262\211\307U\203*\fT\211\207" [js2-ts-cursor js2-ts-hit-eof js2-EOF_CHAR js2-ts-line-start js2-ts-lineno nil t 10] 3 (#$ . 1049911)]) #@206 Read a \uNNNN sequence from the input. Assumes the ?and ?u have already been read. Returns the unicode character, or nil if it wasn't a valid character. Doesn't change the values of any scanner variables. (defalias 'js2-read-unicode-escape #[0 "\3011\302\303\\\"\304\305\"\205\306\307P!\2620\207\210\310\207" [js2-ts-cursor (error) buffer-substring-no-properties 4 string-match "[0-9a-fA-F]\\{4\\}" read "?\\u" nil] 4 (#$ . 1050448)]) #@147 Consume and return next character if it matches TEST, a character. Returns nil and consumes nothing if TEST is not the next character. (fn TEST) (defalias 'js2-match-char #[257 "\301 \211=\203\f\302\202S\303\207" [js2-ts-cursor js2-get-char t nil] 4 (#$ . 1050899)]) (defalias 'js2-peek-char #[0 "\301 S\207" [js2-ts-cursor js2-get-char] 3]) #@81 Is C a valid start to an ES5 Identifier? See http://es5.github.io/#x7.6 (fn C) (defalias 'js2-identifier-start-p #[257 "\211\300>\206\f\301\302\"\303>\207" [(36 95) get-char-code-property general-category (Lu Ll Lt Lm Lo Nl)] 4 (#$ . 1051256)]) #@80 Is C a valid part of an ES5 Identifier? See http://es5.github.io/#x7.6 (fn C) (defalias 'js2-identifier-part-p #[257 "\211\300>\206\f\301\302\"\303>\207" [(36 95 8204 8205) get-char-code-property general-category (Lu Ll Lt Lm Lo Nl Mn Mc Nd Pc)] 4 (#$ . 1051510)]) #@10 (fn C) (defalias 'js2-alpha-p #[257 "\300X\203\211\301X\203\302\207\303X\203\211\304X\203\302\207\305\207" [65 90 t 97 122 nil] 3 (#$ . 1051784)]) #@10 (fn C) (defalias 'js2-digit-p #[257 "\300X\205 \211\301X\207" [48 57] 3 (#$ . 1051949)]) (put 'js2-digit-p 'byte-optimizer 'byte-compile-inline-expand) #@10 (fn C) (defalias 'js2-js-space-p #[257 "\211\300X\203\n\211\301>\207\211\302=\207" [127 (32 9 11 12 13) 160] 3 (#$ . 1052111)]) (defconst js2-eol-chars (list js2-EOF_CHAR 10 13)) #@22 Skip to end of line. (defalias 'js2-skip-line #[0 "\305 >\203 S\n H\306!\f>\204\307\310\311D\"\210\211\211\312 I\262\207" [js2-eol-chars js2-ts-cursor js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-get-char type-of signal wrong-type-argument js2-token 3] 5 (#$ . 1052299)]) #@346 Create token stream for BUF starting on LINE. BUF defaults to `current-buffer' and LINE defaults to 1. A buffer can only have one scanner active at a time, which yields dramatically simpler code than using a defstruct. If you need to have simultaneous scanners in a buffer, copy the regions to scan into temp buffers. (fn &optional BUF LINE) (defalias 'js2-init-scanner #[512 "r\206pq\210\306\211\307\211\206\310\311e\312 \306\"\f\307\211 \306\211\307\306\211)\207" [js2-ts-dirty-line js2-ts-hit-eof js2-ts-line-start js2-ts-lineno js2-ts-line-end-char js2-ts-cursor nil 0 1 -1 make-vector js2-ti-ntokens js2-ti-tokens js2-ti-tokens-cursor js2-ti-lookahead js2-ts-is-xml-attribute js2-ts-xml-is-tag-content js2-ts-xml-open-tags-count js2-ts-string-buffer] 6 (#$ . 1052606)]) #@14 (fn TOKEN) (defalias 'js2-token-to-string #[257 "\204\305\207\306!\307>\203-\211\310 \nH\311! >\204#\312\313\314D\"\210\211\315H\262\316R\202Q\f=\203P\317\320 \nH\311! >\204G\312\313\314D\"\210\211\321H\262\"\202Q\211\207" [js2-debug-print-trees js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NUMBER "" js2-tt-name (js2-STRING js2-REGEXP js2-NAME js2-TEMPLATE_HEAD js2-NO_SUBS_TEMPLATE) " `" type-of signal wrong-type-argument js2-token 4 "'" format "NUMBER %g" 5] 9 (#$ . 1053414)]) (defconst js2-keywords '(break case catch class const continue debugger default delete do else extends export false finally for function if in instanceof import let new null return super switch this throw true try typeof var void while with yield)) #@130 Vector whose values are non-nil for tokens that are keywords. The values are default faces to use for highlighting the keywords. (defconst js2-kwd-tokens (byte-code "\306\307\" \n \f  !\"#$%&'()*+,\257&\211\211\203`\211@\310I\210A\266\202\202N\210-\311I\210.\311I\210/\311I\2100\311I\2101\312I\210$\313I\210\"\313I\2102\314I\210 \314I\210&\314I\210\314I\2103\315I\210\207" [js2-num-tokens js2-BREAK js2-CASE js2-CATCH js2-CLASS js2-CONST make-vector nil font-lock-keyword-face font-lock-string-face font-lock-comment-face font-lock-builtin-face font-lock-constant-face font-lock-negation-char-face js2-CONTINUE js2-DEBUGGER js2-DEFAULT js2-DELPROP js2-DO js2-ELSE js2-EXPORT js2-EXTENDS js2-FALSE js2-FINALLY js2-FOR js2-FUNCTION js2-IF js2-IN js2-INSTANCEOF js2-IMPORT js2-LET js2-NEW js2-NULL js2-RETURN js2-SUPER js2-SWITCH js2-THIS js2-THROW js2-TRUE js2-TRY js2-TYPEOF js2-VAR js2-WHILE js2-WITH js2-YIELD js2-STRING js2-REGEXP js2-NO_SUBS_TEMPLATE js2-TEMPLATE_HEAD js2-COMMENT js2-VOID js2-NOT] 39) (#$ . 1054191)) #@45 Future reserved keywords in ECMAScript 5.1. (defconst js2-reserved-words '(class enum export extends import static super) (#$ . 1055304)) #@55 JavaScript keywords by name, mapped to their symbols. (defconst js2-keyword-names (byte-code "\301\302\303\"\304:\203%@\262\305\306!\307\310\306!\226P!#\210A\262\202\266\211\207" [js2-keywords make-hash-table :test equal nil puthash symbol-name intern "js2-"] 9) (#$ . 1055448)) #@61 JavaScript reserved words by name, mapped to 'js2-RESERVED. (defconst js2-reserved-word-names (byte-code "\301\302\303\"\304:\203@\262\305\306!\307#\210A\262\202\266\211\207" [js2-reserved-words make-hash-table :test equal nil puthash symbol-name js2-RESERVED] 7) (#$ . 1055746)) #@86 Convert BUF, a list of chars, to a string. Reverses BUF before converting. (fn BUF) (defalias 'js2-collect-string #[257 "\211\203\n\300\301\237\"\207\302\207" [apply string ""] 4 (#$ . 1056045)]) #@144 Return token for S, a string, if S is a keyword or reserved word. Returns a symbol such as 'js2-BREAK, or nil if not keyword/reserved. (fn S) (defalias 'js2-string-to-keyword #[257 "\302\"\206 \302 \"\207" [js2-keyword-names js2-reserved-word-names gethash] 4 (#$ . 1056251)]) #@52 Used when next token is one character. (fn TOKEN) (defalias 'js2-ts-set-char-token-bounds #[257 "\302!>\204\303\304\305D\"\210\211\211\306 SI\266\302!>\204&\303\304\305D\"\210\211\211\307 I\207" [cl-struct-js2-token-tags js2-ts-cursor type-of signal wrong-type-argument js2-token 2 3] 5 (#$ . 1056539)]) (put 'js2-ts-set-char-token-bounds 'byte-optimizer 'byte-compile-inline-expand) #@99 Update the `end' and `type' slots of TOKEN, then throw `return' with value TYPE. (fn TOKEN TYPE) (defalias 'js2-ts-return #[514 "\302!>\204\303\304\305D\"\210\211\306 I\266\302!>\204%\303\304\305D\"\210\211\307I\266\310\311\"\207" [cl-struct-js2-token-tags js2-ts-cursor type-of signal wrong-type-argument js2-token 3 1 throw return] 6 (#$ . 1056940)]) (put 'js2-ts-return 'byte-optimizer 'byte-compile-inline-expand) #@146 Build up a hex number. If C is a hexadecimal digit, return ACCUMULATOR * 16 plus corresponding number. Otherwise return -1. (fn C ACCUMULATOR) (defalias 'js2-x-digit-to-int #[514 "\3002^\3012U\302X\203!\303Z\262\304X\203P\305\301\306\"\210\202P\307X\203:\310X\203P\311Z\262\305\301\306\"\210\202P\312X\203P\313X\203P\314Z\262\305\301\306\"\210\305\300\315\"0\210\316\317\320\"\"0\207" [return check 57 48 0 throw nil 70 65 55 102 97 87 -1 logior lsh 4] 7 (#$ . 1057381)]) #@567 If `js2-ti-lookahead' is zero, call scanner to get new token. Otherwise, move `js2-ti-tokens-cursor' and return the type of next saved token. This function will not return a newline (js2-EOL) - instead, it gobbles newlines until it finds a non-newline token. Call `js2-peek-token-or-eol' when you care about newlines. This function will also not return a js2-COMMENT. Instead, it records comments found in `js2-scanned-comments'. If the token returned by this function immediately follows a jsdoc comment, the token is flagged as such. (fn &optional MODIFIER) (defalias 'js2-get-token #[256 "\306U\203\n\307!\207S\310 T\n\" H\311!\f>\204%\312\313\314D\"\210\211\315H\262\211 U\2034\316\317!\210\211\207" [js2-ti-lookahead js2-ti-tokens-cursor js2-ti-ntokens js2-ti-tokens cl-struct-js2-token-tags js2-EOL 0 js2-get-token-internal mod type-of signal wrong-type-argument js2-token 1 cl--assertion-failed (not (= tt js2-EOL))] 6 (#$ . 1057886)]) (defalias 'js2-unget-token #[0 " W\204\n\304\305!\210T\306\nS \"\211\207" [js2-ti-lookahead js2-ti-max-lookahead js2-ti-tokens-cursor js2-ti-ntokens cl--assertion-failed (< js2-ti-lookahead js2-ti-max-lookahead) mod] 3]) #@17 (fn MODIFIER) (defalias 'js2-get-token-internal #[257 "\306!\307!>\204\310\311\312D\"\210\211\313H\314\211 U\204#\nU\203] U\203/\315\262\202:\314\262 \203:\316!\210\317\fS \"\306!\262\307!>\204U\310\311\312D\"\210\313H\262\202\203x\307!>\204q\310\311\312D\"\210\211\320\315I\266\203\304\211\321W\262\203\216\322\323\"\210\202\304H\211\262\203\240\322\"\210\202\304U\203\304\307!>\204\267\310\311\312D\"\210\324H\325\232\203\304\322\326\"\210\207" [cl-struct-js2-token-tags js2-EOL js2-COMMENT js2-record-comments js2-ti-tokens-cursor js2-ti-ntokens js2-get-token-internal-1 type-of signal wrong-type-argument js2-token 1 nil t js2-record-comment mod 10 0 js2-record-face js2-error 4 "undefined" font-lock-constant-face js2-parse-ide-mode js2-kwd-tokens js2-NAME] 9 (#$ . 1059079)]) #@17 (fn STR BASE) (defalias 'js2-string-to-number #[514 "\3001\n\301\"0\207\210\302\207" [(overflow-error) string-to-number -1] 5 (#$ . 1059936)]) (put 'js2-string-to-number 'byte-optimizer 'byte-compile-inline-expand) #@198 Return next JavaScript token type, an int such as js2-RETURN. During operation, creates an instance of `js2-token' struct, sets its relevant fields and puts it into `js2-ti-tokens'. (fn MODIFIER) (defalias 'js2-get-token-internal-1 #[257 "\306\211\211\211\211\211\211\211\211\211\211\211\307\310!\3112\f \312=\2039\313!>\204)\314\315\316D\"\210\211\211\317 SI\266\320\311\321\322\"\"\210\323\262\203\331\324 \262 \n\n=\203\204 S\211\313!>\204^\314\315\316D\"\210\211\211\317 SI\266\313!>\204u\314\315\316D\"\210\211\211\325 I\266\320\311 \"\210\202<\n\326=\203\303\211\313!>\204\233\314\315\316D\"\210\211\211\317 SI\266\313!>\204\262\314\315\316D\"\210\211\211\325 I\266\306\320\311 \"\210\202<\327 !\204<\n\330U\204\323\323\306\262\202<\211\313!>\204\351\314\315\316D\"\210\211\211\317 SI\266\313!>\204\314\315\316D\"\210\211\211\325 I\266\n\331=\203\320\311@\"\210\n\332=\203>\324 \262 \n\333=\2032\323\262 \323\262\f\306A\202V\306\262 S\332\262 \202V\334 !\211\262\203V\306A\n\211AB\211A\266\f\203\227 \262\n\3352 \203\271\310\262 \336\310\211W\203\227\211\324 \262\337 \"\262\f \211\310W\262\203\217\320\335\306\"\210\210\211T\262\202m\266\211\310W\262\203\250\340\341\323\"\210\211AB\211A\266\306\262\f\202c\324 \262 \n\332=\203\340\324 \262 \n\333=\203\330\323\262\f\323\262\n\202c\340\342\323\"\210\202c\n\n=\204\356\343 !\204\363\320\335\306\"\210\n\211AB\211A\266\202c\210 S\344A!\262\313!>\204\314\315\316D\"\210\211\211\325 I\266 \204z \345=\204z\346!\211\262\203zB\347W\203H\350>\203H\351\262\352=\203f\313!>\204^\314\315\316D\"\210\211\211\336\nI\266\320\311\353C\"\206v\354\355\"\262\"\210\313!>\204\211\314\315\316D\"\210\211\211\336\nI\266\320\311)\"\210\n\356X\205\242\211\357X\262\204\276\n\360=\203T\361 \356X\205\271\211\357X\262\203T\306A\326\262\n\356=\203H\324 \262 \n\362=\204\335\n\363=\203\347\364\262\324 \262 \202H\n\365=\204\365\n\366=\203B\367Y\203\317\262\324 \262 \202H\n\370=\204\n\371=\203(B\367Y\203(\372\262\306\262\324 \262 \202H\n\356X\2053\211\357X\262\203>\373\262\202H\356\211AB\211A\266\364=\203{\310\337\f\310\"V\203_\340\374!\210\202A\310\337\f\310\"X\203A\n\211AB\211A\266\324 \262 \202_\317=\203\250\n\375>\204\217\340\376!\210\202A\n\377>\203A\n\211AB\211A\266\324 \262 \202\217\372=\203\351\356 V\204\276\201\206 W\203\307\340\201\207!\210\202A\356 X\203A\201\206 Y\203A\n\211AB\211A\266\324 \262 \202\307\356 X\2035\n\357X\2035\373=\203#\n\201\210Y\203#\201\211\201\212\f\201\210=\203\201\213\202\201\214\"\210\326\262\n\211AB\211A\266\324 \262 \202\351\373=\203A\372\262\323\262\326=\203\334\n\201\215>\203\334\n\360=\203v\n\211AB\211A\266\324 \262 \n\356X\205q\211\357X\262\204W\n\201\216>\203\334\n\211AB\211A\266\324 \262 \n\201\217>\203\246\n\211AB\211A\266\324 \262 \n\356X\205\261\211\357X\262\204\275\340\201\220\323\"\210\n\211AB\211A\266\324 \262 \n\356X\205\327\211\357X\262\204\275 S\201\221!\313!>\204\363\314\315\316D\"\210\211\201\222\n\201\2231 \201\224\"0\266\202\202\210\201\225\266\202I\266\313!>\204%\314\315\316D\"\210\211\201\226 I\266\313!>\204>\314\315\316D\"\210\211\201\227 \372U\205KI\266\320\311D\"\210\n\201\230>\204kB\367Y\203t\n\322U\203t\320\311\321 \"\"\210\211\201\231\f\201\232\"\203\211\320\311E\"\202\342 \201\231\f\201\233\"\203\235\320\311F\"\202\342 \201\231\f\201\234\"\203\261\320\311G\"\202\342 \201\231\f\201\235\"\203\305\320\311H\"\202\342 \201\231\f\201\236\"\203\331\320\311I\"\202\342 \201\231\f\201\237\"\203\355\320\311J\"\202\342 \201\231\f\201\240\"\203\320\311K\"\202\342 \201\231\f\201\241\"\203\320\311L\"\202\342 \201\231\f\201\242\"\203Z\201\243\201\242!\203B\201\243\201\244!\203:M\202\342 \320\311N\"\202\342 \201\243\360!\203R\320\311O\"\202\342 \320\311P\"\202\342 \201\231\f\201\245\"\203}\201\243\201\245!\203uQ\202\342 \320\311R\"\202\342 \201\231\f\360\"\203\270\201\243\360!\203\241\201\243\360!\203\234S\202\342 T\202\342 \201\243\201\237!\203\260U\202\342 \320\311V\"\202\342 \201\231\f\201\246\"\203\374\201\243\201\246!\203\345\201\243\201\244!\203\335W\202\342 \320\311X\"\202\342 \201\243\201\244!\203\364Y\202\342 \320\311Z\"\202\342 \201\231\f\201\247\"\203\201\243\201\244!\203Y\202\342 \320\311[\"\202\342 \201\231\f\201\250\"\203c\201\243\201\250!\203L\201\243\201\244!\203D\\\202\342 \320\311]\"\202\342 \201\243\201\244!\203[^\202\342 \320\311_\"\202\342 \201\231\f\201\244\"\203\334\201\243\201\244!\203\220\201\243\201\244!\203\210`\202\342 \320\311a\"\202\342 \201\243\201\251!\203\324b\313!>\204\254\314\315\316D\"\210\211\325 I\266\313!>\204\302\314\315\316D\"\210\211\201\252I\266\320\311\"\266\202\202\342 \320\311c\"\202\342 \201\231\f\201\253\"\203\201\243\201\244!\203\201\243\201\244!\203d\202\342 e\202\342 \320\311f\"\202\342 \201\231\f\201\254\"\203\226\201\243\201\253!\203a\201\243\330!\203^\201\243\330!\203^\201\255 \210ghH\313!>\204M\314\315\316D\"\210\211\211\201\256\201\257I\266\320\311i\"\210 S\201\243\201\254!\203\201\243\201\244!\203zj\202\342 k\202\342 \201\243\201\244!\203\216l\202\342 \320\311m\"\202\342 \201\231\f\201\251\"\203\365\201\243\201\251!\203\336\201\243\201\251!\203\312\201\243\201\244!\203\305n\202\342 o\202\342 \201\243\201\244!\203\331p\202\342 q\202\342 \201\243\201\244!\203\355r\202\342 \320\311s\"\202\342 \201\231\f\201\260\"\2036 \201\243\201\244!\203 t\202\342 \201\243\201\260!\203. \201\243\201\244!\203) u\202\342 v\202\342 \320\311w\"\202\342 \201\231\f\201\261\"\203\265\n\201\243\201\261!\203\247 \313!>\204[ \314\315\316D\"\210\211\317 \317ZI\266\201\255 \210\313!>\204x \314\315\316D\"\210\211\201\256\201\262I\266x\204\241 \313!>\204\227 \314\315\316D\"\210\211\325\325HTI\266\320\311i\"\210\201\243\201\260!\203\236\n\306\262\313!>\204\303 \314\315\316D\"\210\211\317 \317ZI\266\313!>\204\333 \314\315\316D\"\210\211\201\256\201\243\201\260!\203\363 \323\262 \201\263\202\366 \201\264I\266\324 \262\f \n=\203,\n\313!>\204\n\314\315\316D\"\210\211\325 SI\266\201\265\201\266!\210\320\311i\"\210\202\371  \201\260=\203;\n\323\262\202\371  \201\261=\203\202\n\203\371 i\313!>\204Z\n\314\315\316D\"\210\211\325 I\266\313!>\204p\n\314\315\316D\"\210\211\201\252I\266\320\311\"\266\202\371 \306\262\313!>\204\224\n\314\315\316D\"\210\211\325 I\266\202\371 \201\243\201\244!\203\255\ny\202\342 \320\311z\"\202\342 \201\231\f\201\267\"\203 {\203 \201\255 \210\313!>\204\332\n\314\315\316D\"\210\211\201\256\201\270I\266\313!>\204\364\n\314\315\316D\"\210\211\325 I\266\320\311i\"\210\320\311|\"\202\342 \201\231\f\201\271\"\203, \201\243\201\244!\203$ }\202\342 \320\311~\"\202\342 \201\231\f\201\272\"\203@ \320\311\"\202\342 \201\231\f\201\273\"\203r \201\243\201\244!\203[ \200\202\342 \201\243\201\273!\203j \201\202\342 \320\311\202\"\202\342 \201\231\f\330\"\203\337 \201\243\201\244!\203\215 \203\262\f\202\330 \201\243\330!\203\324 \f\204\315 \201\243\201\251!\203\315 \201\255 \210ghH\313!>\204\274 \314\315\316D\"\210\211\211\201\256\201\257I\266\320\311i\"\210\204\262\f\202\330 \205\262\f\323 \202\342 \340\342!\313!>\204\361 \314\315\316D\"\210\211\325 I\266\313!>\204\f\314\315\316D\"\210\211\201\252I\266\320\311\"\266\2029\262\313!>\204*\f\314\315\316D\"\210\211\211\201\252I\266\207" [cl-struct-js2-token-tags js2-ts-cursor js2-EOF_CHAR js2-EOF js2-ts-dirty-line js2-EOL nil js2-new-token 0 return TEMPLATE_TAIL type-of signal wrong-type-argument js2-token 2 throw js2-get-string-or-template-token 96 t js2-get-char 3 10 js2-js-space-p 45 64 92 117 js2-identifier-start-p break 4 js2-x-digit-to-int js2-report-scan-error "msg.invalid.escape" "msg.illegal.character" js2-identifier-part-p js2-collect-string KEYWORD_IS_NAME js2-string-to-keyword 170 (js2-LET js2-YIELD) js2-NAME js2-RESERVED gethash error "Invalid token symbol: %s " 48 57 46 js2-peek-char 120 88 16 98 66 200 111 79 8 maybe-8 "msg.missing.hex.digits" (48 49) "msg.missing.binary.digits" (48 49) js2-XMLATTR js2-ts-string-buffer js2-language-version js2-token-codes js2-NUMBER js2-SEMI js2-LB js2-RB js2-LC js2-RC js2-LP js2-RP js2-COMMA js2-ASSIGN_NULLISH js2-NULLISH-COALESCING js2-OPTIONAL-CHAINING js2-HOOK js2-COLONCOLON js2-COLON js2-TRIPLEDOT js2-DOTDOT js2-DOTQUERY js2-DOT js2-ASSIGN_OR js2-OR js2-ASSIGN_BITOR js2-BITOR js2-BITXOR js2-ASSIGN_AND js2-AND js2-ASSIGN_BITAND js2-BITAND js2-SHEQ js2-EQ js2-ARROW js2-ASSIGN js2-SHNE js2-NE js2-NOT js2-ti-tokens js2-ti-tokens-cursor js2-COMMENT js2-ASSIGN_LSH js2-LSH js2-LE js2-LT js2-ASSIGN_URSH js2-URSH js2-ASSIGN_RSH js2-RSH js2-GE js2-GT js2-ASSIGN_MUL js2-ASSIGN_EXPON js2-EXPON js2-MUL js2-ts-hit-eof js2-ASSIGN_DIV js2-DIV js2-skip-preprocessor-directives js2-ERROR js2-ASSIGN_MOD js2-MOD js2-BITNOT js2-ASSIGN_ADD js2-INC js2-ADD js2-ASSIGN_SUB js2-DEC js2-SUB 55 "msg.missing.octal.digits" 56 js2-report-warning "msg.bad.octal.literal" "8" "9" (46 101 69) (101 69) (43 45) "msg.missing.exponent" js2-set-string-from-buffer 5 (overflow-error) string-to-number -1 6 7 (34 39) eql 59 91 93 123 125 40 41 44 63 js2-match-char 61 58 124 94 38 62 1 33 60 js2-skip-line 9 html 42 47 line jsdoc block js2-report-error "msg.unterminated.comment" 35 preprocessor 37 126 43] 23 (#$ . 1060163)]) #@25 (fn QUOTE-CHAR TOKEN) (defalias 'js2-get-string-or-template-token #[514 "\306 \307\211\211\211\211\3102<U?\205;\31127 =\203+\nS\312\313!\210\314\310\307\"\210\315=\203D\316=\204D\nS\312\313!\210\314\310\307\"\210\317=\203\n\306 \262\320\321\"\203\\\322\262\202\n\320\323\"\203j\324\262\202\n\320\325\"\203x\315\262\202\n\320\326\"\203\206\327\262\202\n\320\330\"\203\224\331\262\202\n\320\332\"\203\242\333\262\202\n\320\334\"\203=\335 \262 \203\364\203\350\317\211B\211\266\334\211B\211\266\336\337\211W\203\337\211\306 \211B\211\266\211T\262\202\310\266\306 \262\202\n\340\341\307\n\342Z\343$\210\202\n\334\211B\211\266\337\262\344\337\211W\2031\211\306 \262 \345 \"\262\211\337W\262\203!\314\311\307\"\210\211B\211\266\211T\262\202\266\346\233\211\262\202\n\320\347\"\203\236\306 \262\345\337\"\262\211\211\337W\262\203i\347\211B\211\266\314\311\307\"\210\202\n\262\306 \262\345\"\262\211\211\337W\262\203\230\347\211B\211\266\211B\211\266\314\311\307\"\210\202\n\211\262\202\n\320\315\"\203\262\306 \262\314\311\307\"\210\202\n\350X\203\n\351W\203\n\350Z\262\306 \262\350X\203\351W\203\322_\\\350Z\262\306 \262\350X\203\351W\203\352W\203\322_\\\350Z\262\306 \262\nS\262\316=\203)\353=\203)\306 \211\262\354=\203&\314\310\307\"\210\nS\211B\211\266\306 \211\2620\210\202 0\210\355!\210\316=\204M\f\202_\353=\203]\354=\203] \202_.)\207" [js2-ts-string-buffer js2-EOF_CHAR js2-ts-cursor js2-parse-ide-mode js2-STRING js2-TEMPLATE_HEAD js2-get-char nil break continue js2-report-error "msg.unterminated.string.lit" throw 10 96 92 eql 98 8 102 12 110 114 13 116 9 118 11 117 js2-read-unicode-escape 3 0 js2-report-warning "msg.invalid.escape" 2 6 4 js2-x-digit-to-int 5 120 48 56 31 36 123 js2-set-string-from-buffer js2-NO_SUBS_TEMPLATE] 14 (#$ . 1070001)]) #@84 Called by parser when it gets / or /= in literal context. (fn START-TT START-POS) (defalias 'js2-read-regexp #[514 "\306\211\211\211\307\310\311!\203\211T\312\313F B\211\266\306 =\2031\314\211\nB\211\266\202<\f=\204<\315\316!\210\204\313\317 \211\262\320U\203N\203\313\321U\204Z U\203\226\322!,>\204j\323\324\325D\"\210\211\211\326-SI\266\307\262\322!,>\204\206\323\324\325D\"\210\211\211\327\330\n!I\266\331\332!\210\202<\333U\203\253\211\nB\211\266\317 \262\202\300\334U\203\267\307\262\202\300\335U\203\300\306\262\211\nB\211\266\202<\204V\203\345-S-\312\336F B\211\266\203C\337\340!\203\367\340B\262\202\345\337\341!\203\341B\262\202\345\337\342!\203\342B\262\202\345\337\343!\203(.\344Y\203(\343B\262\202\345\337\345!\203=.\344Y\203=\345B\262\202\345\306\262\202\345\346\347 !\203R\350\351\307-\352$\210\353!\210\330!\207" [js2-mode-change-syntax-p js2-mode-deferred-properties js2-ts-string-buffer js2-ASSIGN_DIV js2-DIV js2-EOF_CHAR nil t js2-new-token 0 syntax-table (7 . 47) 61 error "failed assertion" js2-get-char 47 10 type-of signal wrong-type-argument js2-token 3 4 js2-collect-string js2-report-error "msg.unterminated.re.lit" 92 91 93 (7 . 47) js2-match-char 103 105 109 117 200 121 js2-alpha-p js2-peek-char js2-report-scan-error "msg.invalid.re.flag" 1 js2-set-string-from-buffer cl-struct-js2-token-tags js2-ts-cursor js2-language-version] 16 (#$ . 1071966)]) (defalias 'js2-get-first-xml-token #[0 "\304\305\211 S\306 \207" [js2-ts-xml-open-tags-count js2-ts-is-xml-attribute js2-ts-xml-is-tag-content js2-ts-cursor 0 nil js2-get-next-xml-token] 3]) #@76 Throw away the string in progress and flag an XML parse error. (fn TOKEN) (defalias 'js2-xml-discard-string #[257 "\302\303! >\204\304\305\306D\"\210\211\211\307\302I\266\310\311\312\"\207" [js2-ts-string-buffer cl-struct-js2-token-tags nil type-of signal wrong-type-argument js2-token 4 js2-report-scan-error "msg.XML.bad.form" t] 5 (#$ . 1073655)]) (defalias 'js2-get-next-xml-token #[0 "\306\307\310!\306\211\3112\\\312 \262 U\203\313\311\n\"\210\202 \203\337\314\315\"\2037\211B\211\266\306\211\202\310\314\316\"\203a\211B\211\266\317 \315=\203\310\312 \262\211B\211\266\306 S\202\310\314\320\"\203z,S,\321!\210\313\311-\"\210\202\310\322\323\"\203\230\211B\211\266\324\"\204\310\313\311\n\"\210\202\310\314\325\"\203\254\211B\211\266\326\202\310\322\327\"\203\276\211B\211\266\202\310\211B\211\266\306 \204 \310U\203 \321!\210\313\311.\"\210\202 \314\330\"\2038\211B\211\266\317 \262\314\331\"\203\345\312 \262\211B\211\266\317 \262\314\332\"\203D\312 \262\211B\211\266\332=\2038\211B\211\266\333!\204\326\313\311\n\"\210\202\326\334!\210\313\311\n\"\210\202\326\314\335\"\203\313\312 \262\211B\211\266\312 \336U\203\277\312 \337U\203\277\312 \340U\203\277\312 \341U\203\277\312 \340U\203\277\312 \335U\203\277\336\211B\211\266\337\211B\211\266\340\211B\211\266\341\211B\211\266\340\211B\211\266\335\211B\211\266\342!\204\326\313\311\n\"\210\202\326\334!\210\313\311\n\"\210\202\326\343!\204\326\313\311\n\"\210 \310U\203 \313\311.\"\210\202 \314\344\"\203\312 \262\211B\211\266\345!\204 \313\311\n\"\210\202 \314\316\"\2030\312 \262\211B\211\266 \310U\203(\334!\210\313\311\n\"\210\326 S\202 \326 T\202 \314\320\"\203Q,S,\321!\210\313\311-\"\210\202 \211B\211\266\202 \262\346!/>\204n\347\350\351D\"\210\211\352,I\266\346!/>\204\206\347\350\351D\"\210\211\353I\266\207" [js2-ts-string-buffer js2-EOF_CHAR js2-ERROR js2-ts-xml-is-tag-content js2-ts-is-xml-attribute js2-ts-xml-open-tags-count nil js2-new-token 0 return js2-get-char throw eql 62 47 js2-peek-char 123 js2-set-string-from-buffer memql (39 34) js2-read-quoted-string 61 t (32 9 13 10) 60 33 45 js2-read-xml-comment js2-xml-discard-string 91 67 68 65 84 js2-read-cdata js2-read-entity 63 js2-read-PI type-of signal wrong-type-argument js2-token 3 1 js2-ts-cursor js2-XML js2-XMLEND cl-struct-js2-token-tags] 8]) #@20 (fn QUOTE TOKEN) (defalias 'js2-read-quoted-string #[514 "\302\3032+\304 \211\262U\204%\211\211 B\211\266\211=\203\305\303\306\"\210\202\307!\210\3020\207" [js2-EOF_CHAR js2-ts-string-buffer nil return js2-get-char throw t js2-xml-discard-string] 6 (#$ . 1076151)]) #@14 (fn TOKEN) (defalias 'js2-read-xml-comment #[257 "\302 \3032a\211U\204[\3042W\211\211 B\211\266\211\305=\203Q\306 \305=\203Q\302 \262\211\211 B\211\266\306 \307=\203L\302 \262\211\211 B\211\266\310\303\311\"\210\202Q\310\304\312\"\210\302 \211\2620\210\202\313!\210\3120\207" [js2-EOF_CHAR js2-ts-string-buffer js2-get-char return continue 45 js2-peek-char 62 throw t nil js2-xml-discard-string] 5 (#$ . 1076437)]) #@14 (fn TOKEN) (defalias 'js2-read-cdata #[257 "\302 \3032a\211U\204[\3042W\211\211 B\211\266\211\305=\203Q\306 \305=\203Q\302 \262\211\211 B\211\266\306 \307=\203L\302 \262\211\211 B\211\266\310\303\311\"\210\202Q\310\304\312\"\210\302 \211\2620\210\202\313!\210\3120\207" [js2-EOF_CHAR js2-ts-string-buffer js2-get-char return continue 93 js2-peek-char 62 throw t nil js2-xml-discard-string] 5 (#$ . 1076880)]) #@14 (fn TOKEN) (defalias 'js2-read-entity #[257 "\302\303\3042E\305 \211\262U\204?\211\211 B\211\266\306\307\"\203&T\262\202\306\310\"\203S\262\311U\203\312\304\313\"\210\202\314!\210\3030\207" [js2-EOF_CHAR js2-ts-string-buffer 1 nil return js2-get-char eql 60 62 0 throw t js2-xml-discard-string] 6 (#$ . 1077317)]) #@49 Scan an XML processing instruction. (fn TOKEN) (defalias 'js2-read-PI #[257 "\302\3032>\304 \211\262U\2048\211\211 B\211\266\211\305=\203\306 \307=\203\304 \262\211\211 B\211\266\310\303\311\"\210\202\312!\210\3020\207" [js2-EOF_CHAR js2-ts-string-buffer nil return js2-get-char 63 js2-peek-char 62 throw t js2-xml-discard-string] 5 (#$ . 1077662)]) #@96 Fontify a region. If RECORD is non-nil, record for later. (fn BEG END FACE &optional RECORD) (defalias 'js2-set-face #[1027 "\211\302V\262\2050d^\262e]\262d^\262e]\262\211\203*E B\211\207\303\304$\207" [js2-highlight-level js2-mode-fontifications 0 put-text-property font-lock-face] 9 (#$ . 1078035)]) #@16 (fn BEG END) (defalias 'js2-clear-face #[514 "\300\301#\207" [remove-text-properties (font-lock-face nil help-echo nil point-entered nil cursor-sensor-functions nil c-in-sws nil)] 6 (#$ . 1078364)]) (put 'js2-clear-face 'byte-optimizer 'byte-compile-inline-expand) #@92 Value properties of the Ecma-262 Global Object. Shown at or above `js2-highlight-level' 2. (defconst js2-ecma-global-props "^\\(Infinity\\|NaN\\|arguments\\|undefined\\)$" (#$ . 1078639)) #@97 Value properties of the Ecma-262 Object constructor. Shown at or above `js2-highlight-level' 2. (defconst js2-ecma-object-props "^\\(__p\\(?:\\(?:arent\\|roto\\)__\\)\\|prototype\\)$" (#$ . 1078833)) #@95 Function properties of the Ecma-262 Global object. Shown at or above `js2-highlight-level' 2. (defconst js2-ecma-global-funcs "^\\(decodeURI\\(?:Component\\)?\\|e\\(?:ncodeURI\\(?:Component\\)?\\|val\\)\\|is\\(?:Finite\\|NaN\\)\\|parse\\(?:\\(?:Floa\\|In\\)t\\)\\)$" (#$ . 1079039)) #@91 Properties of the Ecma-262 Number constructor. Shown at or above `js2-highlight-level' 2. (defconst js2-ecma-number-props "^\\(M\\(?:\\(?:AX\\|IN\\)_VALUE\\)\\|N\\(?:EGATIVE_INFINITY\\|aN\\)\\|POSITIVE_INFINITY\\)$" (#$ . 1079328)) #@89 Properties of the Ecma-262 Date constructor. Shown at or above `js2-highlight-level' 2. (defconst js2-ecma-date-props "^\\(parse\\|UTC\\)$" (#$ . 1079566)) #@84 Properties of the Ecma-262 Math object. Shown at or above `js2-highlight-level' 2. (defconst js2-ecma-math-props "^\\(E\\|L\\(?:N\\(?:10\\|2\\)\\|OG\\(?:\\(?:10\\|2\\)E\\)\\)\\|PI\\|SQRT\\(?:\\(?:1_\\)?2\\)\\)$" (#$ . 1079728)) #@93 Function properties of the Ecma-262 Math object. Shown at or above `js2-highlight-level' 2. (defconst js2-ecma-math-funcs "^\\(a\\(?:bs\\|cos\\|sin\\|tan2?\\)\\|c\\(?:eil\\|os\\)\\|exp\\|floor\\|log\\|m\\(?:ax\\|in\\)\\|pow\\|r\\(?:andom\\|ound\\)\\|s\\(?:in\\|qrt\\)\\|tan\\)$" (#$ . 1079962)) #@112 Built-in functions defined by Ecma-262 and SpiderMonkey extensions. Shown at or above `js2-highlight-level' 3. (defconst js2-ecma-function-props "^\\(__\\(?:\\(?:define\\(?:[GS]etter\\)\\|lookup\\(?:[GS]etter\\)\\|noSuchMethod\\)__\\)\\|apply\\|c\\(?:all\\|\\(?:har\\(?:\\(?:Code\\)?A\\)\\|onca\\)t\\)\\|e\\(?:very\\|xec\\)\\|f\\(?:ilter\\|orEach\\|romCharCode\\)\\|get\\(?:Da\\(?:te\\|y\\)\\|FullYear\\|Hours\\|M\\(?:i\\(?:\\(?:llisecond\\|nute\\)s\\)\\|onth\\)\\|Seconds\\|Time\\(?:zoneOffset\\)?\\|UTC\\(?:Da\\(?:te\\|y\\)\\|FullYear\\|Hours\\|M\\(?:i\\(?:\\(?:llisecond\\|nute\\)s\\)\\|onth\\)\\|Seconds\\)\\)\\|hasOwnProperty\\|i\\(?:\\(?:ndex\\|sPrototype\\)Of\\)\\|join\\|l\\(?:astIndexOf\\|ocaleCompare\\)\\|ma\\(?:p\\|tch\\)\\|p\\(?:arse\\|op\\|ropertyIsEnumerable\\|ush\\)\\|re\\(?:\\(?:plac\\|vers\\)e\\)\\|s\\(?:e\\(?:arch\\|t\\(?:Date\\|FullYear\\|Hours\\|M\\(?:i\\(?:\\(?:llisecond\\|nute\\)s\\)\\|onth\\)\\|Seconds\\|Time\\|UTC\\(?:Date\\|FullYear\\|Hours\\|M\\(?:i\\(?:\\(?:llisecond\\|nute\\)s\\)\\|onth\\)\\|Seconds\\)\\)\\)\\|hift\\|lice\\|o\\(?:me\\|rt\\)\\|pli\\(?:ce\\|t\\)\\|tringify\\|ubstring\\)\\|t\\(?:est\\|o\\(?:DateString\\|Exponential\\|Fixed\\|Lo\\(?:cale\\(?:DateString\\|LowerCase\\|String\\|TimeString\\|UpperCase\\)\\|werCase\\)\\|Precision\\|S\\(?:ource\\|tring\\)\\|TimeString\\|U\\(?:TCString\\|pperCase\\)\\)\\)\\|unshift\\|valueOf\\)$" (#$ . 1080264)) #@34 (fn PARENT TARGET PROP CALL-P) (defalias 'js2-parse-highlight-prop-get #[1028 "\205\306!>\205\306!>\204\307\310\311D\"\210\312H\2054\306!>\2041\307\310\311D\"\210\312H \313Y \314Y\2053\203\223\203\204\203\204\211\203Z\315\n\"\203Z\316\202\315\205\315\205\315\317\230\203s\315 \"\205\315\316\202\315\320\230\205\315\315\f\"\205\315\316\202\315\205\315\315 \"\205\315\316\202\315\203\300\203\300\321\230\203\256\315\"\205\315\322\202\315\320\230\205\315\315\"\205\315\322\202\315\205\315\315\"\205\315\322\211\204\341\203\341\204\341\203\341\323\262\211\2051\306 !>\204\367\307\310\324 D\"\210\313H\306!>\204 \307\310\324\nD\"\210\313H\\\325\211\306 !>\204'\307\310\324 D\"\210\n\314H\\\326$\262\262\207" [cl-struct-js2-name-node-tags js2-highlight-level js2-ecma-function-props js2-ecma-date-props js2-ecma-math-funcs js2-ecma-global-funcs type-of signal wrong-type-argument js2-name-node 6 2 3 string-match font-lock-builtin-face "Date" "Math" "Number" font-lock-constant-face js2-object-property-access js2-node js2-set-face record js2-ecma-number-props js2-ecma-math-props js2-ecma-object-props cl-struct-js2-node-tags] 17 (#$ . 1081663)]) #@137 Perform syntax highlighting of EcmaScript built-in properties. The variable `js2-highlight-level' governs this highlighting. (fn NODE) (defalias 'js2-parse-highlight-member-expr-node #[257 "\305\211\211\211\211\211\211\211\211\306\n!>\203w\306\n!>\204#\307\310\311\fD\"\210 \312H\262\205/\313 \"\2056\314\262 \205/\306\n!\n>\204N\307\310\315\fD\"\210 \316H\262\306 !\n>\204f\307\310\315 D\"\210\n\317H\\\262\320 \321$\202/\306\n! >\204\273\306\n!\f>\205\212\322\211\262\205/\306\n!\f>\204\241\307\310\323\fD\"\210 \312H\211\262\205/\306! >\204\273\306!>\205/ \262\203\307\211\202\311 \262\n\203\335\306!>\203\335\211\262\202 \306\n! >\204\356\307\310\324\fD\"\210 \325H\262\306\n! >\204\307\310\324\fD\"\210 \326H\262\306!>\203\327  $\202/\306!>\205/\327 \305$\207" [cl-struct-js2-name-node-tags js2-ecma-global-props cl-struct-js2-node-tags cl-struct-js2-prop-get-node-tags cl-struct-js2-call-node-tags nil type-of signal wrong-type-argument js2-name-node 6 string-match font-lock-constant-face js2-node 2 3 js2-set-face record t js2-call-node js2-prop-get-node 7 8 js2-parse-highlight-prop-get] 15 (#$ . 1082926)]) #@272 Highlight the `baz' in function foo.bar.baz(args) {...}. This is experimental Rhino syntax. EXPR is the foo.bar.baz member expr. We currently only handle the case where the last component is a prop-get of a simple name. Called before EXPR has a parent node. (fn EXPR) (defalias 'js2-parse-highlight-member-expr-fn-name #[257 "\303\304!>\205\304!>\204\305\306\307D\"\210\310H\304! >\205e\311\304!\n>\2044\305\306\312D\"\210\313H\304!\n>\204F\305\306\312D\"\210\313H\\\211\262\304!\n>\204^\305\306\312D\"\210\314H\\\315\316$\207" [cl-struct-js2-prop-get-node-tags cl-struct-js2-name-node-tags cl-struct-js2-node-tags nil type-of signal wrong-type-argument js2-prop-get-node 8 js2-set-face js2-node 2 3 font-lock-function-name-face record] 10 (#$ . 1084141)]) #@64 Matches jsdoc tags with optional type and optional param name. (defconst js2-jsdoc-param-tag-regexp "^\\s-*\\*+\\s-*\\(@\\(?:arg\\(?:ument\\)?\\|p\\(?:aram\\|rop\\(?:erty\\)?\\)\\|typedef\\)\\)\\s-*\\({[^}]+}\\)?\\s-*\\[?\\([[:alnum:]_$.]+\\)?\\]?\\_>" (#$ . 1084935)) #@40 Matches jsdoc tags with optional type. (defconst js2-jsdoc-typed-tag-regexp "^\\s-*\\*+\\s-*\\(@\\(?:\\(?:e\\(?:num\\|xtends\\)\\|field\\|i\\(?:d\\|mplements\\)\\|lends\\|mods\\|re\\(?:quires\\|turns?\\)\\|t\\(?:hrows?\\|ype\\)\\|yields?\\)\\)\\)\\s-*\\({[^}]+}\\)?" (#$ . 1085210)) #@44 Matches jsdoc tags with a single argument. (defconst js2-jsdoc-arg-tag-regexp "^\\s-*\\*+\\s-*\\(@\\(?:\\(?:a\\(?:\\(?:lia\\|ugment\\)s\\)\\|b\\(?:ase\\|orrows\\|ug\\)\\|c\\(?:allback\\|onfig\\)\\|def\\(?:ault\\|ine\\)\\|exception\\|func\\(?:tion\\)?\\|m\\(?:e\\(?:mber\\(?:Of\\)?\\|thod\\)\\|odule\\)\\|name\\(?:space\\)?\\|s\\(?:ince\\|uppress\\)\\|th\\(?:\\(?:i\\|row\\)s\\)\\|version\\)\\)\\)\\s-+\\([^ \n]+\\)" (#$ . 1085499)) #@27 Matches empty jsdoc tags. (defconst js2-jsdoc-empty-tag-regexp "^\\s-*\\*+\\s-*\\(@\\(?:\\(?:a\\(?:bstract\\|ddon\\|uthor\\)\\|c\\(?:lass\\|onst\\(?:ant\\|ruct\\(?:or\\|s\\)\\)?\\)\\|de\\(?:precated\\|sc\\(?:ription\\)?\\)\\|e\\(?:vent\\|x\\(?:ample\\|ec\\|port\\)\\)\\|f\\(?:i\\(?:leoverview\\|nal\\)\\|unc\\(?:tion\\)?\\)\\|hidden\\|i\\(?:gnore\\|mplicitCast\\|n\\(?:heritDoc\\|ner\\|terface\\)\\)\\|license\\|method\\|no\\(?:alias\\|shadow\\|typecheck\\)\\|o\\(?:verride\\|wner\\)\\|p\\(?:r\\(?:eserve\\(?:Try\\)?\\|ivate\\|otected\\)\\|ublic\\)\\|s\\(?:tatic\\|upported\\)\\|virtual\\)\\)\\)\\s-*" (#$ . 1085938)) #@35 Matches a jsdoc link or code tag. (defconst js2-jsdoc-link-tag-regexp "{\\(@\\(?:link\\|code\\)\\)\\s-+\\([^#}\n]+\\)\\(#.+\\)?}" (#$ . 1086562)) #@27 Matches a jsdoc @see tag. (defconst js2-jsdoc-see-tag-regexp "^\\s-*\\*+\\s-*\\(@see\\)\\s-+\\([^#}\n]+\\)\\(#.+\\)?" (#$ . 1086714)) #@58 Matches a simple (no attributes) html start- or end-tag. (defconst js2-jsdoc-html-tag-regexp "\\(\\)" (#$ . 1086854)) (defalias 'js2-jsdoc-highlight-helper #[0 "\300\301\224\301\225\302#\210\303\224\203/\212\303\224b\210\304f\305U)\203'\300\303\224T\303\225S\306#\210\202/\300\303\224\303\225\307#\210\310\224\205;\300\310\224\310\225\307#\207" [js2-set-face 1 js2-jsdoc-tag 2 nil 123 js2-jsdoc-type js2-jsdoc-value 3] 4]) #@39 Highlight doc comment tags. (fn AST) (defalias 'js2-highlight-jsdoc #[257 "\306!>\204\307\310\311D\"\210\211\312H\313\211\212\211\205\261\211@\306! >\204+\307\310\314D\"\210\211\315H\316=\203\252\317\320!\\\262\321\322\306!\n>\204M\307\310\323D\"\210\324H#\262\214}\210 \f \257\211\203\201\211@b\210\325\313\326#\203z\327 \210\202lA\266\202\202c\210b\210\325\313\326#\203\251\330\331\224\331\225\332#\210\330\317\224\317\225\333#\210\330\324\224\324\225\332#\210\202\205)A\266\202\202\262)\207" [cl-struct-js2-ast-root-tags cl-struct-js2-comment-node-tags cl-struct-js2-node-tags js2-jsdoc-param-tag-regexp js2-jsdoc-typed-tag-regexp js2-jsdoc-arg-tag-regexp type-of signal wrong-type-argument js2-ast-root 18 nil js2-comment-node 6 jsdoc 2 js2-node-abs-pos + -4 js2-node 3 re-search-forward t js2-jsdoc-highlight-helper js2-set-face 1 js2-jsdoc-html-tag-delimiter js2-jsdoc-html-tag-name js2-jsdoc-link-tag-regexp js2-jsdoc-see-tag-regexp js2-jsdoc-empty-tag-regexp js2-jsdoc-html-tag-regexp] 13 (#$ . 1087322)]) #@77 Highlight function properties and external variables. (fn NODE LEFT RIGHT) (defalias 'js2-highlight-assign-targets #[771 "\305\211\306!>\204\306! >\205z\306!\n>\203 \262\202W\306! >\203W\306\211! >\2049\307\310\311D\"\210\312H!\n>\203W\306! >\204R\307\310\311D\"\210\312H\262\211\205z\313\314!\211\262\306!\f>\204s\307\310\315D\"\210\316H\\\317\320$\207" [cl-struct-js2-function-node-tags cl-struct-js2-class-node-tags cl-struct-js2-name-node-tags cl-struct-js2-prop-get-node-tags cl-struct-js2-node-tags nil type-of signal wrong-type-argument js2-prop-get-node 8 js2-set-face js2-node-abs-pos js2-node 3 font-lock-function-name-face record] 12 (#$ . 1088388)]) #@120 Saves NODE to `js2-recorded-identifiers' to check for undeclared variables later. NODE must be a name node. (fn NODE) (defalias 'js2-record-name-node #[257 "\303!\211\304! >\204\305\306\307D\"\210\310H\\F\nB\211\207" [js2-current-scope cl-struct-js2-node-tags js2-recorded-identifiers js2-node-abs-pos type-of signal wrong-type-argument js2-node 3] 10 (#$ . 1089092)]) #@884 After entire parse is finished, look for undeclared variable references. We have to wait until entire buffer is parsed, since JavaScript permits var declarations to occur after they're used. Some identifiers may be assumed to be externally defined. These externs are not highlighted, even if there is no declaration for them in the source code (in the current file). The list of externs consists of the following: - `js2-ecma262-externs' for basic names from the ECMAScript language standard. - Depending on the buffer-local variables `js2-include-*-externs' the corresponding `js2-*-externs' to add names for certain environments like the browser, Node or Rhino. - Two customizable lists `js2-global-externs' and `js2-additional-externs', the latter of which should be set per-buffer. See especially `js2-additional-externs' for further details about externs. (defalias 'js2-highlight-undeclared-vars #[0 "\306 \205 \n\307Y\205 \f\205 \205 \204\"\205$ \205*&\310\211\205\247\211@\211\211G\311U\203F\211A\262\242\202M\312\313\310GD\"\211A\262\242\211A\262\242@\314!>\204l\312\315\316D\"\210\317H\262\235\204\236 \235\204\236\235\204\236\320 #\204\236\321\322 Z\323%\210\266A\266\202\202/\262\207" [js2-ecma-262-externs js2-include-browser-externs js2-language-version js2-harmony-externs js2-include-rhino-externs js2-rhino-externs append 200 nil 4 signal wrong-number-of-arguments type-of wrong-type-argument js2-name-node 6 js2-get-defining-scope js2-report-warning "msg.undeclared.variable" js2-external-variable js2-include-node-externs js2-node-externs js2-typed-array-externs js2-browser-externs js2-recorded-identifiers cl-struct-js2-name-node-tags js2-global-externs js2-additional-externs] 15 (#$ . 1089481)]) #@352 Add or update SYMBOL entry in VARS, an hash table. SYMBOL is a js2-name-node, INITION either nil, t, or ?P, respectively meaning that SYMBOL is a mere declaration, an assignment or a function parameter; when USED is t, the symbol node is assumed to be an usage and thus added to the list stored in the cdr of the entry. (fn SYMBOL INITION USED VARS) (defalias 'js2--add-or-update-symbol #[1028 "\302!>\204\303\304\305D\"\210\306H\307!\310\"\211\205\215\311\232?\205\215\312\"\313\"\302! >\2057\314\204?\211\262 \203o\203T@\315\232\204T \240\210\205\213 A>?\205\213\211 AB\241\262\202\213\211\203{\203{\316\262\317\n\n\205\207\fCB #\266\203\207" [cl-struct-js2-name-node-tags cl-struct-js2-catch-node-tags type-of signal wrong-type-argument js2-name-node 6 js2-node-get-enclosing-scope js2-get-defining-scope "arguments" js2-scope-get-symbol gethash t 80 nil puthash] 14 (#$ . 1091299)]) #@241 Collect the `js-name-node' symbols declared in NODE and return a list of them. NODE is either `js2-array-node', `js2-object-node', or `js2-name-node'. When STRICT, signal an error if NODE is not one of the expected types. (fn NODE STRICT) (defalias 'js2--collect-target-symbols #[514 "\306\307!>\203B\262\202\247\307! >\203\207\307! >\204(\310\311\312D\"\210\313H\211\203\203\211@\211\203|\307!\n>\203R\307!\n>\204L\310\311\314D\"\210\211\315H\202p\307! >\203o\307! >\204i\310\311\316D\"\210\211\313H\202p\211\262\317\320\"\"\262A\266\202\202+\210\202\247\307!\f>\203\\\307!\f>\204\236\310\311\321D\"\210\313H\211\203X\211@\307!\n>\203\333 \307!\n>\204\277\310\311\314D\"\210\322HU\203\333\307!\n>\204\325\310\311\314D\"\210\211\315H\202B\307!\n>\203\307!\n>\204\364\310\311\314D\"\210\322HU\203\307!\n>\204\n\310\311\314D\"\210\211\323H\202B\307! >\205B\307! >\204)\310\311\316D\"\210\322HU\205B\307! >\204?\310\311\316D\"\210\211\313H\211\203P\317\320\"\"\262\210A\266\202\202\241\210\202\247\307!>\203\204\317\320\307!>\204x\310\311\324D\"\210\315H\"\"\262\202\247\203\247\325\326\306\327!\307!>\204\241\310\311\330 D\"\210\331H$\210\211\207" [cl-struct-js2-name-node-tags cl-struct-js2-array-node-tags cl-struct-js2-infix-node-tags cl-struct-js2-unary-node-tags cl-struct-js2-object-node-tags js2-ASSIGN nil type-of signal wrong-type-argument js2-array-node 6 js2-infix-node 7 js2-unary-node append js2--collect-target-symbols js2-object-node 1 8 js2-assign-node js2-report-error "msg.no.parm" js2-node-abs-pos js2-node 3 js2-COLON js2-TRIPLEDOT cl-struct-js2-assign-node-tags cl-struct-js2-node-tags] 11 (#$ . 1092248)]) #@305 Examine the usage of the variable NODE, a js2-name-node. PARENT is its direct ancestor and VAR-INIT-NODE is the node to be examined: return a list of three values, respectively if the variable is declared and/or assigned or whether it is simply a key of a literal object. (fn PARENT NODE VAR-INIT-NODE) (defalias 'js2--examine-variable #[771 "\305!>\204\306\307\310D\"\210\211\311H\312\211\211\313\312\">\262\305!>\204-\306\307\310D\"\210\314H\203z\262\204z\305! >\203z\305! >\204U\306\307\315\nD\"\210\314H=\203z\305! >\204o\306\307\315\nD\"\210\316H=\204z\317\262\2041\305!\n>\204\217\306\307\320 D\"\210\321H\211\205\251\305!\n>\204\246\306\307\320D\"\210\211\321H\211\203/\305! >\203/\305\211! >\204\307\306\307\322D\"\210\323H!\f>\204\351\306\307\324\305! >\204\343\306\307\322D\"\210\323HD\"\210\305! >\204\370\306\307\322D\"\210\323H\311H\312\211:\203*@\262\325\313\305!>\204\306\307\310D\"\210\311H\312\"\"\262A\262\202\377\266\202>\262\266E\207" [cl-struct-js2-var-init-node-tags cl-struct-js2-object-prop-node-tags cl-struct-js2-node-tags cl-struct-js2-for-in-node-tags cl-struct-js2-var-decl-node-tags type-of signal wrong-type-argument js2-var-init-node 6 nil js2--collect-target-symbols 7 js2-object-prop-node 8 t js2-node 5 js2-for-in-node 13 js2-var-decl-node append] 20 (#$ . 1094000)]) #@86 Recursively determine whether VAR-NODE is contained in PARAMS. (fn VAR-NODE PARAMS) (defalias 'js2--is-param #[514 "\302!>\203\302!>\204\303\304\305D\"\210\306H=\207\302! >\203)=\207\211<\2034>\202U\307\310!\307:\203R@\262\204R=\262A\262\2029\307\266\203\211\204\204<\203b\202e\310!\211\307:\203\202@\262\204\202\311\"\262A\262\202g\266\211\207" [cl-struct-js2-object-prop-node-tags cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-object-prop-node 7 nil js2-node-child-list js2--is-param] 9 (#$ . 1095401)]) #@75 Determine whether VAR-NODE is a function parameter. (fn PARENT VAR-NODE) (defalias 'js2--is-function-param #[514 "\2039\304!>\2049\304! >\204\304!\n>\203\"\305\262\202\304! >\2041\306\307\310D\"\210\311H\262\202\205S\312\304!>\204O\306\307\313D\"\210\314H\"\207" [cl-struct-js2-function-node-tags cl-struct-js2-var-init-node-tags cl-struct-js2-assign-node-tags cl-struct-js2-node-tags type-of nil signal wrong-type-argument js2-node 5 js2--is-param js2-function-node 20] 8 (#$ . 1095988)]) #@106 Classify the single variable NODE, a js2-name-node, updating the VARS collection. (fn PARENT NODE VARS) (defalias 'js2--classify-variable #[771 "\306\"\307!>\2033\307!>\204\310\311\312D\"\210\313H\307! >\205.\314\315\316$\262\202\305\307!\n>\203m\307!\n>\204K\310\311\317D\"\210\313H=\205i\307!\n>\204c\310\311\317D\"\210\320H=??\205\305\315\211\211\211\211?\203\304\307! >\204\304\307!\f>\203\230\204\251\262\202\251\307! >\203\251\204\251\262\307!>\204\273\310\311\321 D\"\210\322H\262\202v\203\340\323  #\211@\262\211A@\262\211AA@\262\210?\205\303\203\355\324\262\204\264\307 !>\203 \307\f!>\204\310\311\325D\"\210 \326H=\262?\262\202\264\307 !>\2033\316\262\327 !\262\202\264\307 !\n>\203i\307\211\f!>\204O\310\311\321D\"\210 \322H!>\203c\316\262\316\262\202\264\316\262\202\264\307 !>\203|\316\262\315\262\202\264\307 !>\203\217\316\262\316\262\202\264\203\264 \330\307! >\204\247\310\311\331 D\"\210\313H\315\">\262?\262\203\273\315\262\314\n\f$\266\207\207" [cl-struct-js2-prop-get-node-tags cl-struct-js2-name-node-tags cl-struct-js2-export-binding-node-tags cl-struct-js2-scope-tags cl-struct-js2-var-init-node-tags cl-struct-js2-assign-node-tags js2--is-function-param type-of signal wrong-type-argument js2-prop-get-node 7 js2--add-or-update-symbol nil t js2-export-binding-node 6 js2-node 5 js2--examine-variable 80 js2-for-in-node 13 js2-wrapper-function-p js2--collect-target-symbols js2-assign-node cl-struct-js2-node-tags cl-struct-js2-for-in-node-tags cl-struct-js2-function-node-tags cl-struct-js2-import-clause-node-tags cl-struct-js2-namespace-import-node-tags cl-struct-js2-class-node-tags] 17 (#$ . 1096515)]) #@477 Collect and classify variables declared or used within js2-mode-ast. Traverse the whole ast tree returning a summary of the variables usage as an hash-table, keyed by their corresponding symbol table entry. Each variable is described by a tuple where the car is a flag indicating whether the variable has been initialized and the cdr is a possibly empty list of name nodes where it is used. External symbols, i.e. those not present in the whole scopes hierarchy, are ignored. (defalias 'js2--classify-variables #[0 "\301\302\303\304\305$\306\307\310\311\312\313!\314\"\315\316%\"\210\211\207" [js2-mode-ast make-hash-table :test eq :size 100 js2-visit-ast make-byte-code 514 "\211\204)\303! >\203)\303!\n>\204\304\305\306D\"\210\307H\211\203(\310\300#\210\210\311\207" vconcat vector [cl-struct-js2-name-node-tags cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 5 js2--classify-variable t] 7 "\n\n(fn NODE END-P)"] 9 (#$ . 1098319)]) #@13 (fn NODE) (defalias 'js2--get-name-node #[257 "\304!>\203 \207\304! >\203$\304! >\204 \305\306\307D\"\210\211\310H\207\304!\n>\203?\304!\n>\204;\305\306\311D\"\210\211\312H\207\304! >\203Z\304! >\204V\305\306\313D\"\210\211\314H\207\207" [cl-struct-js2-name-node-tags cl-struct-js2-function-node-tags cl-struct-js2-class-node-tags cl-struct-js2-comp-loop-node-tags type-of signal wrong-type-argument js2-function-node 19 js2-class-node 8 js2-comp-loop-node 13] 5 (#$ . 1099293)]) #@20 (fn SYMBOL INFO) (defalias 'js2--highlight-unused-variable #[514 "\303!>\204\304\305\306D\"\210\307H@A\310\211\205?\205\253\203\\\211\205W\211@\311!\262\303! >\204@\304\305\312D\"\210\211\313H\262\314\315\316%\210A\266\202\202&\262\202\253\n\204g\317=?\205\253\303!>\204x\304\305\306 D\"\210\313H\320!\321!?\205\251\311!\262\303! >\204\232\304\305\312D\"\210\211\313H\262\314\322\316%\266\202\207" [cl-struct-js2-symbol-tags cl-struct-js2-name-node-tags js2-warn-about-unused-function-arguments type-of signal wrong-type-argument js2-symbol 2 nil js2-node-abs-pos js2-name-node 3 js2-report-warning "msg.uninitialized.variable" js2-warning 80 js2--get-name-node js2-node-top-level-decl-p "msg.unused.variable"] 15 (#$ . 1099799)]) #@29 Highlight unused variables. (defalias 'js2-highlight-unused-variables #[0 "\300 \301\302\"\207" [js2--classify-variables maphash js2--highlight-unused-variable] 4 (#$ . 1100596)]) #@139 Non-nil if Js2-Highlight-Unused-Variables mode is enabled. Use the command `js2-highlight-unused-variables-mode' to change this variable. (defvar js2-highlight-unused-variables-mode nil (#$ . 1100784)) (make-variable-buffer-local 'js2-highlight-unused-variables-mode) #@59 Toggle highlight of unused variables. (fn &optional ARG) (defalias 'js2-highlight-unused-variables-mode #[256 "\301 \302=\203 ?\202\303!\304V\211\203!\305\306\307\310\311$\210\202'\312\306\307\311#\210\313\314\2031\315\2022\316\"\210\317\320!\203V\301 \203F\211\301 \232\203V\321\322\323\203Q\324\202R\325#\266\210\326 \210\207" [js2-highlight-unused-variables-mode current-message toggle prefix-numeric-value 0 add-hook js2-post-parse-callbacks js2-highlight-unused-variables nil t remove-hook run-hooks js2-highlight-unused-variables-mode-hook js2-highlight-unused-variables-mode-on-hook js2-highlight-unused-variables-mode-off-hook called-interactively-p any " in current buffer" message "Js2-Highlight-Unused-Variables mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 1101058) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar js2-highlight-unused-variables-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [js2-highlight-unused-variables-mode-map js2-highlight-unused-variables-mode-hook variable-documentation put "Hook run after entering or leaving `js2-highlight-unused-variables-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode js2-highlight-unused-variables-mode "" boundp nil] 6) #@16 (fn EXTERNS) (defalias 'js2-add-additional-externs #[257 "\211\244\211\207" [js2-additional-externs] 3 (#$ . 1102467)]) #@16 (fn COMMENT) (defalias 'js2-get-jslint-comment-identifiers #[257 "\304 \210\305! >\204\306\307\310D\"\210\311H\312\211:\203q@\262\305!\n>\204/\306\307\313D\"\210\314H\315=\203j\212\316!b\210\317\320\321Q!)\203j\322\323\324\225\316!\305! >\204^\306\307\325D\"\210\326H\\\262\"!\244\262A\262\202\211\237\207" [js2-mode-ast cl-struct-js2-ast-root-tags cl-struct-js2-comment-node-tags cl-struct-js2-node-tags js2-reparse type-of signal wrong-type-argument js2-ast-root 18 nil js2-comment-node 6 block js2-node-abs-pos looking-at "/\\* *" "\\(?: \\|$\\)" reverse js2-get-jslint-comment-identifiers-in 0 js2-node 3] 13 (#$ . 1102597)]) #@16 (fn BEG END) (defalias 'js2-get-jslint-comment-identifiers-in #[514 "\301\212b\210\302\303#\203\304\305!\211\306\235\204\211B\262\210\202)\211\237\207" [js2-mode-identifier-re nil re-search-forward t match-string 0 ("true" "false")] 7 (#$ . 1103265)]) (defalias 'js2-apply-jslint-globals #[0 "\300\301 !\207" [js2-add-additional-externs js2-get-jslint-globals] 2]) (defalias 'js2-get-jslint-globals #[0 "\300\301!\207" [js2-get-jslint-comment-identifiers "global"] 2]) (defalias 'js2-apply-jslint-declaration-externs #[0 "\300\301 !\207" [js2-add-additional-externs js2-get-jslint-declaration-externs] 2]) (defvar js2-jslint-declaration-externs (byte-code "\300\301\302\303\"B\304\301\302\305\"B\306\301\302\307\"B\310\301\302\311\"B\312\301\302\313\"B\257\207" ["browser" mapcar symbol-name (Audio clearInterval clearTimeout document event history Image location name navigator Option screen setInterval setTimeout XMLHttpRequest) "node" (Buffer clearImmediate clearInterval clearTimeout console exports global module process querystring require setImmediate setInterval setTimeout __dirname __filename) "es6" (ArrayBuffer DataView Float32Array Float64Array Int8Array Int16Array Int32Array Intl Map Promise Proxy Reflect Set Symbol System Uint8Array Uint8ClampedArray Uint16Array Uint32Array WeakMap WeakSet) "couch" (emit getRow isArray log provides registerType require send start sum toJSON) "devel" (alert confirm console Debug opera prompt WSH)] 8)) (defalias 'js2-get-jslint-declaration-externs #[0 "\300\301\302\303\304\305!\"\"\207" [apply append mapcar #[257 "\301\"A\207" [js2-jslint-declaration-externs assoc] 4 "\n\n(fn IDENTIFIER)"] js2-get-jslint-comment-identifiers "jslint"] 6]) #@218 Return the name of a node that may be a property-get/property-name. If NODE is not a valid name-node, string-node or integral number-node, returns nil. Otherwise returns the string name/value of the node. (fn NODE) (defalias 'js2-prop-node-name #[257 "\306!>\203\306!>\204\307\310\311D\"\210\211\312H\207\306! >\2036\306! >\2042\307\310\313D\"\210\211\312H\207\306!\n>\203i\314\315\306!\n>\204O\307\310\316D\"\210\312H\"\203i\306!\n>\204e\307\310\316D\"\210\211\312H\207\306! >\204x\307\310\317D\"\210\211\320H\f=\203\202\321\207\306! >\204\221\307\310\317D\"\210\211\320H =\205\232\322\207" [cl-struct-js2-name-node-tags cl-struct-js2-string-node-tags cl-struct-js2-number-node-tags cl-struct-js2-node-tags js2-THIS js2-SUPER type-of signal wrong-type-argument js2-name-node 6 js2-string-node string-match "^[0-9]+$" js2-number-node js2-node 1 "this" "super"] 7 (#$ . 1104984)]) #@116 Return the name of this node, if it contributes to a qname. Returns nil if the node doesn't contribute. (fn NODE) (defalias 'js2-node-qname-component #[257 "\303\304!\206v\305!>\203m\305!>\204\306\307\310D\"\210\311H\203m\305\211!>\2044\306\307\310D\"\210\311H! >\204V\306\307\312\305!>\204P\306\307\310D\"\210\311HD\"\210\305!>\204e\306\307\310D\"\210\311H\313H\202v\305!\n>\205v\314!\207" [cl-struct-js2-function-node-tags cl-struct-js2-name-node-tags cl-struct-js2-computed-prop-name-node-tags copy-sequence js2-prop-node-name type-of signal wrong-type-argument js2-function-node 19 js2-name-node 6 "[computed]"] 9 (#$ . 1105905)]) #@319 Add an entry to `js2-imenu-recorder'. FN-NODE should be the current item's function node. Associate FN-NODE with its QNAME for later lookup. This is used in postprocessing the chain list. For each chain, we find the parent function, look up its qname, then prepend a copy of it to the chain. (fn FN-NODE QNAME POS) (defalias 'js2-record-imenu-entry #[771 "\302C\"BB \204\303\304\305\"\306 #\207" [js2-imenu-recorder js2-imenu-function-map append make-hash-table :test eq puthash] 7 (#$ . 1106580)]) #@229 Record function definitions for imenu. NODE is a function node or an object literal. VAR, if non-nil, is the expression that NODE is being assigned to. When passed arguments of wrong type, does nothing. (fn NODE &optional VAR) (defalias 'js2-record-imenu-functions #[513 "\205\235\304! >\205 \305\306\211\203M\204M\304! >\204'\307\310\311D\"\210\312H\211\262\203M\313C\304!\n>\204E\307\310\314\nD\"\210\315H#\202\233\205\233\316!\211\262\205\233\203z\313\304!\n>\204r\307\310\314\nD\"\210\315H#\202\233\304! >\205\233\317\304!\n>\204\226\307\310\314\nD\"\210\315H#\266\203\207" [js2-parse-ide-mode cl-struct-js2-function-node-tags cl-struct-js2-node-tags cl-struct-js2-object-node-tags type-of t nil signal wrong-type-argument js2-function-node 19 js2-record-imenu-entry js2-node 2 js2-compute-nested-prop-get js2-record-object-literal] 12 (#$ . 1107099)]) #@239 If NODE is of form foo.bar, foo['bar'], or any nested combination, return component nodes as a list. Otherwise return nil. Element-gets are treated as property-gets if the index expression is a string, or a positive integer. (fn NODE) (defalias 'js2-compute-nested-prop-get #[257 "\306\211\211\307!>\204,\307! >\204\310\311\312D\"\210\211\313H\211\n=\206'\211 =\266\202\2031C\202\336\307!\f>\203s\307!\f>\204I\310\311\314D\"\210\315H\262\307!\f>\204^\310\311\314D\"\210\316H\262\317!\211\262\205\336\211C\244\202\336\307! >\205\336\307! >\204\213\310\311\320D\"\210\321H\262\307! >\204\240\310\311\320D\"\210\315H\262\307!>\204\321\307!>\205\336\322\323\307!>\204\312\310\311\324D\"\210\321H\"\205\336\317!\211\262\205\336\211C\244\207" [cl-struct-js2-name-node-tags cl-struct-js2-node-tags js2-THIS js2-SUPER cl-struct-js2-prop-get-node-tags cl-struct-js2-elem-get-node-tags nil type-of signal wrong-type-argument js2-node 1 js2-prop-get-node 7 8 js2-compute-nested-prop-get js2-elem-get-node 6 string-match "^[0-9]+$" js2-number-node cl-struct-js2-string-node-tags cl-struct-js2-number-node-tags] 10 (#$ . 1108014)]) #@481 Recursively process an object literal looking for functions. NODE is an object literal that is the right-hand child of an assignment expression. QNAME is a list of nodes representing the assignment target, e.g. for foo.bar.baz = {...}, QNAME is (foo-node bar-node baz-node). POS is the absolute position of the node. We do a depth-first traversal of NODE. For any functions we find, we append the property name to QNAME, then call `js2-record-imenu-entry'. (fn NODE QNAME POS) (defalias 'js2-record-object-literal #[771 "\304\305!>\204\306\307\310D\"\210\311H\211\205\305\211@\305! >\203\276\305! >\2041\306\307\312D\"\210\211\313H\305!\n>\204D\306\307\314D\"\210\315H\\\305! >\204W\306\307\312D\"\210\316H\211\262\305! >\205f\317\262\203\320!\203\274\321\322 C\"#\210\202\274\305!>\203\274\323\322 \305! >\204\235\306\307\312 D\"\210\313HC\"\305 !\n>\204\265\306\307\314 D\"\210\315H\\#\210\266A\266\202\202\262\207" [cl-struct-js2-object-node-tags cl-struct-js2-infix-node-tags cl-struct-js2-node-tags cl-struct-js2-function-node-tags nil type-of signal wrong-type-argument js2-object-node 6 js2-infix-node 7 js2-node 2 8 t js2-prop-node-name js2-record-imenu-entry append js2-record-object-literal] 16 (#$ . 1109208)]) #@222 Return t if NODE's name is defined in the top-level scope. Also returns t if NODE's name is not defined in any scope, since it implies that it's an external variable, which must also be in the top-level scope. (fn NODE) (defalias 'js2-node-top-level-decl-p #[257 "\304!\305!\306\307!>\204\310\311\312D\"\210\211\313H\211 =\206#\211\n=\266\202\203,\306\202K\2044\314\202K\315\"\211\262\203J\307! >\205K\314\202K\314\207" [cl-struct-js2-node-tags js2-THIS js2-SUPER cl-struct-js2-ast-root-tags js2-prop-node-name js2-node-get-enclosing-scope nil type-of signal wrong-type-argument js2-node 1 t js2-get-defining-scope] 9 (#$ . 1110497)]) #@116 Return t if NODE is a function expression that's immediately invoked. NODE must be `js2-function-node'. (fn NODE) (defalias 'js2-wrapper-function-p #[257 "\305!>\204\306\307\310D\"\210\211\311H\305! >\2031\305! >\204*\306\307\312D\"\210\313H=\206\311\305!\n>\205\311\305!>\204H\306\307\310D\"\210\211\311H\211\262\305! >\205W\314\262\206\311\305! >\205\311\305\211! >\204t\306\307\315D\"\210\316H!\f>\204\226\306\307\317\305! >\204\220\306\307\315D\"\210\316HD\"\210\305! >\204\245\306\307\315D\"\210\211\316H\313H\320\235\205\311\305\211!>\204\277\306\307\310D\"\210\311H! >\205\311\314\207" [cl-struct-js2-node-tags cl-struct-js2-call-node-tags cl-struct-js2-paren-node-tags cl-struct-js2-prop-get-node-tags cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-node 5 js2-call-node 6 t js2-prop-get-node 8 js2-name-node ("call" "apply")] 9 (#$ . 1111161)]) #@214 Modify function-declaration name chains after parsing finishes. Some of the information is only available after the parse tree is complete. For instance, processing a nested scope requires a parent function node. (defalias 'js2-browse-postprocess-chains #[0 "\306\211\211\211\211\211\203\341\211@\211\211\203\211A\262\242\202!\307\310\306GD\"\211\2030\211A\262\242\2027\307\310\306GD\"\211;\204B\311!\203K\fB\262\f\202\330\211\312! >\204[\307\313\314D\"\210\211\315H\211\n=\206g\211 =\266\202\203pA\262\316!\211\262\f\203\330\317 \f\320#\262\n \320=\203\265\321 !\203\252\316 !\312! >\205\234\322?\205\245\317\f\323#\262\202\253\323\262\n\324  \f#\210 \323=\203\304\325\f\"\210\202\330\326\n\"\324\327!\f#\210\211 B\262 \210\266A\266\202\202\210\306\330\331!\210\211\203\375\211@\211AB\262A\266\202\202\351\210)\211\2034\211@\211\262\203-@\211\262\312! >\205\322\262\203&\332!\240\210A\262\202 A\266\202\202\210\207" [js2-imenu-recorder cl-struct-js2-node-tags js2-THIS js2-SUPER js2-imenu-function-map cl-struct-js2-ast-root-tags nil signal wrong-number-of-arguments js2-node-top-level-decl-p type-of wrong-type-argument js2-node 1 js2-node-parent-script-or-fn gethash not-found js2-wrapper-function-p t skip puthash remhash append butlast run-hooks js2-build-imenu-callbacks js2-node-qname-component] 17 (#$ . 1112089)]) #@51 Convert (a b c d) to (a ((b ((c d))))). (fn LST) (defalias 'js2-treeify #[257 "\211AA\204\207\211@\300A!CD\207" [js2-treeify] 4 (#$ . 1113504)]) #@193 Merge declaration name chains into a trie-like alist structure for imenu. CHAINS is the qname chain list produced during parsing. TRIE is a list of elements built up so far. (fn CHAINS TRIE) (defalias 'js2-build-alist-trie #[514 "\300C\300\211\211\211\211\203\275\211@@\240\210\211A\262@\247\205 @\262\301\302\303\304\305\306\f!\307\"\310\311% \"\262A@\262\204Y\203P\312!\313!C\241\210\202\266\313!C\262\202\266\247\203yA\314D\203o\315D\202s\313!D\240\210\202\266\203\257\312!\316\317\300\320:\203\242@\262@\320H\321=\203\233\211T\262A\262\202\205\266\202T\"DC\241\210\202\266\322C\"\210A\266\202\202\210\207" [nil js2-find-if make-byte-code 257 "\211@\300\242\230\207" vconcat vector [] 3 "\n\n(fn N)" last js2-treeify "" "" format "" 0 60 js2-build-alist-trie] 17 (#$ . 1113660)]) #@528 Convert TRIE to imenu-format. Recurses through nodes, and for each one whose second element is a list, appends the list's flattened elements to the current element. Also changes the tails into conses. For instance, this pre-flattened trie '(a ((b 20) (c ((d 30) (e 40))))) becomes '(a (b . 20) (c (d . 30) (e . 40))) Note that the root of the trie has no key, just a list of chains. This is also true for the value of any key with multiple children, e.g. key 'c' in the example above. (fn TRIE) (defalias 'js2-flatten-trie #[257 "\211@<\203 \300\301\"\207\211A@\247\203\211@A@B\207\302\303@C\301A!#\207" [mapcar js2-flatten-trie apply append] 6 (#$ . 1114559)]) #@57 Turn `js2-imenu-recorder' into an imenu data structure. (defalias 'js2-build-imenu-index #[0 "\301=\203\302\303 \304\302\"\305!\207" [js2-imenu-recorder empty nil js2-browse-postprocess-chains js2-build-alist-trie js2-flatten-trie] 4 (#$ . 1115266)]) #@176 Print a list of qname chains. Each element of CHAINS is a list of the form (NODE [NODE *] pos); i.e. one or more nodes, and an integer position as the list tail. (fn CHAINS) (defalias 'js2-test-print-chains #[257 "\300\301\302#\207" [mapconcat #[257 "\300\301\302\303#\304Q\207" ["(" mapconcat #[257 "\301!>\203\302!\206\303\207\304!\207" [cl-struct-js2-node-tags type-of js2-node-qname-component "nil" number-to-string] 3 "\n\n(fn ELEM)"] " " ")"] 6 "\n\n(fn CHAIN)"] "\n"] 5 (#$ . 1115530)]) #@34 Version of JavaScript supported. (defconst js2-version "1.8.5" (#$ . 1116041)) #@87 Record a style run of FACE for TOKEN or the current token. (fn FACE &optional TOKEN) (defalias 'js2-record-face #[513 "\211\204  H\262\303\304!\n>\204\305\306\307D\"\210\310H\304!\n>\204+\305\306\307D\"\210\311H\312$\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-set-face type-of signal wrong-type-argument js2-token 2 3 record] 8 (#$ . 1116126)]) #@182 Computes the absolute end of node N. Use with caution! Assumes `js2-node-pos' is -absolute-, which is only true until the node is added to its parent; i.e., while parsing. (fn N) (defalias 'js2-node-end #[257 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\306H\\\207" [cl-struct-js2-node-tags type-of signal wrong-type-argument js2-node 2 3] 6 (#$ . 1116519)]) (put 'js2-node-end 'byte-optimizer 'byte-compile-inline-expand) #@57 Record a comment in `js2-scanned-comments'. (fn TOKEN) (defalias 'js2-record-comment #[257 "\304!>\204\305\306\307D\"\210\211\310H\304!>\204!\305\306\307D\"\210\311H\304!>\2043\305\306\307D\"\210\312H\313\314Z\315$ B\n\205k\316\317=\203Q\320\202R\321\"\210\322>\205kS\323\324F B\211\266\204\207" [cl-struct-js2-token-tags js2-scanned-comments js2-parse-ide-mode js2-mode-deferred-properties type-of signal wrong-type-argument js2-token 9 2 3 make-js2-comment-node :len :format js2-record-face jsdoc font-lock-doc-face font-lock-comment-face (html preprocessor) c-in-sws t] 12 (#$ . 1116985)]) #@196 Return the next token type without consuming it. If `js2-ti-lookahead' is positive, return the type of next token from `js2-ti-tokens'. Otherwise, call `js2-get-token'. (fn &optional MODIFIER) (defalias 'js2-peek-token #[256 "\305U\204+\306 \307\nT \"H!\f>\204!\310\311\312 \307\nT \"HD\"\210 \307\nT \"H\313H\207\314!\315 \210\211\207" [js2-ti-lookahead js2-ti-tokens js2-ti-tokens-cursor js2-ti-ntokens cl-struct-js2-token-tags 0 type-of mod signal wrong-type-argument js2-token 1 js2-get-token-internal js2-unget-token] 8 (#$ . 1117620)]) (defalias 'js2-next-token 'js2-get-token) #@160 Get next token and return t if it matches MATCH, a bytecode. Returns nil and consumes nothing if MATCH is not the next token. (fn MATCH &optional DONT-UNGET) (defalias 'js2-match-token #[513 "\300 U\204\301\204\302 \210\207\303\207" [js2-get-token nil js2-unget-token t] 4 (#$ . 1118217)]) #@134 Consume and return t if next token is `js2-NAME', and its string is NAME. Returns nil and keeps current token otherwise. (fn NAME) (defalias 'js2-match-contextual-kwd #[257 "\302\303 \210 H\"\203\304\305!\210\306\207\307 \210\310\207" [js2-ti-tokens js2-ti-tokens-cursor js2-contextual-kwd-p js2-get-token js2-record-face font-lock-keyword-face t js2-unget-token nil] 4 (#$ . 1118521)]) #@75 Return t if TOKEN is `js2-NAME', and its string is NAME. (fn TOKEN NAME) (defalias 'js2-contextual-kwd-p #[514 "\302!>\204\303\304\305D\"\210\306H U\205+\302!>\204&\303\304\305D\"\210\307H\230\207" [cl-struct-js2-token-tags js2-NAME type-of signal wrong-type-argument js2-token 1 4] 6 (#$ . 1118920)]) (defalias 'js2-match-async-function #[0 "\303 H\304\"\205\305 \nU\205\306\307!\210\310 \210\311\207" [js2-ti-tokens js2-ti-tokens-cursor js2-FUNCTION js2-contextual-kwd-p "async" js2-peek-token js2-record-face font-lock-keyword-face js2-get-token t] 3]) (defalias 'js2-match-async-arrow-function #[0 "\303 H\304\"\205\305 \nU?\207" [js2-ti-tokens js2-ti-tokens-cursor js2-FUNCTION js2-contextual-kwd-p "async" js2-peek-token] 3]) (defalias 'js2-inside-function #[0 "\211\301V\207" [js2-nesting-of-function 0] 3]) (put 'js2-inside-function 'byte-optimizer 'byte-compile-inline-expand) (defalias 'js2-inside-async-function #[0 "\211\303V\262\205\304 !\n>\204\305\306\307 D\"\210 \310H\207" [js2-nesting-of-function js2-current-script-or-fn cl-struct-js2-function-node-tags 0 type-of signal wrong-type-argument js2-function-node 28] 4]) (put 'js2-inside-async-function 'byte-optimizer 'byte-compile-inline-expand) #@61 Parse "await" as an AwaitExpression, if it is one. (fn TT) (defalias 'js2-parse-await-maybe #[257 "\211U\205\361\306 \nH\307\"\205\361\310\311 \f\312 !\n &!\" \nH \nH\313!#>\2044\314\315\316D\"\210\211\317H\262 \nH\313!#>\204L\314\315\316D\"\210\211\320H\262\321\322 \210\323$\324#\262\313\211!%>\204n\314\315\325D\"\210\326H!&>\204\222\314\315\327\313!%>\204\214\314\315\325D\"\210\326HD\"\210\313!%>\204\242\314\315\325D\"\210\211\326H\330H'U\203\274\331!\210!\"\321\202\357\332\333\"\210(\211\334V\262\203\344\313)!*>\204\335\314\315\335)D\"\210)\336H\204\356\337\340\321Z$\210\211\266\207\207" [js2-NAME js2-ti-tokens js2-ti-tokens-cursor js2-ts-lineno js2-ts-cursor js2-ti-lookahead js2-contextual-kwd-p "await" record js2-ts-state copy-sequence type-of signal wrong-type-argument js2-token 2 3 nil js2-get-token js2-make-unary js2-parse-unary-expr js2-unary-node 6 js2-node 1 js2-ts-seek js2-record-face font-lock-keyword-face 0 js2-function-node 28 js2-report-error "msg.bad.await" js2-recorded-identifiers js2-parsed-errors cl-struct-js2-token-tags js2-AWAIT cl-struct-js2-unary-node-tags cl-struct-js2-node-tags js2-ERROR js2-nesting-of-function js2-current-script-or-fn cl-struct-js2-function-node-tags] 15 (#$ . 1120168)]) (defalias 'js2-get-prop-name-token #[0 "\301\302Y\205\303!\207" [js2-language-version js2-get-token 170 KEYWORD_IS_NAME] 3]) #@166 Consume token and return t if next token is a valid property name. If `js2-language-version' is >= 180, a keyword or reserved word is considered valid name as well. (defalias 'js2-match-prop-name #[0 "\301 =\203 \302\207\303 \210\304\207" [js2-NAME js2-get-prop-name-token t js2-unget-token nil] 2 (#$ . 1121597)]) #@33 (fn MSG-ID &optional POS LEN) (defalias 'js2-must-match-prop-name #[769 "\300 \203\301\207\302\303$\210\303\207" [js2-match-prop-name t js2-report-error nil] 8 (#$ . 1121920)]) #@294 Return js2-EOL if the next token immediately follows a newline. Else returns the next token. Used in situations where we don't consider certain token types valid if they are preceded by a newline. One example is the postfix ++ or -- operator, which has to be on the same line as its operand. (defalias 'js2-peek-token-or-eol #[0 "\304  H\305!\n>\204\306\307\310D\"\210\211\311H\262\312 \210\211\203$ \202%\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-EOL js2-get-token type-of signal wrong-type-argument js2-token 10 js2-unget-token] 6 (#$ . 1122111)]) #@197 Match next token to token code TOKEN, or record a syntax error. MSG-ID is the error message to report if the match fails. Returns t on match, nil if no match. (fn TOKEN MSG-ID &optional POS LEN) (defalias 'js2-must-match #[1026 "\300\301\"\203 \301\207\302\303$\210\304 \210\303\207" [js2-match-token t js2-report-error nil js2-unget-token] 9 (#$ . 1122706)]) #@15 (fn MSG-ID) (defalias 'js2-must-match-name #[257 "\305\306\"\203 \306\207 \nH\307! >\204\310\311\312D\"\210\211\313H\262\f=\203C\314\315 \nH\307! >\2049\310\311\312D\"\210\211\316H\262\"\210\202J\314!\210\317 \210\320\207" [js2-NAME js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-RESERVED js2-match-token t type-of signal wrong-type-argument js2-token 1 js2-report-error "msg.reserved.id" 4 js2-unget-token nil] 8 (#$ . 1123078)]) (defalias 'js2-set-requires-activation #[0 "\302! >\205\302! >\204\303\304\305D\"\210\211\306\307I\262\207" [js2-current-script-or-fn cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 26 t] 4]) #@19 (fn NAME TOKEN) (defalias 'js2-check-activation-name #[514 "\211\302V\262\205\303\230\204 \205\304 \"\205\305 \207" [js2-nesting-of-function js2-compiler-activation-names 0 "arguments" gethash js2-set-requires-activation] 5 (#$ . 1123787)]) (defalias 'js2-set-is-generator #[0 "\302! >\2055\302! >\204\303\304\305D\"\210\211\306H?\2055\302! >\204.\303\304\305D\"\210\211\306\307I\262\207" [js2-current-script-or-fn cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-function-node 27 LEGACY] 5]) (defalias 'js2-must-have-xml #[0 "?\205\301\302!\207" [js2-compiler-xml-available js2-report-error "msg.XML.not.available"] 2]) #@70 Push SCOPE, a `js2-scope', onto the lexical scope chain. (fn SCOPE) (defalias 'js2-push-scope #[257 "\302!>\204\f\303\304!\210\302!>\204\305\306\307D\"\210\211\310H\203%\303\311!\210 =\203/\303\312!\210\302!>\204>\305\306\307D\"\210\211\211\310 I\266\211\211\207" [cl-struct-js2-scope-tags js2-current-scope type-of cl--assertion-failed (js2-scope-p scope) signal wrong-type-argument js2-scope 8 (null (js2-scope-parent-scope scope)) (not (eq js2-current-scope scope))] 5 (#$ . 1124467)]) (defalias 'js2-pop-scope #[0 "\302! >\204\303\304\305D\"\210\306H\211\207" [js2-current-scope cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 8] 4]) (put 'js2-pop-scope 'byte-optimizer 'byte-compile-inline-expand) #@18 (fn LOOP-NODE) (defalias 'js2-enter-loop #[257 "\211B\211 B\305!\210\n\205r\306\n! >\204\307\310\311\nD\"\210\n\211\312I\266\306\211\n! >\2046\307\310\311\nD\"\210\n\313H@!\f>\204Y\307\310\314\306\n! >\204R\307\310\311\nD\"\210\n\313H@D\"\210\306\n! >\204h\307\310\311\nD\"\210\n\313H@\211\312I\262\207" [js2-loop-set js2-loop-and-switch-set js2-labeled-stmt cl-struct-js2-labeled-stmt-node-tags cl-struct-js2-label-node-tags js2-push-scope type-of signal wrong-type-argument js2-labeled-stmt-node 7 6 js2-label-node] 8 (#$ . 1125222)]) (defalias 'js2-exit-loop #[0 "\210A \210 A\304\n! >\204\305\306\307\nD\"\210\n\310H\211\207" [js2-loop-set js2-loop-and-switch-set js2-current-scope cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 8] 4]) #@20 (fn SWITCH-NODE) (defalias 'js2-enter-switch #[257 "\301!\210\211B\211\207" [js2-loop-and-switch-set js2-push-scope] 3 (#$ . 1126015)]) (put 'js2-enter-switch 'byte-optimizer 'byte-compile-inline-expand) (defalias 'js2-exit-switch #[0 "\303! >\204\304\305\306D\"\210\307H\n\211A\242\207" [js2-current-scope cl-struct-js2-scope-tags js2-loop-and-switch-set type-of signal wrong-type-argument js2-scope 8] 4]) (put 'js2-exit-switch 'byte-optimizer 'byte-compile-inline-expand) #@185 Return NODE's value if it is a directive, nil otherwise. A directive is an otherwise-meaningless expression statement consisting of a string literal, such as "use strict". (fn NODE) (defalias 'js2-get-directive #[257 "\302!>\205=\302!>\204\303\304\305D\"\210\211\306H\211\262\302! >\205&\307\262\205=\302! >\204:\303\304\310D\"\210\211\306H\207" [cl-struct-js2-expr-stmt-node-tags cl-struct-js2-string-node-tags type-of signal wrong-type-argument js2-expr-stmt-node 6 t js2-string-node] 5 (#$ . 1126509)]) (put 'js2-get-directive 'byte-optimizer 'byte-compile-inline-expand) #@1094 Tell the js2 parser to parse a region of JavaScript. BUF is a buffer or buffer name containing the code to parse. Call `narrow-to-region' first to parse only part of the buffer. The returned AST root node is given some additional properties: `node-count' - total number of nodes in the AST `buffer' - BUF. The buffer it refers to may change or be killed, so the value is not necessarily reliable. An optional callback CB can be specified to report parsing progress. If `(functionp CB)' returns t, it will be called with the current line number once before parsing begins, then again each time the lexer reaches a new line number. CB can also be a list of the form `(symbol cb ...)' to specify multiple callbacks with different criteria. Each symbol is a criterion keyword, and the following element is the callback to call :line - called whenever the line number changes :token - called for each new token consumed The list of criteria could be extended to include entering or leaving a statement, an expression, or a function definition. (fn &optional BUF CB) (defalias 'js2-parse #[512 "\211\203\306!\204\307\310!\210\311\312Y \313]\n\313]\314\211r\206+pq\210\314\211\314\211\314\211\315 \210\316 \262 \204R\317\320G\"\210\321!!>\204b\322\323\324D\"\210\211\211\325I\266\321!!>\204z\322\323\324D\"\210\211\211\326I\266\204\212\327\330\331!\210.\207" [js2-language-version max-lisp-eval-depth max-specpdl-size case-fold-search js2-compiler-xml-available inhibit-point-motion-hooks functionp error "criteria callbacks not yet implemented" t 160 3000 nil js2-init-scanner js2-do-parse js2-report-error "msg.got.syntax.errors" type-of signal wrong-type-argument js2-ast-root 19 20 empty run-hooks js2-parse-finished-hook js2-scanned-comments js2-parsed-errors js2-parsed-warnings js2-imenu-recorder js2-imenu-function-map js2-label-set js2-ts-hit-eof cl-struct-js2-ast-root-tags] 13 (#$ . 1127110)]) #@82 Parse current buffer starting from current point. Scanner should be initialized. (defalias 'js2-do-parse #[0 "\211\306\211\211\307 \306\310\311\312 \313 $\262\314\306\211$%\315 \211\262&U\204\336'U\203E(\203>\316 \202@\317 \262\202\250\320 \210\321 \262\203\250\322!)>\205\222\322!)>\204j\323\324\325D\"\210\211\326H\211\262\322!*>\205z\307\262\205\222\322!*>\204\217\323\324\327D\"\210\211\326H\262\262\211\204\240\306\262\202\250\211\330\230\203\250\307\322!+>\204\271\323\324\331D\"\210\211\332H\322!+>\204\314\323\324\331D\"\210\333H\\\262\262\334\"\210\202\",\203H,@\322!+>\204\370\323\324\331D\"\210\211\332H\322!+>\204 \323\324\331D\"\210\333H\\\262]\262,\211\203G\211@\322!->\204.\323\324\335\nD\"\210\211\336\336HBI\266\337\"\210A\266\202\202\210\322!+>\204Z\323\324\331D\"\210\211\333  ZI\266.//\340 \210\212\341\342!\210)\343 \210))\207" [js2-ts-cursor js2-in-use-strict-directive js2-current-script-or-fn js2-current-scope js2-nesting-of-function js2-labeled-stmt nil t make-js2-ast-root :buffer buffer-name :pos 0 js2-get-token js2-parse-function-expr js2-parse-function-stmt js2-unget-token js2-parse-statement type-of signal wrong-type-argument js2-expr-stmt-node 6 js2-string-node "use strict" js2-node 2 3 js2-block-node-push js2-ast-root 18 js2-node-add-children js2-filter-parsed-warnings run-hooks js2-post-parse-callbacks js2-highlight-undeclared-vars js2-recorded-identifiers js2-mode-assume-strict js2-EOF js2-FUNCTION js2-called-by-compile-function cl-struct-js2-expr-stmt-node-tags cl-struct-js2-string-node-tags cl-struct-js2-node-tags js2-scanned-comments cl-struct-js2-ast-root-tags js2-mode-ast js2-additional-externs] 17 (#$ . 1129102)]) #@74 Remove `js2-parsed-warnings' elements that match `js2-ignored-warnings'. (defalias 'js2-filter-parsed-warnings #[0 "\203 \302\303 \" \207" [js2-ignored-warnings js2-parsed-warnings cl-remove-if #[257 "\211@@\211\235\207" [js2-ignored-warnings] 4 "\n\n(fn WARNING)"]] 3 (#$ . 1130895)]) #@61 Parse a JavaScript 1.8 function closure body. (fn FN-NODE) (defalias 'js2-parse-function-closure-body #[257 "T \2037\305\306\307\310!\n>\204\311\312\313D\"\210\314H \310!\n>\204/\311\312\313D\"\210\314HZ$\202R\315\310!\f>\204H\311\312\316D\"\210\211\317\320\321!I\262\")\207" [js2-nesting-of-function js2-ts-hit-eof cl-struct-js2-node-tags js2-ts-cursor cl-struct-js2-function-node-tags js2-report-error "msg.no.brace.body" nil type-of signal wrong-type-argument js2-node 2 js2-node-add-children js2-function-node 22 js2-parse-expr t] 10 (#$ . 1131191)]) #@16 (fn FN-NODE) (defalias 'js2-parse-function-body #[257 "\306\307\310! >\204\311\312\313D\"\210\314H\n\310! >\204(\311\312\313D\"\210\314HZ$\210 \fH\310! >\204@\311\312\315D\"\210\211\314H\262\316 \317\211\211\211\211\"T\"\320\216\321 \211\262#U\204\365$U\204\365%U\204\365\322&U\204\353\203\200\323 \202\360\323 \262\310!'>\205\306\310!'>\204\236\311\312\324D\"\210\211\325H\211\262\310!(>\205\256\326\262\205\306\310!(>\204\303\311\312\327D\"\210\211\325H\262\262\204\324\326\262\202\347\330\230\203\347)\204\347\326)\331\332\326\"\210\202\360\333 \210\334 \"\210\202S) \fH\310! >\204\311\312\315D\"\210\211\335H\262\262\306%\336 #\2032 \fH\310! >\204+\311\312\315D\"\210\211\335H\262\262\310! >\204C\311\312\313D\"\210\211\314 I\266\310! >\204\\\311\312\313D\"\210\211\335\nZI\266\310!*>\204y\311\312\337\nD\"\210\211\340I\266\341\"\210\207" [js2-LC cl-struct-js2-node-tags js2-ts-cursor js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-must-match "msg.no.brace.body" type-of signal wrong-type-argument js2-node 2 js2-token make-js2-block-node nil #[0 "S\211\207" [js2-nesting-of-function] 2] js2-peek-token js2-block-node-push js2-parse-statement js2-expr-stmt-node 6 t js2-string-node "use strict" throw reparse js2-get-token js2-parse-function-stmt 3 "msg.no.brace.after.body" js2-function-node 22 js2-node-add-children js2-nesting-of-function js2-ERROR js2-EOF js2-RC js2-FUNCTION cl-struct-js2-expr-stmt-node-tags cl-struct-js2-string-node-tags js2-in-use-strict-directive cl-struct-js2-function-node-tags] 15 (#$ . 1131775)]) #@297 Declare and fontify destructuring parameters inside NODE. NODE is either `js2-array-node', `js2-object-node', or `js2-name-node'. Return a list of `js2-name-node' nodes representing the symbols declared; probably to check them for errors. (fn NODE DECL-TYPE FACE &optional IGNORE-NOT-IN-BLOCK) (defalias 'js2-define-destruct-symbols #[1027 "\302\303\"\211\211\203T\211@\304\305\306!>\204\307\310\311D\"\210\312H$\210\203L\313\314!\211\262\306! >\204C\307\310\315D\"\210\316H\\\317$\210\210A\266\202\202\210\211\207" [cl-struct-js2-name-node-tags cl-struct-js2-node-tags js2--collect-target-symbols t nil js2-define-symbol type-of signal wrong-type-argument js2-name-node 6 js2-set-face js2-node-abs-pos js2-node 3 record] 15 (#$ . 1133451)]) #@54 Identifiers not allowed as variables in strict mode. (defvar js2-illegal-strict-identifiers '("eval" "arguments") (#$ . 1134230)) #@76 Check that NAME-NODE makes a legal strict mode identifier. (fn NAME-NODE) (defalias 'js2-check-strict-identifier #[257 "\2059\304! >\204\305\306\307D\"\210\211\310H\211\n\235\2057\311\312\313!\304! >\2043\305\306\314D\"\210\315H$\262\207" [js2-in-use-strict-directive cl-struct-js2-name-node-tags js2-illegal-strict-identifiers cl-struct-js2-node-tags type-of signal wrong-type-argument js2-name-node 6 js2-report-error "msg.bad.id.strict" js2-node-abs-pos js2-node 3] 10 (#$ . 1134366)]) #@133 Given PRECEDING-PARAMS in a function's parameter list, check for strict mode errors caused by PARAMS. (fn PRECEDING-PARAMS PARAMS) (defalias 'js2-check-strict-function-params #[514 "\205[\211\211\205Y\211@\303! >\204\304\305\306D\"\210\211\307H\310!\210\311\312\313\314\315\316!\317\"\320\321%\"\203Q\322\323\324!\303!\n>\204L\304\305\325D\"\210\326H$\210\210A\266\202\202\262\207" [js2-in-use-strict-directive cl-struct-js2-name-node-tags cl-struct-js2-node-tags type-of signal wrong-type-argument js2-name-node 6 js2-check-strict-identifier cl-some make-byte-code 257 "\302! >\204\303\304\305D\"\210\211\306H\300\230\207" vconcat vector [cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-name-node 6] 5 "\n\n(fn PARAM)" js2-report-error "msg.dup.param.strict" js2-node-abs-pos js2-node 3] 13 (#$ . 1134879)]) #@116 Parse the parameters of a function of FUNCTION-TYPE represented by FN-NODE at POS. (fn FUNCTION-TYPE FN-NODE POS) (defalias 'js2-parse-function-params #[771 "\306!\2033\307! >\204\310\311\312D\"\210\211\313\n H\307!\f>\204*\310\311\314D\"\210\211\315H\262ZI\207\316=\205R\n H\307!\f>\204K\310\311\314D\"\210\211\317H\262 =\320\211\211\211\211\203^\321 \210\320\322 \262\204\223\211/U\204v\2110U\203\223\323 \210\324 \262\3251\326#\262\327\"\210\330\"\262\202\3472\331Y\203\256\204\256\3063!\203\256\204\256G\262\332\333!\210\334\326!\210\335 \262\3361\n H\307!\f>\204\317\310\311\314D\"\210\211\337H\262#\210\327C\"\210\330C\"\262\204\2212\331Y\203\221\3064!\203\221\203\340\341!\210\307!5>\204\310\311\342D\"\210\315H\n H\307!\f>\204(\310\311\314D\"\210\211\317H\262\n H\307!\f>\204?\310\311\314D\"\210\211\315H\262Z\343 \211\307!5>\204[\310\311\342D\"\210\211\315H\307!5>\204n\310\311\342D\"\210\344H\\\262Z\345\346\320\211\n\n\n& \262 \347 #\266B\262\203\324GTV\203\324\350\351\320\307!5>\204\270\310\311\342\nD\"\210\315H\307 !5>\204\316\310\311\342 D\"\210\344H$\210\3066!\203\3512\331W\204_\322 U\203_\210\204'\352\353\"\203'\307! >\204\310\311\312\nD\"\210\211\313\n H\307!\f>\204\310\311\314D\"\210\211\315H\262\nZI\266\211\203D\307! >\204<\310\311\312\nD\"\210\211\354\355I\266\211\205u\211@\347\n\"\210\307\n! >\204b\310\311\312\fD\"\210 \211\356\356HBI\266A\266\202\202E\262\207" [js2-RP cl-struct-js2-function-node-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NAME js2-match-token type-of signal wrong-type-argument js2-function-node 24 js2-token 2 FUNCTION_ARROW 1 nil js2-unget-token js2-peek-token js2-get-token js2-parse-destruct-primary-expr js2-define-destruct-symbols js2-function-param js2-check-strict-function-params append 200 js2-must-match-name "msg.no.parm" js2-record-face js2-create-name-node js2-define-symbol 4 cl--assertion-failed (not paren-free-arrow) js2-node js2-parse-assign-expr 3 record js2-assign-node js2-node-add-children js2-report-error "msg.param.after.rest" js2-must-match "msg.no.paren.after.parms" 21 t 20 js2-LB js2-LC js2-LP js2-language-version js2-TRIPLEDOT js2-ASSIGN cl-struct-js2-node-tags js2-COMMA] 26 (#$ . 1135745)]) #@124 Possibly show inconsistent-return warning. Last token scanned is the close-curly for the function body. (fn FN-NODE NAME) (defalias 'js2-check-inconsistent-return-warning #[514 "\205\266 \205\266\306\307!\n>\204\310\311\312D\"\210\313H!?\205\266\212 \fH\307! >\2043\310\311\314D\"\210\211\315H\262b\210\316\307!\n>\204J\310\311\312D\"\210\313H!\317 ]) \fH\307! >\204d\310\311\314D\"\210\211\315H\262\211\203\207\307!>\204~\310\311\320D\"\210\211\321HG\262\202\212\322\262\211\322V\262\203\256\323\324\307!>\204\245\310\311\320D\"\210\321H$\202\264\323\325\326$\266\202\207" [js2-mode-show-strict-warnings js2-strict-inconsistent-return-warning cl-struct-js2-function-node-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-has-consistent-return-usage type-of signal wrong-type-argument js2-function-node 22 js2-token 3 js2-node-abs-pos point-at-bol js2-name-node 6 0 js2-add-strict-warning "msg.no.return.value" "msg.anon.no.return.value" nil cl-struct-js2-name-node-tags] 10 (#$ . 1138135)]) #@26 (fn &optional ASYNC-P) (defalias 'js2-parse-function-stmt #[256 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313 !\314\315!\210\316\317!\320\211\313\f!\2037\321\322 %\202v \203p\323\320\"\262\324!\210\325\f\326\"\210\321\322 $\262\306!>\204e\307\310\327D\"\210\211\330I\266\202v\331\326!\210\332 \266\203\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-MUL js2-LP js2-allow-member-expr-as-function-name type-of signal wrong-type-argument js2-token 2 js2-match-token js2-must-match-name "msg.unnamed.function.stmt" js2-create-name-node t nil js2-parse-function FUNCTION_STATEMENT js2-parse-member-expr-tail js2-parse-highlight-member-expr-fn-name js2-must-match "msg.no.paren.parms" js2-function-node 29 js2-report-error make-js2-error-node cl-struct-js2-function-node-tags] 12 (#$ . 1139198)]) (defalias 'js2-parse-async-function-stmt #[0 "\300\301!\207" [js2-parse-function-stmt t] 2]) #@26 (fn &optional ASYNC-P) (defalias 'js2-parse-function-expr #[256 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313 !\314\313\f!\203&\315\316!\262\317 \320\"\210\321\322%\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-MUL js2-NAME js2-LP type-of signal wrong-type-argument js2-token 2 js2-match-token nil js2-create-name-node t js2-must-match "msg.no.paren.parms" js2-parse-function FUNCTION_EXPRESSION] 10 (#$ . 1140153)]) #@56 (fn FUNCTION-TYPE POS STAR-P &optional ASYNC-P NAME) (defalias 'js2-parse-function-internal #[1283 "\306\211 H\307!\n>\204\310\311\312D\"\210\211\313H\262 U\2037 H\307!\n>\2040\310\311\312D\"\210\211\314H\262\262\315\316\f\313\306\211\211\211\211\211\211\211\211\317\306\211\317\320\306\211\211\205\\Z\306\211\211 \205e\321 \306&\262\203\322\307! >\204\201\310\311\323D\"\210\314H\307! >\204\224\310\311\323D\"\210\211\314H\307! >\204\246\310\311\323D\"\210\324H\\\262\325\315$\210\326=\203\371\211\203\325\307!,>\204\314\310\311\327D\"\210\211\330HG\262\202\330\317\262\211\317V\262\203\371\331\f\307!,>\204\363\310\311\327D\"\210\330H#\210-\203\332!\210.\211\317V\262\204/\211\317V\262\203-\307!0>\204&\310\311\316D\"\210\211\333\334I\266\211\317\211\306\211\2111234/56\335#\210\336=\203W\3377\340\"\2108\341Y\203m\342 9U\204m\343!\210\202q\344!\210\345\"\210\203\305\346\"\210\347=\203\272\3505\307!,>\204\232\310\311\327D\"\210\330H\"\204\272\331\f\307!,>\204\264\310\311\327D\"\210\330H#\210\326=\203\305\351!\210.\307! >\204\326\310\311\323D\"\210\211\324 H\307!\n>\204\353\310\311\312D\"\210\211\324H\262 ZI\266\307!:>\204\310\311\352D\"\210\211\3535I\266\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-LP js2-FUNCTION cl-struct-js2-node-tags nil type-of signal wrong-type-argument js2-token 1 2 record js2-function-node 0 FUNCTION STAR js2-set-face js2-node 3 font-lock-function-name-face FUNCTION_STATEMENT js2-name-node 6 js2-define-symbol js2-check-strict-identifier 25 t js2-parse-function-params FUNCTION_ARROW js2-must-match "msg.bad.arrow.args" 180 js2-peek-token js2-parse-function-closure-body js2-parse-function-body js2-check-inconsistent-return-warning js2-node-add-children FUNCTION_EXPRESSION js2-scope-get-symbol js2-record-imenu-functions js2-scope 8 cl-struct-js2-name-node-tags js2-in-use-strict-directive js2-nesting-of-function js2-nesting-of-with cl-struct-js2-function-node-tags js2-loop-and-switch-set js2-loop-set js2-label-set js2-end-flags js2-current-scope js2-current-script-or-fn js2-ARROW js2-language-version js2-LC cl-struct-js2-scope-tags] 38 (#$ . 1140621)]) #@214 Function parser. FUNCTION-TYPE is a symbol, POS is the beginning of the first token (function keyword, unless it's an arrow function), NAME is js2-name-node. (fn FUNCTION-TYPE POS STAR-P &optional ASYNC-P NAME) (defalias 'js2-parse-function #[1283 "\306\307\211\2037\310\311 \n\312 !\f &\262\3132*\314%\262\3070\262\203\315!\210\202)\207" [js2-in-use-strict-directive js2-ts-lineno js2-ts-cursor js2-ti-tokens js2-ti-tokens-cursor js2-ti-lookahead t nil record js2-ts-state copy-sequence reparse js2-parse-function-internal js2-ts-seek] 15 (#$ . 1142913)]) #@680 Parse a statement list. Last token consumed must be js2-LC. PARENT can be a `js2-block-node', in which case the statements are appended to PARENT. Otherwise a new `js2-block-node' is created and returned. This function does not match the closing js2-RC: the caller matches the RC so it can provide a suitable error message if not matched. This means it's up to the caller to set the length of the node to include the closing RC. The node start pos is set to the absolute buffer start position, and the caller should fix it up to be relative to the parent node. All children of this block node are given relative start positions and correct lengths. (fn &optional PARENT) (defalias 'js2-parse-statements #[256 "\211\206\302 \303\304 \211\262V\203 \211 U\204 \305\306 \"\210\202\207" [js2-EOF js2-RC make-js2-block-node nil js2-peek-token js2-block-node-push js2-parse-statement] 6 (#$ . 1143504)]) (defalias 'js2-parse-statement #[0 "\304\211\211\203 T\211\n\246\305U\203\306 \203\307\310\311\"\210\312 \262\313!\204s\314! >\2046\315\316\317D\"\210\211\320H\314! >\204H\315\316\317D\"\210\321H\\\262\262\212\211b\210\314! >\204c\315\316\317D\"\210\320H\322 ]\262)\323\324\304$\210\207" [js2-parse-interruptable-p js2-parse-stmt-count js2-statements-per-pause cl-struct-js2-node-tags nil 0 input-pending-p throw interrupted t js2-statement-helper js2-node-has-side-effects type-of signal wrong-type-argument js2-node 2 3 point-at-bol js2-add-strict-warning "msg.no.side.effects"] 9]) #@51 A vector mapping token types to parser functions. (defconst js2-parsers (byte-code "\306\307\"\211 \310I\210\211\n\311I\210\211 \312I\210\211\f\313I\210\211 \314I\210\211\315I\210\211\316I\210\211 \317I\210\211!\320I\210\211\"\321I\210\211#\322I\210\211$\323I\210\211%\324I\210\211&\325I\210\211'\326I\210\211(\327I\210\211)\330I\210\211*\331I\210\211+\332I\210\211,\333I\210\211-\312I\210\211.\334I\210\211/\335I\210\2110\327I\210\211\207" [js2-num-tokens js2-BREAK js2-CLASS js2-CONST js2-CONTINUE js2-DEBUGGER make-vector js2-parse-expr-stmt js2-parse-break js2-parse-class-stmt js2-parse-const-var js2-parse-continue js2-parse-debugger js2-parse-default-xml-namespace js2-parse-do js2-parse-export js2-parse-for js2-parse-function-stmt js2-parse-if js2-parse-import js2-parse-block js2-parse-let-stmt js2-parse-name-or-label js2-parse-ret-yield js2-parse-semi js2-parse-switch js2-parse-throw js2-parse-try js2-parse-while js2-parse-with js2-DEFAULT js2-DO js2-EXPORT js2-FOR js2-FUNCTION js2-IF js2-IMPORT js2-LC js2-LET js2-NAME js2-RETURN js2-SEMI js2-SWITCH js2-THROW js2-TRY js2-VAR js2-WHILE js2-WITH js2-YIELD] 4) (#$ . 1145039)) #@16 (fn BEG END) (defalias 'js2-parse-warn-missing-semi #[514 "\205 \205\302\303\304\212b\210\305 )]$\207" [js2-mode-show-strict-warnings js2-strict-missing-semi-warning js2-add-strict-warning "msg.missing.semi" nil point-at-bol] 7 (#$ . 1146208)]) #@61 List of tokens that don't do automatic semicolon insertion. (defconst js2-no-semi-insertion (list js2-IF js2-SWITCH js2-WHILE js2-DO js2-FOR js2-TRY js2-WITH js2-LC js2-ERROR js2-SEMI js2-CLASS js2-FUNCTION js2-EXPORT) (#$ . 1146469)) (defconst js2-autoinsert-semi-and-warn (list js2-ERROR js2-EOF js2-RC)) (defalias 'js2-statement-helper #[0 "\305 \211\306 U\203\307\202\211\203\310\202 H\311\n\2036\312\n! >\204.\313\314\315\nD\"\210\n\316H\2036\311 \262\f>\204P\312! >\204P\204P\317!\210\207" [js2-ERROR js2-parsers js2-labeled-stmt cl-struct-js2-labeled-stmt-node-tags js2-no-semi-insertion js2-get-token js2-match-async-function js2-parse-semi js2-parse-async-function-stmt nil type-of signal wrong-type-argument js2-labeled-stmt-node 7 js2-auto-insert-semicolon] 9]) #@11 (fn PN) (defalias 'js2-auto-insert-semicolon #[257 "\306 \307!>\204\310\311\312D\"\210\313H U\203K\307!>\204)\310\311\312D\"\210\211\314\n H\307!\f>\204>\310\311\315D\"\210\211\314H\262ZI\262\202\321 >\203\202\316 \210\317\307!>\204f\310\311\312D\"\210\211\313H\307!>\204x\310\311\312D\"\210\314H\\\262\"\202\321\n H\307!\f>\204\224\310\311\315D\"\210\211\320H\262\204\243\321\322!\210\202\317\317\307!>\204\265\310\311\312D\"\210\211\313H\307!>\204\307\310\311\312D\"\210\314H\\\262\"\210\316 \207" [cl-struct-js2-node-tags js2-SEMI js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-autoinsert-semi-and-warn js2-get-token type-of signal wrong-type-argument js2-node 2 3 js2-token js2-unget-token js2-parse-warn-missing-semi 10 js2-report-error "msg.no.semi.stmt"] 11 (#$ . 1147272)]) #@307 Parse a parenthesized boolean expression, e.g. in an if- or while-stmt. The parens are discarded and the expression node is returned. The `pos' field of the return value is set to an absolute position that must be fixed up by the caller. Return value is a list (EXPR LP RP), with absolute paren positions. (defalias 'js2-parse-condition #[0 "\306\211\211\307\310\"\203# \nH\311! >\204\312\313\314D\"\210\211\315H\262\262\316 \262\307\f\317\"\203G \nH\311! >\204@\312\313\314D\"\210\211\315H\262\262 \203\233\311!>\203\233\320\321\306\311!>\204i\312\313\322D\"\210\315H\311!>\204~\312\313\322 D\"\210\315H\311!>\204\224\312\313\322\nD\"\210\323H\\$\210E\207" [js2-LP js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-RP js2-strict-cond-assign-warning nil js2-must-match "msg.no.paren.cond" type-of signal wrong-type-argument js2-token 2 js2-parse-expr "msg.no.paren.after.cond" js2-add-strict-warning "msg.equal.as.assign" js2-node 3 cl-struct-js2-assign-node-tags cl-struct-js2-node-tags] 12 (#$ . 1148133)]) #@62 Parser for if-statement. Last matched token must be js2-IF. (defalias 'js2-parse-if #[0 " H\305!\n>\204\306\307\310D\"\210\211\311H\262\312\211\211\211\211\211\313 \262\314 \262\315 !\205I H\305!\n>\204=\306\307\310D\"\210\211\311H\262Z\262\314 \262\206P\305!\f>\204_\306\307\316D\"\210\211\311H\305!\f>\204q\306\307\316D\"\210\317H\\\262\262\320\321\322 Z\323 @\324\f\325 \326\327A@\205\235Z\266\202\330AA@\205\256Z\266\202&\262\331@$\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ELSE cl-struct-js2-node-tags type-of signal wrong-type-argument js2-token 2 nil js2-parse-condition js2-parse-statement js2-match-token js2-node 3 make-js2-if-node :pos :len :condition :then-part :else-part :else-pos :lp :rp js2-node-add-children] 27 (#$ . 1149209)]) #@63 Parse import statement. The current token must be js2-IMPORT. (defalias 'js2-parse-import #[0 "\306! >\204\f\307\310!\210\n H\306!\f>\204\311\312\313D\"\210\211\314H\262\315 !\203c\316\317\320\n H\306!\f>\204?\311\312\313D\"\210\211\321H\262Z\322\n H\306!\f>\204Y\311\312\313D\"\210\211\323H\262&\202\277\324 \211\205k\325 \211\205\202\306!>\204\311\312\326D\"\210\211\327H\316\317\320\n H\306!\f>\204\230\311\312\313D\"\210\211\321H\262Z\330\331 \322\n&\n\203\264\332\"\210\203\275\332\"\210\266\203\207" [js2-current-scope cl-struct-js2-ast-root-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-STRING type-of js2-report-error "msg.mod.import.decl.at.top.level" signal wrong-type-argument js2-token 2 js2-match-token make-js2-import-node :pos :len 3 :module-id 4 js2-parse-import-clause js2-parse-from-clause js2-from-clause-node 6 :import :from js2-node-add-children cl-struct-js2-from-clause-node-tags] 15 (#$ . 1150058)]) #@500 Parse the bindings in an import statement. This can take many forms: ImportedDefaultBinding -> 'foo' NameSpaceImport -> '* as lib' NamedImports -> '{foo as bar, bang}' ImportedDefaultBinding , NameSpaceImport -> 'foo, * as lib' ImportedDefaultBinding , NamedImports -> 'foo, {bar, baz as bif}' Try to match namespace imports and named imports first because nothing can come after them. If it is an imported default binding, then it could have named imports or a namespace import that follows it.  (defalias 'js2-parse-import-clause #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\314\315\316\317\211\211\211\211& \317\320 !\203|\321 \211\203x\306!\f>\204?\307\310\322D\"\210\211\323H\324 \306!$>\204T\307\310\325D\"\210\323H\326$\266\306!%>\204l\307\310\314D\"\210\211\323I\266\211B\262\210\202 \320&!\203\346\327\326!\306!%>\204\226\307\310\314D\"\210\211\330I\266\211\211\203\341\211@\211B\262\306!'>\204\271\307\310\331D\"\210\211\323H\211\203\331\324 \306!$>\204\322\307\310\325D\"\210\323H\326$\210\210A\266\202\202\236\266\202 \332 (U\203\333\326!\306!'>\204\307\310\331D\"\210\211\323H\324 \306!$>\204\307\310\325D\"\210\323H\326$\266\306!%>\204.\307\310\314D\"\210\211\334I\266\211B\266\202\320)!\203 \320 !\203\224\321 \306!\f>\204X\307\310\322D\"\210\211\323H\324 \306!$>\204m\307\310\325D\"\210\323H\326$\266\306!%>\204\205\307\310\314D\"\210\211\323I\266\211B\266\202\202 \320&!\203\376\327\326!\306!%>\204\256\307\310\314D\"\210\211\330I\266\211\211\203\371\211@\211B\262\306!'>\204\321\307\310\331D\"\210\211\323H\211\203\361\324 \306!$>\204\352\307\310\325D\"\210\323H\326$\210\210A\266\202\202\266\266\202 \335\336!\210\202 \335\337!\210\306!*>\204\307\310\340D\"\210\211\341 H\306!\n>\204.\307\310\311D\"\210\211\341H\262ZI\266\342\343#\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-MUL cl-struct-js2-namespace-import-node-tags js2-LET type-of signal wrong-type-argument js2-token 2 record js2-import-clause-node -1 1 nil js2-match-token js2-parse-namespace-import js2-namespace-import-node 6 js2-define-symbol js2-name-node t js2-parse-export-bindings 7 js2-export-binding-node js2-peek-token js2-maybe-parse-export-binding 8 js2-report-error "msg.syntax" "msg.mod.declaration.after.import" js2-node 3 apply js2-node-add-children cl-struct-js2-name-node-tags cl-struct-js2-import-clause-node-tags js2-LC cl-struct-js2-export-binding-node-tags js2-NAME js2-COMMA cl-struct-js2-node-tags] 13 (#$ . 1151059)]) #@93 Parse a namespace import expression such as '* as bar'. The current token must be js2-MUL. (defalias 'js2-parse-namespace-import #[0 " H\304!\n>\204\305\306\307D\"\210\211\310H\262\311\312!\203\302\313\314!\205\312\315\316\317 H\304!\n>\2049\305\306\307D\"\210\211\320H\262Z\321\322\316 H\304!\n>\204U\305\306\307D\"\210\211\310H\262\317 H\304!\n>\204m\305\306\307D\"\210\211\320H\262 H\304!\n>\204\204\305\306\307D\"\210\211\310H\262Z\321 H\304!\n>\204\235\305\306\307D\"\210\211\323H\262&&\324\304! >\204\267\305\306\325D\"\210\326H\"\210\211\262\202\312\327 \210\330\314!\210\331\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags cl-struct-js2-namespace-import-node-tags type-of signal wrong-type-argument js2-token 2 js2-match-contextual-kwd "as" js2-must-match-prop-name "msg.syntax" make-js2-namespace-import-node :pos :len 3 :name make-js2-name-node 4 js2-node-add-children js2-namespace-import-node 6 js2-unget-token js2-report-error nil] 18 (#$ . 1153675)]) #@77 Parse the from clause in an import or export statement. E.g. from 'src/lib' (defalias 'js2-parse-from-clause #[0 "\305\306!\203\301 H\307!\n>\204\310\311\312D\"\210\211\313H\262\314 !\203_\315\316\317 H\307!\n>\2049\310\311\312D\"\210\211\320H\262Z\321 H\307!\n>\204S\310\311\312D\"\210\211\322H\262\323\324&\202\300\314\f!\203\273\325\326!\205\300 H\307!\n>\204}\310\311\312D\"\210\211\322H\262\327\232\203\255\315\316\317 H\307!\n>\204\235\310\311\312D\"\210\211\320H\262Z\321\330\323\331&\202\300\332 \210\332 \210\333\326!\210\324\202\300\333\326!\210\324\207\333\334!\210\324\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-STRING js2-THIS js2-match-contextual-kwd "from" type-of signal wrong-type-argument js2-token 2 js2-match-token make-js2-from-clause-node :pos :len 3 :module-id 4 :metadata-p nil js2-must-match-name "msg.mod.spec.after.from" "module" "this" t js2-unget-token js2-report-error "msg.mod.from.after.import.spec.set"] 12 (#$ . 1154709)]) #@204 Parse a list of export binding expressions such as {}, {foo, bar}, and {foo as bar, baz as bang}. The current token must be js2-LC. Return a lisp list of js2-export-binding-node (fn &optional IMPORT-P) (defalias 'js2-parse-export-bindings #[256 "\302\303!\211\203 \211B\262\304!\262\204\305 \203\306\202 \307\"\205'\310!\207" [js2-COMMA js2-RC nil js2-maybe-parse-export-binding js2-match-token js2-must-match "msg.mod.rc.after.import.spec.list" "msg.mod.rc.after.export.spec.list" reverse] 5 (#$ . 1155740)]) #@363 Attempt to parse a binding expression found inside an import/export statement. This can take the form of either as single js2-NAME token as in 'foo' or as in a rebinding expression 'bar as foo'. If it matches, it will return an instance of js2-export-binding-node and consume all the tokens. If it does not match, it consumes no tokens. (fn &optional IMPORT-P) (defalias 'js2-maybe-parse-export-binding #[256 "\306 \205 H\307!\n>\204\310\311\312D\"\210\211\313H\262 H\307!\n>\204.\310\311\312D\"\210\211\314H\262\315  H\307!\n>\204G\310\311\312D\"\210\211\316H\262 U\206j\f H\307!\n>\204d\310\311\312D\"\210\211\316H\262H\205\317\320!\203d\321 !\203~\322\202\234\321'!\205\234 H\307!\n>\204\227\310\311\312D\"\210\211\313H\262\211\203[\323\324\325 H\307!\n>\204\266\310\311\312D\"\210\211\326H\262Z\327\330\331\324 H\307!\n>\204\326\310\311\312D\"\210\211\314H\262\325\315 &\332\333\334'\335\211\335&&\336\307!(>\204\310\311\337D\"\210\340H\307!(>\204\310\311\337D\"\210\341H#\210\203U\342 H\307!\n>\2045\310\311\312D\"\210\211\314H\262 H\307!\n>\204L\310\311\312D\"\210\211\326H\262\343\333$\210\211\262\202_\344 \210\335\262\202\330\331 H\307!\n>\204x\310\311\312D\"\210\211\313H\262\324 H\307!\n>\204\220\310\311\312D\"\210\211\314H\262\325\315 &\323\324 H\307!\n>\204\256\310\311\312D\"\210\211\314H\262\325\315 \327\332&\203\310\345\346\"\210\336\"\210\203\342 H\307!\n>\204\345\310\311\312D\"\210\211\314H\262 H\307!\n>\204\374\310\311\312D\"\210\211\326H\262\343\333$\210\262\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-RESERVED js2-kwd-tokens js2-DEFAULT js2-match-prop-name type-of signal wrong-type-argument js2-token 4 2 js2-current-token-len 1 js2-match-contextual-kwd "as" js2-match-token "default" make-js2-export-binding-node :pos :len 3 :local-name make-js2-name-node :name :extern-name record js2-name-node nil js2-node-add-children js2-export-binding-node 6 7 js2-set-face font-lock-variable-name-face js2-unget-token js2-report-error "msg.mod.as.after.reserved.word" js2-NAME cl-struct-js2-export-binding-node-tags] 23 (#$ . 1156272)]) #@70 Parser for switch-statement. Last matched token must be js2-SWITCH. (defalias 'js2-parse-switch #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\211\211\211\211\211\211\211\211\211\314 \315\"\203A H\306!\n>\204:\307\310\311D\"\210\211\312H\262\262\316 \262\317\320 \321\322\205XZ\266\202&\262 \323  \"\210\324!\210\211\fB\211\266\325\216\314 \326\"\203\256\306 !+>\204\215\307\310\327 D\"\210\211\330 H\306!\n>\204\243\307\310\311D\"\210\211\312H\262ZI\266\314,\331\"\210\3322\374\333 \262\n H\306!\n>\204\316\307\310\311D\"\210\211\312H\262\262 -U\203\306 !.>\204\357\307\310\334 D\"\210\211\335 H\306!\n>\204\307\310\311D\"\210\211\335H\262ZI\266\336\332\313\"\210\202V /U\203-\316 \262\3140\337\"\210\202V 1U\203M\203>\340\341!\210\342\262\313\262\3140\337\"\210\202V\340\343!\210\336\332\313\"\210\344\321\345 H\306!\n>\204l\307\310\311D\"\210\211\335H\262Z\346 &\262\323\"\210\347 \211\262 -U\204\364 /U\204\364 1U\204\364 2U\204\364\350 \262\306!.>\204\271\307\310\334D\"\210\211\335\306!.>\204\315\307\310\334D\"\210\211\312H\306!.>\204\340\307\310\334D\"\210\335H\\\262ZI\266\351\"\210\202\201B\262\202\270\210\211\203/\211@\323 \"\210\306 !+>\204\307\310\327 D\"\210\n\211\352\352HBI\266A\266\202\202\376\210)\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-LP js2-loop-and-switch-set js2-RP type-of signal wrong-type-argument js2-token 2 nil js2-must-match "msg.no.paren.switch" js2-parse-expr make-js2-switch-node :discriminant :pos :lp js2-node-add-children js2-push-scope #[0 "\303! >\204\304\305\306D\"\210\307H\n\211A\242\207" [js2-current-scope cl-struct-js2-scope-tags js2-loop-and-switch-set type-of signal wrong-type-argument js2-scope 8] 4] "msg.no.paren.after.switch" js2-switch-node 13 "msg.no.brace.switch" break js2-next-token js2-node 3 throw "msg.no.colon.case" js2-report-error "msg.double.switch.default" t "msg.bad.switch" make-js2-case-node :len :expr js2-peek-token js2-parse-statement js2-block-node-push 11 cl-struct-js2-switch-node-tags js2-LC js2-RC cl-struct-js2-node-tags js2-CASE js2-COLON js2-DEFAULT js2-EOF] 21 (#$ . 1158497)]) #@68 Parser for while-statement. Last matched token must be js2-WHILE. (defalias 'js2-parse-while #[0 " H\305!\n>\204\306\307\310D\"\210\211\311H\262\312 \313\211\314!\210\315\216\316 \262\305! >\2044\306\307\317D\"\210\211\320@I\266\321 \262\305! >\204O\306\307\317D\"\210\211\322I\266\305!\f>\204e\306\307\323D\"\210\211\324\305!\f>\204x\306\307\323D\"\210\211\311H\305!\f>\204\212\306\307\323D\"\210\324H\\\262ZI\266\305! >\204\245\306\307\317D\"\210\211\325A@\205\264Z\266\202I\266\305! >\204\310\306\307\317D\"\210\211\326AA@\205\330Z\266\202I\266\327@#\210)\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags cl-struct-js2-while-node-tags cl-struct-js2-node-tags type-of signal wrong-type-argument js2-token 2 make-js2-while-node nil js2-enter-loop #[0 "\300 \207" [js2-exit-loop] 1] js2-parse-condition js2-while-node 13 js2-parse-statement 10 js2-node 3 11 12 js2-node-add-children] 13 (#$ . 1160771)]) #@62 Parser for do-statement. Last matched token must be js2-DO. (defalias 'js2-parse-do #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313 \314\211\211\315!\210\316\216\317 \262\320 \321\"\210\306!\f>\204;\307\310\322D\"\210\211\323 H\306!\n>\204P\307\310\311D\"\210\211\312H\262ZI\266\324 \262\306!\f>\204o\307\310\322D\"\210\211\325@I\266\306!\f>\204\207\307\310\322D\"\210\211\326I\266 \262\306!\f>\204\241\307\310\322D\"\210\211\327A@\205\260Z\266\202I\266\306!\f>\204\305\307\310\322D\"\210\211\330AA@\205\325Z\266\202I\266\331@#\210)\332!\203\354 \262\306!>\204\375\307\310\333D\"\210\211\334ZI\266\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-WHILE cl-struct-js2-do-node-tags js2-ts-cursor type-of signal wrong-type-argument js2-token 2 make-js2-do-node nil js2-enter-loop #[0 "\300 \207" [js2-exit-loop] 1] js2-parse-statement js2-must-match "msg.no.while.do" js2-do-node 14 js2-parse-condition 13 10 11 12 js2-node-add-children js2-match-token js2-node 3 js2-SEMI cl-struct-js2-node-tags] 13 (#$ . 1161764)]) #@335 Parse an export statement. The Last matched token must be js2-EXPORT. Currently, the 'default' and 'expr' expressions should only be either hoistable expressions (function or generator) or assignment expressions, but there is no checking to enforce that and so it will parse without error a small subset of invalid export statements. (defalias 'js2-parse-export #[0 "\306! >\204\f\307\310!\210\n H\306!\f>\204\311\312\313D\"\210\211\314H\262\315\211\211\211\211\316 !\203>\317 \262\203^B\262\202^\316*!\203r\320 \262\203b\211\203a\211@\211B\262A\266\202\202N\210\321\322!\203^\323 \210\317 \262\202^\316+!\203\331\316,!\203\222\324 -=\203\215\325 \202\324\326 \202\324\316-!\203\271\327 \203\261\324 -=\203\253\330 \202\324\331\332!\202\324\323 \210\333 \202\324\316.!\203\322\324 -=\203\315\334 \202\324\331 \202\324\333 \262\202^\316/!\204\356\3160!\204\356\3161!\203#\335\n H\306!\f>\204\311\312\313D\"\210\211\336H\262\n H\306!\f>\204\311\312\313D\"\210\211\314H\262\"\262\202^\316,!\2031\325 \262\202^\316-!\203L\327 \203B\330 \202G\323 \210\333 \262\202^\316.!\203Z\334 \262\202^\333 \262\203gB\262\203\206B\262\306!2>\204\206\306!3>\204\206\337!\210\211\203\245\211B\262\306!2>\204\245\306!3>\204\245\337!\210\340\341\342\n H\306!\f>\204\274\311\312\313D\"\210\211\343H\262\nZ\344 \345\n\346 \347\f&\f\350\351#\210\211\262\207" [js2-current-scope cl-struct-js2-ast-root-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-MUL type-of js2-report-error "msg.mod.export.decl.at.top.level" signal wrong-type-argument js2-token 2 nil js2-match-token js2-parse-from-clause js2-parse-export-bindings js2-match-contextual-kwd "from" js2-unget-token js2-peek-token js2-parse-class-stmt js2-parse-class-expr js2-match-async-function js2-parse-async-function-stmt js2-parse-function-expr t js2-parse-expr js2-parse-function-stmt js2-parse-variables 1 js2-auto-insert-semicolon make-js2-export-node :pos :len 3 :exports-list :from-clause :declaration :default apply js2-node-add-children js2-LC js2-DEFAULT js2-CLASS js2-NAME js2-FUNCTION js2-VAR js2-CONST js2-LET cl-struct-js2-function-node-tags cl-struct-js2-class-node-tags] 19 (#$ . 1162898)]) #@83 Parse a for, for-in or for each-in statement. Last matched token must be js2-FOR. (defalias 'js2-parse-for #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313 \314\211\211\211\211\211\211\211\211\211\211\211\211\211\315 !\203s H\306!\n>\204?\307\310\311D\"\210\211\316H\262\317\230\203o\320\262  H\306!\n>\204^\307\310\311D\"\210\211\312H\262Z\262 \321\322!\210\202s\323\324!\210\325\f\324\"\203\226 H\306!\n>\204\214\307\310\311D\"\210\211\312H\262Z\262\326 \262\327!\210\330\216\3208U\203\264\331 \210\332 \262\202\3579U\204\311:U\204\311;U\203\350\333 H\306!\n>\204\335\307\310\311D\"\210\211\312H\262\"\262\202\357\331 \210\334 \262)\315\204 \307\310\311D\"\210\211\312H\262Z\262\n\306>!?>\204<\307\310\340>D\"\210>\341H>\334 )\262\202\232\3258\342\"\210\343 8U\203]\332 \202_\334 \262\3258\344\"\210 H\306!\n>\204y\307\310\311D\"\210\211\345H\262\262\343 @U\203\226\346\347A\n\350\314\211&\202\230\334 \262)\325@\351\"\203\277 H\306!\n>\204\265\307\310\311D\"\210\211\312H\262Z\262 \204\343\346\352BC\350\314\211\211\211\211\211\211  &\262\202l\306!D>\203 \306!D>\204\377\307\310\353 D\"\210\341H\262\306!D>\204\307\310\353 D\"\210\354H\262\202J\306!E>\203J\306!E>\204<\307\310\355 D\"\210\356HG\350V\203J\323\357!\210\346\360BC\350\314\211\211\211\211\211\211  &\262\306!?>\204~\307\310\340D\"\210 \211\354\306!?>\204\224\307\310\340D\"\210\354HI\266\361\216\362!\210\363 \262\306!F>\204\270\307\310\364D\"\210 \211\365I\266\306!G>\204\323\307\310\366D\"\210 \211\312I\266\306!G>\204\356\307\310\366D\"\210 \211\345\306!G>\204\307\310\366D\"\210\211\312H\306!G>\204\307\310\366D\"\210\345H\\\262ZI\266\367%\210) \207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NAME js2-LP js2-in-for-init type-of signal wrong-type-argument js2-token 2 make-js2-scope nil js2-match-token 4 "each" t js2-record-face font-lock-keyword-face js2-report-error "msg.no.paren.for" js2-must-match js2-get-token js2-push-scope #[0 "\302! >\204\303\304\305D\"\210\306H\211\207" [js2-current-scope cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 8] 4] js2-unget-token make-js2-empty-expr-node js2-parse-variables js2-parse-expr 200 js2-match-contextual-kwd "of" js2-scope 8 "msg.no.semi.for" js2-peek-token "msg.no.semi.for.cond" 3 record js2-empty-expr-node 1 "msg.no.paren.for.ctrl" js2-for-node js2-infix-node 7 js2-var-decl-node 6 "msg.mult.index" js2-for-in-node #[0 "\300 \207" [js2-exit-loop] 1] js2-enter-loop js2-parse-statement js2-loop-node 10 js2-node js2-node-add-children js2-SEMI js2-VAR js2-LET js2-CONST js2-IN js2-language-version js2-current-scope cl-struct-js2-scope-tags js2-RP js2-EMPTY js2-FOR js2-ts-cursor cl-struct-js2-infix-node-tags cl-struct-js2-var-decl-node-tags cl-struct-js2-loop-node-tags cl-struct-js2-node-tags] 36 (#$ . 1165194)]) #@61 Parse a try statement. Last matched token must be js2-TRY. (defalias 'js2-parse-try #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\211\211\211\211\211\314 U\204(\315\316!\210\317 \262\306!\f>\204<\307\310\320D\"\210\211\312H\306!\f>\204N\307\310\320D\"\210\321H\\\262\262\314 \262\211 U\203U\322 !\203\271 H\306!\n>\204x\307\310\311D\"\210\211\312H\262\323\324 \325\313\211\211\211\211\211\211\211\211\211\211&\313\211\211\211\211\203\235\315\326!\210\3274\330\"\203\301 H\306!\n>\204\267\307\310\311D\"\210\211\312H\262Z\262\331!\210\314 \2115U\204\325\211 U\203\347\332 \210\333 \262\3346\313#\210\202\335\336!\210\337 \262\3406 H\306!\n>\204\307\310\311D\"\210\211\341H\262#\210\342!\210\210\3227!\203= H\306!\n>\204,\307\310\311D\"\210\211\312H\262Z\262\343 \262\202@\344\262 \3278\336\"\203d H\306!\n>\204Z\307\310\311D\"\210\211\312H\262Z\262\327 \345\"\210\346!\210\3279\347\"\203\217 H\306!\n>\204\210\307\310\311D\"\210\211\321H\262\262 \306:!;>\204\241\307\310\350:D\"\210:\351H:\306!\f>\204\270\307\310\320D\"\210\211\321\nZI\266\306!<>\204\325\307\310\324D\"\210\211\352I\266\306!<>\204\357\307\310\324D\"\210\211\353I\266\306!<>\204\307\310\324D\"\210\211\354I\266\306!<>\204\"\307\310\324D\"\210\211\355I\266\306!<>\204;\307\310\324D\"\210\211\356I\266\357#\210 B\262 \266\202`\211=U\204\271\327=\360\306!\f>\204q\307\310\320\nD\"\210\312H\306!\f>\204\206\307\310\320D\"\210\211\312H\306!\f>\204\230\307\310\320D\"\210\321H\\\262\211\262 \306\n!\f>\204\262\307\310\320\fD\"\210 \312HZ$\210\322=!\203 H\306!\n>\204\322\307\310\311D\"\210\211\312H\262\317 \211\306!\f>\204\351\307\310\320D\"\210\211\312H\306!\f>\204\373\307\310\320D\"\210\321H\\\262\262\323\361= Z\313\211&\262\357\"\266\323\362>   Z\313\211 \313 & \357#\210\211\203e\211@\357\"\210\306!?>\204S\307\310\362D\"\210\211\363\363HBI\266A\266\202\2028\210\211\262\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-LC cl-struct-js2-node-tags js2-CATCH type-of signal wrong-type-argument js2-token 2 nil js2-peek-token js2-report-error "msg.no.brace.try" js2-parse-statement js2-node 3 js2-match-token record js2-catch-node 1 "msg.catch.unreachable" js2-must-match "msg.no.paren.catch" js2-push-scope js2-get-token js2-parse-destruct-primary-expr js2-define-destruct-symbols js2-must-match-name "msg.bad.catchcond" js2-create-name-node js2-define-symbol 4 js2-check-strict-identifier js2-parse-expr t "msg.no.brace.catchblock" js2-parse-statements "msg.no.brace.after.body" js2-scope 8 10 12 11 13 14 js2-node-add-children "msg.try.no.catchfinally" js2-finally-node js2-try-node 7 js2-LP js2-LB js2-LET js2-IF js2-RP js2-RC js2-current-scope cl-struct-js2-scope-tags cl-struct-js2-catch-node-tags js2-FINALLY js2-TRY cl-struct-js2-try-node-tags] 24 (#$ . 1168319)]) #@68 Parser for throw-statement. Last matched token must be js2-THROW. (defalias 'js2-parse-throw #[0 " H\305!\n>\204\306\307\310D\"\210\211\311H\262\312\211\313 U\203$\314\315!\210\316 \262\317\320\321\305!\f>\204<\306\307\322D\"\210\211\311H\305!\f>\204N\306\307\322D\"\210\323H\\\262Z\324&\262\325\"\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-EOL cl-struct-js2-node-tags type-of signal wrong-type-argument js2-token 2 nil js2-peek-token-or-eol js2-report-error "msg.bad.throw.eol" js2-parse-expr make-js2-throw-node :pos :len js2-node 3 :expr js2-node-add-children] 13 (#$ . 1171341)]) #@225 If break/continue specified a label, return that label's labeled stmt. Returns the corresponding `js2-labeled-stmt-node', or if LABEL-NAME does not match an existing label, reports an error and returns nil. (fn LABEL-NAME) (defalias 'js2-match-jump-label-name #[257 "\301\"A\211\204 \302\303!\210\211\207" [js2-label-set assoc js2-report-error "msg.undef.label"] 4 (#$ . 1171991)]) #@68 Parser for break-statement. Last matched token must be js2-BREAK. (defalias 'js2-parse-break #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262 H\306!\n>\204)\307\310\311D\"\210\211\313H\262\314\211\211\211\315 =\203\236\316 \210\317 \262\306!\f>\204P\307\310\320D\"\210\211\312H\306!\f>\204b\307\310\320D\"\210\313H\\\262\262\321 H\306!\n>\204}\307\310\311D\"\210\211\322H\262!\262\205\234\306! >\204\230\307\310\323D\"\210\324H@\262\204\300\204\300\204\273\204\300\325\326\314\327G$\210\202\300@\262\330\331\nZ\314\211  &\262\332\"\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NAME cl-struct-js2-node-tags cl-struct-js2-labeled-stmt-node-tags type-of signal wrong-type-argument js2-token 2 3 nil js2-peek-token-or-eol js2-get-token js2-create-name-node js2-node js2-match-jump-label-name 4 js2-labeled-stmt-node 6 js2-report-error "msg.bad.break" "break" record js2-break-node js2-node-add-children js2-loop-and-switch-set js2-BREAK] 15 (#$ . 1172383)]) #@74 Parser for continue-statement. Last matched token must be js2-CONTINUE. (defalias 'js2-parse-continue #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262 H\306!\n>\204)\307\310\311D\"\210\211\313H\262\314\211\211\211\315 U\203\205\316 \210\317 \262\306!\f>\204P\307\310\320D\"\210\211\312H\306!\f>\204b\307\310\320D\"\210\313H\\\262\262\321 H\306!\n>\204}\307\310\311D\"\210\211\322H\262!\262\204\240 \204\231\323\324\314\325G$\210\202\340 @\262\202\340\306\211!>\204\262\307\310\326D\"\210\327H!>\203\324\306!>\204\314\307\310\326D\"\210\327H\262\202\340\323\330\314\nZ$\210\331\332\nZ\314\211\n &\262\333\"\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NAME cl-struct-js2-node-tags js2-loop-set type-of signal wrong-type-argument js2-token 2 3 nil js2-peek-token-or-eol js2-get-token js2-create-name-node js2-node js2-match-jump-label-name 4 js2-report-error "msg.continue.outside" "continue" js2-labeled-stmt-node 7 "msg.continue.nonloop" record js2-continue-node js2-node-add-children cl-struct-js2-labeled-stmt-node-tags cl-struct-js2-loop-node-tags js2-CONTINUE] 15 (#$ . 1173441)]) #@66 Parser for with-statement. Last matched token must be js2-WITH. (defalias 'js2-parse-with #[0 "\203\306\307!\210 \nH\310! >\204\311\312\313D\"\210\211\314H\262\315\211\211\211\211\316\f\317\"\203D \nH\310! >\204=\311\312\313D\"\210\211\314H\262\262\320 \262\316 \321\"\203h \nH\310! >\204a\311\312\313D\"\210\211\314H\262\262T\322 \262)\323\324\325\310!>\204\211\311\312\326D\"\210\211\314H\310!>\204\234\311\312\326D\"\210\327H\\\262\nZ\330\n\331 \332 \205\267Z\266\202\333\f\205\305Z\266\202&\f\262\334#\210\207" [js2-in-use-strict-directive js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-LP js2-RP js2-report-error "msg.no.with.strict" type-of signal wrong-type-argument js2-token 2 nil js2-must-match "msg.no.paren.with" js2-parse-expr "msg.no.paren.after.with" js2-parse-statement make-js2-with-node :pos :len js2-node 3 :object :body :lp :rp js2-node-add-children js2-nesting-of-with cl-struct-js2-node-tags] 22 (#$ . 1174639)]) #@86 Parser for var- or const-statement. Last matched token must be js2-CONST or js2-VAR. (defalias 'js2-parse-const-var #[0 " H\304!\n>\204\305\306\307D\"\210\211\310H\262 H\304!\n>\204)\305\306\307D\"\210\211\311H\262\312\211\313 H\304!\n>\204D\305\306\307D\"\210\211\311H\262\"\262\314\315\316\304! >\204`\305\306\317D\"\210\211\311H\304! >\204r\305\306\317D\"\210\320H\\\262Z\321&\262\322\"\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags cl-struct-js2-node-tags type-of signal wrong-type-argument js2-token 1 2 nil js2-parse-variables make-js2-expr-stmt-node :pos :len js2-node 3 :expr js2-node-add-children] 14 (#$ . 1175664)]) #@37 (fn POS EXPR &optional ADD-CHILD) (defalias 'js2-wrap-with-expr-stmt #[770 "\304\305\306\307!>\204\310\311\312D\"\210\313H\314 \211\315V\262\203&\n\202' \316 &\2035\317\"\210\211\207" [cl-struct-js2-node-tags js2-nesting-of-function js2-EXPR_VOID js2-EXPR_RESULT make-js2-expr-stmt-node :pos :len type-of signal wrong-type-argument js2-node 3 :type 0 :expr js2-node-add-children] 12 (#$ . 1176357)]) #@64 Parser for let-statement. Last matched token must be js2-LET. (defalias 'js2-parse-let-stmt #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\211\314 U\2030\315\316\"\262\317\320#\262\202T\321\f\"\262\317\320#\262\306! >\204L\307\310\322D\"\210\211\211\323I\266\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-LP js2-LET cl-struct-js2-node-tags type-of signal wrong-type-argument js2-token 2 nil js2-peek-token js2-parse-let statement js2-wrap-with-expr-stmt t js2-parse-variables js2-node 1 js2-EXPR_RESULT] 7 (#$ . 1176783)]) (defalias 'js2-parse-ret-yield #[0 "\303 H\304!\n>\204\305\306\307D\"\210\211\310H\262\311\"\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-parse-return-or-yield type-of signal wrong-type-argument js2-token 1 nil] 6]) (defconst js2-parse-return-stmt-enders (list js2-SEMI js2-RC js2-EOF js2-EOL js2-ERROR js2-RB js2-RP)) #@254 Return whether or not the bits in the mask have changed to all set. BEFORE is bits before change, AFTER is bits after change, and MASK is the mask for bits. Returns t if all the bits in the mask are set in AFTER but not BEFORE. (fn BEFORE AFTER MASK) (defalias 'js2-now-all-set #[771 "\300\"U?\205\300\"U\207" [logand] 6 (#$ . 1177722)]) (put 'js2-now-all-set 'byte-optimizer 'byte-compile-inline-expand) #@24 (fn TT EXPR-CONTEXT) (defalias 'js2-parse-return-or-yield #[514 " H\306!\n>\204\307\310\311D\"\210\211\312H\262 H\306!\n>\204)\307\310\311D\"\210\211\313H\262 \f\211\314V\262\211\205L\306 !,>\204I\307\310\315 D\"\210 \316H\317\211\211\211\204d\320 -=\203a\321\202b\322!\210\203x\323=\203x\324.!\203x\325\262\326 />\204\273\323=\203\213\327 \202\215\330 \262\306!0>\204\240\307\310\331D\"\210\211\312H\306!0>\204\263\307\310\331D\"\210\313H\\\262\262\n-=\203\332 \204\3161\202\3202\"\333\334-   Z\317\211\n&\262\335\"\2103\203Z \33212\"\336\"U?\205\336\"U\266\203\203Z\337\340\317  $\210\202Z\341=\203*\320\342\317 \343$\210\202Z\333\3444   Z\317\211 &\262\335\"\210 \204Z\262\345 \325#\262\346 \210\347 \210\203\254 2\336\"\314U?\266\202\203\254\306 !,>\204}\307\310\315 D\"\210 \316H\350=\203\254\351 !\262G\314U\203\240\320\352\317   Z$\210\202\254\320\353   Z$\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-end-flags js2-nesting-of-function js2-current-script-or-fn type-of signal wrong-type-argument js2-token 2 3 0 js2-function-node 27 nil js2-report-error "msg.bad.return" "msg.bad.yield" STAR js2-match-token t js2-peek-token-or-eol js2-parse-assign-expr js2-parse-expr js2-node logior record js2-return-node js2-node-add-children logand js2-add-strict-warning "msg.return.inconsistent" COMPREHENSION "msg.syntax" 5 js2-yield-node js2-wrap-with-expr-stmt js2-set-requires-activation js2-set-is-generator LEGACY js2-function-name "msg.anon.generator.returns" "msg.generator.returns" cl-struct-js2-function-node-tags js2-RETURN js2-MUL js2-parse-return-stmt-enders cl-struct-js2-node-tags js2-end-returns js2-end-returns-value js2-strict-inconsistent-return-warning js2-YIELD] 20 (#$ . 1178143)]) (defalias 'js2-parse-debugger #[0 "\301\302\"\207" [js2-DEBUGGER make-js2-keyword-node :type] 3]) #@84 Parser for a curly-delimited statement block. Last token matched must be `js2-LC'. (defalias 'js2-parse-block #[0 " H\305!\n>\204\306\307\310D\"\210\211\311H\262\312 \313!\210\314\216\315!\210\316 \317\"\210\305!\f>\2047\306\307\320D\"\210\211\211\321 H\305!\n>\204L\306\307\310D\"\210\211\321H\262ZI\266)\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-RC cl-struct-js2-node-tags type-of signal wrong-type-argument js2-token 2 make-js2-scope js2-push-scope #[0 "\302! >\204\303\304\305D\"\210\306H\211\207" [js2-current-scope cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 8] 4] js2-parse-statements js2-must-match "msg.no.brace.block" js2-node 3] 10 (#$ . 1180106)]) #@88 Parse a statement or handle an error. Current token type is `js2-SEMI' or `js2-ERROR'. (defalias 'js2-parse-semi #[0 " H\305!\n>\204\306\307\310D\"\210\211\311H\262\312\211 =\203&\313\314\311\"\202j H\305!\n>\2048\306\307\310D\"\210\211\315H\262\262 H\305!\n>\204Q\306\307\310D\"\210\211\316H\262Z\262\317\320\312$\210\321\322\f\312\211&\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-SEMI js2-ERROR type-of signal wrong-type-argument js2-token 1 nil make-js2-empty-expr-node :len 2 3 js2-report-error "msg.syntax" record js2-error-node] 10 (#$ . 1180850)]) #@57 Parse a `default xml namespace = ' e4x statement. (defalias 'js2-parse-default-xml-namespace #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\211\211\211\314 \210\315 \210 Z\262\316\f!\203H H\306!\n>\204>\307\310\311D\"\210\211\317H\262\320\230\204Q\321\322\313$\210\316\f!\203s H\306!\n>\204i\307\310\311D\"\210\211\317H\262\323\230\204|\321\322\313$\210\316 !\204\213\321\322\313$\210\324 \262\306!>\204\240\307\310\325D\"\210\211\312H\306!>\204\263\307\310\325D\"\210\326H\\\262\262\327\330 Z\313\211&\262\331\"\210\327\332 Z\313\211&\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor js2-NAME js2-ASSIGN type-of signal wrong-type-argument js2-token 2 nil js2-must-have-xml js2-set-requires-activation js2-match-token 4 "xml" js2-report-error "msg.bad.namespace" "namespace" js2-parse-expr js2-node 3 record js2-unary-node js2-node-add-children js2-expr-stmt-node cl-struct-js2-node-tags js2-DEFAULTNAMESPACE js2-EXPR_VOID] 13 (#$ . 1181464)]) #@21 (fn LABEL BUNDLE) (defalias 'js2-record-label #[514 "\305 \210\306!>\204\307\310\311D\"\210\312H\313\211\314 \"A\211\262\203z\n\203K\315\"\211\262\203K\316\317\313\320!\306! >\204F\307\310\321D\"\210\322H$\210\316\317\313\306! >\204_\307\310\321\nD\"\210\323H\306 ! >\204t\307\310\321 D\"\210\322H$\210\306!\f>\204\213\307\310\324D\"\210\211\312\306!\f>\204\236\307\310\324D\"\210\312HC\244I\266\325\"\210B B\211\207" [cl-struct-js2-label-node-tags js2-label-set js2-parse-ide-mode cl-struct-js2-node-tags cl-struct-js2-labeled-stmt-node-tags js2-get-token type-of signal wrong-type-argument js2-label-node 6 nil assoc js2-get-label-by-name js2-report-error "msg.dup.label" js2-node-abs-pos js2-node 3 2 js2-labeled-stmt-node js2-node-add-children] 14 (#$ . 1182533)]) #@346 Parser for identifier or label. Last token matched must be js2-NAME. Called when we found a name in a statement context. If it's a label, we gather up any following labels and the next non-label statement into a `js2-labeled-stmt-node' bundle and return that. Otherwise we parse an expression and return it wrapped in a `js2-expr-stmt-node'. (defalias 'js2-parse-name-or-label #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\211\211C\314\315 \262\204-\316\317 \314#\202\320\321 \322\313\211\211\211&\240\210\323\242\"\210\211\203\205\324 \fU\203\205\315 \211\262\203^\323\242\"\210\202B\317 \262\316\306! >\204s\307\310\325D\"\210\312H\314#\262\313\262\326!\210\202B\327\330\331\332\333!\334\"\335$\216\204\242\242#\336 \210\337 \262))\306\242!$>\204\265\307\310\321\242D\"\210\242\211\340I\266\306\242! >\204\316\307\310\325\242D\"\210\242\211\341\306! >\204\342\307\310\325D\"\210\211\312H\306! >\204\364\307\310\325D\"\210\341H\\\262ZI\266\342\242\"\210\242\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-EXPR_RESULT js2-NAME cl-struct-js2-node-tags type-of signal wrong-type-argument js2-token 2 nil t js2-maybe-parse-label js2-wrap-with-expr-stmt js2-parse-expr record js2-labeled-stmt-node 1 js2-record-label js2-get-token js2-node js2-auto-insert-semicolon make-byte-code 0 "\303\300\242! >\204\304\305\306\300\242D\"\210\300\242\307H\211\205'\211@\310\n\"A\266\202\202\207" vconcat vector [cl-struct-js2-labeled-stmt-node-tags js2-label-set type-of signal wrong-type-argument js2-labeled-stmt-node 6 remove] 5 js2-unget-token js2-statement-helper 7 3 js2-node-add-children js2-labeled-stmt cl-struct-js2-labeled-stmt-node-tags] 15 (#$ . 1183361)]) (defalias 'js2-maybe-parse-label #[0 " H\305!\n>\204\306\307\310D\"\210\211\311H\262 U\204 \312\313!\210\314\315  H\305!\n>\2045\306\307\310D\"\210\211\316H\262\317 \210\fU\203\210 H\305!\n>\204U\306\307\310D\"\210\211\320H\262\262\321\322\323Z\324 H\305!\n>\204w\306\307\310D\"\210\211\325H\262&\326\327\330$\210\202\214\317 \210\314\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NAME js2-COLON type-of signal wrong-type-argument js2-token 1 cl--assertion-failed (= (js2-current-token-type) js2-NAME) nil js2-get-token 3 js2-unget-token 2 make-js2-label-node :pos :len :name 4 js2-set-face font-lock-variable-name-face record] 14]) #@72 Default parser in statement context, if no recognized statement found. (defalias 'js2-parse-expr-stmt #[0 "\303 H\304!\n>\204\305\306\307D\"\210\211\310H\262\311 \210\312 \313#\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-wrap-with-expr-stmt type-of signal wrong-type-argument js2-token 2 js2-unget-token js2-parse-expr t] 6 (#$ . 1185824)]) #@537 Parse a comma-separated list of variable declarations. Could be a 'var', 'const' or 'let' expression, possibly in a for-loop initializer. DECL-TYPE is a token value: either VAR, CONST, or LET depending on context. For 'var' or 'const', the keyword should be the token last scanned. POS is the position where the node should start. It's sometimes the var/const/let keyword, and other times the beginning of the first token in the first variable declaration. Returns the parsed `js2-var-decl-node' expression node. (fn DECL-TYPE POS) (defalias 'js2-parse-variables #[514 "\306\307\310\311\211\211 &\311\211\211\211\211\211\211\211\211\312\211\203\360\311\262\n\311\262\313 \262 \nH\314! >\2046\315\316\317D\"\210\211\320H\262\262 \nH\314! >\204O\315\316\317D\"\210\211\321H\262\262\311\262\fU\204g U\203\233\322 \262\n \314!)>\204}\315\316\323D\"\210\211\320H\314!)>\204\220\315\316\323D\"\210\321H\\\262\262\202\324 \210\325\326!\203\327 \262 \nH\314! >\204\272\315\316\317D\"\210\211\320H\262\262 \nH\314! >\204\323\315\316\317D\"\210\211\321H\262\262\262\330 \nH\314! >\204\362\315\316\317D\"\210\211\331H\262*$\210\332!\210\333+!\203A\334 \262\314!)>\204\315\316\323D\"\210\211\320H\314!)>\2042\315\316\323D\"\210\321H\\\262\262\335\"\210\203Z\336\314\n!,>\203V\337\202W\340\306$\210\306\341  Z\311\211\211\211&\262 \203\243\204\200*\204\200\342\343!\210\344\n\340#\210\314!->\204\230\315\316\341D\"\210\211\345\fI\266\202\273\314!->\204\263\315\316\341D\"\210\211\345I\266\314!->\204\313\315\316\341D\"\210\211\346 I\266\347\f\n$\210\350 \"\210\333.!\204\311\262\202\314 !)>\204\315\316\323 D\"\210\n\211\321ZI\266\n\207" [js2-VAR js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-LB js2-LC record js2-var-decl-node 1 nil t js2-get-token type-of signal wrong-type-argument js2-token 2 3 js2-parse-destruct-primary-expr js2-node js2-unget-token js2-must-match-name "msg.bad.var" js2-create-name-node js2-define-symbol 4 js2-check-strict-identifier js2-match-token js2-parse-assign-expr js2-record-imenu-functions js2-set-face font-lock-function-name-face font-lock-variable-name-face js2-var-init-node js2-report-error "msg.destruct.assign.no.init" js2-define-destruct-symbols 6 7 js2-node-add-children js2-block-node-push cl-struct-js2-node-tags js2-in-for-init js2-ASSIGN cl-struct-js2-function-node-tags cl-struct-js2-var-init-node-tags js2-COMMA] 22 (#$ . 1186204)]) #@262 Parse a let expression or statement. A let-expression is of the form `let (vars) expr'. A let-statement is of the form `let (vars) {statements}'. The third form of let is a variable declaration list, handled by `js2-parse-variables'. (fn POS &optional STMT-P) (defalias 'js2-parse-let #[513 "\306\307\310\311\211\211\211\211\211\211\211\211\211&\311\211\211\312 \313\"\203K\314!\n>\204+\315\316\307D\"\210\211\317 \fH\314! >\204@\315\316\320D\"\210\211\321H\262 ZI\266\322!\210\323\216\324 \fH\314! >\204f\315\316\320D\"\210\211\321H\262\"\262\312!\325\"\203\246\314!\n>\204\206\315\316\307D\"\210\211\326 \fH\314! >\204\233\315\316\320D\"\210\211\321H\262 ZI\266\203h\327\"!\203h \fH\314! >\204\303\315\316\320D\"\210\211\321H\262\262\330 \262\312#\331\"\210\314!$>\204\344\315\316\332D\"\210\211\211\333 \fH\314! >\204\371\315\316\320D\"\210\211\333H\262ZI\266\314!$>\204\315\316\332D\"\210\211\333 \fH\314! >\204*\315\316\320D\"\210\211\333H\262 ZI\266\314!\n>\204E\315\316\307D\"\210\211\334I\266\314!$>\204]\315\316\332D\"\210\211\310 I\266\202\307\335 \262\314!$>\204}\315\316\332D\"\210\211\333\314!$>\204\221\315\316\332D\"\210\211\321H\314!$>\204\244\315\316\332D\"\210\333H\\\262 ZI\266\314!\n>\204\300\315\316\307D\"\210\211\334I\266\314!\n>\204\327\315\316\307D\"\210\211\336I\266\337#\210)\207" [js2-LETEXPR js2-LP cl-struct-js2-let-node-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags record js2-let-node 1 nil js2-must-match "msg.no.paren.after.let" type-of signal wrong-type-argument 12 js2-token 2 js2-push-scope #[0 "\302! >\204\303\304\305D\"\210\306H\211\207" [js2-current-scope cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 8] 4] js2-parse-variables "msg.no.paren.let" 13 js2-match-token js2-parse-statements "msg.no.curly.let" js2-node 3 11 js2-parse-expr 10 js2-node-add-children js2-LET js2-RP js2-LC js2-RC cl-struct-js2-node-tags] 17 (#$ . 1188761)]) #@44 (fn DECL-TYPE NAME NODE &optional SCOPE) (defalias 'js2-define-new-symbol #[1027 "\301\206\302\303$#\207" [js2-current-scope js2-scope-put-symbol record js2-symbol] 12 (#$ . 1190817)]) #@162 Define a symbol in the current scope. If NODE is non-nil, it is the AST node associated with the symbol. (fn DECL-TYPE NAME &optional NODE IGNORE-NOT-IN-BLOCK) (defalias 'js2-define-symbol #[1026 "\306\"\211\205\f\307\"\211\203%\310! >\204\311\312\313D\"\210\211\314H\202&\315\205-\316!\205E\310!\n>\204B\311\312\317D\"\210\320H\203\216 U\204U\fU\203\216=\203\216\321\fU\203f\322\202\206 U\203p\323\202\206 U\203z\324\202\206U\203\205\325\202\206\326 $\202? U\204\234\fU\203\331 U\203\316\204\316\310!\n>\204\266\311\312\317D\"\210\314HU\204\310\310! >\203\316\321\327!\202?\330   #\202? U\204\350U\203 \203!\203\377 U\203\377\331\324 \"\202?\"\205?#U\205?\331\332 \"\202?\330   $$\202?#U\203=\2032\333\334 \"\210\330   #\202?\335 \207" [js2-current-scope cl-struct-js2-symbol-tags cl-struct-js2-node-tags js2-LET js2-CONST js2-VAR js2-get-defining-scope js2-scope-get-symbol type-of signal wrong-type-argument js2-symbol 1 -1 js2-node-abs-pos js2-node 3 js2-report-error "msg.const.redecl" "msg.let.redecl" "msg.var.redecl" "msg.function.redecl" "msg.parm.redecl" "msg.let.decl.not.in.block" js2-define-new-symbol js2-add-strict-warning "msg.var.hides.arg" js2-report-warning "msg.dup.parms" js2-code-bug js2-FUNCTION js2-IF cl-struct-js2-loop-node-tags js2-strict-var-redeclaration-warning js2-strict-var-hides-function-arg-warning js2-LP js2-current-script-or-fn] 14 (#$ . 1191022)]) (defalias 'js2-parse-paren-expr-or-generator-comp #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262 \313Y\203)\314\f!\203)\315!\202\256 \313Y\203N\314 !\203N\316 =\203E\317\320 \"\202\256\321\322!\210\323 \202\256\324!\325 \326\327\"\330\324\211&\331\306!#>\204q\307\310\327D\"\210\332H\"\210\333 \334\"\210\306!$>\204\213\307\310\335D\"\210\211\211\336 H\306!\n>\204\240\307\310\311D\"\210\211\336H\262ZI\266)\262\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-language-version js2-FOR js2-RP type-of signal wrong-type-argument js2-token 2 200 js2-match-token js2-parse-generator-comp js2-peek-token make-js2-keyword-node :type js2-report-error "msg.syntax" make-js2-error-node nil js2-parse-expr record js2-paren-node 1 js2-node-add-children 6 js2-must-match "msg.no.paren" js2-node 3 js2-ARROW js2-NULL js2-in-for-init js2-LP cl-struct-js2-paren-node-tags cl-struct-js2-node-tags] 11]) #@26 (fn &optional ONESHOT) (defalias 'js2-parse-expr #[256 "\306 \307!>\204\310\311\312D\"\210\211\313H\314\211\211\204a\315 !\203a\n H\307!\f>\2043\310\311\316D\"\210\211\313H\262Z\262\306 \262\262\317\320  Z\314\211\n\n& \262\321#\210\202\207" [cl-struct-js2-node-tags js2-COMMA js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor js2-parse-assign-expr type-of signal wrong-type-argument js2-node 2 nil js2-match-token js2-token record js2-infix-node js2-node-add-children] 16 (#$ . 1193488)]) (defalias 'js2-parse-assign-expr #[0 "\306  H\307!\n>\204\310\311\312D\"\210\211\313H\262\314\211\211\211\211\211\211\211 U\2030\315\n\316\"\202S\317 \2038\316\262\320\321\f \322! *&\262+\262,\262\323 \262\306 \262\n-\nX\203\375 .X\203\375 H\307!\n>\204x\310\311\312D\"\210\211\313H\262 Z\262\262\307!/>\203\225\324!\210\325 \262\326\327 \330\f\331 \307!0>\204\263\310\311\332D\"\210\211\313H\307!0>\204\306\310\311\332D\"\210\333H\\\262Z\334\f\335\336&\f\2621\203\361\337#\210\340\"\210\341#\210\202Q2\342Y\203N 3U\204\211\203N\343 3U\203N\344!\210\211\203'\345\346!\210\306 \210+,\347\350 H\307!\n>\204A\310\311\312D\"\210\211\313H\262\314$\262\202Q\351 \210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-YIELD js2-ts-lineno js2-ts-cursor js2-get-token type-of signal wrong-type-argument js2-token 2 nil js2-parse-return-or-yield t js2-match-async-arrow-function record js2-ts-state copy-sequence js2-parse-cond-expr js2-check-strict-identifier js2-parse-assign-expr make-js2-assign-node :type :pos :len js2-node 3 :op-pos :left :right js2-highlight-assign-targets js2-record-imenu-functions js2-node-add-children 200 js2-peek-token js2-ts-seek js2-record-face font-lock-keyword-face js2-parse-function FUNCTION_ARROW js2-unget-token js2-ti-lookahead js2-recorded-identifiers js2-parsed-errors js2-first-assign js2-last-assign cl-struct-js2-name-node-tags cl-struct-js2-node-tags js2-parse-ide-mode js2-language-version js2-ARROW] 23]) (defalias 'js2-parse-cond-expr #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313 \314\211\211\211\211\315 !\203\300 H\306!\n>\2046\307\310\311D\"\210\211\312H\262Z\262\314\316 )\262\317 \320\"\210 H\306!\n>\204^\307\310\311D\"\210\211\312H\262Z\262\316 \262\262\321\322\323\306!>\204\206\307\310\324D\"\210\211\312H\306!>\204\231\307\310\324D\"\210\325H\\\262 Z\326\n\327 \330\f\331 \332&\262\333$\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-HOOK js2-in-for-init js2-COLON type-of signal wrong-type-argument js2-token 2 js2-parse-nullish-coalescing-expr nil js2-match-token js2-parse-assign-expr js2-must-match "msg.no.colon.cond" make-js2-cond-node :pos :len js2-node 3 :test-expr :true-expr :false-expr :q-pos :c-pos js2-node-add-children cl-struct-js2-node-tags] 22]) #@345 Helper for constructing a binary-operator AST node. LEFT is the left-side-expression, already parsed, and the binary operator should have just been matched. PARSER is a function to call to parse the right operand, or a `js2-node' struct if it has already been parsed. FIXME: The latter option is unused? (fn TYPE LEFT PARSER &optional NO-GET) (defalias 'js2-make-binary #[1027 "\304!>\204\305\306\307D\"\210\310H \nH\304! >\204$\305\306\311D\"\210\211\310H\262Z\304!>\2037\202@\204>\312 \210 \313\314\315\316\304!>\204Y\305\306\307D\"\210\211\310H\304!>\204k\305\306\307D\"\210\317H\\\262 Z\320 \321\322\f&\f\323#\210\207" [cl-struct-js2-node-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags type-of signal wrong-type-argument js2-node 2 js2-token js2-get-token make-js2-infix-node :type :pos :len 3 :op-pos :left :right js2-node-add-children] 20 (#$ . 1196484)]) (defalias 'js2-parse-or-expr #[0 "\301 \302!\203\303\304#\262\211\207" [js2-OR js2-parse-and-expr js2-match-token js2-make-binary js2-parse-or-expr] 5]) (defalias 'js2-parse-and-expr #[0 "\301 \302!\203\303\304#\262\211\207" [js2-AND js2-parse-bit-or-expr js2-match-token js2-make-binary js2-parse-and-expr] 5]) (defalias 'js2-parse-bit-or-expr #[0 "\301 \302!\203\303\301#\262\202\211\207" [js2-BITOR js2-parse-bit-xor-expr js2-match-token js2-make-binary] 5]) (defalias 'js2-parse-bit-xor-expr #[0 "\301 \302!\203\303\301#\262\202\211\207" [js2-BITXOR js2-parse-bit-and-expr js2-match-token js2-make-binary] 5]) (defalias 'js2-parse-bit-and-expr #[0 "\301 \302!\203\303\301#\262\202\211\207" [js2-BITAND js2-parse-eq-expr js2-match-token js2-make-binary] 5]) (defalias 'js2-parse-nullish-coalescing-expr #[0 "\301 \302!\203\303\304#\262\211\207" [js2-NULLISH-COALESCING js2-parse-or-expr js2-match-token js2-make-binary js2-parse-nullish-coalescing-expr] 5]) (defconst js2-parse-eq-ops (list js2-EQ js2-NE js2-SHEQ js2-SHNE)) (defalias 'js2-parse-eq-expr #[0 "\301 \302\303 \211\262>\203\304\301#\262\202\305 \210\207" [js2-parse-eq-ops js2-parse-rel-expr nil js2-get-token js2-make-binary js2-unget-token] 6]) (defconst js2-parse-rel-ops (list js2-IN js2-INSTANCEOF js2-LE js2-LT js2-GE js2-GT)) (defalias 'js2-parse-rel-expr #[0 "\303 \304\305\2038\306 \262\203\211 U\203\307 \210\305\262\202\211\n>\203/\310\303#\262\202\307 \210\305\262\202\207" [js2-in-for-init js2-IN js2-parse-rel-ops js2-parse-shift-expr t nil js2-get-token js2-unget-token js2-make-binary] 7]) (defconst js2-parse-shift-ops (list js2-LSH js2-URSH js2-RSH)) (defalias 'js2-parse-shift-expr #[0 "\301 \302\303\211\203%\304 \262>\203\305\301#\262\202\306 \210\302\262\202\207" [js2-parse-shift-ops js2-parse-add-expr nil t js2-get-token js2-make-binary js2-unget-token] 7]) (defalias 'js2-parse-add-expr #[0 "\302 \303\304\211\203+\305 \262U\204 U\203\"\306\302#\262\202\307 \210\303\262\202\207" [js2-ADD js2-SUB js2-parse-mul-expr nil t js2-get-token js2-make-binary js2-unget-token] 7]) (defconst js2-parse-mul-ops (list js2-MUL js2-DIV js2-MOD)) (defalias 'js2-parse-mul-expr #[0 "\301 \302\303\211\203%\304 \262>\203\305\301#\262\202\306 \210\302\262\202\207" [js2-parse-mul-ops js2-parse-expon-expr nil t js2-get-token js2-make-binary js2-unget-token] 7]) (defalias 'js2-parse-expon-expr #[0 "\304 \305Y\203R\306 !\203R\307!\n>\203H\307! >\204%\310\311\312D\"\210\211\313H\314>\204H\315\316\317\320!\307! >\204C\310\311\312D\"\210\321H$\210\322 \323#\262\202\211\207" [js2-language-version js2-EXPON cl-struct-js2-unary-node-tags cl-struct-js2-node-tags js2-parse-unary-expr 200 js2-match-token type-of signal wrong-type-argument js2-node 1 (js2-INC js2-DEC) js2-report-error "msg.syntax" nil js2-node-abs-pos 3 js2-make-binary js2-parse-expon-expr] 9]) #@276 Make a unary node starting at BEG of type TYPE. If BEG is nil, `(js2-current-token-beg)' is used for the node start position. PARSER is either a node (for postfix operators) or a function to call to parse the operand (for prefix operators). (fn BEG TYPE PARSER &rest ARGS) (defalias 'js2-make-unary #[899 "\206 H\304!\n>\204\305\306\307D\"\210\211\310H\262\304! >\205$\311\211\203,\2020\312\"\313\211\203f\304! >\204E\305\306\314D\"\210\310H\262 H\304!\n>\204\\\305\306\307D\"\210\211\315H\262\262\202\220\304! >\204v\305\306\314D\"\210\211\310H\304! >\204\210\305\306\314D\"\210\315H\\\262\262\316\317  Z\313\211 &\262\320\"\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags cl-struct-js2-node-tags type-of signal wrong-type-argument js2-token 2 t apply nil js2-node 3 record js2-unary-node js2-node-add-children] 17 (#$ . 1200390)]) #@60 Node types that can be the operand of a ++ or -- operator. (defconst js2-incrementable-node-types (list js2-NAME js2-GETPROP js2-GETELEM js2-GET_REF js2-CALL) (#$ . 1201303)) #@25 (fn TT BEG END UNARY) (defalias 'js2-check-bad-inc-dec #[1028 "\304\211!>\204\305\306\307D\"\210\310H! >\2042\305\306\311\304!>\204,\305\306\307D\"\210\310HD\"\210\304!>\204A\305\306\307D\"\210\211\310H\312H\n>?\205_\313 U\203W\314\202X\315\316Z$\207" [cl-struct-js2-unary-node-tags cl-struct-js2-node-tags js2-incrementable-node-types js2-INC type-of signal wrong-type-argument js2-unary-node 6 js2-node 1 js2-report-error "msg.bad.incr" "msg.bad.decr" nil] 11 (#$ . 1201484)]) (defalias 'js2-parse-unary-expr #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262 H\306!\n>\204)\307\310\311D\"\210\211\313H\262 U\204G\fU\204G U\204GU\203R\314 \210\315\316#\202\242U\203e\314 \210\315\316#\202\242U\203x\314 \210\315 \316#\202\242!U\204\206\"U\203\311\314 \210 H\306!\n>\204\233\307\310\311D\"\210\211\313H\262 H\306!\n>\204\262\307\310\311D\"\210\211\317H\262\315\320\321$\322$\210\266\202\202\242#U\203\334\314 \210\315#\316#\202\242\323!\206\242$U\203\361\314 \210\324 \202\242%U\203&\203\325\321\326 \"\202\242\320\321!\327 \330!U\204\"U\203\237\314 \210\262\315\306!'>\2040\307\310\331D\"\210\313H#\262\332\321\306!'>\204K\307\310\331D\"\210\211\333D\306!'>\204c\307\310\331 D\"\210\333HBI\266\322 H\306!\n>\204\307\310\311D\"\210\211\313H\262 H\306!\n>\204\226\307\310\311D\"\210\211\317H\262$\210\266\203\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-VOID js2-NOT js2-BITNOT type-of signal wrong-type-argument js2-token 1 2 js2-get-token js2-make-unary js2-parse-unary-expr 3 js2-parse-member-expr t js2-check-bad-inc-dec js2-parse-await-maybe make-js2-error-node js2-parse-member-expr-tail js2-parse-xml-initializer js2-peek-token-or-eol nil js2-node postfix 4 js2-TYPEOF js2-ADD js2-POS js2-SUB js2-NEG js2-INC js2-DEC js2-DELPROP js2-ERROR js2-LT js2-compiler-xml-available cl-struct-js2-node-tags] 16]) #@378 Parse an E4X XML initializer. I'm parsing it the way Rhino parses it, but without the tree-rewriting. Then I'll postprocess the result, depending on whether we're in IDE mode or codegen mode, and generate the appropriate rewritten AST. IDE mode uses a rich AST that models the XML structure. Codegen mode just concatenates everything and makes a new XML or XMLList out of it. (defalias 'js2-parse-xml-initializer #[0 "\306 \307\211\211\211\211\310\211U\204 U\204\311\312!\210\313 \262\203u\211\203-\307\262\2021\314 \262U\203\337\315\316\n H\317!\f>\204L\320\321\322D\"\210\211\323H\262\324 \n H\317!\f>\204e\320\321\322D\"\210\211\323H\262Z$B\262\325 \312\"\210 \262\326 !=\203\216\327\330\"\331\307\211&\202\220\332 \262\325!\312\"\210\327\333\317!#>\204\255\320\321\334\nD\"\210\323H\317 !#>\204\303\320\321\334 D\"\210\335H\307\211\211\f&\262\336\"\210B\262\202 U\203k\315\316\n H\317!\f>\204\372\320\321\322D\"\210\211\323H\262\324 \n H\317!\f>\204\320\321\322D\"\210\211\323H\262Z$B\262\237\211\2033\211@\337 \"\210A\266\202\202 \210\317!#>\204F\320\321\334 D\"\210\211\335 \317 !#>\204]\320\321\334 D\"\210\n\323HZI\266\307\262\202\311\312!\210\307\262\202\207" [js2-XML js2-XMLEND js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ts-cursor js2-get-first-xml-token nil t js2-report-error "msg.syntax" make-js2-xml-node js2-get-next-xml-token make-js2-string-node :pos type-of signal wrong-type-argument js2-token 2 :len js2-must-match js2-peek-token record js2-empty-expr-node 1 js2-parse-expr js2-xml-js-expr-node js2-node 3 js2-node-add-children js2-block-node-push js2-LC js2-RC js2-EMPTY cl-struct-js2-node-tags] 18 (#$ . 1203484)]) #@131 Parse an argument list and return it as a Lisp list of nodes. Returns the list in reverse order. Consumes the right-paren token. (defalias 'js2-parse-argument-list #[0 "\306\307!?\205^\310 \nH\311! >\204\312\313\314D\"\210\211\315H\262\fU\2039 \316Y\2039\317\320#B\262\202B\321 \210\320 B\262\266\307!\203X \316W\204\322 U\203\323\324\"\210\211\207" [js2-RP js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-TRIPLEDOT js2-language-version nil js2-match-token js2-get-token type-of signal wrong-type-argument js2-token 2 200 js2-make-unary js2-parse-assign-expr js2-unget-token js2-peek-token js2-must-match "msg.no.paren.arg" js2-COMMA] 7 (#$ . 1205258)]) #@36 (fn &optional ALLOW-CALL-SYNTAX) (defalias 'js2-parse-member-expr #[256 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\211\211\211\211\211\211 U\204,\314 \262\202\261\315 \210 H\306!\n>\204A\307\310\311D\"\210\211\316H\262\262\262\317 \262\306!\f>\204_\307\310\320D\"\210\211\316H\306!\f>\204q\307\310\320D\"\210\321H\\\262\262\322\323 \nZ\313\211 \313\211\211\211& \262\324 H!\210\325\"\210\326 !\203;\262 H\306!\n>\204\266\307\310\311D\"\210\211\316H\262\262\327 \237\262\306! >\204\324\307\310\323 D\"\210\211\330I\266 H\306!\n>\204\357\307\310\311D\"\210\211\321H\262\262\306! >\204\307\310\323 D\"\210\211\331ZI\266\306! >\204&\307\310\323 D\"\210\211\332\333\312#I\266\334\325#\210!\203\225\326\"!\203\225\335 \262\211\306!\f>\204[\307\310\320D\"\210\211\316H\306!\f>\204m\307\310\320D\"\210\321H\\\262\262\306! >\204\207\307\310\323 D\"\210\211\336I\266\325\"\210\306!\f>\204\246\307\310\320 D\"\210\211\321ZI\266\337 \"\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NEW cl-struct-js2-node-tags js2-LP type-of signal wrong-type-argument js2-token 1 nil js2-parse-primary-expr js2-get-token 2 js2-parse-member-expr js2-node 3 record js2-new-node js2-highlight-function-call js2-node-add-children js2-match-token js2-parse-argument-list 7 8 9 - apply js2-parse-object-literal 10 js2-parse-member-expr-tail cl-struct-js2-new-node-tags js2-allow-rhino-new-expr-initializer js2-LC] 21 (#$ . 1205963)]) #@29 (fn ALLOW-CALL-SYNTAX PN) (defalias 'js2-parse-optional-chaining-operator #[514 "\304 \211=\203\305 \"\262\202<\211\n=\203\"\306 \210\307!\262\202<\211 =\2038\2038\310 \210\311\312\"\262\202<\313\314!\210\207" [js2-NAME js2-DOT js2-LB js2-LP js2-peek-token js2-parse-property-access js2-get-token js2-parse-element-get js2-unget-token js2-parse-function-call t js2-report-error "msg.bad.optional.chaining"] 6 (#$ . 1207538)]) #@272 Parse a chain of property/array accesses or function calls. Includes parsing for E4X operators like `..' and `.@'. If ALLOW-CALL-SYNTAX is nil, stops when we encounter a left-paren. Returns an expression tree that includes PN, the parent node. (fn ALLOW-CALL-SYNTAX PN) (defalias 'js2-parse-member-expr-tail #[514 "\306\307\211\203\244\310 \262U\204 U\203\311\"\262\202\226\nU\2035\312\"\262\204\226\306\262\202\226 U\203C\313!\262\202\226\fU\203Q\314!\262\202\226 U\203l\315 \210\203f\316!\262\202\226\306\262\202\226U\203}\317\320 \"\262\202\226U\203\220\317\321\322\"\"\262\202\226\315 \210\306\262\323Y\203\324!\210\202\207" [js2-DOT js2-DOTDOT js2-OPTIONAL-CHAINING js2-DOTQUERY js2-LB js2-LP nil t js2-get-token js2-parse-property-access js2-parse-optional-chaining-operator js2-parse-dot-query js2-parse-element-get js2-unget-token js2-parse-function-call js2-parse-tagged-template js2-parse-template-literal make-js2-string-node :type 2 js2-parse-highlight-member-expr-node js2-TEMPLATE_HEAD js2-NO_SUBS_TEMPLATE js2-highlight-level] 9 (#$ . 1207990)]) #@59 Parse tagged template expression. (fn TAG-NODE TPL-NODE) (defalias 'js2-parse-tagged-template #[514 "\304!>\204\305\306\307D\"\210\310H\311\312\313 \nH\304! >\204(\305\306\314D\"\210\211\315H\262Z\316\317 &\320#\210\207" [cl-struct-js2-node-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags type-of signal wrong-type-argument js2-node 2 make-js2-tagged-template-node :pos :len js2-token 3 :tag :template js2-node-add-children] 12 (#$ . 1209123)]) #@108 Parse a dot-query expression, e.g. foo.bar.(@name == 2) Last token parsed must be `js2-DOTQUERY'. (fn PN) (defalias 'js2-parse-dot-query #[257 "\306!>\204\307\310\311D\"\210\211\312H\313\211\211\314 \210\315 \210 \nH\306! >\204-\307\310\316D\"\210\211\312H\262\262\317 \262\306!>\204H\307\310\311D\"\210\211\312H\306!>\204Z\307\310\311D\"\210\320H\\\262\262\321\322\f\323\313\211 \f\n\313&\n\262\324\306! >\204\210\307\310\322 D\"\210\325H\306! >\204\235\307\310\322\nD\"\210\326H#\210\327\330\"\203\361\306! >\204\273\307\310\322D\"\210\211\331 \nH\306! >\204\320\307\310\316D\"\210\211\312H\262I\266 \nH\306! >\204\352\307\310\316D\"\210\211\320H\262\262\306!>\204\307\310\311D\"\210\211\320ZI\266\207" [cl-struct-js2-node-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-DOTQUERY cl-struct-js2-xml-dot-query-node-tags type-of signal wrong-type-argument js2-node 2 nil js2-must-have-xml js2-set-requires-activation js2-token js2-parse-expr 3 record js2-xml-dot-query-node 1 js2-node-add-children 7 8 js2-must-match "msg.no.paren" 9 js2-RP] 16 (#$ . 1209612)]) #@94 Parse an element-get expression, e.g. foo[bar]. Last token parsed must be `js2-RB'. (fn PN) (defalias 'js2-parse-element-get #[257 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\306! >\204&\307\310\313D\"\210\312H\314\211\315 \262\316\f\317\"\203O H\306!\n>\204H\307\310\311D\"\210\211\312H\262\262\320\321\322\323\324  \205eZ\266\202\325  \205sZ\266\202\326 H\306!\n>\204\210\307\310\311D\"\210\211\327H\262Z&\f\262\330\306! >\204\247\307\310\331 D\"\210\332H\306! >\204\274\307\310\331\nD\"\210\333H#\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags cl-struct-js2-node-tags js2-RB cl-struct-js2-elem-get-node-tags type-of signal wrong-type-argument js2-token 2 js2-node nil js2-parse-expr js2-must-match "msg.no.bracket.index" make-js2-elem-get-node :target :pos :element :lb :rb :len 3 js2-node-add-children js2-elem-get-node 6 7] 22 (#$ . 1210773)]) #@14 (fn TOKEN) (defalias 'js2-highlight-function-call #[257 "\302!>\204\303\304\305D\"\210\211\306H =\205\307\310\"\207" [cl-struct-js2-token-tags js2-NAME type-of signal wrong-type-argument js2-token 1 js2-record-face js2-function-call] 5 (#$ . 1211714)]) #@45 (fn PN &optional USE-OPTIONAL-CHAINING-P) (defalias 'js2-parse-function-call #[513 "\306 H!\210\307 \210\310\311!\n>\204\312\313\314D\"\210\315H\203#\307 \210\316\317\320\321 H\311! >\204<\312\313\322D\"\210\211\315H\262Z&\262\323\311!\f>\204[\312\313\324D\"\210\325H\"\210\326 \237\262\311!\f>\204u\312\313\324D\"\210\211\327 H\311! >\204\212\312\313\322D\"\210\211\315H\262ZI\266\311!\f>\204\244\312\313\324D\"\210\211\330I\266\331\323#\210\311!\n>\204\301\312\313\314D\"\210\211\332 ZI\266\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-node-tags cl-struct-js2-token-tags cl-struct-js2-call-node-tags js2-ts-cursor js2-highlight-function-call js2-get-token nil type-of signal wrong-type-argument js2-node 2 make-js2-call-node :pos :target :lp js2-token js2-node-add-children js2-call-node 6 js2-parse-argument-list 9 7 apply 3] 15 (#$ . 1211983)]) #@82 Parse a property access, XML descendants access, or XML attr access. (fn TT PN) (defalias 'js2-parse-property-access #[514 "\306 H\307!\n>\204\310\311\312D\"\210\211\313H\262 U\203\"\313\202#\314\315\211\211 U\2033\316 \210\f\262 \204s\317\320!\210\321\322(\"\262\323\324\325 H\307!\n>\204Y\310\311\312D\"\210\211\313H\262\326\327\330 &\262\331#\210\211\202\336)U\203\214\332\333(*\314\315\211\211\211\211& \202\231\332\334 *\314\315\211\211\211\211& \262\307!+>\204\253\310\311\335D\"\210\211\211\313\307\n!+>\204\300\310\311\335\fD\"\210 \313HI\266\307!,>\204\327\310\311\334D\"\210\211\211\336I\266\307!,>\204\357\310\311\334D\"\210\211\211\337 I\266\340 \262-U\203\341\342\315#\262\2029.U\203!\341\315\343#\262\2029/U\2030\344 \262\2029\345\320\315$\210\203\251\307!+>\204M\310\311\335D\"\210\211\211\346\307!+>\204a\310\311\335D\"\210\211\313H\307!+>\204t\310\311\335D\"\210\346H\\\262\307!+>\204\213\310\311\335D\"\210\313HZI\266\307!,>\204\242\310\311\334D\"\210\211\211\347I\266\307!,>\203\335\331\307!,>\204\304\310\311\334D\"\210\337H\307!,>\204\330\310\311\334D\"\210\347H#\210\211\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-DOTDOT js2-descendants-flag js2-compiler-xml-available 0 type-of signal wrong-type-argument js2-token 2 1 nil js2-must-have-xml js2-must-match-prop-name "msg.no.name.after.dot" js2-create-name-node t make-js2-prop-get-node :left :pos :right :len js2-current-token-len js2-node-add-children record js2-prop-get-node js2-infix-node js2-node 6 7 js2-get-prop-name-token js2-parse-property-name -1 "*" js2-parse-attribute-access js2-report-error 3 8 js2-GETPROP js2-DOT js2-ts-cursor cl-struct-js2-node-tags cl-struct-js2-infix-node-tags js2-NAME js2-MUL js2-XMLATTR] 18 (#$ . 1212907)]) #@222 Parse an E4X XML attribute expression. This includes expressions of the forms: @attr @ns::attr @ns::* @* @*::attr @*::* @[expr] @*::[expr] @ns::[expr] Called if we peeked an '@' token. (defalias 'js2-parse-attribute-access #[0 "\306  H\307!\n>\204\310\311\312D\"\210\211\313H\262 U\203'\314\315\316#\202v\fU\203K\314 H\307!\n>\204@\310\311\312D\"\210\211\313H\262\317\316#\202v U\203W\320!\202v\321\322!\210\314 H\307!\n>\204n\310\311\312D\"\210\211\313H\262\323\316#\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NAME js2-MUL js2-LB js2-get-prop-name-token type-of signal wrong-type-argument js2-token 2 js2-parse-property-name nil 0 "*" js2-parse-xml-elem-ref js2-report-error "msg.no.name.after.xmlAttr" ""] 8 (#$ . 1214799)]) #@540 Check if :: follows name in which case it becomes qualified name. AT-POS is a natural number if we just read an '@' token, else nil. S is the name or string that was matched: an identifier, 'throw' or '*'. MEMBER-TYPE-FLAGS is a bit set tracking whether we're a '.' or '..' child. Returns a `js2-xml-ref-node' if it's an attribute access, a child of a '..' operator, or the name is followed by ::. For a plain name, returns a `js2-name-node'. Returns a `js2-error-node' for malformed XML expressions. (fn AT-POS S MEMBER-TYPE-FLAGS) (defalias 'js2-parse-property-name #[771 "\206 H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\314\315 H\306!\n>\2040\307\310\311D\"\210\211\316H\262#\313\211\211\3172\363\320 !\203\234\262 H\306!\n>\204Z\307\310\311D\"\210\211\312H\262\262\321 \262\fU\203r\314 \262\202\234 U\203\202\314\313\211\322#\262\202\234!U\203\230\323\317\324  #\"\210\202\234\325\326!\210\204\253\327U\203\253\202\362\330\331\332\306!\">\204\302\307\310\333D\"\210\211\312H\306!\">\204\325\307\310\333D\"\210\334H\\\262\nZ\335\336\f\337 &\n\211\262\340\"\2100\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-COLONCOLON js2-NAME js2-MUL type-of signal wrong-type-argument js2-token 2 nil js2-create-name-node t 1 return js2-match-token js2-get-prop-name-token "*" throw js2-parse-xml-elem-ref js2-report-error "msg.no.name.after.coloncolon" 0 make-js2-xml-prop-ref-node :pos :len js2-node 3 :at-pos :colon-pos :propname js2-node-add-children js2-LB cl-struct-js2-node-tags] 20 (#$ . 1215623)]) #@148 Parse the [expr] portion of an xml element reference. For instance, @[expr], @*::[expr], or ns::[expr]. (fn AT-POS &optional NAMESPACE COLON-POS) (defalias 'js2-parse-xml-elem-ref #[769 " H\305!\n>\204\306\307\310D\"\210\211\311H\262\206\211\312\313 \211\305! >\204/\306\307\314D\"\210\211\311H\305! >\204A\306\307\314D\"\210\315H\\\262\312\316\f\317\"\203\201 H\305!\n>\204a\306\307\310D\"\210\211\311H\262\262 H\305!\n>\204z\306\307\310D\"\210\211\315H\262\262\320\321\322 Z\323 \324\325\326\327\205\242Z\266\202\330\205\260Z\266\202&\211\262\331\n#\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags cl-struct-js2-node-tags js2-RB type-of signal wrong-type-argument js2-token 2 nil js2-parse-expr js2-node 3 js2-must-match "msg.no.bracket.index" make-js2-xml-elem-ref-node :pos :len :namespace :colon-pos :at-pos :expr :lb :rb js2-node-add-children] 29 (#$ . 1217236)]) (defalias 'js2-parse-destruct-primary-expr #[0 "\301\302 )\207" [js2-is-in-destructuring t js2-parse-primary-expr] 1]) #@173 Parse a literal (leaf) expression of some sort. Includes complex literals such as functions, object-literals, array-literals, array comprehensions and regular expressions. (defalias 'js2-parse-primary-expr #[0 "\306\211 H\307!\n>\204\310\311\312D\"\210\211\313H\262\262 U\203&\314 \202\fU\2031\315 \202\316 \203<\315\317!\202 U\203G\320 \2027U\203S\321 \2028U\203v\322 H\307!\n>\204m\310\311\312D\"\210\211\323H\262!\2029U\203\202\324 \202:U\203\221\325 \210\326 \202;U\203\236\327!\202>\204\276\310\311\331D\"\210\211\332H\332U\203\340\307!>>\204\326\310\311\331D\"\210\211\333H\203\340\334\335!\210\211\202?U\204\362@U\203\371\336\337\"\202AU\203\340 \202BU\204CU\203v H\307!\n>\204%\310\311\312D\"\210\211\323H\262\341\" H\307!\n>\204@\310\311\312D\"\210\211\342H\262\343\344\345Z\346 H\307!\n>\204`\310\311\312D\"\210\211\347H\262\350 &\351\352\353$\210\266\203\202DU\204\231EU\204\231FU\204\231GU\204\231HU\203\240\354\337\"\202IU\203\321\355;!\203\310\355J!\203\310\356 K=\203\310\357 \210\354\337D\"\202\334\360!\210\361 \202LU\203\341\334\362!\210\363 \202MU\203\355\361 \202NU\203\364 OZ\334\365\306$\266\353\366MOS\313\306\211&\202\334\360!\210\361 \207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-CLASS js2-FUNCTION js2-LB nil type-of signal wrong-type-argument js2-token 1 js2-parse-class-expr js2-parse-function-expr js2-match-async-function t js2-parse-array-comp-or-literal js2-parse-object-literal js2-parse-let 2 js2-parse-paren-expr-or-generator-comp js2-must-have-xml js2-parse-attribute-access js2-parse-name make-js2-number-node js2-number-node 8 9 js2-report-error "msg.no.octal.strict" make-js2-string-node :type js2-parse-template-literal js2-read-regexp 3 make-js2-regexp-node :pos :len :value 4 :flags js2-set-face font-lock-string-face record make-js2-keyword-node js2-match-token js2-peek-token js2-unget-token "msg.syntax" make-js2-error-node "msg.reserved.id" make-js2-name-node point-at-bol "msg.unexpected.eof" js2-error-node js2-LC js2-LET js2-LP js2-XMLATTR js2-NAME js2-NUMBER js2-in-use-strict-directive cl-struct-js2-number-node-tags js2-STRING js2-NO_SUBS_TEMPLATE js2-TEMPLATE_HEAD js2-DIV js2-ASSIGN_DIV js2-NULL js2-THIS js2-SUPER js2-FALSE js2-TRUE js2-TRIPLEDOT js2-RP js2-ARROW js2-RESERVED js2-ERROR js2-EOF js2-ts-cursor] 16 (#$ . 1218319)]) (defalias 'js2-parse-template-literal #[0 " H\305!\n>\204\306\307\310D\"\210\211\311H\262\312\313 \"C \211 =\203>\314 B\262\315\f\316\"\210\317\320!\262\312\313\"B\262\202\237\262\321\322\323 H\305!\n>\204X\306\307\310D\"\210\211\324H\262Z\325&\326\327#\210\211\262\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-TEMPLATE_HEAD js2-RC type-of signal wrong-type-argument js2-token 2 make-js2-string-node :type js2-parse-expr js2-must-match "msg.syntax" js2-get-token TEMPLATE_TAIL make-js2-template-node :pos :len 3 :kids apply js2-node-add-children] 12]) #@11 (fn TT) (defalias 'js2-parse-name #[257 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313 \203$\314\313\315#\202)\316\317\313#\262\f\203;\306! >\203;\320!\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-compiler-xml-available js2-highlight-external-variables cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-token 4 nil js2-parse-property-name 0 js2-create-name-node check-activation js2-record-name-node] 7 (#$ . 1221453)]) #@32 (fn MSG POS ELEMS COMMA-POS) (defalias 'js2-parse-warn-trailing-comma #[1028 "\301\302\203 \303@!>\204\304\305\306@D\"\210@\307H\202!\212b\210\310 \210`)]$\207" [cl-struct-js2-node-tags js2-add-strict-warning nil type-of signal wrong-type-argument js2-node 2 back-to-indentation] 11 (#$ . 1221948)]) (defalias 'js2-parse-array-comp-or-literal #[0 " H\305!\n>\204\306\307\310D\"\210\211\311H\262 \312Y\203)\313\f!\203)\314!\202,\315!\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-language-version js2-FOR type-of signal wrong-type-argument js2-token 2 200 js2-match-token js2-parse-array-comp js2-parse-array-literal] 5]) #@12 (fn POS) (defalias 'js2-parse-array-literal #[257 "\306\307\211\211\211\211\306\204\310\311 !\210\211\203%\312 \262 U\204$\nU\203x\nU\2031\313\314\307\n#\210\203H \315W\203H\316\317 \320\307\" $\210\307\262\321\322 \323\f\fZ\324 \237&\262\325\326\327! >\204p\330\331\332D\"\210\333H#\210\202\203\203\313\334!\210\202&U\203\271'(H\327!)>\204\237\330\331\335D\"\210\211\336H\262\262\204\261\306\262\202\307B\262\202 \315Y\203\351\204\351*U\203\351\204\351\203\351A\204\351\337 \210\307\262\340@ \"\262\202\204\362\313\314!\210+U\203 \341Y\203\342\307\343#B\262\203\306\262\202\337 \210\343 B\262\307\262\307\262\202\204A\327,!->\204;\330\331\344,D\"\210,\345H,\207" [js2-is-in-destructuring js2-RB js2-EOF js2-language-version js2-ts-cursor cl-struct-js2-array-node-tags t nil js2-push-scope make-js2-scope js2-get-token js2-report-error "msg.no.bracket.arg" 170 js2-parse-warn-trailing-comma "msg.array.trailing.comma" remove make-js2-array-node :pos :len :elems apply js2-node-add-children type-of signal wrong-type-argument js2-array-node 6 "msg.param.after.rest" js2-token 3 js2-unget-token js2-parse-legacy-array-comp 200 js2-make-unary js2-parse-assign-expr js2-scope 8 js2-COMMA js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-FOR js2-TRIPLEDOT js2-current-scope cl-struct-js2-scope-tags] 15 (#$ . 1222626)]) #@258 Parse a legacy array comprehension (JavaScript 1.7). EXPR is the first expression after the opening left-bracket. POS is the beginning of the LB token preceding EXPR. We should have just parsed the 'for' keyword before calling this function. (fn EXPR POS) (defalias 'js2-parse-legacy-array-comp #[514 "\306C\306\211\211\307\310\311\312\313!\314\"\315$\216\316 !\203C\317\320 \n\321\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211&\322!\210\242B\240\210\323!\266\202\324\242!@\211\262\325! >\204Z\326\327\330D\"\210\211\211\331\325 ! >\204n\326\327\330 D\"\210\331HI\266\325! >\204\205\326\327\330D\"\210\211\331\242@I\266\332 \fU\204\234\333 \210\202\240\334 \262)\335 \336#\210\337\340\341\n\nZ\342\f\343 \242\237\344 \205\303 @C\345\346&\f\262\325! >\204\330\326\327\330D\"\210\211\211\331I\266\347\350 @\325!+>\204\370\326\327\351D\"\210\352H%\210\207" [js2-current-scope js2-FOR js2-ts-cursor cl-struct-js2-scope-tags js2-IF js2-RB nil make-byte-code 0 "\300\242GS\303\211W\205'\211\304 !\n>\204\305\306\307 D\"\210 \310H\210\211T\262\202\207" vconcat vector [js2-current-scope cl-struct-js2-scope-tags 0 type-of signal wrong-type-argument js2-scope 8] 7 js2-match-token record js2-comp-loop-node 1 js2-push-scope js2-parse-comp-loop last type-of signal wrong-type-argument js2-scope 8 js2-get-token js2-unget-token js2-parse-condition js2-must-match "msg.no.bracket.arg" make-js2-comp-node :pos :len :result :loops :filters :form LEGACY_ARRAY apply js2-node-add-children js2-comp-node 11 cl-struct-js2-comp-node-tags] 27 (#$ . 1224077)]) #@158 Parse an ES6 array comprehension. POS is the beginning of the LB token. We should have just parsed the 'for' keyword before calling this function. (fn POS) (defalias 'js2-parse-array-comp #[257 "\301\302\"\303\304#\210\211\207" [js2-RB js2-parse-comprehension ARRAY js2-must-match "msg.no.bracket.arg"] 6 (#$ . 1225710)]) #@12 (fn POS) (defalias 'js2-parse-generator-comp #[257 "T\305\306 \n\307\310\211\211\211\211\211\211\211\211\311\310\211\311\312\313\314\310\211\211\211\211\211\211\315\310\211&\316\317\"\320\f\321#\210*\211\207" [js2-nesting-of-function js2-FUNCTION js2-ts-cursor js2-current-script-or-fn js2-RP record js2-function-node 1 nil 0 FUNCTION FUNCTION_STATEMENT "" COMPREHENSION js2-parse-comprehension STAR_GENERATOR js2-must-match "msg.no.paren"] 32 (#$ . 1226042)]) #@17 (fn POS FORM) (defalias 'js2-parse-comprehension #[514 "\305C\305\211\211\211\306\307\310\311\312 !\313\"\314$\216\315 \210\316!\203F\317\320 \321\305\211\211\211\211\211\211\211\211\211\211\211\211\211\211&\322!\210\242B\240\210\323!\266\202\316\n!\203V\324 @B\262\202F\325 \262\242@\262)\326\327\330  Z\331\332\f\242\237\333 \237\334&\f\262\335\336\337! >\204\217\340\341\342D\"\210\343H#\210\335\336\337! >\204\251\340\341\342D\"\210\344H$\210\337!\f>\204\275\340\341\345D\"\210\211\346I\266\207" [js2-FOR js2-ts-cursor js2-IF cl-struct-js2-comp-node-tags cl-struct-js2-scope-tags nil make-byte-code 0 "\300\242\211\205\"\211@\303 !\n>\204\304\305\306 D\"\210 \307HA\266\202\202\207" vconcat vector [js2-current-scope cl-struct-js2-scope-tags type-of signal wrong-type-argument js2-scope 8] 6 js2-unget-token js2-match-token record js2-comp-loop-node 1 js2-push-scope js2-parse-comp-loop js2-parse-condition js2-parse-assign-expr make-js2-comp-node :pos :len :result :loops :filters :form apply js2-node-add-children type-of signal wrong-type-argument js2-comp-node 11 12 js2-scope 8] 27 (#$ . 1226517)]) #@222 Parse a 'for [each] (foo [in|of] bar)' expression in an Array comprehension. The current token should be the initial FOR. If ONLY-OF-P is non-nil, only the 'for (foo of bar)' form is allowed. (fn PN &optional ONLY-OF-P) (defalias 'js2-parse-comp-loop #[513 "\306!>\204\307\310\311D\"\210\312H\313\211\211\211\211\211\211\211\211\n\204l\314 !\203l\n H\306!\f>\2048\307\310\315D\"\210\211\316H\262\317\230\203h\320\262\n H\306!\f>\204W\307\310\315D\"\210\211\312H\262\nZ\262\321\322!\210\202l\323\324!\210\325 \324\"\203\217\n H\306!\f>\204\205\307\310\315D\"\210\211\312H\262\nZ\262\326 \262 1U\204\2432U\203\266\327 \210\330 \262\3313\332\320$\210\202\307\314 !\203\303\333 \262\202\307\323\334!\210\306!4>\203\357\3353\306\n!4>\204\346\307\310\336\fD\"\210 \337H\320$\210\n\204\373\3145!\2046\340Y\203.\341\342!\203.\320\211\262\203.\n H\306!\f>\204!\307\310\315D\"\210\211\312H\262\nZ\262\2022\323\343!\210\344 \262\3257\345\"\203Z\n H\306!\f>\204P\307\310\315D\"\210\211\312H\262\nZ\262\306\f!8>\204l\307\310\346D\"\210 \211\312\fI\266\306\f!8>\204\207\307\310\346D\"\210 \211\3479 ZI\266\306\f!>\204\244\307\310\311D\"\210 \211\350\nI\266\306\f!>\204\276\307\310\311D\"\210 \211\351 I\266\306\f!>\204\330\307\310\311D\"\210 \211\352I\266\306\f!>\204\362\307\310\311D\"\210 \211\353I\266\306\f!>\204 \307\310\311D\"\210 \211\354I\266\306\f!>\204%\307\310\311D\"\210 \211\355I\266\306\f!>\204?\307\310\311D\"\210 \211\356I\266\306\f!>\204X\307\310\311D\"\210 \211\357I\266\360\f  #\210 \207" [cl-struct-js2-comp-loop-node-tags js2-NAME js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-LP type-of signal wrong-type-argument js2-comp-loop-node 2 nil js2-match-token js2-token 4 "each" t js2-record-face font-lock-keyword-face js2-report-error "msg.no.paren.for" js2-must-match js2-peek-token js2-get-token js2-parse-destruct-primary-expr js2-define-destruct-symbols font-lock-variable-name-face js2-create-name-node "msg.bad.var" js2-define-symbol js2-name-node 6 200 js2-match-contextual-kwd "of" "msg.in.after.for.name" js2-parse-expr "msg.no.paren.for.ctrl" js2-node 3 13 14 15 16 17 18 11 12 js2-node-add-children js2-LB js2-LC js2-LET cl-struct-js2-name-node-tags js2-IN js2-language-version js2-RP cl-struct-js2-node-tags js2-ts-cursor] 18 (#$ . 1227693)]) (defalias 'js2-parse-class-stmt #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\314!\315\316!\317\306! >\204-\307\310\320D\"\210\312H\306! >\204@\307\310\320D\"\210\211\312H\306! >\204R\307\310\320D\"\210\321H\\\262\322\323$\210\324\325#\326\"\210\327\f\306! >\204x\307\310\330D\"\210\331H#\210\211\262\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags cl-struct-js2-node-tags js2-FUNCTION cl-struct-js2-name-node-tags type-of signal wrong-type-argument js2-token 2 js2-must-match-name "msg.unnamed.class.stmt" js2-create-name-node t js2-set-face js2-node 3 font-lock-type-face record js2-parse-class CLASS_STATEMENT js2-record-imenu-functions js2-define-symbol js2-name-node 6] 11]) (defalias 'js2-parse-class-expr #[0 " H\304!\n>\204\305\306\307D\"\210\211\310H\262\311\312 !\203#\313\314!\262\315\316#\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NAME type-of signal wrong-type-argument js2-token 2 nil js2-match-token js2-create-name-node t js2-parse-class CLASS_EXPRESSION] 6]) #@22 (fn POS FORM NAME) (defalias 'js2-parse-class #[771 "\305\211\211\306!\203#\307 U\203\310\311!\210\202#\312 \262\211\204#\310\313!\210\314 \315\"\210\316\317!\262\320\321\n \nZ\305\211\f\f\n&\n\262\322\323\324!\f>\204[\325\326\321\nD\"\210\327H%\210\207" [js2-EXTENDS js2-LC js2-CLASS js2-ts-cursor cl-struct-js2-class-node-tags nil js2-match-token js2-peek-token js2-report-error "msg.missing.extends" js2-parse-assign-expr "msg.bad.extends" js2-must-match "msg.no.brace.class" js2-parse-object-literal-elems t record js2-class-node apply js2-node-add-children type-of signal wrong-type-argument 6] 17 (#$ . 1231221)]) (defalias 'js2-parse-object-literal #[0 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313 \314\315 \fZ\316\211&\317\320\306! >\204:\307\310\315D\"\210\321H#\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-OBJECTLIT js2-ts-cursor cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-token 2 js2-parse-object-literal-elems record js2-object-node nil apply js2-node-add-children 6] 10]) #@206 Return the key of PROPERTY-NODE (a `js2-object-prop-node' or `js2-method-node') as a string, or nil if it can't be represented as a string (e.g., the key is computed by an expression). (fn PROPERTY-NODE) (defalias 'js2-property-key-string #[257 "\306!>\203\n\307\207\306! >\204\310\311\312D\"\210\211\313H\306!\n>\2038\306!\n>\2043\310\311\314D\"\210\211\315H\262\306! >\203U\306! >\204O\310\311\316D\"\210\211\315H\202\214\306!\f>\203r\306!\f>\204l\310\311\317D\"\210\211\315H\202\214\306! >\205\214\306! >\204\211\310\311\320D\"\210\211\315H\207" [cl-struct-js2-unary-node-tags cl-struct-js2-infix-node-tags cl-struct-js2-computed-prop-name-node-tags cl-struct-js2-name-node-tags cl-struct-js2-string-node-tags cl-struct-js2-number-node-tags type-of nil signal wrong-type-argument js2-infix-node 7 js2-computed-prop-name-node 6 js2-name-node js2-string-node js2-number-node] 6 (#$ . 1232326)]) #@26 (fn &optional CLASS-P) (defalias 'js2-parse-object-literal-elems #[256 " H\306!\n>\204\307\310\311D\"\210\211\312H\262\313\314\313\211\211C\313C\313C\313\211\203\257 \315V\203H\315 H\306!\n>\204B\307\310\311D\"\210\211\316H\262\317 \262\313\262 \313\240\210\313\262\n\203\211 U\203\211 H\306!\n>\204t\307\310\311D\"\210\211\320H\262\321\230\203\211\322\323!\210\314\262 \317 \2624\324Y\203\2415U\203\241 H\262\317 \262 H\306!\n>\204\263\307\310\311D\"\210\211\320H\2624\324Y\203\344 U\203\344\211\325\235\203\344\326\327! 678F\235\203\344 H\262\317 \262\2104\324Y\203\n\204\204\211\2049U\203\313\262\330\3139\331#\240\210\202{ 678F\235\203<\313\262\332#\240\210\242\204{:\204{\313\262\202{;U\204L>\204\231\307\310\341D\"\210\211\320D\306!>>\204\261\307\310\341 D\"\210\320HBI\266\202\300\336\342!\210\317 \211?=\203\361 \203\325\336\343!\210\202\374 H\306!\n>\204\347\307\310\311D\"\210\211\316H\262\262\202\374\333 \210 \204\374\313\262 \210\242\203#@\203\245\344\242!\240\203\245\345\346\347\350\351\352\n\n\n#\353\"\354\355%\"\203\245\336\356\242\357\306 \242!A>\204B\307\310\360 \242D\"\210\242\361H!\306\211\n\242!A>\204]\307\310\360\f\242D\"\210 \242\361H!>>\204\210\307\310\341\306\f\242!A>\204\200\307\310\360\242D\"\210 \242\361HD\"\210\306 \242!A>\204\234\307\310\360 \242D\"\210\242\361H\316H$\210\242B\262\202#\362;\363\"\210\237\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-ti-lookahead js2-ts-cursor js2-NAME type-of signal wrong-type-argument js2-token 2 nil t 0 3 js2-get-prop-name-token 4 "static" js2-record-face font-lock-keyword-face 200 ("get" "set" "async") js2-peek-token KEYWORD_IS_NAME js2-make-unary js2-parse-assign-expr js2-parse-named-prop js2-unget-token js2-parse-warn-trailing-comma "msg.extra.trailing.comma" js2-report-error "msg.bad.prop" STATIC js2-node "msg.unexpected.static" "msg.class.unexpected.comma" js2-property-key-string cl-some make-byte-code 257 "\302\305!\240\205\233\302\242\301\242\230\205\233\306\300\242! >\205\232\306! >\205\232\306\300\242! >\2042\307\310\311\300\242D\"\210\300\242\312H\313\314\315\306!\f>\204J\307\310\316D\"\210\317H\"A@\206T\211\266\203\306! >\204e\307\310\311D\"\210\312H\313\314\315\306!\f>\204|\307\310\316D\"\210\317H\"A@\206\206\211\266\203\320\235\205\230\211\321\235\205\230=?\266\202?\207" vconcat vector [cl-struct-js2-method-node-tags cl-struct-js2-node-tags js2-property-key-string type-of signal wrong-type-argument js2-method-node 8 METHOD_TYPE nil assoc js2-node 4 (GET SET) (GET SET)] 11 "\n\n(fn PREVIOUS-ELEM)" "msg.dup.obj.lit.prop.strict" js2-node-abs-pos js2-infix-node 7 js2-must-match "msg.no.brace.prop" js2-language-version js2-MUL js2-STRING js2-NUMBER js2-LB js2-TRIPLEDOT js2-recover-from-parse-errors js2-RC js2-EOF js2-SEMI cl-struct-js2-node-tags js2-COMMA js2-in-use-strict-directive cl-struct-js2-infix-node-tags] 22 (#$ . 1233259)]) #@176 Parse a name, string, or getter/setter object property. When `js2-is-in-destructuring' is t, forms like {a, b, c} will be permitted. (fn TT PREVIOUS-TOKEN &optional CLASS-P) (defalias 'js2-parse-named-prop #[770 "\306!\205\307!>\204\310\311\312D\"\210\313H\205L\307!>\204-\310\311\312D\"\210\314H U\2039\315\202L\307!>\204I\310\311\312D\"\210\313H\316\317\235\203\230\307!>\204d\310\311\312D\"\210\320H\262\321\307!>\204{\310\311\312 D\"\210\320H\307!>\204\220\310\311\312\nD\"\210\322H\323\324$\210\325 \nU\203\301 \326Y\203\301\307!\f>\204\265\307! >\203\271\327\330!\210\331#\202\325 %U\203\342 \326Y\203\342\204\334&\204\334\332\333!\210\334!\202'(H\307!>\204\366\310\311\312D\"\210\211\320H\262'(H\307!>\204\310\311\312D\"\210\211\322H\262\335\" )U\203V&\204V*\203V\211\336\316\337\307!+>\204B\310\311\340D\"\210\313H\"A@\206L\211\266\203\203V\341!\210\321\307\211!,>\204k\310\311\342D\"\210\343H!->\203y\330\202z\344\324$\210\266\202\207" [cl-struct-js2-token-tags js2-MUL js2-LP js2-language-version cl-struct-js2-name-node-tags cl-struct-js2-string-node-tags js2-parse-prop-name type-of signal wrong-type-argument js2-token 4 1 "*" nil ("get" "set" "async") 2 js2-set-face 3 font-lock-keyword-face record js2-peek-token 200 js2-record-face font-lock-function-name-face js2-parse-method-prop js2-report-error "msg.init.no.destruct" js2-parse-initialized-binding js2-parse-plain-property SHORTHAND assoc js2-node js2-record-name-node js2-object-prop-node 8 js2-object-property js2-ASSIGN js2-is-in-destructuring js2-ti-tokens js2-ti-tokens-cursor js2-NAME js2-highlight-external-variables cl-struct-js2-node-tags cl-struct-js2-object-prop-node-tags cl-struct-js2-function-node-tags] 19 (#$ . 1236499)]) #@94 Parse a `SingleNameBinding' with initializer. `name' is the `BindingIdentifier'. (fn NAME) (defalias 'js2-parse-initialized-binding #[257 "\301!\205\f\302\303\304$\207" [js2-ASSIGN js2-match-token js2-make-binary js2-parse-assign-expr t] 6 (#$ . 1238334)]) #@11 (fn TT) (defalias 'js2-parse-prop-name #[257 "\211U\203 \306 \207\211 U\203 \n\307Y\203 \310\311\312 \313 \314\"\210\"\207\211\fU\203)\315 \207\211 U\2032\316 \207\317\320!\207" [js2-STRING js2-LB js2-language-version js2-RB js2-NUMBER js2-NAME make-js2-string-node 200 make-js2-computed-prop-name-node :expr js2-parse-assign-expr js2-must-match "msg.missing.computed.rb" make-js2-number-node js2-create-name-node js2-report-error "msg.bad.prop"] 7 (#$ . 1238603)]) #@169 Parse a non-getter/setter property in an object literal. PROP is the node representing the property: a number, name, string or expression. (fn PROP &optional CLASS-P) (defalias 'js2-parse-plain-property #[513 "\306\307!>\204\310\311\312D\"\210\313H\306\211\211 \314Y\203\313\2031\315 \211\262\203\313\n \fE\235\202L\316 \211\262\203\313 D\235\203\313\307!\">\203\313\317\203\313\320\321\322\307 !>\204d\310\311\312 D\"\210\n\323H\324\f\325\326#$H\307!%>\204\204\310\311\327D\"\210\211\313H\262Z&\n\262\330\"\210\211\331\317\307!>\204\250\310\311\312D\"\210\211\332D\307!>\204\277\310\311\312 D\"\210\332HBI\266\211\202J\333 \262&U\203\373#$H\307!%>\204\353\310\311\327D\"\210\211\313H\262Z\262\334 \262\202\335\336!\210\337 \262\340\341&\307!>\204\310\311\312D\"\210\313H\307!>\204.\310\311\312 D\"\210\323H\\Z\306\211 \n& \262\330#\210\211\207" [cl-struct-js2-node-tags js2-language-version js2-EOL js2-RC js2-SEMI js2-COMMA nil type-of signal wrong-type-argument js2-node 2 200 js2-peek-token-or-eol js2-peek-token t make-js2-object-prop-node :pos :len 3 :left :right :op-pos js2-token js2-node-add-children SHORTHAND 4 js2-get-token js2-parse-assign-expr js2-report-error "msg.no.colon.prop" make-js2-error-node record js2-object-prop-node cl-struct-js2-name-node-tags js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-COLON] 22 (#$ . 1239084)]) #@501 Parse method property in an object literal or a class body. JavaScript syntax is: { foo(...) {...}, get foo() {...}, set foo(x) {...}, *foo(...) {...}, async foo(...) {...} } and expression closure style is also supported { get foo() x, set foo(x) _x = x } POS is the start position of the `get' or `set' keyword, if any. PROP is the `js2-name-node' representing the property name. TYPE-STRING is a string `get', `set', `*', or nil, indicating a found keyword. (fn POS PROP TYPE-STRING) (defalias 'js2-parse-method-prop #[771 "\305\306\"A\206 \307\310\211\206& H\311!\n>\204!\312\313\314D\"\210\211\315H\262\316 \317\"\320\321\322\230\323=\310%\211\324\311!\f>\204J\312\313\325D\"\210\211\326D\311!\f>\204a\312\313\325 D\"\210\326HBI\266\204\204\311!\f>\204~\312\313\325\nD\"\210\315H\262\211\311!\f>\204\224\312\313\325D\"\210\211\315H\311!\f>\204\246\312\313\325D\"\210\327H\\\262\262\330\331\332Z\310\211\211 & \262\333 #\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-LP cl-struct-js2-node-tags assoc (("get" . GET) ("set" . SET) ("async" . ASYNC)) FUNCTION nil type-of signal wrong-type-argument js2-token 2 js2-must-match "msg.no.paren.parms" js2-parse-function FUNCTION_EXPRESSION "*" ASYNC METHOD_TYPE js2-node 4 3 record js2-method-node -1 js2-node-add-children] 20 (#$ . 1240562)]) #@180 Create a name node using the current token and, optionally, STRING. And, if CHECK-ACTIVATION-P is non-nil, use the value of TOKEN. (fn &optional CHECK-ACTIVATION-P TOKEN STRING) (defalias 'js2-create-name-node #[768 " H\304!\n>\204\305\306\307D\"\210\211\310H\262 H\304!\n>\204)\305\306\307D\"\210\211\311H\262\206U U\203R H\304!\n>\204J\305\306\307D\"\210\211\312H\262\202U\313!\314\315\316 G\314\211\314&\262\203u\317\206s \"\210\207" [js2-ti-tokens js2-ti-tokens-cursor cl-struct-js2-token-tags js2-NAME type-of signal wrong-type-argument js2-token 2 1 4 js2-tt-name nil record js2-name-node js2-check-activation-name] 16 (#$ . 1241961)]) #@119 Get index of ELEM from ARRAY-NODE or 0 and return it as string. (fn ELEM ARRAY-NODE &optional HARDCODED-ARRAY-INDEX) (defalias 'js2-get-element-index-from-array-node #[770 "\301\302\303!>\204\304\305\306D\"\210\307H\262\203H\204H\3102F\211\203C\211@=\2038\311\310\"\210T\262A\266\202\202%\210\3010\262\312\313\"\207" [cl-struct-js2-array-node-tags 0 nil type-of signal wrong-type-argument js2-array-node 6 nth-elt throw format "[%s]"] 11 (#$ . 1242647)]) #@196 Print the path to the JSON value under point, and save it in the kill ring. If HARDCODED-ARRAY-INDEX provided, array index in JSON path is replaced with it. (fn &optional HARDCODED-ARRAY-INDEX) (defalias 'js2-print-json-path #[256 "\304 \210\305\211\211\211\306 \262\307!>\204s\307! >\203G\310\307! >\204,\311\312\313D\"\210\314H!\262\211\203?\315Q\262\202Y\315P\262\202Y\307!\n>\203Y\316#P\262\262\307! >\204k\311\312\317D\"\210\320H\262\202 \211\203\212\321\322\323#\262\324!\210\325\326\"\210\202\216\325\327!\210\207" [cl-struct-js2-ast-root-tags cl-struct-js2-object-prop-node-tags cl-struct-js2-array-node-tags cl-struct-js2-node-tags js2-reparse nil js2-node-at-point type-of js2-prop-node-name signal wrong-type-argument js2-object-prop-node 7 "." js2-get-element-index-from-array-node js2-node 5 replace-regexp-in-string "^\\." "" kill-new message "%s => kill-ring" "No JSON path found!"] 10 (#$ . 1243138) "P"]) #@48 Move backward through whitespace and comments. (defalias 'js2-backward-sws #[0 "\300\301!\205 \202\207" [forward-comment -1] 2 (#$ . 1244109) nil]) #@47 Move forward through whitespace and comments. (defalias 'js2-forward-sws #[0 "\300\301!\205 \202\207" [forward-comment 1] 2 (#$ . 1244266) nil]) #@71 Return non-nil if we're on a line beginning with a close-paren/brace. (defalias 'js2-arglist-close #[0 "\212\300 b\210\301 \210\302\303!)\207" [point-at-bol js2-forward-sws looking-at "[])}]"] 2 (#$ . 1244420)]) (defalias 'js2-indent-looks-like-label-p #[0 "\301 b\210\302 \210\303\304P!\207" [js2-mode-identifier-re point-at-bol js2-forward-sws looking-at ":"] 3]) #@79 Return non-nil if this looks like an object-literal entry. (fn PARSE-STATUS) (defalias 'js2-indent-in-objlit-p #[257 "\211A@\211\205 \212\300y\301U\205`W?\205\302 )\205 \212\302 )\207" [-1 0 js2-indent-looks-like-label-p] 4 (#$ . 1244793)]) #@21 (fn PARSE-STATUS) (defalias 'js2-indent-objlit-arg-p #[257 "\212\300 \210\301 \210`SA@=\205$`Sf\302=\205$\303u\210\304\305x\210`Sf\306=)\207" [back-to-indentation js2-backward-sws 123 -1 " " nil 40] 3 (#$ . 1245048)]) (defalias 'js2-indent-case-block-p #[0 "\212\300 \210\301 \210\302 b\210\303\304w\210\305\306!)\207" [back-to-indentation js2-backward-sws point-at-bol " " nil looking-at "case\\s-.+:"] 2]) #@387 Cycle among alternate computed indentation positions. PARSE-STATUS is the result of `parse-partial-sexp' from the beginning of the buffer to the current point. NORMAL-COL is the indentation column computed by the heuristic guesser based on current paren, bracket, brace and statement nesting. If BACKWARDS, cycle positions in reverse. (fn NORMAL-COL PARSE-STATUS &optional BACKWARD) (defalias 'js2-bounce-indent #[770 "\306 \212\307y\210\310e`\"T)\311\211\211\211\211\211\211\211 \203\312\313\307\314\315\316\"\317\"\320$\216\212\321 \210\322 \210\321 \210i)\n\\\211\262B\262\212\321 \210\322 \210\321 \210i)\n\320_\\\211\262B\262\212\323y\210\324 b\210\325\326\327 \312#\205r\330\225b\210\331\311w\210i)\262\203\207\n\\\262B\262\212\324 b\210\322 \210\321 \210i\212\327 b\210\322 \210`Sf)\332=\203\250`S\262)\262\203\313\204\273\333 !\203\304\334 \204\304\262B\262\212\321 \210\322 \210\321 \210i\262\323y\307U\203\350\321 \210iY\204\330i\211\262)\262B\262 \211\262B\262\335\336 !\337\"\262\203\262\340 \204\341 !\203\262 \203*\342!\262\n\235\262 \203G\203G\f =\204G\311\262\202yA\204S\307\262\202y\204c\343 \"\262\202yA\204o\307\262\202y\343A@ \"\262\311 \311:\203\227@\262\204\227\211 \"\262A\262\202|\204\246\203\246\344\f8!\210\311\266\203)\207" [buffer-undo-list js2-mode-indent-inhibit-undo js2-basic-offset js2-mode-indent-ignore-first-tab js2-mode-last-indented-line js2-indent-hook current-indentation 0 count-lines nil t make-byte-code "\n\203\300\301\211\207" vconcat vector [js2-mode-indent-inhibit-undo buffer-undo-list js2-mode-last-indented-line] 2 back-to-indentation js2-backward-sws -1 point-at-bol re-search-forward "\\s-+\\(=\\)\\s-+" point-at-eol 1 " \n" 44 js2-indent-in-objlit-p js2-arglist-close sort delete-dups < js2-indent-case-block-p js2-indent-objlit-arg-p reverse js2-position indent-line-to] 21 (#$ . 1245470)]) #@101 Return t if we're in a 1-line comment continuation. If so, we don't ever want to use bounce-indent. (defalias 'js2-1-line-comment-continuation-p #[0 "\212\300y\210\301\302!\205\303y\210\300y\210\301\304!\203\305 \210\300y\210\301\302!)\207" [0 looking-at "\\s-*//" -1 "\\s-*$" js2-backward-sws] 2 (#$ . 1247466)]) #@87 Indent the current line, bouncing between several positions. (fn &optional BACKWARD) (defalias 'js2-indent-bounce #[256 "\301\211\211\302\212\303\304 !)\262`\212\305 \210`)Z\262\3068?\205X\307!\262\3108\204Ie\211\304 Y\2055\211\311 X\262\204I\312 \204I\313#\210\202M\314!\210\211\315V\262\205Xu)\207" [inhibit-point-motion-hooks nil t syntax-ppss point-at-bol back-to-indentation 3 js2-proper-indentation 4 point-at-eol js2-1-line-comment-continuation-p js2-bounce-indent indent-line-to 0] 8 (#$ . 1247790) nil]) #@65 Indent the current line, bouncing between positions in reverse. (defalias 'js2-indent-bounce-backward #[0 "\300\301!\207" [js2-indent-bounce t] 2 (#$ . 1248333) nil]) #@68 Indent the region, but don't use bounce indenting. (fn START END) (defalias 'js2-indent-region #[514 "\303\211\304\305\"\306\303#\210\305\211Z#+\207" [after-change-functions indent-region-function js2-bounce-indent-p nil remq js2-mode-edit indent-region] 7 (#$ . 1248506)]) #@46 Keymap used when `js2-minor-mode' is active. (defvar js2-minor-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [3 67108960] js2-next-error] 5) (#$ . 1248796)) #@97 Non-nil if Js2 minor mode is enabled. Use the command `js2-minor-mode' to change this variable. (defvar js2-minor-mode nil (#$ . 1248998)) (make-variable-buffer-local 'js2-minor-mode) #@245 Minor mode for running js2 as a background linter. This allows you to use a different major mode for JavaScript editing, such as `js-mode', while retaining the asynchronous error/warning highlighting features of `js2-mode'. (fn &optional ARG) (defalias 'js2-minor-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306!\203\307\202+\203(\310 \210\202+\311 \210\312\313\2035\314\2026\315\"\210\316\317!\203Z\301 \203J\211\301 \232\203Z\320\321\322\203U\323\202V\324#\266\210\325 \210\207" [js2-minor-mode current-message toggle prefix-numeric-value 0 derived-mode-p js2-mode nil js2-minor-mode-enter js2-minor-mode-exit run-hooks js2-minor-mode-hook js2-minor-mode-on-hook js2-minor-mode-off-hook called-interactively-p any " in current buffer" message "Js2 minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 1249189) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar js2-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [js2-minor-mode-map js2-minor-mode-hook variable-documentation put "Hook run after entering or leaving `js2-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode js2-minor-mode " js-lint" boundp nil] 6) #@38 Initialization for `js2-minor-mode'. (defalias 'js2-minor-mode-enter #[0 "\306\300!\210\307]\310\n\211\311V\262\203 d\n\245_\312\313\306\314!\210\311\f\306\315!\210\313 \316\317\320\313\312$\210\316\321\322\313\312$\210\203E\316\323\324\313\312$\210\203Q\316\323\325\313\312$\210\326\327!\210\330 \207" [max-lisp-eval-depth next-error-function js2-dynamic-idle-timer-adjust js2-idle-timer-delay js2-mode-buffer-dirty-p js2-mode-parsing make-local-variable 3000 js2-next-error 0 t nil js2-highlight-level js2-mode-change-syntax-p add-hook after-change-functions js2-minor-mode-edit change-major-mode-hook js2-minor-mode-exit js2-post-parse-callbacks js2-apply-jslint-globals js2-apply-jslint-declaration-externs run-hooks js2-init-hook js2-reparse js2-include-jslint-globals js2-include-jslint-declaration-externs] 5 (#$ . 1250542)]) #@28 Turn off `js2-minor-mode'. (defalias 'js2-minor-mode-exit #[0 "\303\304\305\306\307#\210\304\310\311\307#\210 \203\312 !\210\303\313 \210\304\314\315\307#\210\304\314\316\307#\210\303\211\207" [next-error-function js2-mode-node-overlay js2-mode-ast nil remove-hook after-change-functions js2-mode-edit t change-major-mode-hook js2-minor-mode-exit delete-overlay js2-remove-overlays js2-post-parse-callbacks js2-apply-jslint-globals js2-apply-jslint-declaration-externs] 4 (#$ . 1251398)]) #@43 Linked source buffer for diagnostics view (defvar js2-source-buffer nil (#$ . 1251898)) (make-variable-buffer-local 'js2-source-buffer) #@59 Display a navigable buffer listing parse errors/warnings. (defalias 'js2-display-error-list #[0 "\3042\345\305 \204\306\307!\210\310\304\311\"\210\311\312\262p\313\314!\2051\315! >\204.\316\317\320D\"\210\321H\322\"\205J\315! >\204G\316\317\320D\"\210\323H\324\"\325\326\"\327\"rq\210\330\331 \210\211\211\203\312\211@\211\211G\332U\203t\211A\262\242\202{\316\333\311GD\"\211AA\203\212\211A\262\242\202\221\316\333\311GD\"\211A\262\242\211A\262\242\211A\262\242@\334\335\336\337 !#\340\341\342\343\344\345\337!\346& \210\347c\266A\266\202\202]\210)\350 \210\351!\210eb\210m?\205\337\352 )\266\205\2620\207" [js2-mode-ast cl-struct-js2-ast-root-tags inhibit-read-only js2-source-buffer --cl-block-js2-display-error-list-- js2-have-errors-p message "No errors" throw nil #[514 "\300\301\302\303\304\305!\306\"\307\310%\"\207" [mapcar make-byte-code 257 "\211\300\301A@!E\207" vconcat vector [line-number-at-pos] 5 "\n\n(fn ERR)"] 9 "Add diagnostic TYPE and line number to errs list\n\n(fn LST TYPE)"] get-buffer-create "*js-lint*" type-of signal wrong-type-argument js2-ast-root 19 js2-error 20 js2-warning sort append #[514 "@A@@A@W\207" [] 4 "\n\n(fn E1 E2)"] t erase-buffer 3 wrong-number-of-arguments insert-text-button format "line %d: %s" js2-get-msg face follow-link " " action js2-error-buffer-jump js2-msg js2-pos "\n" js2-error-buffer-mode pop-to-buffer js2-error-buffer-view] 27 (#$ . 1252040) nil]) #@42 Keymap used for js2 diagnostics buffers. (defvar js2-error-buffer-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\211\207" [make-sparse-keymap define-key "n" js2-error-buffer-next "p" js2-error-buffer-prev " " js2-error-buffer-jump "o" js2-error-buffer-view "q" js2-error-buffer-quit] 5) (#$ . 1253516)) #@144 Major mode for js2 diagnostics buffers. Selecting an error will jump it to the corresponding source-buffer error. \{js2-error-buffer-mode-map} (defalias 'js2-error-buffer-mode #[0 "\305\306\307\n!\210\310\311\312!\210\310\313\314!\207" [major-mode mode-name js2-error-buffer-mode-map truncate-lines buffer-read-only js2-error-buffer-mode "JS Lint Diagnostics" use-local-map t set-buffer-modified-p nil run-hooks js2-error-buffer-mode-hook] 2 (#$ . 1253896) nil]) #@33 Move to next error and view it. (defalias 'js2-error-buffer-next #[0 "\300y\301U\205 \302 \207" [1 0 js2-error-buffer-view] 2 (#$ . 1254369) nil]) #@37 Move to previous error and view it. (defalias 'js2-error-buffer-prev #[0 "\300y\301U\205 \302 \207" [-1 0 js2-error-buffer-view] 2 (#$ . 1254523) nil]) #@26 Kill the current buffer. (defalias 'js2-error-buffer-quit #[0 "\300 \207" [kill-buffer] 1 (#$ . 1254682) nil]) #@68 Jump cursor to current error in source buffer. (fn &rest IGNORED) (defalias 'js2-error-buffer-jump #[128 "\301 \205\302!\207" [js2-source-buffer js2-error-buffer-view pop-to-buffer] 3 (#$ . 1254799) nil]) #@53 Scroll source buffer to show error at current line. (defalias 'js2-error-buffer-view #[0 "\302=\204\n\303\304!\207\305 !\204\303\306!\207\307\310`\311\"!\204!\303\312!\207\310`\311\"\310`\313\"\314 r\315\316\317\320\321!\322\"\323$\216\324 !\210b\210\303!*\262\207" [major-mode js2-source-buffer js2-error-buffer-mode message "Not in a js2 errors buffer" buffer-live-p "Source buffer has been killed" wholenump get-text-property js2-pos "There does not seem to be an error here" js2-msg internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 pop-to-buffer] 9 (#$ . 1255014) nil]) (defvar js2-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [js2-mode-hook variable-documentation put "Hook run after entering Javascript-IDE mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp js2-mode-map definition-name js2-mode] 4) (defvar js2-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [js2-mode-abbrev-table js2-mode-map variable-documentation put purecopy "Keymap for `js2-mode'." boundp js2-mode-syntax-table definition-name js2-mode (lambda (#1=#:def-tmp-var) (defvar js2-mode-syntax-table #1#)) make-syntax-table "Syntax table for `js2-mode'." (lambda (#1#) (defvar js2-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `js2-mode'." derived-mode-parent js-mode] 5) #@223 Major mode for editing JavaScript code. In addition to any hooks its parent mode `js-mode' might have run, this mode runs the hook `js2-mode-hook', as the final or penultimate step during initialization. \{js2-mode-map} (defalias 'js2-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R @=\204R\326 \325@C#\210\327 !\210\330\f!\210 @\306\331!\210\332]\306\333!\210\334\306\335!\210\336\306\337!\210\340\306\341!\210\342!\306\343!\210\344#\306\345!\210\346%\306\347!\210\307'\306\350!\210\307(\314\311\351\352#\210\353AB\211\354V\262\203\273CdB\245_C\355\356\357\340\307$\210\355\360\361\340\307$\210\362D\363E\364\365\nP!\210\366\367!\210\306\370!\210\3078\306\371!\210\3729\373\374!\203\361\374\375!\210\340\211FG\307H\340IJ\203 \355\376\377\340\307$\210K\203\355\376\201L\340\307$\210\201M\201N!\210\354C\201O \210*\201P\201Q!\207" [delay-mode-hooks major-mode mode-name js2-mode-map js2-mode-syntax-table js2-mode-abbrev-table make-local-variable t js-mode js2-mode "Javascript-IDE" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table max-lisp-eval-depth 3000 indent-line-function js2-indent-line indent-region-function js2-indent-region syntax-propertize-function nil comment-line-break-function js2-line-break beginning-of-defun-function js2-beginning-of-defun end-of-defun-function js2-end-of-defun parse-sexp-lookup-properties parse-sexp-ignore-comments find-tag-default-function js2-mode-find-tag (nil t) 0 add-hook change-major-mode-hook js2-mode-exit after-change-functions js2-mode-edit js2-mode-create-imenu-index js2-next-error imenu-add-to-menubar "IM-" add-to-invisibility-spec (js2-outline . t) line-move-ignore-invisible forward-sexp-function js2-mode-forward-sexp fboundp cursor-sensor-mode 1 js2-post-parse-callbacks js2-apply-jslint-globals local-abbrev-table font-lock-defaults js2-dynamic-idle-timer-adjust js2-idle-timer-delay imenu-create-index-function next-error-function js2-mode-functions-hidden js2-mode-comments-hidden js2-mode-buffer-dirty-p js2-mode-parsing js2-include-jslint-globals js2-include-jslint-declaration-externs js2-apply-jslint-declaration-externs run-hooks js2-init-hook js2-mode-reset-timer run-mode-hooks js2-mode-hook] 6 (#$ . 1256784) nil]) (defvar js2-jsx-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [js2-jsx-mode-hook variable-documentation put "Hook run after entering JSX-IDE mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp js2-jsx-mode-map definition-name js2-jsx-mode] 4) (defvar js2-jsx-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [js2-jsx-mode-abbrev-table js2-jsx-mode-map variable-documentation put purecopy "Keymap for `js2-jsx-mode'." boundp js2-jsx-mode-syntax-table definition-name js2-jsx-mode (lambda (#1=#:def-tmp-var) (defvar js2-jsx-mode-syntax-table #1#)) make-syntax-table "Syntax table for `js2-jsx-mode'." (lambda (#1#) (defvar js2-jsx-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `js2-jsx-mode'." derived-mode-parent js2-mode] 5) #@439 Major mode for editing JSX code in Emacs 26 and earlier. To edit JSX code in Emacs 27, use `js-mode' as your major mode with `js2-minor-mode' enabled. To customize the indentation for this mode, set the SGML offset variables (`sgml-basic-offset' et al) locally, like so: (defun set-jsx-indentation () (setq-local sgml-basic-offset js2-basic-offset)) (add-hook \='js2-jsx-mode-hook #\='set-jsx-indentation) \{js2-jsx-mode-map} (defalias 'js2-jsx-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R !=\204R\326 \325!C#\210\327 !\210\330\f!\210 !\331\"\332\"\204j\333\310\334\"\210\306\335!\210\336)\337\340!\207" [delay-mode-hooks major-mode mode-name js2-jsx-mode-map js2-jsx-mode-syntax-table js2-jsx-mode-abbrev-table make-local-variable t js2-mode js2-jsx-mode "JSX-IDE" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table version< "27.0" display-warning "For JSX support, use js-mode with js2-minor-mode" indent-line-function js2-jsx-indent-line run-mode-hooks js2-jsx-mode-hook local-abbrev-table emacs-version] 5 (#$ . 1260481) nil]) #@31 Exit `js2-mode' and clean up. (defalias 'js2-mode-exit #[0 "\203\n\305!\210\306\307 \210\306\310\311\312\313#\210\314\315!\210\316 \210\317 \313\211\313\320\321\322\323\324!\325\"\326$\216ed\327\330#\266\202,\207" [js2-mode-node-overlay js2-mode-ast buffer-undo-list inhibit-read-only inhibit-modification-hooks delete-overlay nil js2-remove-overlays remove-hook change-major-mode-hook js2-mode-exit t remove-from-invisibility-spec (js2-outline . t) js2-mode-show-all buffer-modified-p make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (font-lock-face nil help-echo nil point-entered nil cursor-sensor-functions nil c-in-sws nil)] 8 (#$ . 1261844) nil]) #@57 Cancel any existing parse timer and schedule a new one. (defalias 'js2-mode-reset-timer #[0 "\203\303!\210\304\305\306\304\211\211\211\211\211\211\211& \211\307\310pC#\210\311\n\"\210\312\304\"\207" [js2-mode-parse-timer js2-mode-parsing js2-idle-timer-delay cancel-timer nil vector t timer-set-function js2-mode-idle-reparse timer-set-idle-time timer-activate-when-idle] 10 (#$ . 1262581)]) #@124 Run `js2-reparse' if BUFFER is the current buffer, or schedule it to be reparsed when the buffer is selected. (fn BUFFER) (defalias 'js2-mode-idle-reparse #[257 "\211p=\203 \300 \207\301!\205r\211q\210\302\303\304\305\306$)\207" [js2-reparse buffer-live-p add-hook window-configuration-change-hook js2-mode-idle-reparse-inner nil t] 6 (#$ . 1262989)]) (defalias 'js2-mode-idle-reparse-inner #[0 "\300\301\302\303#\210\304 \207" [remove-hook window-configuration-change-hook js2-mode-idle-reparse-inner t js2-reparse] 4]) #@120 Schedule a new parse after buffer is edited. Buffer edit spans from BEG to END and is of length LEN. (fn BEG END LEN) (defalias 'js2-mode-edit #[771 "\301\302 \210\303 \207" [js2-mode-buffer-dirty-p t js2-mode-hide-overlay js2-mode-reset-timer] 4 (#$ . 1263522)]) #@162 Callback for buffer edits in `js2-mode'. Schedules a new parse after buffer is edited. Buffer edit spans from BEG to END and is of length LEN. (fn BEG END LEN) (defalias 'js2-minor-mode-edit #[771 "\301\302 \210\303 \207" [js2-mode-buffer-dirty-p t js2-mode-hide-overlay js2-mode-reset-timer] 4 (#$ . 1263795)]) #@284 Re-parse current buffer after user finishes some data entry. If we get any user input while parsing, including cursor motion, we discard the parse and reschedule it. If FORCE is nil, then the buffer will only rebuild its `js2-mode-ast' if the buffer is dirty. (fn &optional FORCE) (defalias 'js2-reparse #[256 "\306\211C\n?\205\244\307\310\311\312\313\314!\315\"\316$\216 \204 \205\243\317 \210\306\211\306&\2032\320\321!\210\322 \3232z\324 \210\325 \307\211'(\307)\310\311\326\313\314!\327\"\316$\216*\203^\330ed\331#\210\332 \210\333 \210\334 \210\335 \210+\336Y\203v\337,!\210,\210\3060\240\210\340\341\322 !\341!Z\342_!\343\245\262\262\211\242\203\232\307\344 \202\243&\205\243\320\345\"))\207" [js2-mode-show-strict-warnings js2-compiler-strict-mode js2-mode-parsing js2-mode-buffer-dirty-p js2-mode-fontifications js2-mode-deferred-properties nil t make-byte-code 0 "\303\300\242?\205 \303\211\207" vconcat vector [js2-mode-parsing js2-mode-parse-timer nil] 2 js2-remove-overlays message "parsing..." current-time interrupted js2-parse buffer-modified-p "\300?\205\301\302!\207" [restore-buffer-modified-p nil] remove-text-properties (syntax-table) js2-mode-apply-deferred-properties js2-mode-remove-suppressed-warnings js2-mode-show-warnings js2-mode-show-errors 1 js2-highlight-jsdoc truncate float-time 10000 10000.0 js2-mode-reset-timer "Parse time: %s" js2-mode-verbose-parse-p buffer-undo-list inhibit-read-only inhibit-modification-hooks js2-mode-change-syntax-p js2-highlight-level js2-mode-ast] 13 (#$ . 1264116)]) #@101 Debugging aid: highlight selected AST node on mouse click. (fn EVENT &optional PROMOTE-TO-REGION) (defalias 'js2-mode-show-node #[513 "\306\"\210\205\344\307 \310\211\204\311\312`\"\202\342\313!\262\314! >\204.\315\316\317D\"\210\320H\\\262\n\203A\321\n#\210\202L\322\"\323\n\324\325#\210\326 \327\211\327\330\331\332\333\334!\335\"\336$\216\337\340!\203p\341\342\343$\210\202w\341\344\345$\210,\210\311\346\347\331H!\350\351\"\203\224\347\331H!\351G\310O\202\225\211\266\202\314! >\204\250\315\316\317D\"\210\352H\203\340\314! >\204\277\315\316\317D\"\210\352H\347\331H!\350\351\"\203\332\347\331H!\351G\310O\202\333\211\266\202\202\341\353#\266\203\207" [js2-mode-show-overlay cl-struct-js2-node-tags js2-mode-node-overlay buffer-undo-list inhibit-read-only inhibit-modification-hooks mouse-set-point js2-node-at-point nil message "No node found at location %s" js2-node-abs-pos type-of signal wrong-type-argument js2-node 3 move-overlay make-overlay overlay-put font-lock-face highlight buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 fboundp cursor-sensor-mode put-text-property cursor-sensor-functions (js2-mode-hide-overlay) point-left js2-mode-hide-overlay "%s, parent: %s" symbol-name string-prefix-p "cl-struct-" 5 "nil"] 14 (#$ . 1265693) "e\np"]) #@215 Remove the debugging overlay when point moves. ARG1, ARG2 and ARG3 have different values depending on whether this function was found on `point-left' or in `cursor-sensor-functions'. (fn &optional ARG1 ARG2 ARG3) (defalias 'js2-mode-hide-overlay #[768 "\205M\304!\305!\306!\203\307!\202\211\205$\211Y\205$\211X?\205K\310 \311\211\311\312\313\314\315\316!\317\"\320$\216\321\322#\210,\210\323!\210\324\211\266\203\207" [js2-mode-node-overlay buffer-undo-list inhibit-read-only inhibit-modification-hooks overlay-start overlay-end windowp window-point buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (point-left nil cursor-sensor-functions) delete-overlay nil] 14 (#$ . 1267084)]) #@38 Debugging helper: reset everything. (defalias 'js2-mode-reset #[0 "\300 \210\301 \207" [js2-mode-exit js2-mode] 1 (#$ . 1267882) nil]) #@180 Highlight a warning or error E with FACE. E is a list of ((MSG-KEY MSG-ARG) BEG LEN OVERRIDE-FACE). The last element is optional. When present, use instead of FACE. (fn E FACE) (defalias 'js2-mode-show-warn-or-err #[514 "@A@\211AA@\\ed^]ed^]\300\"\301\302\nAAA@\206' #\210\301\303\304#\210\305\306\307\n!$\210\310\311!\203H\305\312\313$\202N\305\314\315$\207" [make-overlay overlay-put font-lock-face js2-error t put-text-property help-echo js2-get-msg fboundp cursor-sensor-mode cursor-sensor-functions (js2-echo-error) point-entered js2-echo-error] 14 (#$ . 1268025)]) #@63 Remove overlays from buffer that have a `js2-error' property. (defalias 'js2-remove-overlays #[0 "ed\212\300\"\211\205\211@\301\302\"\203\303!\210A\266\202\202\262)\207" [overlays-in overlay-get js2-error delete-overlay] 7 (#$ . 1268625)]) #@73 Apply fontifications and other text properties recorded during parsing. (defalias 'js2-mode-apply-deferred-properties #[0 "\211\303V\262\2031ed\304\305#\266 \237\211\203.\211@\306@A@\307AA@$\210A\266\202\202\210\310\n\211\203D\211@\311\306\"\210A\266\202\2022\210\310\211\207" [js2-highlight-level js2-mode-fontifications js2-mode-deferred-properties 0 remove-text-properties (font-lock-face nil help-echo nil point-entered nil cursor-sensor-functions nil c-in-sws nil) put-text-property font-lock-face nil apply] 7 (#$ . 1268883)]) #@26 Highlight syntax errors. (defalias 'js2-mode-show-errors #[0 "\205*\303 !\n>\204\304\305\306 D\"\210 \307H\211\205(\211@\310\311\"\210A\266\202\202\262\207" [js2-mode-show-parse-errors js2-mode-ast cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 19 js2-mode-show-warn-or-err js2-error] 5 (#$ . 1269441)]) #@115 Take suppressed warnings out of the AST warnings list. This ensures that the counts and `next-error' are correct. (defalias 'js2-mode-remove-suppressed-warnings #[0 "\302! >\204\303\304\305D\"\210\211\306\307\310\302! >\204#\303\304\305D\"\210\306H\"I\207" [js2-mode-ast cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 20 js2-delete-if #[257 "\211@@\204\305\306\"\206\217 \204\211\307\230\206\217\n\205\217\211\310\230\205\217A@\311!\312!\211\205A\313! >\204>\314\315\316D\"\210\211\317H\211\205H\320!\211\205`\211\313!\f>\204\\\314\315\321D\"\210\322H\\\205\215?\206\215\212b\210\211\323 Y\205y\211\324 X\262\205\214\211\211\323 Y\205\212\211\324 X\262)\266\206\207" [js2-strict-trailing-comma-warning js2-strict-cond-assign-warning js2-missing-semi-one-line-override cl-struct-js2-function-node-tags cl-struct-js2-node-tags string-match "trailing\\.comma" "msg.equal.as.assign" "msg.missing.semi" js2-node-at-point js2-mode-find-parent-fn type-of signal wrong-type-argument js2-function-node 22 js2-node-abs-pos js2-node 3 point-at-bol point-at-eol] 12 "\n\n(fn E)"]] 9 (#$ . 1269791)]) #@33 Highlight strict-mode warnings. (defalias 'js2-mode-show-warnings #[0 "\205*\303 !\n>\204\304\305\306 D\"\210 \307H\211\205(\211@\310\311\"\210A\266\202\202\262\207" [js2-mode-show-strict-warnings js2-mode-ast cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 20 js2-mode-show-warn-or-err js2-warning] 5 (#$ . 1270958)]) #@201 Called by point-motion hooks. ARG1, ARG2 and ARG3 have different values depending on whether this function was found on `point-entered' or in `cursor-sensor-functions'. (fn ARG1 ARG2 &optional ARG3) (defalias 'js2-echo-error #[770 "\300!\203\f\301!\202 \302\303\"\211;\205%\304 ?\205%\305 ?\205%\306!\207" [windowp window-point get-text-property help-echo active-minibuffer-window current-message message] 7 (#$ . 1271322)]) #@183 Break line at point and indent, continuing comment if within one. If inside a string, and `js2-concat-multiline-strings' is not nil, turn it into concatenation. (fn &optional SOFT) (defalias 'js2-line-break #[256 "\301 \3028\203\203\303!\202'\304c\202'\3058\203%\306\3078!\202'\310 \207" [js2-concat-multiline-strings syntax-ppss 3 js2-mode-split-string "\n" 4 js2-mode-extend-comment 8 newline-and-indent] 5 (#$ . 1271765) nil]) #@133 Turn a newline in mid-string into a string concatenation. PARSE-STATUS is as documented in `parse-partial-sexp'. (fn PARSE-STATUS) (defalias 'js2-mode-split-string #[257 "\3018\302=c\210\211\203\303\202\304c\210\211\204\305c\210\306 \210c\210l\205*c\210\307u\207" [js2-concat-multiline-strings 3 eol " +\n" "\n" "+ " js2-indent-line -1] 4 (#$ . 1272216)]) #@87 Indent the line and, when inside a comment block, add comment prefix. (fn START-POS) (defalias 'js2-mode-extend-comment #[257 "\300\211\211\211\211\212\301 \210`W\203b\210\302\303!\203\"\304\262i\262\202A\302\305!\2035\304\262\304\262iT\262\202A\302\306!\203A\304\262i\262)\307`S\310\"\206]\205]l\205]\212\311\300w\210\300f)\312=?\262\313 \210\314c\210\203\205j\210\315c\210\203\217\211\203\217\212\314c\210j\210\316c\210)\202\217\203\217j\210\317c\210\320 \207" [nil back-to-indentation looking-at "\\*[^/]" t "/\\*" "//" get-char-property js2-error " \n" 42 delete-horizontal-space "\n" "* " "*/" "// " js2-indent-line] 9 (#$ . 1272591)]) #@122 Toggle point between bol and first non-whitespace char in line. Also moves past comment delimiters when inside comments. (defalias 'js2-beginning-of-line #[0 "\301n\203\n\302 \202O\303\304!\203\305\301w\202O\301f\306=\203L\307 \211\262\203L\310!>\2044\311\312\313D\"\210\211\314H\315>\203L\212\316\301x\210n)\203L\317\301w\202O\320 b\207" [cl-struct-js2-comment-node-tags nil back-to-indentation looking-at "//" "/ " 42 js2-comment-at-point type-of signal wrong-type-argument js2-comment-node 6 (jsdoc block) " " "* " point-at-bol] 5 (#$ . 1273275) nil]) #@64 Toggle point between eol and last non-whitespace char in line. (defalias 'js2-end-of-line #[0 "l\203\300\301x\207\302 b\207" [" " nil point-at-eol] 2 (#$ . 1273854) nil]) #@118 Invoke CALLBACK when parsing is finished. If parsing is already finished, calls CALLBACK immediately. (fn CALLBACK) (defalias 'js2-mode-wait-for-parse #[257 "\204\211 \207\211 B\302\303\304\"\207" [js2-mode-buffer-dirty-p js2-mode-pending-parse-callbacks add-hook js2-parse-finished-hook js2-mode-parse-finished] 4 (#$ . 1274035)]) #@57 Invoke callbacks in `js2-mode-pending-parse-callbacks'. (defalias 'js2-mode-parse-finished #[0 "\301\216\211\205!\211@\3021\211 0\202\303\304\"\262\210A\266\202\202\262)\207" [js2-mode-pending-parse-callbacks #[0 "\301\211\207" [js2-mode-pending-parse-callbacks nil] 2] (error) message "%s"] 6 (#$ . 1274378)]) #@196 Hide or show text from FROM to TO, according to FLAG. If FLAG is nil then text is shown, while if FLAG is t the text is hidden. Returns the created overlay if FLAG is non-nil. (fn FROM TO FLAG) (defalias 'js2-mode-flag-region #[771 "\300\301\302$\210\211\205\303\"\304\301\302#\210\304\305\306#\210\211\262\207" [remove-overlays invisible js2-outline make-overlay overlay-put isearch-open-invisible js2-isearch-open-invisible] 8 (#$ . 1274709)]) #@16 (fn OVERLAY) (defalias 'js2-isearch-open-invisible #[257 "\300 \207" [js2-mode-show-element] 2 (#$ . 1275171)]) #@101 Return cons cell of bounds of folding overlay at POS. Returns nil if not found. (fn &optional POS) (defalias 'js2-mode-invisible-overlay-bounds #[256 "\300\206`!\301\203&\211\204&\302@\303\"\203@\262\202A\262\202\211\2051\304!\305!B\207" [overlays-at nil overlay-get invisible overlay-start overlay-end] 6 (#$ . 1275292)]) #@124 Return the innermost function node enclosing current point. Returns nil if point is not in a function. (fn &optional POS) (defalias 'js2-mode-function-at-point #[256 "\302!\211\203&\303!>\204&\303! >\204\304\305\306D\"\210\211\307H\262\202\303!>\205/\211\207" [cl-struct-js2-function-node-tags cl-struct-js2-node-tags js2-node-at-point type-of signal wrong-type-argument js2-node 5] 6 (#$ . 1275643)]) #@49 Hide or show the foldable element at the point. (defalias 'js2-mode-toggle-element #[0 "\303\211\211\212\304 \211\262\305!>\205%\305!>\204 \306\307\310D\"\210\211\311H\312>\262\203D\313\314\315!\\\211\262!\203?\211b\210\316 \202\235\317 \202\235\212\320 \210\321 !)\203T\322 \202\235\323 \211\262\203\232\305!\n>\204k\306\307\324D\"\210\325H\205\205\315\305!\n>\204\201\306\307\324D\"\210\325H!\262\211Tb\210\313 \203\225\316 \202\235\317 \202\235\326\327!)\207" [cl-struct-js2-comment-node-tags js2-mode-//-comment-re cl-struct-js2-function-node-tags nil js2-comment-at-point type-of signal wrong-type-argument js2-comment-node 6 (jsdoc block) js2-mode-invisible-overlay-bounds 3 js2-node-abs-pos js2-mode-show-element js2-mode-hide-element back-to-indentation looking-at js2-mode-toggle-//-comment js2-mode-function-at-point js2-function-node 22 message "Nothing at point to hide or show"] 8 (#$ . 1276067) nil]) #@102 Fold/hide contents of a block, showing ellipses. Show the hidden text with \[js2-mode-show-element]. (defalias 'js2-mode-hide-element #[0 "\203\304\305!\210\306\211\211\211\307 \203\310\311!\202\255\312 \262\313! >\2058\313! >\2043\314\315\316D\"\210\211\317H\320>\262\203C\321!\202\255\203g\313!\n>\204g\313! >\204_\314\315\322D\"\210\323H\262\202C\203\252\313!\n>\204{\314\315\324D\"\210\325H\211\262\203\252\326!\262\313! >\204\232\314\315\322D\"\210\327H\\\262\330TS\331#\202\255\310\332!\207" [js2-mode-buffer-dirty-p cl-struct-js2-comment-node-tags cl-struct-js2-function-node-tags cl-struct-js2-node-tags js2-mode-wait-for-parse js2-mode-hide-element nil js2-mode-invisible-overlay-bounds message "already hidden" js2-node-at-point type-of signal wrong-type-argument js2-comment-node 6 (jsdoc block) js2-mode-hide-comment js2-node 5 js2-function-node 22 js2-node-abs-pos 3 js2-mode-flag-region hide "No collapsable element found at point"] 9 (#$ . 1277021) nil]) #@43 Show the hidden element at current point. (defalias 'js2-mode-show-element #[0 "\300 \211\203\301@A\302#\202\303\304!\207" [js2-mode-invisible-overlay-bounds js2-mode-flag-region nil message "Nothing to un-hide"] 5 (#$ . 1278046) nil]) #@37 Show all of the text in the buffer. (defalias 'js2-mode-show-all #[0 "\300ed\301#\207" [js2-mode-flag-region nil] 4 (#$ . 1278294) nil]) (defalias 'js2-mode-toggle-hide-functions #[0 "\203\301 \207\302 \207" [js2-mode-functions-hidden js2-mode-show-functions js2-mode-hide-functions] 1 nil nil]) #@151 Hides all non-nested function bodies in the buffer. Use \[js2-mode-show-all] to reveal them, or \[js2-mode-show-element] to open an individual entry. (defalias 'js2-mode-hide-functions #[0 "\203\303\304!\210 \204\305\306!\207\307\310 \311\"\207" [js2-mode-buffer-dirty-p js2-mode-ast js2-mode-functions-hidden js2-mode-wait-for-parse js2-mode-hide-functions message "Oops - parsing failed" t js2-visit-ast js2-mode-function-hider] 3 (#$ . 1278600) nil]) #@15 (fn N ENDP) (defalias 'js2-mode-function-hider #[514 "\211?\205e\303!>\204\304\305\306D\"\210\307H\310\211\211 U\203b\303!\n>\2041\304\305\311D\"\210\312H\211\262\203b\313!\262\303!>\204P\304\305\306D\"\210\314H\\\262\315TS\316#\210\310\202c\317\266\204\207" [cl-struct-js2-node-tags js2-FUNCTION cl-struct-js2-function-node-tags type-of signal wrong-type-argument js2-node 1 nil js2-function-node 22 js2-node-abs-pos 3 js2-mode-flag-region hide t] 11 (#$ . 1279066)]) #@51 Un-hide any folded function bodies in the buffer. (defalias 'js2-mode-show-functions #[0 "\301\212eb\210\302`!bdU?\205<\303`!\211\2038\211@\304\305\"\2031\304\306\"\2041\307\310!\311!\301#\210A\266\202\202\210\202)\207" [js2-mode-functions-hidden nil next-overlay-change overlays-at overlay-get invisible comment js2-mode-flag-region overlay-start overlay-end] 6 (#$ . 1279573) nil]) #@10 (fn N) (defalias 'js2-mode-hide-comment #[257 "\302!>\204\303\304\305D\"\210\211\306H\307=\203\310\202\311\312!\\\313\302! >\2043\303\304\314D\"\210\310H\\\311#\315\316#\317\320\321#\207" [cl-struct-js2-comment-node-tags cl-struct-js2-node-tags type-of signal wrong-type-argument js2-comment-node 6 jsdoc 3 2 js2-node-abs-pos - js2-node js2-mode-flag-region hide overlay-put comment t] 9 (#$ . 1279977)]) #@139 Folds all block comments in the buffer. Use \[js2-mode-show-all] to reveal them, or \[js2-mode-show-element] to open an individual entry. (defalias 'js2-mode-toggle-hide-comments #[0 "\203\301 \207\302 \207" [js2-mode-comments-hidden js2-mode-show-comments js2-mode-hide-comments] 1 (#$ . 1280412) nil]) (defalias 'js2-mode-hide-comments #[0 "\203\305\306!\210 \204\307\310!\207\311\312 ! >\204!\313\314\315 D\"\210 \316H\211\203W\211@\211\312!\f>\205G\312!\f>\204B\313\314\317D\"\210\211\320H\321>\262\203P\322!\210A\266\202\202$\210\323 \207" [js2-mode-buffer-dirty-p js2-mode-ast js2-mode-comments-hidden cl-struct-js2-ast-root-tags cl-struct-js2-comment-node-tags js2-mode-wait-for-parse js2-mode-hide-comments message "Oops - parsing failed" t type-of signal wrong-type-argument js2-ast-root 18 js2-comment-node 6 (jsdoc block) js2-mode-hide-comment js2-mode-hide-//-comments] 7 nil nil]) #@351 Find start or end of a block of similar //-comment lines. DIRECTION is -1 to look back, 1 to look forward. INDENT is the indentation level to match. Returns the end-of-line position of the furthest adjacent //-comment line with the same indentation as the current line. If there is no such matching line, returns current end of line. (fn DIRECTION) (defalias 'js2-mode-extend-//-comment #[257 "\301 \302 \212y\303U\203\"\304!\203\"\211\305\306!G=\203\"\301 \262\202)\207" [js2-mode-//-comment-re point-at-eol current-indentation 0 looking-at match-string 1] 6 (#$ . 1281334)]) #@67 Fold adjacent 1-line comments, showing only snippet of first one. (defalias 'js2-mode-hide-//-comments #[0 "\301\211\212eb\210\302\301\303#\205/`\262\304\305!\262=\204&\306\307\310#\311\303#\210\211b\210\305u\210\202)\207" [js2-mode-//-comment-re nil re-search-forward t js2-mode-extend-//-comment 1 overlay-put js2-mode-flag-region hide comment] 7 (#$ . 1281927)]) #@124 Fold or un-fold any multi-line //-comment at point. Caller should have determined that this line starts with a //-comment. (defalias 'js2-mode-toggle-//-comment #[0 "\300 \211\212\211b\210\301 \203\302 \202+\303\304!\262\303\305!\262=?\205+\306\307\310#\311\312#)\207" [point-at-eol js2-mode-invisible-overlay-bounds js2-mode-show-element js2-mode-extend-//-comment -1 1 overlay-put js2-mode-flag-region hide comment t] 7 (#$ . 1282311)]) #@67 Un-hide any hidden comments, leaving other hidden elements alone. (defalias 'js2-mode-show-comments #[0 "\301\212eb\210\302`!bdU?\2055\303`!\211\2031\211@\304\305\"\203*\306\307!\310!\301#\210A\266\202\202\210\202)\207" [js2-mode-comments-hidden nil next-overlay-change overlays-at overlay-get comment js2-mode-flag-region overlay-start overlay-end] 6 (#$ . 1282766) nil]) #@41 Turn on display of warnings and errors. (defalias 'js2-mode-display-warnings-and-errors #[0 "\302\211\303\304!\207" [js2-mode-show-parse-errors js2-mode-show-strict-warnings t js2-reparse force] 3 (#$ . 1283157) nil]) #@42 Turn off display of warnings and errors. (defalias 'js2-mode-hide-warnings-and-errors #[0 "\302\211\303\304!\207" [js2-mode-show-parse-errors js2-mode-show-strict-warnings nil js2-reparse force] 3 (#$ . 1283383) nil]) #@115 Toggle the display of warnings and errors. Some users don't like having warnings/errors reported while they type. (defalias 'js2-mode-toggle-warnings-and-errors #[0 "? ?\302\303!\203\304\305\203\306\202\307\"\210\310\311!\207" [js2-mode-show-parse-errors js2-mode-show-strict-warnings called-interactively-p any message "warnings and errors %s" "enabled" "disabled" js2-reparse force] 3 (#$ . 1283610) nil]) (defalias 'js2-mode-customize #[0 "\300\301!\207" [customize-group js2-mode] 2 nil nil]) #@180 Move forward across one statement or balanced expression. With ARG, do it that many times. Negative arg -N means move backward across N balanced expressions. (fn &optional ARG) (defalias 'js2-mode-forward-sexp #[256 "\211\206\304\262\214~\210\305 \210\306\211`\306\211\211\211\307 \310! >\205\"\311\262\203.\312!\202#\203\314\211\313W\262\203\314[\313\211W\205\307\211\314 \210\315u\210\307`\311\"\211\262\n\203\267\316 !\262\317 \"\211@\262\211A\262\210\203\235V\203\235\203\232X\203\232\320 `\311$\211\262\203\235\316!\262\202\235\262\321\"\211@\313U\204\262\322 \315\"\202\264b\266\204\277eb\210\210\211T\262\202A\266\202\202#\313\211W\205!\211\323 \210\307`\311\"\211\262\n\203\316 !\262\317 \"\211@\262\211A\262\210\203?X\203?V\2037\320 `#\211\262\203?\316!\310!\n>\204+\324\325\326D\"\210\327H\\\262\211\262\202<T\211\262\204\365\310\211\211\f!\n>\204T\324\325\326D\"\210 \330H! >\203v\310 !\n>\204o\324\325\326 D\"\210\n\330H\202x\n!\n>\204\272\324\325\326\310\211!\n>\204\223\324\325\326D\"\210 \330H! >\203\265\310 !\n>\204\256\324\325\326D\"\210\f\330H\202\267\fD\"\210\310\211 !\n>\204\314\324\325\326 D\"\210\n\330H! >\203\356\310\n!\n>\204\347\324\325\326\fD\"\210 \330H\202\360 \327H\\\262\212\321\")\211@\313U\204\f\322 \304\"\202b\266\204db\210\210\211T\262\202\317\266\202)\266\207)\207" [forward-sexp-function cl-struct-js2-string-node-tags cl-struct-js2-node-tags cl-struct-js2-expr-stmt-node-tags 1 js2-reparse nil js2-node-at-point type-of t forward-sexp 0 js2-backward-sws -1 js2-node-abs-pos js2-mode-forward-sexp-parens js2-node-closest-child parse-partial-sexp scan-sexps js2-forward-sws signal wrong-type-argument js2-node 3 5] 20 (#$ . 1284124) "p"]) #@78 Return a cons cell with positions of main parens in NODE. (fn NODE ABS-POS) (defalias 'js2-mode-forward-sexp-parens #[514 "\305!>\204 \305! >\204 \305!\n>\204 \306H\307>\203:\211\310\305! >\2043\311\312\313D\"\210\314H\315#B\207\211\306H\f>\262\205\\\316!\317!\205R\\\205Y\\B\266\202\207" [cl-struct-js2-array-node-tags cl-struct-js2-object-node-tags cl-struct-js2-comp-node-tags cl-struct-js2-node-tags js2-paren-expr-nodes type-of 0 (cl-struct-js2-block-node cl-struct-js2-scope) + signal wrong-type-argument js2-node 3 -1 js2-node-lp js2-node-rp] 9 (#$ . 1285980)]) #@44 (fn PARENT POINT LIMIT &optional BEFORE) (defalias 'js2-node-closest-child #[1027 "\300!ZZ^]\301C\30222\303\n\304\305\306\307\310 \f\f\f&\311\"\312\313%\"0\210\211\242\207" [js2-node-abs-pos nil done js2-visit-ast make-byte-code 514 "\300=\203\306\207\307!>\204\310\311\312D\"\210\313H\307!>\204+\310\311\312D\"\210\313H\307!>\204?\310\311\312D\"\210\314H\\\303Y\203c\211\304X\203c\301\203Y\302W\202\\\211\302V\203c\305\240\210\211\302V\203n\315\316\317\"\210\266\317\207" vconcat vector [t type-of signal wrong-type-argument js2-node 2 3 throw done nil cl-struct-js2-node-tags] 8 "\n\n(fn NODE END-P)"] 23 (#$ . 1286584)]) #@32 Return a list of errors found. (defalias 'js2-errors #[0 "\205\302! >\204\303\304\305D\"\210\306H\207" [js2-mode-ast cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 19] 4 (#$ . 1287269)]) #@34 Return a list of warnings found. (defalias 'js2-warnings #[0 "\205\302! >\204\303\304\305D\"\210\306H\207" [js2-mode-ast cl-struct-js2-ast-root-tags type-of signal wrong-type-argument js2-ast-root 20] 4 (#$ . 1287499)]) #@60 Return non-nil if any parse errors or warnings were found. (defalias 'js2-have-errors-p #[0 "\300 \206\301 \207" [js2-errors js2-warnings] 1 (#$ . 1287733)]) #@158 Return a copy of the concatenated errors and warnings lists. They are appended: first the errors, then the warnings. Entries are of the form (MSG BEG END). (defalias 'js2-errors-and-warnings #[0 "\205,\302\303! >\204\304\305\306D\"\210\307H\310\303! >\204'\304\305\306D\"\210\311H!\"\207" [js2-mode-ast cl-struct-js2-ast-root-tags append type-of signal wrong-type-argument js2-ast-root 19 copy-sequence 20] 7 (#$ . 1287900)]) #@192 Move to next parse error. Typically invoked via \[next-error]. ARG is the number of errors, forward or backward, to move. RESET means start over from the beginning. (fn &optional ARG RESET) (defalias 'js2-next-error #[512 "\300 \204\301 \204\302\303!\207\211\203eb\210\304 \305`\206\306\211\211\307W\262\211\203,\310\202-\311\2035\311\2026\310\312!\313\211\314\n\315\316\317\320\321 !\322\"\323\324%\"\262\n \262 \203\202\203\202\n@A@ \"\203z @\262S\211\262\307U\203z\313\262  A\262\n\202R\302\313!\210\211\203\221\211A@b\202\242@A@b\210`U\205\242\325``\"\207" [js2-errors js2-warnings message "No errors" js2-errors-and-warnings t 1 0 > < abs nil sort make-byte-code 514 "\300A@A@\"\207" vconcat vector [] 5 "\n\n(fn E1 E2)" js2-echo-error] 20 (#$ . 1288345) "p"]) #@225 Make right-click move the point to the click location. This makes right-click context menu operations a bit more intuitive. The point will not move if the region is active, however, to avoid destroying the region selection. (defalias 'js2-down-mouse-3 #[0 "\205 ?\205\n\3031\211A@A@b0\202\210\304\262\207" [js2-move-point-on-right-click mark-active last-input-event (error) nil] 2 (#$ . 1289163) nil]) #@115 Returns an alist for `imenu--index-alist'. Returns nil on first scan if buffer size > `imenu-auto-rescan-maxout'. (defalias 'js2-mode-create-imenu-index #[0 "\204\304 X\203\305 \210\205 \n\204\305\306!\210\307 \310\211\207" [js2-mode-ast imenu-auto-rescan-maxout js2-imenu-recorder js2-imenu-function-map buffer-size js2-reparse force js2-build-imenu-index nil] 3 (#$ . 1289582)]) #@101 Replacement for `find-tag-default'. `find-tag-default' returns a ridiculous answer inside comments. (defalias 'js2-mode-find-tag #[0 "\300\211\212\301\302!\203\303\304!\210`\262\303\305!\210`\262\202(\303\305!\210`\262\303\304!\210`\262\306\307\310\311\"#)\207" [nil looking-at "\\_>" forward-symbol -1 1 replace-regexp-in-string "[\"']" "" buffer-substring-no-properties] 8 (#$ . 1289982)]) #@132 Move to the end of the sibling following point in parent. Returns non-nil if successful, or nil if there was no following sibling. (defalias 'js2-mode-forward-sibling #[0 "\301 \302!\303\304`\"\211\262\205'\305!\306!>\204\"\307\310\311D\"\210\312H\\b\207" [cl-struct-js2-node-tags js2-node-at-point js2-mode-find-enclosing-fn nil js2-node-find-child-after js2-node-abs-pos type-of signal wrong-type-argument js2-node 3] 8 (#$ . 1290390)]) #@125 Move to the beginning of the sibling node preceding point in parent. Parent is defined as the enclosing script or function. (defalias 'js2-mode-backward-sibling #[0 "\300 \301!\302\303`\"\211\262\205\304!b\207" [js2-node-at-point js2-mode-find-enclosing-fn nil js2-node-find-child-before js2-node-abs-pos] 6 (#$ . 1290846)]) #@265 Go to line on which current function starts, and return t on success. If we're not in a function or already at the beginning of one, go to beginning of previous script-level element. With ARG N, do that N times. If N is negative, move forward. (fn &optional ARG) (defalias 'js2-beginning-of-defun #[256 "\211\206\301\262\211\211\302V\262\2037\303\304 !\305!>\203#\306!b\202%\307 \2056\301V\2035\310S!\2026\311\207\312 \205J\310\313Y\203G\301\202IT!\207" [cl-struct-js2-function-node-tags 1 0 js2-node-parent-script-or-fn js2-node-at-point type-of js2-node-abs-pos js2-mode-backward-sibling js2-beginning-of-defun t js2-end-of-defun -1] 4 (#$ . 1291184)]) #@89 Go to the char after the last position of the current function or script-level element. (defalias 'js2-end-of-defun #[0 "\302 \303!>\203\211\206\304!\305\303!>\204M\206\262\306`\"\262\203G`\307!\303! >\204?\310\311\312D\"\210\313H\\Y\203M\314`\"\262\205h\307!\303! >\204c\310\311\312D\"\210\313H\\b\207" [cl-struct-js2-function-node-tags cl-struct-js2-node-tags js2-node-at-point type-of js2-node-parent-script-or-fn nil js2-node-find-child-before js2-node-abs-pos signal wrong-type-argument js2-node 3 js2-node-find-child-after] 9 (#$ . 1291866)]) #@287 Put mark at end of this function, point at beginning. The function marked is the one that contains point. Interactively, if this command is repeated, or (in Transient Mark mode) if the mark is active, it marks the next defun after the ones already marked. (fn &optional ALLOW-EXTEND) (defalias 'js2-mark-defun #[256 "\306\2039 =\203\307\310!\204\n\2039 \2039\212\307 b\210\311 \205$`)\211\2033\312!\210\310\262\2028\307\310!b\210\210\211?\205\303\313`\310\"\306\211\211\211\211\211\314!\f>\203d\262\315`\"\206b\316`\"\262\204l\262\314! >\203|\262\202\233\317!\262\203\216\314!\f>\205\222\320!\262\206\231\262\321!\262\314!>\204\262\322\323\324D\"\210\325H\\\262\326!\210\211b\210\327 \266\207\207" [last-command this-command transient-mark-mode mark-active cl-struct-js2-ast-root-tags cl-struct-js2-function-node-tags nil mark t js2-mode-forward-sibling set-mark js2-node-at-point type-of js2-node-find-child-after js2-node-find-child-before js2-mode-find-enclosing-fn js2-mode-find-first-stmt js2-node-abs-pos signal wrong-type-argument js2-node 3 push-mark exchange-point-and-mark cl-struct-js2-node-tags] 14 (#$ . 1292457) "p"]) #@41 Narrow to the function enclosing point. (defalias 'js2-narrow-to-defun #[0 "\303`\304\"\305!>\203\211\202\306!\307!\305! >\205\304?\205:\211\305!\n>\2045\310\311\312D\"\210\313H\\}\207" [cl-struct-js2-script-node-tags cl-struct-js2-ast-root-tags cl-struct-js2-node-tags js2-node-at-point t type-of js2-mode-find-enclosing-fn js2-node-abs-pos signal wrong-type-argument js2-node 3] 9 (#$ . 1293662) nil]) #@91 Jump to the definition of an object's property, variable or function. (fn &optional ARG) (defalias 'js2-jump-to-definition #[256 "\306 \210\307 \210\310 \311!>\204\312\313\314D\"\210\211\315H\311! >\205J\316\317!\211\320\211:\203E@\262B\262\232\204EA\262\202)\266\202\262!C\320C\311!\n>\203e\311! >\204e\311!\f>\203i\321\322!\210\211\242\203{\242\211\242A\240\210\242\206\306\311! >\203\277\311! >\204\224\312\313\323D\"\210\324H=\203\277\325\320\326\311!>\204\260\312\313\314D\"\210\327H\"A@\206\272\211\266\203\203\303\206\306\321\322!\242B\240\210\211\330\242\"\240\210\211\242\204\371\331\3322\367\204\365\333\334\335\336\337\340\"\341\"\315\342%\343 \"\210\3200!\210\211\242<\203\242@\202\242\240\210\211\242\204\344 \210\321\345!\210\346\242!b\207" [cl-struct-js2-node-tags cl-struct-js2-prop-get-node-tags cl-struct-js2-name-node-tags cl-struct-js2-var-init-node-tags cl-struct-js2-function-node-tags cl-struct-js2-object-prop-node-tags xref-push-marker-stack js2-reparse js2-node-at-point type-of signal wrong-type-argument js2-node 5 reverse js2-compute-nested-prop-get nil error "Node is not a supported jump node" js2-object-prop-node 7 SHORTHAND assoc 4 js2-search-scope switch-to-buffer found mapc make-byte-code 257 "r\211q\210\303\304!\205\301\305\n\300\242\"\240\210\301\242\205\306\307\")\207" vconcat vector [js2-mode-ast derived-mode-p js2-mode js2-search-scope throw found] "\n\n(fn B)" buffer-list pop-tag-mark "No jump location found" js2-node-abs-pos] 15 (#$ . 1294090) "P"]) #@76 Check if object NODE contains element with NAME-NODE. (fn NODE NAME-NODE) (defalias 'js2-search-object #[514 "\304!>\204\f\305\306!\210\304!>\204\307\310\311D\"\210\312H\313\211\314\313:\203\273@\262\304! >\204;\307\310\315D\"\210\316H\262\304!\n>\203s\304!\n>\204Y\307\310\317D\"\210\312H\304!\n>\204l\307\310\317D\"\210\312H\232\204\246\304! >\203\260\304!\n>\204\214\307\310\317D\"\210\312H\304! >\204\237\307\310\320D\"\210\312H\230\203\260\262\313\211\262\202\261\314\203\273A\262\202\"\207" [cl-struct-js2-object-node-tags cl-struct-js2-object-prop-node-tags cl-struct-js2-name-node-tags cl-struct-js2-string-node-tags type-of cl--assertion-failed (js2-object-node-p node) signal wrong-type-argument js2-object-node 6 nil t js2-object-prop-node 7 js2-name-node js2-string-node] 12 (#$ . 1295677)]) #@197 Return node in OBJECT that matches PROP-NAMES or nil. PROP-NAMES is a list of values representing a path to a value in OBJECT. i.e. ('name' 'value') = {name : { value: 3}} (fn OBJECT PROP-NAMES) (defalias 'js2-search-object-for-prop #[514 "\302\303\203=\211\203=\304!>\203=\305\211A\262\242\"\262\211\262\203\304! >\2045\306\307\310D\"\210\311H\262\202\211?\205C\207" [cl-struct-js2-object-node-tags cl-struct-js2-object-prop-node-tags nil t type-of js2-search-object signal wrong-type-argument js2-object-prop-node 8] 10 (#$ . 1296544)]) #@182 Searches NODE scope for jump location matching NAMES. NAMES is a list of property values to search for. For functions and variables NAMES will contain one element. (fn NODE NAMES) (defalias 'js2-search-scope #[514 "\304C\305@!>\204\306\307\310@D\"\210@\311H\312\"\240\210G\313V\203\223\242\203\200\211\305\242!>\204<\306\307\310\242D\"\210\242\311H\230\203\200\305\242! >\204U\306\307\314\242D\"\210\242\315H\211A\262\305!\n>\205}\316\305!\n>\204x\306\307\317D\"\210\320H\"\240\266\321 \322\323\324\325\326  \"\327\"\330\331%\"\210\242\207" [cl-struct-js2-name-node-tags cl-struct-js2-node-tags cl-struct-js2-var-init-node-tags js2-mode-ast nil type-of signal wrong-type-argument js2-name-node 6 js2-get-symbol-declaration 1 js2-node 5 js2-search-object-for-prop js2-var-init-node 7 js2-visit-ast make-byte-code 514 "\211?\205\266\306!\n>\203\265\306!\n>\204\307\310\311D\"\210\312H\306!\n>\204.\307\310\311D\"\210\313H\300\306! >\203\263\314!\211\315\316\315:\203\224@\262\211A\262\242\306!\f>\204_\307\310\317D\"\210\211\320H\262\306!\f>\204t\307\310\317D\"\210\320H\230\203\224\204\211\262\315\211\262\202\212\316\203\224A\262\202A\266\203\211\206\246\306! >\205\246\321\"\211\203\261\301\301\242B\240\210\266\266\316\207" vconcat vector [cl-struct-js2-assign-node-tags cl-struct-js2-prop-get-node-tags cl-struct-js2-name-node-tags cl-struct-js2-object-node-tags type-of signal wrong-type-argument js2-assign-node 7 8 js2-compute-nested-prop-get nil t js2-name-node 6 js2-search-object-for-prop] 15 "\n\n(fn NODE ENDP)"] 13 (#$ . 1297116)]) #@48 Find scope for NAME from NODE. (fn NODE NAME) (defalias 'js2-get-symbol-declaration #[514 "\301\302!\206\"\211\205&\303\"\304!>\204!\305\306\307D\"\210\211\310H\262\207" [cl-struct-js2-symbol-tags js2-get-defining-scope js2-node-get-enclosing-scope js2-scope-get-symbol type-of signal wrong-type-argument js2-symbol 3] 8 (#$ . 1298755)]) (provide 'js2-mode)