shell bypass 403
UnknownSec Shell
:
/
usr
/
lib
/
python3
/
dist-packages
/
pygments
/
lexers
/
__pycache__
/ [
drwxr-xr-x
]
upload
mass deface
mass delete
console
info server
name :
lisp.cpython-312.pyc
� |�e4 � �` � d Z ddlZddlmZmZmZmZmZ ddlm Z m Z m Z m Z m Z mZmZmZmZmZmZ ddlmZ ddlmZmZ g d�Z G d� d e� Z G d � d e� Z G d � d e� Z G d� de� Z G d� de� Z G d� de� Z G d� de� Z G d� de� Z! G d� de� Z" G d� de� Z#y) z� pygments.lexers.lisp ~~~~~~~~~~~~~~~~~~~~ Lexers for Lispy languages. :copyright: Copyright 2006-2023 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. � N)� RegexLexer�include�bygroups�words�default) �Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�Literal�Error� Whitespace)� PythonLexer)�scheme_keywords�scheme_builtins) � SchemeLexer�CommonLispLexer�HyLexer� RacketLexer� NewLispLexer�EmacsLispLexer� ShenLexer� CPSALexer� XtlangLexer� FennelLexerc � � � e Zd ZdZdZdZddgZddgZdd gZe j e j z Z d Z d Z� fd �Zi Zd D ]y Zedk( rdZdZn edk( rdZdZnedk( rdZdZn edk( rdZdZde� de� d �Zde� d e� d �Zedk( r d Zd e� d!e� d"�Zd#Zd$e� d%e� d&�Zde� d'e� d(e� d)e� d*e� d+� Zd,e� d-e� d.e� d/�Zeee< �{ d0� Z e d1� g e d2� gd3e j< fd4e j> d5fd6e d7fd8e d9fd:e fd;e fed e!jD d<fed e!jF d<fed ed<fed e!jH d<fd=e%d>fd?e z e%jL d<fd@e z e'jP d<fdAe%jR d<fdBe*jV d<fdCe,fdDe z e*jZ d<fdEe z e*jZ d<fdFe z e*j\ d<fe e*jZ d<fdGe/d1fdHe/dIfgd4e j> dJfdKe j> d<fdLe j> fdMe j> fgdGe dJfdHe d<fdNe fgdOe� �e d<fgd=e%dPfdQe%j` fdRe%j` fdSe%j` fdTe%j` fdUe%j` fdVe%fgdW�Z1� xZ2S )Xr z� A Scheme lexer. This parser is checked with pastes from the LISP pastebin at http://paste.lisp.org/ to cover as much syntax as possible. It supports the full Scheme syntax as defined in R5RS. .. versionadded:: 0.6 �Schemez http://www.scheme-reports.org/�scheme�scmz*.scmz*.ssz text/x-schemezapplication/x-scheme�[\w!$%&*+,/:<=>?@^~|-]+z� (?= \s # whitespace | ; # comment | \#[;|!] # fancy comments | [)\]] # end delimiters | $ # end of file ) c # � �K � t �| � |� D ]k \ }}}|t j u s|t j u r:|t v r |t |f�� �?|t v r|t j |f�� �]|||f�� �e|||f�� �m y �w�N) �super�get_tokens_unprocessedr �Function�Variabler r r �Builtin)�self�text�index�token�value� __class__s ��6/usr/lib/python3/dist-packages/pygments/lexers/lisp.pyr( z"SchemeLexer.get_tokens_unprocessed> s� �� �� �#(�7�#A�$�#G� *� �E�5�%��� � �%��$�-�-�)?��O�+� ��%�/�/��o�-� �� � �u�4�4� ���-�-��U�E�)�)� *�s �A?B)� � � � r3 z[01]z ( \#[bB] )r4 z[0-7]z ( \#[oO] )r5 z[0-9]z ( (\#[dD])? )r6 z [0-9a-fA-F]z ( \#[xX] )z ( z$ (\#[iIeE])? | \#[iIeE] z ) z+ ( / z+ )? ) a� ( # Decimal part ( [0-9]+ ([.][0-9]*)? | [.][0-9]+ ) # Optional exponent ( [eEsSfFdDlL] [+-]? [0-9]+ )? # Optional mantissa width ( \|[0-9]+ )? ) z! ( z (?!/) | z ) z (nan.0|inf.0)z ( [+-] z' # Sign mandatory | [+-]? z( # Sign optional ) z ? [+-] (�|z)? i | z (@ z)? ) z (?x) ( z z� ) # Need to ensure we have a full token. 1+ is not a # number followed by something else, but a function # name. z c # � K � d|j � v rt j }nt j }|j � ||j � f�� y �w)N�.)�groupr �Float�Integer�start)r, �match� token_types r2 � decimal_cbzSchemeLexer.decimal_cb� s? � �� � �%�+�+�-� � � � �J� � � �J��k�k�m�Z���� �6�6�s �AA� scheme-rootr0 z;.*?$�#\|�multiline-commentz#;[([]�commented-formz#;�commented-datumz#!r6rs�\s+�#pop�"�string�'�#:�' #\\([()/'\"._!§$%& ?=+-]|[a-zA-Z0-9]+)�(#t|#f)�('|#|`|,@|,|\.)�(?<='\()�(?<=#\()�(?<=\()z[([]z[)\]]z#pop:3�#push�\|#�[^|#]+�[|#]z [^()[\]]+z(?x).*?z#pop:2z\\x[0-9a-fA-F]+;z\\x[0-9a-fA-F]{2}z\\u[0-9a-fA-F]{4}z\\U[0-9a-fA-F]{6}�\\.�[^\\"]+)�rootrA r0 rC rD rE rI )3�__name__� __module__� __qualname__�__doc__�name�url�aliases� filenames� mimetypes�re�DOTALL� MULTILINE�flags� valid_name� token_endr( � number_rules�base�digit�radix�prefix�ureal�decimal�naninf�real�complex_�numr@ r r �Single� Multiliner r �Bin�Oct�Hexr �Symbolr � Declaration�Charr �Constantr r* r) r �Escape�tokens� __classcell__)r1 s @r2 r r s �� � � �D� *�C��� �G��&�!�I� �"8�9�I� �I�I�� � � $�E� ,�J��I� *�, �L� � V!�� �1�9��E�!�E� �Q�Y� �E�!�E� �R�Z� �E�$�E� �R�Z�"�E�!�E� � �G� � �w� � �� � �G� ��� � �� �2�:��G�&�� � ��'� ��E� "����� ��G� � �� � �F�*�V�H�A�e�W� -��f�D��� � �� � �H� � �J� � �+� � �� !� �T��mV!�x7�, �M� "� � �G� � � �w�~�~� &� �W�&�&�(;� <� ��!1� 2� �G� .� /� �� � �Z� � �!�_�f�j�j�&� 1� �!�_�f�j�j�&� 1� �"� �z�6� 2� �"� �v�z�z�6� 2� �6�8� $� �J� �� � �v� 6� �Z� ��!4�!4�f� =� 7����f� M� �� � �� /� �� *� �:� %�t�}�}�f� =� �:� %�t�}�}�f� =� �*� $�d�m�m�V� <� �� � �� /� �k�=� 1� �{�H� -�q9 �v �W�&�&�� 0� �W�&�&�� /� ��)�)� *� �g�'�'� (� � �g�w� '� �w�� '� �7� #� � � �{� #�W�f� 5� � �&�(� #� �&�-�-� 0� !�6�=�=� 1� !�6�=�=� 1� !�6�=�=� 1� �V�]�]� #� �� � �_`�F� r c �0 � e Zd ZdZdZdZg d�ZddgZdgZe j e j z Z dZ e d z Zd Zd e �d e�d �Zd� Zd� Z ed� gdej* dfdej* dfdej* fdej* fgdej, dfdej, dfdej, fgg def�dej0 f�dej* d f�d ej2 f�d ef�d ez ej6 f�d ez ej6 f�d!ez ej6 f�d"ez ej6 f�d"e f�d#e f�d$ez e j< f�d%ez e f�d&ez e j> f�d'ez ej@ f�d(ez ej@ f�d)e df�d*e!jD f�d+ez ej6 f�d,e f�d-e#jH f�d.e jJ f�d/e jL f�d0e jN f�d1e f�d2 e(e e)� df�d3 e(e!jD e)� df�d4 e(e!jD e)� df�d5e!jD f�d6e f�d7e f�d8ez d9z ej, d:f�d;e f�d<e f�d=ez e#jT f�d>ez d>z e#jV jX f�ee#jV f�de)df�de)df�d?�Z-d@� Z.yA)Br z9 A Common Lisp lexer. .. versionadded:: 0.9 z Common Lispzhttps://lisp-lang.org/)z common-lisp�cl�lispz*.clz*.lispztext/x-common-lispz \\.|[\w!$%&*+-/<=>?@\[\]^{}~]�|[#.:]z(?=[ "()\'\n,;`])z(\|[^|]+\||(?:�)(?:�)*)c � � ddl m}m}m}m}m}m}m} || _ || _ || _ || _ || _ || _ || _ t j | fi |�� y )Nr )�BUILTIN_FUNCTIONS� SPECIAL_FORMS�MACROS�LAMBDA_LIST_KEYWORDS� DECLARATIONS� BUILTIN_TYPES�BUILTIN_CLASSES)� pygments.lexers._cl_builtinsr� r� r� r� r� r� r� �builtin_function� special_forms�macros�lambda_list_keywords� declarations� builtin_types�builtin_classesr �__init__) r, �optionsr� r� r� r� r� r� r� s r2 r� zCommonLispLexer.__init__A s] � � +� +� +� !2�� � *��� �� �$8��!� (��� *��� .�� ����D�,�G�,r c # �@ K � dg}t j | ||� D ]� \ }}}|t j u r�|| j v r|t j |f�� �=|| j v r |t |f�� �W|| j v r|t j |f�� �{|| j v r |t |f�� ��|| j v r |t |f�� ��|| j v r|t j |f�� ��|| j v r|t j |f�� ��|||f�� �� y �w�NrX )r r( r r* r� r+ r� r r� r� r� r� �Typer� �Class�r, r- �stackr. r/ r0 s r2 r( z&CommonLispLexer.get_tokens_unprocessedN s, � �� ����#-�#D�#D�T�4�QV�#W� &� �E�5�%��� � �%��D� 1� 1�1� �� � �u�4�4� ��D� .� .�.� ��%�/�/� ��D�K�K�'� �� � �u�4�4� ��D� 5� 5�5� ��%�/�/� ��D� -� -�-� ��%�/�/� ��D� .� .�.� �� � �u�4�4� ��D� 0� 0�0� ����U�2�2� ����%� %�/ &�s �D D �bodyrB rR rS rG rT rU �\(�\)z[^()]+rF �;.*$rC z#\d*Y.*$z"(\\.|\\\n|[^"\\])*"�:�::z:#rJ �`� [-+]?\d+\.?� [-+]?\d+/\d+�<[-+]?(\d*\.\d+([defls][-+]?\d+)?|\d+(\.\d*)?[defls][-+]?\d+)z#\\.z#\\�#\(z #\d*\*[01]*rK z#[.,]�#\'z#b[+-]?[01]+(/[01]+)?z#o[+-]?[0-7]+(/[0-7]+)?z #x[+-]?[0-9a-f]+(/[0-9a-f]+)?z #\d+r[+-]?[0-9a-z]+(/[0-9a-z]+)?z(#c)(\()z (#\d+a)(\()z(#s)(\()z#p?"(\\.|[^"])*"�#\d+=�#\d+#z#+nilz\s*\(rD z#[+-]z (,@|,|\.)�(t|nil)�\*)rX rC rD r� c �2 � t j d| � ryy)z#Competes with Visual Prolog on *.clz ^\s*\(defun\sg�������?r )rb �search�r- s r2 � analyse_textz CommonLispLexer.analyse_text� s � � �9�9�%�t� ,��r N)/rY rZ r[ r\ r] r^ r_ r` ra rb � IGNORECASErd re �nonmacro� constituent� terminated�symbolr� r( r r rt �Preprocr rs �Specialr rx r r r< r; rz r �Otherr r) ru rv rw r r r{ r* �Globalr} r� � r r2 r r ( sr � �� �D� "�C�+�G���"�I�%�&�I� �M�M�B�L�L� (�E� 0�H��X�%�K�%�J� .6�{� C�F� -�&�: �F�O� � �W�&�&�� 0� �W�&�&�� /� ��)�)� *� �g�'�'� (� � �G�O�O�W� -� �G�O�O�V� ,� ���� (� � _ � �Z� �_ � �g�n�n� %� _ � �W�&�&�(;� <�_ � �'�/�/� *�_ � %�f� -� _ � �F�]�F�M�M� *�!_ �" �V�^�V�]�]� +�#_ �$ �V�^�V�]�]� +�%_ �& �F�]�F�M�M� *�'_ �( �8� �)_ �* �8� �+_ �0 �j� (�&�.�.� 9�1_ �2 �z� )�6� 2�3_ �4 M� �� � � � '�5_ �< �z� !�6�;�;� /�=_ �> �f�_�f�k�k� *�?_ �D �X�v� &�E_ �J �W�]�]� +�K_ �P �V�^�V�]�]� +�Q_ �V �x� �W_ �\ �T�]�]� #�]_ �b &�v�z�z� 2�c_ �h (���� 4�i_ �n .�v�z�z� :�o_ �t 1�&� 9�u_ �z �(�6�;�7�� @�{_ �@ �X�g�m�m�[� A�6� J�A_ �F �(�7�=�=�+�>�� G�G_ �L !�'�-�-� 0�M_ �R �x� �S_ �T �x� �U_ �Z � � "�X� -�w���@P� Q�[_ �` �x� �a_ �f �8� $�g_ �l �*� $�d�m�m� 4�m_ �r �V�^�e� #�T�]�]�%9�%9� :�s_ �t �T�]�]� #�u_ �z �K�� (�{_ �| �K�� (�}_ � o�F�br r c � � e Zd ZdZdZdZdgZdgZddgZdZ d Z d Z d Z e e z Z d Zd � Zdej" fdefdefdej* fdej, fdej. fdej0 fdefdez ej4 fdej6 fd e eej: � fd e eej: � fdez ej4 fde f e d � e d � ee � e f ee � e jB f ee � e"jF fd ez e"jH fee"jJ fd e&fd e&fd!e&fge'jP d" e'jP d# d$�Z(d%� Z)y&)'r z> Lexer for Hy source code. .. versionadded:: 2.0 �Hyzhttp://hylang.org/�hylangz*.hyz text/x-hyzapplication/x-hy)%�cond�for�->�->>�car�cdr�first�rest�let�when�unless�import�do�progn�get�slice�assoczwith-decorator�,� list_comp�kwapply�~�is�inzis-notznot-in� quasiquote�unquotezunquote-splice�quoter7 z<<=z>>=�foreach�while�eval-and-compile�eval-when-compile)�def�defn�defun�defmacro�defclass�lambda�fn�setvr� )�cycle�dec�distinct�drop�even?�filter�incz instance?z iterable?�iteratez iterator?zneg?znone?�nthznumeric?�odd?zpos?�remove�repeat� repeatedly�take�take_nth� take_while�zero?z(?!#)[\w!$%*+<=>?/.#:-]+c � � t | d�� S )N� ��suffix)r )�entriess r2 � _multi_escapezHyLexer._multi_escape s � ��W�S�)�)r r� �,+rF � -?\d+\.\d+�-?\d+z 0[0-7]+j?z0[xX][a-fA-F0-9]+�"(\\\\|\\[^\\]|[^"\\])*"rJ z \\(.|[a-z]+)z"^(\s*)([rRuU]{,2}"""(?:.|\n)*?""")z"^(\s*)([rRuU]{,2}'''(?:.|\n)*?''')z::?z ~@|[`\'#^~&@]� py-keywords� py-builtinsrQ �(\[|\])�(\{|\})�(\(|\))�keywords�builtins)rX r r c � � d| v sd| v ryy )Nz(import z(defn g�������?r� r� s r2 r� zHyLexer.analyse_textS s � � �� ��T�!1�� "2r N)*rY rZ r[ r\ r] r^ r_ r` ra r� r� � hy_builtins�hy_corer rf r� r rs r r r r; r< rv rw r rx rz r �Docr r r ry r r+ r) r* r r r} r� r� r r2 r r � s� � �� �D� �C��j�G���I� � 0�1�I��M��L� �K��G� �W�$�H� -�J�*� �g�n�n� %� �D�M� �Z� � �F�L�L� )� �v�~�~� &� �6�:�:� &� !�6�:�:� .� )�&� 1� �J� �� � � .� �f�k�k� *� 2�H�T�6�:�:�4N� O� 2�H�T�6�:�:�4N� O� �j� �&�-�-� 0� �x� (� �M� "� �M� "� �=� )�7� 3� �<� (�'�*=�*=� >� �8� $�d�l�l� 3� �*� $�d�m�m� 4� �� � � '� �� %� �� %� �� %�s; �x #�)�)�*�5�"�)�)�*�5�}?�F�Br r c �� � e Zd ZdZdZdZddgZg d�ZddgZd Z d Z d Z d Z d Z de z ZdZdZdZdez Zde�e�d�Zde�e�d�ZdZde�de�d�Zde�de�d�Ze efdedfgd efd ej6 fd ej8 d fd e fd!e�d"e �d#�e j> d$fd!e�d%e �d#�e j@ d$fd!e�d&e�d'e�d(e�d)e �d#� e d$fd*e�d'e�d(e�d+e�d,e�d-e �d#� e j@ d$fd.e�d/e �d#�e j@ d$fd0ez e jB d$fd1ez e jD d$fd2ez e jF d$fd3ez e j@ d$fd4e$jJ d5fd6e$jL d$fd7e$jN d$fd8e$jN d$fd9e$jP d$fd:e)jT d$fd;ez e+jX d$fd< e-e+j\ e)j\ � fd=e+j\ d>fd?e z e/fd@e z e/dAfgdBe/fee$j` d$fdCef e1d$� ge e2d$fg e3dD� dEe z e+dAfdFe/dGfdHe z e+dGfe e2dIf e4e dJe z �K� e+d$f e4e dJe z �K� e)jj d$fee)d$f e3dL� g e3dM� dedfg e3dD� dNe/dOfdPe z e+dOfe e2dQf e3dL� g e3dM� dedRfg e3dD� e e2dSf e3dL� g e3dM� ded>fgd ej8 dTfdUej8 d$fdVej8 fgdWe$jJ d$fdXe$jl fdYe$jJ fgdZ� Z7y[)\r ze Lexer for Racket source code (formerly known as PLT Scheme). .. versionadded:: 1.6 �Racketzhttp://racket-lang.org/�racket�rkt)z*.rktz*.rktdz*.rktlz text/x-racketzapplication/x-racket(~ z#%appz#%datumz #%declarez #%expressionz#%module-beginz #%plain-appz#%plain-lambdaz#%plain-module-beginz#%printing-module-beginz #%providez #%requirez#%stratified-bodyz#%topz#%top-interactionz#%variable-referencer� z->*z->*mz->dz->dmz->iz->mz...z:do-in�==z=>�_�absent�abstractzall-defined-outz all-from-out�and�any�augmentzaugment*z augment-finalzaugment-final*�augridezaugride*�beginzbegin-for-syntax�begin0�casezcase->zcase->mz case-lambda�classzclass*zclass-field-accessorzclass-field-mutatorzclass/cz class/derivedz combine-inz combine-outz command-linez compound-unitzcompound-unit/inferr� zcons/dc�contractz contract-outzcontract-struct� contracted�definezdefine-compound-unitzdefine-compound-unit/inferzdefine-contract-structzdefine-custom-hash-typeszdefine-custom-set-typeszdefine-for-syntaxzdefine-local-member-namez define-loggerzdefine-match-expanderzdefine-member-namez define-module-boundary-contractzdefine-namespace-anchorz define-opt/czdefine-sequence-syntaxzdefine-serializable-classzdefine-serializable-class*zdefine-signaturezdefine-signature-formz define-structzdefine-struct/contractzdefine-struct/derivedz define-syntaxzdefine-syntax-rulezdefine-syntaxesz define-unitzdefine-unit-bindingzdefine-unit-from-contextzdefine-unit/contractz define-unit/new-import-exportz define-unit/sz define-valueszdefine-values-for-exportzdefine-values-for-syntaxzdefine-values/invoke-unitz define-values/invoke-unit/inferzdefine/augmentzdefine/augment-finalzdefine/augridezdefine/contractzdefine/final-propz define/matchzdefine/overmentzdefine/overridezdefine/override-finalzdefine/privatez define/publiczdefine/public-finalzdefine/pubmentz define/subexpression-pos-propz"define/subexpression-pos-prop/name�delayz delay/idlez delay/namez delay/strictz delay/syncz delay/threadr� �else�exceptz except-inz except-out�export�extendsz failure-cont�falsezfalse/c�fieldz field-bound?�filezflat-murec-contractzflat-rec-contractr� zfor*zfor*/andz for*/asyncz for*/firstz for*/foldzfor*/fold/derivedz for*/hashz for*/hasheqz for*/hasheqvz for*/lastz for*/listz for*/listszfor*/mutable-setzfor*/mutable-seteqzfor*/mutable-seteqvzfor*/orz for*/productzfor*/setz for*/seteqz for*/seteqvz for*/streamzfor*/sumz for*/vectorz for*/weak-setzfor*/weak-seteqzfor*/weak-seteqvz for-labelzfor-metaz for-syntaxz for-templatezfor/andz for/asyncz for/firstzfor/foldzfor/fold/derivedzfor/hashz for/hasheqz for/hasheqvzfor/lastzfor/listz for/listszfor/mutable-setzfor/mutable-seteqzfor/mutable-seteqvzfor/orz for/productzfor/setz for/seteqz for/seteqvz for/streamzfor/sumz for/vectorz for/weak-setzfor/weak-seteqzfor/weak-seteqvzgen:custom-writezgen:dictzgen:equal+hashzgen:setz gen:stream�genericz get-fieldzhash/dc�if�impliesr� r zinclude-at/relative-toz include-at/relative-to/readerzinclude/reader�inheritz inherit-fieldz inherit/innerz inherit/super�initz init-dependz init-fieldz init-rest�inner�inspect� instantiate� interfacez interface*zinvariant-assertionz invoke-unitzinvoke-unit/inferr� �lazyr� �let*z let*-valuesz let-syntaxz let-syntaxesz let-valueszlet/cczlet/ec�letrecz letrec-syntaxzletrec-syntaxeszletrec-syntaxes+valuesz letrec-values�lib�link�localz local-requirez log-debugz log-errorz log-fatalzlog-infoz log-warningr> zmatch*zmatch*/derivedz match-definezmatch-define-valuesz match-lambdaz match-lambda*zmatch-lambda**z match-letz match-let*zmatch-let*-valueszmatch-let-valuesz match-letreczmatch-letrec-valuesz match/derivedz match/valueszmember-name-key�mixin�modulezmodule*zmodule+�nand�new�norzobject-contractzobject/c�onlyzonly-inz only-meta-in�openzopt/c�or�overmentz overment*�overridez override*zoverride-finalzoverride-final*� parameterizez parameterize*zparameterize-breakzparametric->/c�placezplace*z place/context�planetrl z prefix-inz prefix-out�privatezprivate*z prompt-tag/cz protect-out�providezprovide-signature-elementszprovide/contract�publiczpublic*z public-finalz public-final*�pubmentzpubment*r� � quasisyntaxzquasisyntax/locr� z quote-syntaxzquote-syntax/prunezrecontract-outzrecursive-contractz relative-in�renamez rename-inz rename-innerz rename-outz rename-super�require�sendzsend*zsend+z send-genericz send/applyzsend/keyword-apply�set!z set!-valuesz set-field!�shared�streamzstream*z stream-cons�structzstruct*z struct-copyzstruct-field-indexz struct-outzstruct/cz struct/ctcz struct/dc�submodr' zsuper-instantiatezsuper-make-objectz super-new�syntaxz syntax-casez syntax-case*zsyntax-id-rulesz syntax-rulesz syntax/loc�tag�thiszthis%�thunkzthunk*�timezunconstrained-domain->�unitzunit-from-contextzunit/czunit/new-import-exportzunit/sr� r� �unquote-splicing�unsyntaxzunsyntax-splicingz values/dropr� zwith-continuation-markz with-contractz with-contract-continuation-markz with-handlerszwith-handlers*z with-methodz with-syntax� λ(� �*z*list/c�+�-�/�<z</c�<=z<=/c�=z=/c�>z>/c�>=z>=/czabort-current-continuation�abszabsolute-path?�acosz add-between�add1z alarm-evtz always-evtzand/c�andmap�anglezany/c�appendzappend*z append-map�apply�argmax�argminzarithmetic-shiftzarity-at-leastzarity-at-least-valuezarity-at-least?zarity-checking-wrapperzarity-includes?zarity=?zarrow-contract-infoz#arrow-contract-info-accepts-arglistz'arrow-contract-info-chaperone-procedurez%arrow-contract-info-check-first-orderzarrow-contract-info?�asin�assfr� �assq�assv�atanzbad-number-of-results�bannerz base->-doms/cz base->-rngs/czbase->?z between/cz bitwise-andzbitwise-bit-fieldzbitwise-bit-set?z bitwise-iorz bitwise-notz bitwise-xorzblame-add-car-contextzblame-add-cdr-contextzblame-add-contextzblame-add-missing-partyzblame-add-nth-arg-contextzblame-add-range-contextzblame-add-unknown-contextz blame-contextzblame-contractzblame-fmt->-stringzblame-missing-party?zblame-negativezblame-original?zblame-positivezblame-replace-negativez blame-sourcez blame-swapzblame-swapped?z blame-updatez blame-valuezblame?z boolean=?�boolean?zbound-identifier=?�boxzbox-cas!z box-immutablezbox-immutable/czbox/czbox?z break-enabledzbreak-parameterization?z break-threadz!build-chaperone-contract-propertyzbuild-compound-type-namezbuild-contract-propertyz build-flat-contract-propertyz build-listz build-pathzbuild-path/convention-typez build-stringz build-vectorz byte-pregexpz byte-pregexp?z byte-ready?z byte-regexpz byte-regexp?zbyte?�byteszbytes->immutable-bytesz bytes->listz bytes->pathzbytes->path-elementzbytes->string/latin-1zbytes->string/localezbytes->string/utf-8z bytes-appendz bytes-append*zbytes-close-converterz bytes-convertzbytes-convert-endzbytes-converter?z bytes-copyz bytes-copy!z bytes-environment-variable-name?z bytes-fill!z bytes-joinz bytes-lengthzbytes-no-nuls?zbytes-open-converterz bytes-refz bytes-set!zbytes-utf-8-indexzbytes-utf-8-lengthzbytes-utf-8-refzbytes<?zbytes=?zbytes>?zbytes?�caaaar�caaadr�caaar�caadar�caaddr�caadr�caar�cadaar�cadadr�cadar�caddar�cadddr�caddr�cadrzcall-in-nested-threadz call-with-atomic-output-filez call-with-break-parameterizationz!call-with-composable-continuationz call-with-continuation-barrierz call-with-continuation-prompt� call-with-current-continuationz*call-with-default-reading-parameterizationz call-with-escape-continuationzcall-with-exception-handlerzcall-with-file-lock/timeoutz%call-with-immediate-continuation-markzcall-with-input-bytes�call-with-input-filezcall-with-input-file*zcall-with-input-stringzcall-with-output-bytes�call-with-output-filezcall-with-output-file*zcall-with-output-stringzcall-with-parameterizationzcall-with-semaphorez call-with-semaphore/enable-break�call-with-values�call/cczcall/ecr� zcartesian-product�cdaaar�cdaadr�cdaar�cdadar�cdaddr�cdadr�cdar�cddaar�cddadr�cddar�cdddar�cddddr�cdddr�cddrr� �ceilingz channel-getz channel-putzchannel-put-evtzchannel-put-evt?zchannel-try-getz channel/czchannel?z chaperone-boxzchaperone-channelz chaperone-continuation-mark-keyz chaperone-contract-property?zchaperone-contract?z chaperone-evtzchaperone-hashzchaperone-hash-setz chaperone-of?zchaperone-procedurezchaperone-procedure*zchaperone-prompt-tagzchaperone-structzchaperone-struct-typezchaperone-vectorz chaperone?� char->integer�char-alphabetic?z char-blank?� char-ci<=?� char-ci<?� char-ci=?� char-ci>=?� char-ci>?� char-downcasez char-foldcasezchar-general-categoryz char-graphic?zchar-inz char-in/czchar-iso-control?�char-lower-case?� char-numeric?zchar-punctuation?� char-ready?zchar-symbolic?zchar-title-case?zchar-titlecase� char-upcase�char-upper-case?zchar-utf-8-length�char-whitespace?�char<=?�char<?�char=?�char>=?�char>?�char?zcheck-duplicate-identifierzcheck-duplicatesz#checked-procedure-check-and-extractz choice-evtzclass->interfacez class-infoz class-sealz class-unsealzclass?z cleanse-path�close-input-port�close-output-portzcoerce-chaperone-contractzcoerce-chaperone-contractszcoerce-contractzcoerce-contract/fzcoerce-contractszcoerce-flat-contractzcoerce-flat-contractszcollect-garbagezcollection-file-pathzcollection-path� combinations�compilez compile-allow-set!-undefinedz$compile-context-preservation-enabledz compile-enforce-module-constantszcompile-syntaxz compiled-expression-recompilezcompiled-expression?zcompiled-module-expression?zcomplete-path?�complex?�compose�compose1�conjoin� conjugate�conszcons/c�cons?�constzcontinuation-mark-key/czcontinuation-mark-key?z continuation-mark-set->contextzcontinuation-mark-set->listz continuation-mark-set->list*zcontinuation-mark-set-firstzcontinuation-mark-set?zcontinuation-marksz continuation-prompt-available?zcontinuation-prompt-tag?z continuation?z contract-continuation-mark-keyz#contract-custom-write-property-proczcontract-exercisezcontract-first-orderz contract-first-order-passes?z contract-late-neg-projectionz contract-namez contract-proczcontract-projectionzcontract-property?zcontract-random-generatez contract-random-generate-failz contract-random-generate-fail?z0contract-random-generate-get-current-environmentz contract-random-generate-stashz contract-random-generate/choosezcontract-stronger?zcontract-struct-exercisezcontract-struct-generatez#contract-struct-late-neg-projectionz contract-struct-list-contract?z contract-val-first-projectionz contract?zconvert-streamzcopy-directory/files� copy-filez copy-port�cos�cosh�countzcurrent-blame-formatz current-break-parameterizationzcurrent-code-inspectorz current-command-line-argumentszcurrent-compilezcurrent-compiled-file-rootszcurrent-continuation-markszcurrent-contract-regionzcurrent-custodianzcurrent-directoryzcurrent-directory-for-userz current-drivez current-environment-variableszcurrent-error-portz current-evalz#current-evt-pseudo-random-generatorz current-force-delete-permissionszcurrent-futurezcurrent-gc-millisecondsz"current-get-interaction-input-portz current-inexact-milliseconds�current-input-portzcurrent-inspectorz current-library-collection-linksz current-library-collection-pathsz current-loadzcurrent-load-extensionz current-load-relative-directoryzcurrent-load/use-compiledzcurrent-localezcurrent-loggerzcurrent-memory-usezcurrent-millisecondszcurrent-module-declare-namez current-module-declare-sourcez current-module-name-resolverz current-module-path-for-loadzcurrent-namespace�current-output-portzcurrent-parameterizationzcurrent-plumberz$current-preserved-thread-cell-valuesz current-printz current-process-millisecondszcurrent-prompt-readz current-pseudo-random-generatorzcurrent-read-interactionzcurrent-reader-guardzcurrent-readtablezcurrent-secondszcurrent-security-guardz!current-subprocess-custodian-modezcurrent-threadzcurrent-thread-groupz!current-thread-initial-stack-sizez current-write-relative-directory�curry�curryrzcustodian-box-valuezcustodian-box?zcustodian-limit-memoryzcustodian-managed-listz&custodian-memory-accounting-available?zcustodian-require-memoryzcustodian-shutdown-allz custodian?z custom-print-quotable-accessorzcustom-print-quotable?zcustom-write-accessorzcustom-write-property-procz custom-write?�datezdate*zdate*-nanosecondzdate*-time-zone-namezdate*?zdate-dayz date-dst?z date-hourz date-minutez date-monthz date-secondzdate-time-zone-offsetz date-week-dayz date-yearz date-year-dayzdate?z datum->syntaxzdatum-intern-literalz default-continuation-prompt-tagzdegrees->radianszdelete-directoryzdelete-directory/files� delete-file� denominatorz dict->listzdict-can-functional-set?zdict-can-remove-keys?z dict-clearz dict-clear!z dict-copyz dict-countz dict-empty?z dict-for-eachz dict-has-key?zdict-implements/czdict-implements?zdict-iter-contractzdict-iterate-firstzdict-iterate-keyzdict-iterate-nextzdict-iterate-valuezdict-key-contractz dict-keyszdict-mapz dict-mutable?zdict-refz dict-ref!z dict-removez dict-remove!zdict-setz dict-set!z dict-set*z dict-set*!z dict-updatez dict-update!zdict-value-contractz dict-valueszdict?zdirectory-exists?zdirectory-list�disjoin�displayz display-lineszdisplay-lines-to-filezdisplay-to-file� displaylnzdouble-flonum?r� zdrop-common-prefixz drop-right�dropfz dropf-rightzdump-memory-statszdup-input-portzdup-output-portz dynamic->*zdynamic-get-fieldzdynamic-object/cz dynamic-placezdynamic-place*zdynamic-requirezdynamic-require-for-syntaxz dynamic-sendzdynamic-set-field!� dynamic-wind�eighth�emptyzempty-sequencez empty-stream�empty?zenvironment-variables-copyzenvironment-variables-nameszenvironment-variables-refzenvironment-variables-set!zenvironment-variables?�eofzeof-evt� eof-object?zephemeron-valuez ephemeron?�eprintfzeq-contract-valz eq-contract?z eq-hash-code�eq?zequal-contract-valzequal-contract?zequal-hash-codezequal-secondary-hash-codezequal<%>�equal?z equal?/recurz eqv-hash-code�eqv?�errorzerror-display-handlerzerror-escape-handlerzerror-print-context-lengthzerror-print-source-locationzerror-print-widthzerror-value->string-handler�evalzeval-jit-enabledz eval-syntaxr� zevt/czevt?�exact->inexactz exact-ceilingz exact-floorzexact-integer?zexact-nonnegative-integer?zexact-positive-integer?z exact-roundzexact-truncate�exact?zexecutable-yield-handler�exitz exit-handler�exnzexn-continuation-marksz exn-messagez exn:breakzexn:break-continuationzexn:break:hang-upzexn:break:hang-up?zexn:break:terminatezexn:break:terminate?z exn:break?zexn:failzexn:fail:contractzexn:fail:contract:arityzexn:fail:contract:arity?zexn:fail:contract:blamez exn:fail:contract:blame-objectzexn:fail:contract:blame?z exn:fail:contract:continuationz exn:fail:contract:continuation?z exn:fail:contract:divide-by-zeroz!exn:fail:contract:divide-by-zero?z#exn:fail:contract:non-fixnum-resultz$exn:fail:contract:non-fixnum-result?zexn:fail:contract:variablez exn:fail:contract:variable-idzexn:fail:contract:variable?zexn:fail:contract?zexn:fail:filesystemzexn:fail:filesystem:errnoz exn:fail:filesystem:errno-errnozexn:fail:filesystem:errno?zexn:fail:filesystem:existszexn:fail:filesystem:exists?z"exn:fail:filesystem:missing-modulez'exn:fail:filesystem:missing-module-pathz#exn:fail:filesystem:missing-module?zexn:fail:filesystem:versionz exn:fail:filesystem:version?zexn:fail:filesystem?zexn:fail:networkzexn:fail:network:errnoz exn:fail:network:errno-errnozexn:fail:network:errno?zexn:fail:network?zexn:fail:objectzexn:fail:object?zexn:fail:out-of-memoryzexn:fail:out-of-memory?z exn:fail:readzexn:fail:read-srclocszexn:fail:read:eofzexn:fail:read:eof?zexn:fail:read:non-charzexn:fail:read:non-char?zexn:fail:read?zexn:fail:syntaxzexn:fail:syntax-exprsz exn:fail:syntax:missing-modulez#exn:fail:syntax:missing-module-pathz exn:fail:syntax:missing-module?zexn:fail:syntax:unboundzexn:fail:syntax:unbound?zexn:fail:syntax?zexn:fail:unsupportedzexn:fail:unsupported?z exn:fail:userzexn:fail:user?z exn:fail?zexn:misc:match?zexn:missing-module-accessorzexn:missing-module?zexn:srclocs-accessorz exn:srclocs?zexn?�exp�expandz expand-oncez expand-syntaxzexpand-syntax-oncezexpand-syntax-to-top-formzexpand-to-top-formzexpand-user-pathz explode-path�exptzexternalizable<%>zfailure-result/czfalse?z field-names�fifthz file->byteszfile->bytes-linesz file->linesz file->listz file->stringz file->valuez file-exists?zfile-name-from-pathzfile-or-directory-identityz file-or-directory-modify-secondsz file-or-directory-permissionsz file-positionzfile-position*z file-sizezfile-stream-buffer-modezfile-stream-port?z file-truncatezfilename-extensionzfilesystem-change-evtz filesystem-change-evt-cancelzfilesystem-change-evt?zfilesystem-root-listr� z filter-mapz filter-notzfilter-read-input-portzfind-executable-pathz find-filesz find-library-collection-linksz find-library-collection-pathszfind-relative-pathzfind-system-path�findfr� z first-or/czfixnum?z flat-contractzflat-contract-predicatezflat-contract-property?zflat-contract?zflat-named-contract�flattenzfloating-point-bytes->realzflonum?�floorz flush-outputz fold-files�foldl�foldr�for-each�force�format�fourth�fprintfzfree-identifier=?zfree-label-identifier=?zfree-template-identifier=?z free-transformer-identifier=?zfsemaphore-countzfsemaphore-postzfsemaphore-try-wait?zfsemaphore-waitz fsemaphore?�futurezfuture?zfutures-enabled?�gcdzgenerate-member-keyzgenerate-temporariesz generic-set?zgeneric?�gensymzget-output-byteszget-output-stringzget-preferencez get/build-late-neg-projectionz get/build-val-first-projection�getenvzglobal-port-print-handlerzgroup-byzgroup-execute-bitzgroup-read-bitzgroup-write-bitz guard-evtz handle-evtz handle-evt?z has-blame?z has-contract?�hashz hash->listz hash-clearz hash-clear!z hash-copyzhash-copy-clearz hash-countz hash-empty?zhash-eq?z hash-equal?z hash-eqv?z hash-for-eachz hash-has-key?zhash-iterate-firstzhash-iterate-keyzhash-iterate-key+valuezhash-iterate-nextzhash-iterate-pairzhash-iterate-valuez hash-keyszhash-mapzhash-placeholder?zhash-refz hash-ref!z hash-removez hash-remove!zhash-setz hash-set!z hash-set*z hash-set*!z hash-updatez hash-update!z hash-valuesz hash-weak?zhash/czhash?�hasheq�hasheqvzidentifier-bindingzidentifier-binding-symbolzidentifier-label-bindingz identifier-prune-lexical-contextz!identifier-prune-to-source-modulez)identifier-remove-from-definition-contextzidentifier-template-bindingz identifier-transformer-bindingz identifier?�identityzif/c� imag-partz immutable?zimpersonate-boxzimpersonate-channelz!impersonate-continuation-mark-keyzimpersonate-hashzimpersonate-hash-setzimpersonate-procedurezimpersonate-procedure*zimpersonate-prompt-tagzimpersonate-structzimpersonate-vectorzimpersonator-contract?zimpersonator-ephemeronzimpersonator-of?z"impersonator-prop:application-markzimpersonator-prop:blamez impersonator-prop:contractedz)impersonator-property-accessor-procedure?zimpersonator-property?z impersonator?zimplementation?zimplementation?/czin-byteszin-bytes-lineszin-combinationszin-cyclezin-dictz in-dict-keysz in-dict-pairszin-dict-valuesz in-directoryzin-hashz in-hash-keysz in-hash-pairszin-hash-valueszin-immutable-hashzin-immutable-hash-keyszin-immutable-hash-pairszin-immutable-hash-valueszin-immutable-setz in-indexedzin-input-port-byteszin-input-port-charszin-lineszin-listzin-mlistzin-mutable-hashzin-mutable-hash-keyszin-mutable-hash-pairszin-mutable-hash-valueszin-mutable-setz in-naturalsz in-parallelzin-permutationszin-portz in-producerzin-rangez in-sequenceszin-setzin-slicez in-streamz in-stringz in-syntaxzin-valuezin-values*-sequencezin-values-sequencez in-vectorz in-weak-hashzin-weak-hash-keyszin-weak-hash-pairszin-weak-hash-valuesz in-weak-set�inexact->exactz inexact-real?�inexact?z infinite?zinput-port-append� input-port?z inspector?z instanceof/c� integer->charzinteger->integer-byteszinteger-bytes->integerz integer-inzinteger-lengthz integer-sqrtzinteger-sqrt/remainder�integer?zinterface->method-nameszinterface-extension?z interface?z/internal-definition-context-binding-identifiersz%internal-definition-context-introducez internal-definition-context-sealz internal-definition-context?zis-a?zis-a?/czkeyword->stringz keyword-applyz keyword<?zkeyword?zkeywords-matchz kill-thread�lastz last-pair�lcm�lengthzliberal-define-context?z link-exists?�listzlist*zlist*ofz list->byteszlist->mutable-setzlist->mutable-seteqzlist->mutable-seteqvz list->setz list->seteqz list->seteqv� list->string� list->vectorzlist->weak-setzlist->weak-seteqzlist->weak-seteqvzlist-contract?z list-prefix?�list-refzlist-set� list-tailz list-updatezlist/c�list?zlisten-port-number?�listof�loadzload-extensionzload-on-demand-enabledz load-relativezload-relative-extensionzload/cdzload/use-compiledz local-expandzlocal-expand/capture-liftszlocal-transformer-expandz&local-transformer-expand/capture-liftszlocale-string-encoding�logzlog-all-levelsz log-level-evtz log-level?z log-max-levelz log-messagez log-receiver?z logger-namezlogger?� magnitudezmake-arity-at-leastzmake-base-empty-namespacezmake-base-namespacez make-bytesz make-channelzmake-chaperone-contractzmake-continuation-mark-keyz make-continuation-prompt-tagz make-contractzmake-custodianzmake-custodian-boxzmake-custom-hashzmake-custom-hash-typeszmake-custom-setzmake-custom-set-typesz make-datez make-date*zmake-derived-parameterzmake-directoryzmake-directory*zmake-do-sequencezmake-empty-namespacezmake-environment-variableszmake-ephemeronzmake-exnzmake-exn:breakzmake-exn:break:hang-upzmake-exn:break:terminatez make-exn:failzmake-exn:fail:contractz make-exn:fail:contract:arityz make-exn:fail:contract:blamez#make-exn:fail:contract:continuationz%make-exn:fail:contract:divide-by-zeroz(make-exn:fail:contract:non-fixnum-resultz make-exn:fail:contract:variablezmake-exn:fail:filesystemz make-exn:fail:filesystem:errnoz make-exn:fail:filesystem:existsz'make-exn:fail:filesystem:missing-modulez make-exn:fail:filesystem:versionzmake-exn:fail:networkzmake-exn:fail:network:errnozmake-exn:fail:objectzmake-exn:fail:out-of-memoryzmake-exn:fail:readzmake-exn:fail:read:eofzmake-exn:fail:read:non-charzmake-exn:fail:syntaxz#make-exn:fail:syntax:missing-modulez make-exn:fail:syntax:unboundzmake-exn:fail:unsupportedzmake-exn:fail:userzmake-file-or-directory-linkzmake-flat-contractzmake-fsemaphorez make-genericz!make-handle-get-preference-lockedz make-hashzmake-hash-placeholderz make-hasheqzmake-hasheq-placeholderz make-hasheqvzmake-hasheqv-placeholderzmake-immutable-custom-hashzmake-immutable-hashzmake-immutable-hasheqzmake-immutable-hasheqvzmake-impersonator-propertyzmake-input-portz make-input-port/read-to-peekzmake-inspectorzmake-keyword-procedurezmake-known-char-range-listzmake-limited-input-port� make-listzmake-lock-file-namezmake-log-receiverz make-loggerzmake-mixin-contractzmake-mutable-custom-setz make-none/cz make-objectzmake-output-portzmake-parameterzmake-parent-directory*zmake-phantom-bytesz make-pipezmake-pipe-with-specialszmake-placeholderz make-plumber� make-polarzmake-prefab-structzmake-primitive-classzmake-proj-contractz make-pseudo-random-generatorzmake-reader-graphzmake-readtable�make-rectangularzmake-rename-transformerzmake-resolved-module-pathzmake-security-guardzmake-semaphorezmake-set!-transformerzmake-shared-byteszmake-sibling-inspectorzmake-special-commentz make-srcloc� make-stringzmake-struct-field-accessorzmake-struct-field-mutatorzmake-struct-typezmake-struct-type-propertyz make-syntax-delta-introducerzmake-syntax-introducerzmake-temporary-filez'make-tentative-pretty-print-output-portzmake-thread-cellzmake-thread-group� make-vectorz make-weak-boxzmake-weak-custom-hashzmake-weak-custom-setzmake-weak-hashzmake-weak-hasheqzmake-weak-hasheqvzmake-will-executor�mapzmatch-equality-testzmatches-arity-exactly?�max�mcar�mcdr�mcons�memberzmember-name-key-hash-codezmember-name-key=?zmember-name-key?�memf�memq�memvz merge-inputzmethod-in-interface?�minzmixin-contractzmodule->exportszmodule->importszmodule->language-infozmodule->namespacez'module-compiled-cross-phase-persistent?zmodule-compiled-exportszmodule-compiled-importsz module-compiled-language-infozmodule-compiled-namezmodule-compiled-submoduleszmodule-declared?zmodule-path-index-joinzmodule-path-index-resolvezmodule-path-index-splitzmodule-path-index-submodulezmodule-path-index?z module-path?zmodule-predefined?zmodule-provide-protected?�modulozmpair?z mutable-setz mutable-seteqzmutable-seteqvzn->thznack-guard-evtz!namespace-anchor->empty-namespaceznamespace-anchor->namespaceznamespace-anchor?znamespace-attach-modulez#namespace-attach-module-declarationznamespace-base-phaseznamespace-mapped-symbolsznamespace-module-identifierznamespace-module-registryznamespace-requireznamespace-require/constantznamespace-require/copyz namespace-require/expansion-timez namespace-set-variable-value!z namespace-symbol->identifierznamespace-syntax-introducez namespace-undefine-variable!znamespace-unprotect-moduleznamespace-variable-valuez namespace?znan?znatural-number/c�negate� negative?z never-evtu new-∀/cu new-∃/c�newline�ninthznon-empty-listofznon-empty-string?znone/cznormal-case-pathznormalize-arityznormalize-pathznormalized-arity?�notznot/c�null�null?�number->string�number?� numeratorzobject%zobject->vectorz object-infozobject-interfacez object-method-arity-includes?z object-namezobject-or-false=?zobject=?zobject?r� zone-of/czopen-input-bytes�open-input-filezopen-input-output-filezopen-input-stringzopen-output-bytes�open-output-filezopen-output-nowherezopen-output-stringzor/czorder-of-magnitude�ormapzother-execute-bitzother-read-bitzother-write-bit� output-port?�pair?zparameter-procedure=?z parameter/cz parameter?zparameterization?zparse-command-line� partitionz path->byteszpath->complete-pathzpath->directory-pathz path->stringzpath-add-suffixzpath-convention-typezpath-element->byteszpath-element->stringz path-element?zpath-for-some-system?zpath-list-string->path-listz path-onlyzpath-replace-suffixz path-string?zpath<?zpath?zpathlist-closurez peek-bytezpeek-byte-or-specialz peek-bytesz peek-bytes!zpeek-bytes!-evtzpeek-bytes-avail!zpeek-bytes-avail!*zpeek-bytes-avail!-evtz peek-bytes-avail!/enable-breakzpeek-bytes-evt� peek-charzpeek-char-or-specialz peek-stringz peek-string!zpeek-string!-evtzpeek-string-evtzpeeking-input-port� permutationszphantom-bytes?�pizpi.fzpipe-content-lengthz place-breakz place-channelzplace-channel-getzplace-channel-putzplace-channel-put/getzplace-channel?zplace-dead-evtzplace-enabled?z place-killzplace-location?zplace-message-allowed?z place-sleepz place-waitzplace?zplaceholder-getzplaceholder-set!z placeholder?zplumber-add-flush!zplumber-flush-allz plumber-flush-handle-remove!zplumber-flush-handle?zplumber?zpoll-guard-evtz port->byteszport->bytes-linesz port->linesz port->listz port->stringzport-closed-evtz port-closed?zport-commit-peekedzport-count-lines!zport-count-lines-enabledzport-counts-lines?zport-display-handlerzport-file-identityzport-file-unlockzport-next-locationz port-number?zport-print-handlerzport-progress-evtz port-provides-progress-evts?zport-read-handlerzport-try-file-lock?zport-write-handlerzport-writes-atomic?zport-writes-special?�port?� positive?z predicate/czprefab-key->struct-typez prefab-key?zprefab-struct-keyzpreferences-lock-file-mode�pregexpzpregexp?zpretty-displayz pretty-format� pretty-printz"pretty-print-.-symbol-without-barsz#pretty-print-abbreviate-read-macroszpretty-print-columnsz pretty-print-current-style-tablezpretty-print-depthz pretty-print-exact-as-decimalz pretty-print-extend-style-tablezpretty-print-handlerzpretty-print-newlinez pretty-print-post-print-hookzpretty-print-pre-print-hookzpretty-print-print-hookzpretty-print-print-linezpretty-print-remap-stylablez pretty-print-show-inexactnesszpretty-print-size-hookzpretty-print-style-table?zpretty-printingz pretty-writezprimitive-closure?zprimitive-result-arity� primitive?�printzprint-as-expressionzprint-boolean-long-formz print-boxz print-graphzprint-hash-tablezprint-mpair-curly-braceszprint-pair-curly-braceszprint-reader-abbreviationsz print-structzprint-syntax-widthzprint-unreadablezprint-vector-lengthz printable/cz printable<%>�printf�printlnzprocedure->methodzprocedure-arityzprocedure-arity-includes/czprocedure-arity-includes?zprocedure-arity?z procedure-closure-contents-eq?zprocedure-extract-targetzprocedure-keywordszprocedure-reduce-arityz procedure-reduce-keyword-arityzprocedure-renamezprocedure-result-arityzprocedure-specializezprocedure-struct-type?� procedure?�processzprocess*zprocess*/portsz process/portszprocessor-countz progress-evt?zpromise-forced?zpromise-running?z promise/cz promise/name?zpromise?zprop:arity-stringzprop:arrow-contractz prop:arrow-contract-get-infozprop:arrow-contract?z prop:blamezprop:chaperone-contractzprop:checked-procedurez prop:contractzprop:contractedzprop:custom-print-quotablezprop:custom-writez prop:dictzprop:dict/contractzprop:equal+hashzprop:evtzprop:exn:missing-modulezprop:exn:srclocszprop:expansion-contextszprop:flat-contractzprop:impersonator-ofzprop:input-portzprop:liberal-define-contextzprop:object-namezprop:opt-chaperone-contractz$prop:opt-chaperone-contract-get-testz prop:opt-chaperone-contract?zprop:orc-contractz"prop:orc-contract-get-subcontractszprop:orc-contract?zprop:output-portzprop:place-locationzprop:procedurezprop:recursive-contractz prop:recursive-contract-unrollzprop:recursive-contract?zprop:rename-transformerz prop:sequencezprop:set!-transformerz prop:streamzproper-subset?z pseudo-random-generator->vectorz pseudo-random-generator-vector?zpseudo-random-generator?zput-preferences�putenv�quotientzquotient/remainderzradians->degrees�raisezraise-argument-errorzraise-arguments-errorzraise-arity-errorzraise-blame-errorzraise-contract-errorzraise-mismatch-errorzraise-not-cons-blame-errorzraise-range-errorzraise-result-errorzraise-syntax-errorzraise-type-errorzraise-user-error�randomz random-seed�range� rational?� rationalize�readzread-accept-bar-quotezread-accept-boxzread-accept-compiledzread-accept-dotzread-accept-graphzread-accept-infix-dotzread-accept-langzread-accept-quasiquotezread-accept-reader� read-bytezread-byte-or-specialz read-bytesz read-bytes!zread-bytes!-evtzread-bytes-avail!zread-bytes-avail!*zread-bytes-avail!-evtz read-bytes-avail!/enable-breakzread-bytes-evtzread-bytes-linezread-bytes-line-evtzread-case-sensitivez read-cdot� read-charzread-char-or-specialzread-curly-brace-as-parenzread-curly-brace-with-tagzread-decimal-as-inexactzread-eval-print-loopz read-language� read-linez read-line-evtzread-on-demand-sourcez read-square-bracket-as-parenz read-square-bracket-with-tag� read-stringz read-string!zread-string!-evtzread-string-evtz read-syntaxzread-syntax/recursivezread/recursivezreadtable-mappingz readtable?zreal->decimal-stringzreal->double-flonumzreal->floating-point-byteszreal->single-flonumzreal-in� real-part�real?zreencode-input-portzreencode-output-port�regexpz regexp-matchz regexp-match*zregexp-match-evtzregexp-match-exact?zregexp-match-peekzregexp-match-peek-immediatezregexp-match-peek-positionsz regexp-match-peek-positions*z%regexp-match-peek-positions-immediatez)regexp-match-peek-positions-immediate/endz regexp-match-peek-positions/endzregexp-match-positionszregexp-match-positions*zregexp-match-positions/endzregexp-match/endz regexp-match?zregexp-max-lookbehind� regexp-quotezregexp-replacezregexp-replace*zregexp-replace-quotezregexp-replacesz regexp-splitzregexp-try-matchzregexp?zrelative-path?zrelocate-input-portzrelocate-output-port� remainder�remfzremf*r� zremove*zremove-duplicates�remqzremq*�remvzremv*zrename-contractzrename-file-or-directoryzrename-transformer-targetzrename-transformer?z replace-evtz reroot-pathz resolve-pathzresolved-module-path-namezresolved-module-path?r� �reverse�round�secondz seconds->datezsecurity-guard?zsemaphore-peek-evtzsemaphore-peek-evt?zsemaphore-postzsemaphore-try-wait?zsemaphore-waitzsemaphore-wait/enable-breakz semaphore?zsequence->listzsequence->streamzsequence-add-betweenzsequence-andmapzsequence-appendzsequence-countzsequence-filterz sequence-foldzsequence-for-eachzsequence-generatezsequence-generate*zsequence-lengthz sequence-mapzsequence-ormapz sequence-refz sequence-tailz sequence/cz sequence?�setzset!-transformer-procedurezset!-transformer?z set->listz set->streamzset-addzset-add!zset-box!z set-clearz set-clear!zset-copyzset-copy-clearz set-countz set-empty?zset-eq?z set-equal?zset-eqv?z set-firstz set-for-eachzset-implements/czset-implements?z set-intersectzset-intersect!zset-mapz set-mcar!z set-mcdr!z set-member?z set-mutable?zset-phantom-bytes!zset-port-next-location!z set-removez set-remove!zset-restzset-some-basic-contracts!z set-subtractz set-subtract!zset-symmetric-differencezset-symmetric-difference!z set-unionz set-union!z set-weak?zset/czset=?zset?�seteq�seteqv�seventh�sgnz shared-bytesz shell-executezshrink-path-wrt�shufflezsimple-form-pathz simplify-path�sinzsingle-flonum?�sinh�sixthzskip-projection-wrapper?�sleepzsome-system-path->string�sortzspecial-comment-valuezspecial-comment?zspecial-filter-input-portzsplit-atzsplit-at-rightzsplit-common-prefixz split-pathz splitf-atzsplitf-at-right�sqr�sqrt�srcloczsrcloc->stringz srcloc-columnz srcloc-linezsrcloc-positionz srcloc-sourcez srcloc-spanzsrcloc?z stop-afterz stop-beforez stream->listzstream-add-betweenz stream-andmapz stream-appendz stream-countz stream-empty?z stream-filterz stream-firstz stream-foldzstream-for-eachz stream-lengthz stream-mapz stream-ormapz stream-refz stream-restz stream-tailzstream/czstream?rI zstring->bytes/latin-1zstring->bytes/localezstring->bytes/utf-8zstring->immutable-stringzstring->keyword� string->list�string->numberz string->pathzstring->path-elementzstring->some-system-path�string->symbolzstring->uninterned-symbolzstring->unreadable-symbol� string-appendzstring-append*� string-ci<=?� string-ci<?� string-ci=?� string-ci>=?� string-ci>?zstring-contains?� string-copyz string-copy!zstring-downcasez!string-environment-variable-name?� string-fill!zstring-foldcasez string-joinz string-len/c� string-lengthzstring-locale-ci<?zstring-locale-ci=?zstring-locale-ci>?zstring-locale-downcasezstring-locale-upcasezstring-locale<?zstring-locale=?zstring-locale>?zstring-no-nuls?zstring-normalize-nfczstring-normalize-nfdzstring-normalize-nfkczstring-normalize-nfkdzstring-normalize-spacesz string-port?zstring-prefix?� string-refzstring-replace� string-set!z string-splitzstring-suffix?zstring-titlecasez string-trimz string-upcasezstring-utf-8-length� string<=?�string<?�string=?� string>=?�string>?�string?zstruct->vectorzstruct-accessor-procedure?z struct-constructor-procedure?z struct-infozstruct-mutator-procedure?zstruct-predicate-procedure?zstruct-type-infoz struct-type-make-constructorzstruct-type-make-predicatez(struct-type-property-accessor-procedure?zstruct-type-property/czstruct-type-property?z struct-type?zstruct:arity-at-leastzstruct:arrow-contract-infoz struct:datez struct:date*z struct:exnzstruct:exn:breakzstruct:exn:break:hang-upzstruct:exn:break:terminatezstruct:exn:failzstruct:exn:fail:contractz struct:exn:fail:contract:arityz struct:exn:fail:contract:blamez%struct:exn:fail:contract:continuationz'struct:exn:fail:contract:divide-by-zeroz*struct:exn:fail:contract:non-fixnum-resultz!struct:exn:fail:contract:variablezstruct:exn:fail:filesystemz struct:exn:fail:filesystem:errnoz!struct:exn:fail:filesystem:existsz)struct:exn:fail:filesystem:missing-modulez"struct:exn:fail:filesystem:versionzstruct:exn:fail:networkz struct:exn:fail:network:errnozstruct:exn:fail:objectz struct:exn:fail:out-of-memoryzstruct:exn:fail:readzstruct:exn:fail:read:eofz struct:exn:fail:read:non-charzstruct:exn:fail:syntaxz%struct:exn:fail:syntax:missing-modulez struct:exn:fail:syntax:unboundzstruct:exn:fail:unsupportedzstruct:exn:fail:userz struct:srclocz struct:wrapped-extra-arg-arrowzstruct?�sub1�subbytesz subclass?z subclass?/c� subprocesszsubprocess-group-enabledzsubprocess-killzsubprocess-pidzsubprocess-statuszsubprocess-waitz subprocess?zsubset?� substringz suggest/c�symbol->stringzsymbol-interned?zsymbol-unreadable?zsymbol<?zsymbol=?�symbol?�symbols�synczsync/enable-breakz sync/timeoutzsync/timeout/enable-breakz syntax->datumz syntax->listz syntax-armz syntax-columnzsyntax-debug-infoz syntax-disarmzsyntax-ez syntax-linezsyntax-local-bind-syntaxeszsyntax-local-certifierzsyntax-local-contextz syntax-local-expand-expressionzsyntax-local-get-shadowerz"syntax-local-identifier-as-bindingzsyntax-local-introducezsyntax-local-lift-contextz syntax-local-lift-expressionzsyntax-local-lift-modulez(syntax-local-lift-module-end-declarationzsyntax-local-lift-providezsyntax-local-lift-requirez#syntax-local-lift-values-expressionz$syntax-local-make-definition-contextz"syntax-local-make-delta-introducerz'syntax-local-module-defined-identifierszsyntax-local-module-exportsz(syntax-local-module-required-identifierszsyntax-local-namezsyntax-local-phase-levelzsyntax-local-submodulesz*syntax-local-transforming-module-provides?zsyntax-local-valuez syntax-local-value/immediatezsyntax-original?zsyntax-positionzsyntax-propertyzsyntax-property-preserved?zsyntax-property-symbol-keyszsyntax-protectz syntax-rearmzsyntax-recertifyzsyntax-shift-phase-levelz syntax-sourcezsyntax-source-modulez syntax-spanz syntax-taintzsyntax-tainted?zsyntax-track-originz&syntax-transforming-module-expression?z syntax-transforming-with-lifts?zsyntax-transforming?zsyntax/czsyntax?�systemzsystem*zsystem*/exit-codezsystem-big-endian?zsystem-idle-evtzsystem-language+countryzsystem-library-subpathzsystem-path-convention-typez system-typezsystem/exit-codeztail-marks-match?r� ztake-common-prefixz take-right�takefz takef-right�tan�tanhztcp-abandon-portz tcp-acceptztcp-accept-evtztcp-accept-ready?ztcp-accept/enable-breakz tcp-addressesz tcp-closez tcp-connectztcp-connect/enable-breakz tcp-listenz tcp-listener?z tcp-port?z"tentative-pretty-print-port-cancelz$tentative-pretty-print-port-transfer�tenthzterminal-port?zthe-unsupplied-arg�third�threadzthread-cell-refzthread-cell-set!zthread-cell-values?z thread-cell?zthread-dead-evtz thread-dead?z thread-group?zthread-receivezthread-receive-evtz thread-resumezthread-resume-evtzthread-rewind-receivezthread-running?z thread-sendzthread-suspendzthread-suspend-evtzthread-try-receivez thread-waitzthread/suspend-to-killzthread?z time-apply�touchztransplant-input-portztransplant-output-port�true�truncatez udp-addressesz udp-bind!z udp-bound?z udp-closez udp-connect!zudp-connected?zudp-multicast-interfacezudp-multicast-join-group!zudp-multicast-leave-group!zudp-multicast-loopback?z udp-multicast-set-interface!zudp-multicast-set-loopback!zudp-multicast-set-ttl!zudp-multicast-ttlzudp-open-socketz udp-receive!z udp-receive!*zudp-receive!-evtzudp-receive!/enable-breakzudp-receive-ready-evtzudp-sendz udp-send*z udp-send-evtzudp-send-ready-evtz udp-send-toz udp-send-to*zudp-send-to-evtzudp-send-to/enable-breakzudp-send/enable-breakzudp?�unboxzuncaught-exception-handlerzunit?zunspecified-domzunsupplied-arg?zuse-collection-link-pathszuse-compiled-file-pathsz use-user-specific-search-pathszuser-execute-bitz user-read-bitzuser-write-bitz value-blamezvalue-contract�valuesz#variable-reference->empty-namespacez%variable-reference->module-base-phasez0variable-reference->module-declaration-inspectorz%variable-reference->module-path-indexz!variable-reference->module-sourcez variable-reference->namespacezvariable-reference->phasez(variable-reference->resolved-module-pathz variable-reference-constant?zvariable-reference?�vectorzvector->immutable-vector� vector->listz vector->pseudo-random-generatorz vector->pseudo-random-generator!zvector->valuesz vector-appendz vector-argmaxz vector-argminz vector-copyz vector-copy!z vector-countz vector-dropzvector-drop-right� vector-fill!z vector-filterzvector-filter-notzvector-immutablezvector-immutable/czvector-immutableof� vector-lengthz vector-mapz vector-map!z vector-memberz vector-memqz vector-memvz vector-refz vector-set!z vector-set*!z vector-set-performance-stats!zvector-split-atzvector-split-at-rightz vector-takezvector-take-rightzvector/c�vector?�vectorof�version�voidzvoid?zweak-box-valuez weak-box?zweak-setz weak-seteqz weak-seteqvz will-executezwill-executor?z will-registerzwill-try-executezwith-input-from-bytes�with-input-from-filezwith-input-from-stringzwith-output-to-bytes�with-output-to-file�with-output-to-stringzwould-be-futurezwrap-evtzwrapped-extra-arg-arrowz0wrapped-extra-arg-arrow-extra-neg-party-argumentz!wrapped-extra-arg-arrow-real-funczwrapped-extra-arg-arrow?z writable<%>�write� write-bytez write-byteszwrite-bytes-availzwrite-bytes-avail*zwrite-bytes-avail-evtz write-bytes-avail/enable-break� write-charz write-specialzwrite-special-avail*zwrite-special-evtz write-string� write-to-file�writeln�xorr� z~.az~.sz~.vz~az~ez~rz~sz~vz[([{]z[)\]}]z()[\]{}",\'`;\sz!(?:\|[^|]*\||\\[\w\W]|[^|\\%s]+)+z(?:#e)?(?:#d)?(?:#e)?z(?:[defls][-+]?\d+)z (?:\d+(?:/\d+|\.\d*)?|\.\d+)z>(?:%s|(?:\d+#+(?:\.#*|/\d+#*)?|\.\d+#+|\d+(?:\.\d*#+|/\d+#+)))z(?:z?)z(?:(?:inf|nan)\.[0f])z(?:[-+]?z|[-+]�)r7 z(?!\Z)�unquoted-datumz(?s)#;|#*z;[^\n\r\x85\u2028\u2029]*rB � block-commentz(?u)\s+z(?i)z [-+]?\d+(?=[z])rG z/[-+]?(\d+(\.\d*)?|\.\d+)([deflst][-+]?\d+)?(?=[z[-+]?(z([-+]z ?i)?|[-+]z?i)(?=[z (?i)(#d)?(z?i|�@z)(?=[z (?i)(([-+]?z t[-+]?\d+)|[-+](inf|nan)\.t)(?=[z(?iu)(#[ei])?#b%sz(?iu)(#[ei])?#o%sz(?iu)(#[ei])?#x%sz(?iu)(#d)?#i%sz#?")rG rI z #<<(.+)\n(^(?!\1$).*$\n)*^\1$z&#\\(u[\da-fA-F]{1,4}|U[\da-fA-F]{1,8})z(?is)#\\([0-7]{3}|[a-z]+|.)z(?s)#[pr]x#?"(\\?.)*?"z#(true|false|[tTfF])z#:%sz(#lang |#!)(\S+)z#reader� quoted-datumz (?i)\.(?=[%s])|#c[is]|#['`]|#,@?z '|#[s&]|#hash(eqv?)?|#\d*(?=%s))rG r� z`|,@?z[|\\]�datumz quote(?=[%s])r� )rG �quasiquoted-datumzquasiquote(?=[%s]))rG � unquoted-listz(?=[%s])r� �datum*r� z,@?)rG r� zunquote(-splicing)?(?=[%s]))rG �quasiquoted-listr� )rG � quoted-listrR rS z[^#|]+|.rH zG(?s)\\([0-7]{1,3}|x[\da-fA-F]{1,2}|u[\da-fA-F]{1,4}|U[\da-fA-F]{1,8}|.)rW ) rX r� r� r� r� r� r� r� r� r� r� rI N)8rY rZ r[ r\ r] r^ r_ r` ra � _keywords� _builtins�_opening_parenthesis�_closing_parenthesis� _delimiters�_symbol�_exact_decimal_prefix� _exponent�_inexact_simple_no_hashes�_inexact_simple�_inexact_normal_no_hashes�_inexact_normal�_inexact_special� _inexact_real�_inexact_unsignedr r r rs rt r r r< r; ru rv rw r �Double�Heredocrz �Regexr r{ r ry r � Namespacer rx r r r r r+ r| r} r� r r2 r r X s� � �� �D� #�C��� �G�-�I� �"8�9�I�^�I�Be �I�N $��$��$�K�2�[�@�G� 4��&�I� ?� �2�4M�N�O�0I�09�!;� �&5�y�A�O�/��-<�-=�?�M�(7�9I�J�� "�5� )� �� .� /� � ,�W� 5� )�7�>�>� :� �W�&�&�� 8� �� $� +@�� M� �^�^�V� %� $�[�2�39�<�<�� I� $�%>�'�)B��� #�F� ,� � .�0A��]�K�9�:@�,�,� � � �{�,�-3�\�\�6� C� "�G� +�V�Z�Z�� @� "�G� +�V�Z�Z�� @� "�G� +�V�Z�Z�� @� �� (�&�,�,�� ?� �V�]�]�$6� 7� -�v�~�~�v� F� 6�� � �V� L� +�V�[�[�&� A� &�� � �f� =� %�d�m�m�V� <� �w� �� 3� 3�V� <� !� �g�'�'�� � � 8� :� ��*�*�N� ;� 1�;� >�� I� /�2F� F� �/� 1�AB �H �x� � �f�m�m�V� ,� �u� � �F�O� � "�;�� 7� � �G� � � � +�W� %� '� �8� :� ;� "�[� 0�'� *� ,� !�;�0I� J� �9�Z�+�%=� >� �f� � �9�Z�+�%=� >� �\�\�6� #� �d�F� #� �H� � � �F�O� �� .� /� � �G� � �X� 9� :� +�k� 9�7� '� )� !�;�0L� M� �H� � � �F�O� �� 1� 2� � �G� � !�;�0G� H� �H� � � �F�O� ��n� -� � �W�&�&�� 0� �W�&�&�� /� �'�+�+� ,� � �6�=�=�&� )�$�%+�]�]� 4� �� � � '� �}D�Fr r c �X � e Zd ZdZdZdZdgZg d�ZddgZe j e j z Z dZ d Zd ej fd ej" fd ej" fd efdefdedfdedfdef ee d�� efdez ej0 feej2 fdefg dedfdedfdefgd edfgd �Zy ) r zN For newLISP source code (version 10.3.0). .. versionadded:: 1.5 �NewLispzhttp://www.newlisp.org/�newlisp)z*.lspz*.nlz*.kifztext/x-newlispzapplication/x-newlisp(� �^z--rZ r� �!z!=�?r� rX r[ �&�%rY z++r\ �<<r] r^ r_ r` �>>r7 r� �$z$0z$1z$10z$11z$12z$13z$14z$15z$2z$3z$4z$5z$6z$7z$8z$9z$argsz$idxz$itz $main-args�abortra rb �acosh�add�address�ambr z append-filerf rg �argsz array-listzarray?�arrayrj �asinhr� rn �atan2�atanhzatom?z base64-decz base64-encz bayes-queryz bayes-trainr �beta�betai�bind�binomial�bits�callbackr �catch�ceilz change-dir�char�chopr� �clean�closez command-eventr� r� �constantzcontext?�contextr� �copyr� r� r� �cpymem�crc32z crit-chi2zcrit-zz current-liner� z date-listz date-parsez date-valuer� �debugr� zdef-newr z define-macror r� z delete-url�delete�destroy�det�device� differencez directory?� directory�divzdo-untilzdo-while�doargs�dolist�dostring�dotimes�dotree�dump�dupr� �encryptz ends-with�env�erfz error-eventz eval-stringr� �exec�existsr� r� r� �explode�extend�factor�fftz file-infozfile?r� zfind-all�findr� �flatzfloat?�floatr� �fltr� zfor-allr� �forkr� �fv�gammai�gammalnr� zget-charz get-floatzget-intzget-longz get-stringzget-urlzglobal?�globalzif-notr' �ifftr� r� r. zinf?�intr� �integer� intersect�invert�irr�joinz lambda-macrozlambda?r� z last-errorr� zlegal?r� r� �letex�letnr� r� r� r4 r� �lookupz lower-casezmacro?z main-args�MAINzmake-dirr �matr> r r r �modr6 �mul�multiplyzNaN?z net-acceptz net-closez net-connectz net-errorznet-evalz net-interfaceznet-ipvz net-listenz net-localz net-lookupz net-packetznet-peekznet-peerznet-pingznet-receive-fromznet-receive-udpz net-receivez net-selectz net-send-toz net-send-udpznet-sendz net-servicez net-sessionsr8 znil?�nil�normalr �now�nper�npvr� r r r; r< �ostype�packz parse-date�parse�peek�pipe�pmtz pop-assoc�popzpost-url�powrl r# r$ r% r' z prob-chi2zprob-zr) z prompt-eventz protected?�pushzput-url�pvzquote?r� �randr- � randomizer1 r3 z read-expr� read-filezread-keyr4 z read-utf8z reader-eventz real-path�receivezref-all�refz regex-comp�regexz remove-dir� rename-file�replace�resetr� r> �rotater? �saver� �seed�seek�selectr, � semaphorerI �sequence�seriesz set-localez set-ref-allzset-refrA �setf�setqrE �share�signal�silentrG rH rJ r� rK �source�spawnrM z starts-withrb rI �sub�swap�symrh ri rj z sys-errorzsys-inform rn �termz throw-error�throwz time-of-dayrS �timerz title-caseztrace-highlight�trace� transpose�Tree�trimztrue?rs �unicode�unify�uniquer� �unpack�untilz upper-case�utf8�utf8len�uuidzwait-pidr� r� r� r� z write-filez write-linez xfer-eventz xml-errorz xml-parsez xml-type-tagsr� z$([\w!$%&*+.,/<=>?@^~|-])+|(\[.*?\])+z#!(.*?)$r� z#.*$rF r� z\{� bracestringz \[text\]*� tagstringz('|:)�\br� rQ r rR z\}rG z[^{}]+z(?s)(.*?)(\[/text\]))rX r5 r6 N) rY rZ r[ r\ r] r^ r_ r` ra rb r� rd re r rf r r� rs r r r r r r r* rx r r} r� r r2 r r s) � �� �D� #�C��k�G�*�I�!�#:�;�I� �M�M�B�L�L� (�E�;�H�| 9�J� �'�/�/� *� �g�n�n� %� �g�n�n� %� �Z� � )�&� 1� �F�M� *� �6�;� /� �x� � �8�E� *� � � �*� $�d�m�m� 4� �� � � '� �� %�E# �N �F�G� $� �F�F� #� �v� � � %�f�f� 5� �]1�Fr r c �( � e Zd ZdZdZg d�ZdgZddgZej Z dZ e dz Z d Z d e �d e �d �Zh d �Zh d�Zh d�Zh d�Zh d�Zh d�Zd� Z ed� gdefdej2 fdedfdej6 fdez e j: fdez ej< fd ez ej< fd e fd e fd e z e jB fd e z e fd e z e jD fd!e#fd"ez ej< fd#e fd$e jH fd%e jJ fd&e jL fd'e jN fd(e fd)e fd*e fd+e fd,e z e jP fd-ez d-z e jR jT fee jR fd.e dfd/e#dfd0e#d1fg d2efd3ez ej< fd efd4efd5efded1fgd6�Z+y7)8r z� An ELisp lexer, parsing a stream and outputting the tokens needed to highlight elisp code. .. versionadded:: 2.1 � EmacsLisp)z emacs-lisp�elisp�emacsz*.elz text/x-elispzapplication/x-elispz\\.|[\w!$%&*+-/<=>?@^{}~|]r� z(?=[ "()\]\'\n,;`])z((?:r� r� >� �do*�cl-do�cl-do*�cl-the�cl-case�cl-decf�cl-flet�cl-incf�cl-letf�cl-loop�cl-remf�cl-block�cl-callf�cl-defun�cl-ecase�cl-flet*�cl-letf*�cl-progv�cl-psetf�cl-psetq� cl-callf2� cl-dolist� cl-labels� cl-return� cl-shiftf� eval-when� pcase-let� cl-declaim� cl-declare� cl-deftype� cl-dotimes� cl-locally� cl-pushnew� cl-rotatef� cl-tagbody� do-symbols� pcase-let*� setq-local� with-slots� cl-defmacro� cl-defsubst� cl-function� cl-macrolet� cl-typecase� ert-deftest� lexical-let� return-from� track-mouse� use-package� cl-defstruct� cl-etypecase� cl-eval-when� defvar-local� dont-compile� lexical-let*� oref-default� oset-default� pcase-dolist� with-timeout� cl-do-symbols� define-advice� ignore-errors�cl-return-from�do-all-symbols�pcase-defmacro�while-no-input�with-temp-file�def-edebug-spec�define-skeleton�load-time-value�save-match-data�with-case-table�with-file-modes�with-local-quit�declare-function�delay-mode-hooks�pcase-exhaustive�with-temp-buffer�cl-do-all-symbols�define-minor-mode�with-syntax-table�with-temp-message�with-wrapper-hook�cl-load-time-value�cl-symbol-macrolet�destructuring-bind�atomic-change-group�define-alternatives�define-derived-mode�define-generic-mode�define-modify-macro�multiple-value-bind�multiple-value-setq�with-category-table�with-current-buffer�with-demoted-errors�with-selected-frame�define-setf-expander�save-selected-window�with-coding-priority�with-eval-after-load�with-selected-window�cl-destructuring-bind�define-compiler-macro�save-window-excursion�cl-multiple-value-bind�cl-multiple-value-setq�cl-define-compiler-macro�define-global-minor-mode�with-tramp-file-property�with-silent-modifications�combine-after-change-calls�define-obsolete-face-alias�with-output-to-temp-buffer�condition-case-unless-debug�with-parsed-tramp-file-name� define-globalized-minor-mode� with-tramp-progress-reporter� define-obsolete-function-alias� define-obsolete-variable-alias� dotimes-with-progress-reporter� with-tramp-connection-propertyr� �rxr r �decf�flet�incf�loop�oref�osetr r; r r� �blockr� �ecase�pcase�progv�psetf�psetqr� �labelsr� r1 �return�shiftfr� �declaim�declare�defface�defsetf�deftyper� �locally�pushnew�rotatefr� �defgroupr� �defsubst�deftheme�macrolet�noreturn�typecase� defadvice� defcustom� defmethod� defstruct� etypecase� defgenericr� r� r� > � subr-arity� setq-default�condition-case�save-excursion�unwind-protect�save-restriction�save-current-bufferr' r< r r� r� r r� �prog1�prog2r� r� r� �defvar�defconst�function� interactiver0 >� �/=�1+�1-�font-at�string<�string=�string>�type-of�car-safe�cdr-safe�file-acl�font-get�font-put�gap-size�get-byte�max-char�time-add�tty-type�user-uid� byte-code� dump-face� emacs-pid� face-font� field-end� find-font� font-info� font-spec� gc-status� goto-char� group-gid� indent-to� make-char� match-end� open-font� plist-get� plist-put� point-max� point-min� run-hooks� scroll-up� sleep-for� subr-name� top-level� unix-sync� window-at� char-after� char-equal� char-width� close-font� copy-alist� define-key� dump-emacs� file-modes� float-time� frame-list� get-buffer� gnutls-bye� image-size� kill-emacs� list-fonts� looking-at� lookup-key� map-keymap� match-data� next-frame� process-id� query-font� read-event� region-end� resume-tty� scan-lists� scan-sexps� set-buffer� set-marker� split-char� widget-get� widget-put� window-end� x-hide-tip� x-show-tip� access-file� bool-vector� buffer-list� buffer-name� buffer-size� ccl-execute� char-before� char-syntax� copy-keymap� copy-marker� decode-char� decode-time� delete-char� draw-string� dump-colors� encode-char� encode-time� end-of-line� eval-buffer� eval-region� frame-focus� get-process� gnutls-boot� image-flush� insert-byte� insert-char� intern-soft� invisible-p� iso-charset� key-binding� kill-buffer� locale-info� lock-buffer� lower-frame� make-keymap� make-marker� make-symbol� mark-marker� memory-info� message-box� new-fontset� next-window� overlay-end� overlay-get� overlay-put� overlays-at� overlays-in� posn-at-x-y� raise-frame� read-buffer� recent-keys� safe-length� scroll-down� scroll-left� secure-hash� set-default� suspend-tty� symbol-name� system-name� time-less-p� upcase-word� window-list� yes-or-no-p� assoc-string� call-process� case-table-p� char-charset� char-table-p� clear-string� color-gray-p� current-time� delete-field� delete-frame� do-auto-save� erase-buffer� field-string� font-match-p� fontset-font� fontset-info� fontset-list� forward-char� forward-line� forward-word� frame-live-p� gap-position� hash-table-p� image-mask-p� kill-process� load-average� lookup-image� make-overlay� memory-limit� move-overlay� msdos-memget� msdos-memput� other-buffer� plist-member� point-marker� process-list� process-mark� process-name� process-type� quit-process� read-command� redraw-frame� scroll-right� select-frame� set-file-acl� stop-process� string-bytes� string-equal� string-lessp� string-match� string-width� symbol-plist� symbol-value� syntax-table� system-users� widget-apply� window-edges� window-frame� window-point� window-start� write-region� x-list-fonts� x-popup-menu� backward-char� bitmap-spec-p� bool-vector-p� buffer-live-p� buffer-string� ccl-program-p� charset-after� charset-plist� copy-sequence� default-value� delete-region� discard-input� downcase-word� end-kbd-macro� file-exists-p� file-locked-p� forward-point� get-file-char� gnutls-deinit� gnutls-errorp� iconify-frame� keymap-parent� keymap-prompt� lax-plist-get� lax-plist-put� marker-buffer� msdos-mouse-p� overlay-lists� overlay-start� posn-at-point� process-plist� query-fontset� read-function� read-variable� rename-buffer� replace-match� select-window� set-quit-char� sort-charsets� start-process� suspend-emacs� system-groups� terminal-list� terminal-name� time-subtract� tty-top-frame� undo-boundary� unify-charset� unlock-buffer� upcase-region� use-local-map� user-real-uid� window-buffer� window-list-1� window-live-p� window-parent� window-system� x-file-dialog� x-focus-frame� x-select-font� x-synchronize�backtrace-eval�byte-to-string�category-table�char-to-string�color-distance�compute-motion�current-buffer�current-column�dbus--init-bus�default-boundp�delete-overlay�delete-process�dump-glyph-row�fetch-bytecode�file-regular-p�file-symlink-p�following-char�font-drive-otf�font-xlfd-name�frame-terminal�function-equal�gfile-rm-watch�gpm-mouse-stop�group-real-gid�image-metadata�make-byte-code�make-temp-name�map-char-table�matching-paren�message-or-box�mouse-position�move-to-column�overlay-buffer�position-bytes�preceding-char�previous-frame�process-buffer�process-filter�process-status�recent-doskeys�recursive-edit�redraw-display�search-forward�selected-frame�set-case-table�set-file-modes�set-file-times�set-frame-size�set-input-mode�set-match-data�signal-process�string-to-char�syntax-table-p�try-completion�unibyte-string�use-global-map�user-full-name�w32-frame-rect�window-fringes�window-hscroll�window-margins�window-valid-p�window-vscroll�x-create-frame�x-display-list�x-family-fonts�x-get-resource�x-popup-dialog�all-completions�backtrace-debug�backtrace-frame�bool-vector-not�capitalize-word�coding-system-p�compare-strings�completing-read�copy-hash-table�current-message�define-category�delete-terminal�describe-vector�directory-files�downcase-region�field-beginning�file-attributes�file-readable-p�file-writable-p�font-get-glyphs�forward-comment�frame-parameter�frame-text-cols�frame-visible-p�garbage-collect�get-file-buffer�getenv-internal�gfile-add-watch�gpm-mouse-start�hash-table-size�hash-table-test�input-pending-p�invocation-name�key-description�make-char-table�make-hash-table�marker-position�match-beginning�open-termscript�previous-window�prin1-to-string�process-command�process-contact�recursion-depth�search-backward�selected-window�set-cursor-size�set-frame-width�start-kbd-macro�string-greaterp�symbol-function�terminal-live-p�test-completion�tool-bar-height�trace-redisplay�trace-to-stderr�upcase-initials�user-login-name�vertical-motion�w32-has-winsock�window-top-line�window-use-time�x-get-atom-name�x-server-vendor�xw-color-values�add-name-to-file�apropos-internal�autoload-do-load�buffer-file-name�buffer-substring�buffer-swap-text�byte-to-position�category-table-p�char-or-string-p�char-table-range�clear-face-cache�clear-font-cache�continue-process�decode-big5-char�decode-sjis-char�encode-big5-char�encode-sjis-char�expand-file-name�file-directory-p�file-system-info�font-family-list�fontset-list-all�format-mode-line�frame-char-width�frame-face-alist�frame-font-cache�frame-parameters�frame-text-lines�frame-text-width�frame-total-cols�get-pos-property�get-screen-color�hash-table-count�inotify-rm-watch�interactive-form�local-variable-p�lookup-image-map�make-bool-vector�minibuffer-depth�msdos-mouse-init�narrow-to-region�number-to-string�overlay-recenter�point-max-marker�point-min-marker�posix-looking-at�process-send-eof�process-sentinel�process-tty-name�profiler-cpu-log�region-beginning�run-hook-wrapped�set-fontset-font�set-frame-height�set-message-beep�set-screen-color�set-syntax-table�set-window-point�set-window-start�string-to-number�string-to-syntax�tty-no-underline�window-new-pixel�window-new-total�window-old-point�window-parameter�window-pixel-top�window-top-child�x-display-planes�x-frame-geometry�x-parse-geometry�x-server-version�zlib-available-p�backtrace--locals�beginning-of-line�bool-vector-union�buffer-modified-p�capitalize-region�car-less-than-car�char-category-set�char-table-parent�clear-image-cache�coding-system-put�color-supported-p�command-remapping�controlling-tty-p�copy-syntax-table�current-idle-time�current-local-map�current-time-zone�debug-timer-check�dump-glyph-matrix�dump-tool-bar-row�execute-kbd-macro�file-executable-p�frame-char-height�frame-pixel-width�frame-root-window�frame-text-height�frame-total-lines�get-buffer-create�get-buffer-window�get-char-property�get-load-suffixes�get-text-property�imagemagick-types�indirect-function�indirect-variable�inotify-add-watch�interrupt-process�line-end-position�line-pixel-height�local-key-binding�make-category-set�map-charset-chars�memory-use-counts�minibuffer-prompt�minibuffer-window�open-dribble-file�profiler-cpu-stop�put-text-property�re-search-forward�read-key-sequence�set-charset-plist�set-keymap-parent�set-process-plist�set-window-buffer�string-as-unibyte�string-to-unibyte�suspicious-object�text-property-any�this-command-keys�transpose-regions�w32-shell-execute�where-is-internal�window-body-width�window-left-child�window-new-normal�window-parameters�window-pixel-left�window-text-width�x-display-screens�x-load-color-file�x-open-connection�x-window-property�accessible-keymaps�buffer-base-buffer�buffer-enable-undo�buffer-local-value�call-interactively�category-docstring�char-table-subtype�clear-charset-maps�coding-system-base�constrain-to-field�current-case-table�current-global-map�current-input-mode�daemon-initialized�default-file-modes�event-convert-list�font-shape-gstring�format-time-string�frame-border-width�frame-first-window�frame-fringe-width�frame-pixel-height�get-buffer-process�global-key-binding�gnutls-available-p�gnutls-peer-status�init-image-library�insert-and-inherit�internal-char-font�make-frame-visible�make-sparse-keymap�make-symbolic-link�msdos-mouse-enable�msdos-set-keyboard�multibyte-string-p�number-or-marker-p�overlay-properties�parse-partial-sexp�posix-string-match�process-attributes�process-connection�profiler-cpu-start�re-search-backward�read-coding-system�recent-auto-save-p�run-hook-with-args�set-category-table�set-frame-position�set-mouse-position�set-process-buffer�set-process-filter�set-time-zone-rule�set-window-fringes�set-window-hscroll�set-window-margins�set-window-vscroll�skip-chars-forward�special-variable-p�terminal-parameter�text-properties-at�visible-frame-list�w32-battery-status�w32-long-file-name�w32-unload-winsock�w32notify-rm-watch�window-body-height�window-dedicated-p�window-left-column�window-line-height�window-normal-size�window-pixel-edges�window-pixel-width�window-scroll-bars�window-text-height�window-total-width�x-close-connection�x-display-mm-width�x-wm-set-size-hint�xw-color-defined-p�xw-display-color-p�Snarf-documentation�add-text-properties�bool-vector-subsetp�call-last-kbd-macro�call-process-region�charset-id-internal�check-coding-system�coding-system-plist�copy-category-table�current-active-maps�current-indentation�current-time-string�delete-all-overlays�directory-file-name�exit-recursive-edit�file-name-directory�find-charset-region�find-charset-string�font-otf-alternates�force-window-update�get-unused-category�gnutls-error-fatalp�gnutls-error-string�handle-save-session�handle-switch-frame�hash-table-weakness�integer-or-marker-p�kill-local-variable�make-category-table�make-local-variable�make-serial-process�make-terminal-frame�map-keymap-internal�minibuffer-contents�modify-syntax-entry�move-point-visually�move-to-window-line�msdos-mouse-disable�newline-cache-check�next-overlay-change�optimize-char-table�play-sound-internal�process-exit-status�process-send-region�process-send-string�profiler-memory-log�read-char-exclusive�scroll-other-window�self-insert-command�set-input-meta-mode�set-text-properties�show-face-resources�skip-chars-backward�skip-syntax-forward�standard-case-table�string-as-multibyte�string-make-unibyte�string-to-multibyte�terminal-parameters�tty-display-color-p�w32-get-locale-info�w32-short-file-name�w32-toggle-lock-key�w32-window-exists-p�w32notify-add-watch�window-inside-edges�window-minibuffer-p�window-next-buffers�window-next-sibling�window-pixel-height�window-prev-buffers�window-prev-sibling�window-resize-apply�window-total-height�x-display-mm-height�x-register-dnd-atom�x-selection-owner-p�abort-recursive-edit�base64-decode-region�base64-decode-string�base64-encode-region�base64-encode-string�bidi-resolved-levels�buffer-modified-tick�bury-buffer-internal�byte-code-function-p�dbus-get-unique-name�decode-coding-region�decode-coding-string�default-printer-name�define-charset-alias�define-fringe-bitmap�detect-coding-region�detect-coding-string�encode-coding-region�encode-coding-string�error-message-string�file-name-absolute-p�file-name-completion�file-selinux-context�font-face-attributes�font-get-system-font�gnutls-get-initstage�insert-file-contents�internal-lisp-face-p�internal-show-cursor�invocation-directory�locate-file-internal�make-frame-invisible�make-indirect-buffer�make-network-process�menu-bar-menu-at-x-y�merge-face-attribute�mouse-pixel-position�next-property-change�posix-search-forward�prefix-numeric-value�profiler-memory-stop�read-from-minibuffer�read-no-blanks-input�redirect-frame-focus�register-ccl-program�set-buffer-multibyte�set-char-table-range�set-charset-priority�set-process-sentinel�set-window-new-pixel�set-window-new-total�set-window-parameter�skip-syntax-backward�string-collate-lessp�subst-char-in-region�terminal-local-value�tool-bar-pixel-width�user-real-login-name�visited-file-modtime�w32-define-rgb-color�w32-register-hot-key�w32-send-sys-command�window-display-table�x-display-save-under�x-selection-exists-p�accept-process-output�backward-prefix-chars�buffer-has-markers-at�ccl-execute-on-string�char-table-extra-slot�charset-priority-list�coding-system-aliases�dbus-message-internal�declare-equiv-charset�define-prefix-command�destroy-fringe-bitmap�file-attributes-lessp�font-variation-glyphs�frame-selected-window�fringe-bitmaps-at-pos�funcall-interactively�get-internal-run-time�insert-before-markers�insert-startup-screen�internal--track-mouse�list-system-processes�marker-insertion-type�minibuffer-prompt-end�modify-category-entry�msdos-long-file-names�posix-search-backward�process-coding-system�profiler-memory-start�set-buffer-auto-saved�set-buffer-major-mode�set-buffer-modified-p�set-char-table-parent�set-minibuffer-window�set-window-new-normal�split-window-internal�standard-syntax-table�store-kbd-macro-event�string-collate-equalp�string-make-multibyte�text-char-description�text-property-not-all�w32-default-color-map�x-display-color-cells�x-display-grayscale-p�x-display-pixel-width�x-send-client-message�x-uses-old-gtk-dialog�add-face-text-property�buffer-local-variables�category-set-mnemonics�char-resolve-modifiers�coding-system-eol-type�default-toplevel-value�define-hash-table-test�delete-window-internal�documentation-property�dump-redisplay-history�file-name-as-directory�file-name-nondirectory�file-newer-than-file-p�find-file-name-handler�force-mode-line-update�format-network-address�frame-scroll-bar-width�hash-table-rehash-size�internal-show-cursor-p�keyboard-coding-system�menu-or-popup-active-p�minor-mode-key-binding�network-interface-info�network-interface-list�profiler-cpu-running-p�remove-text-properties�set-default-file-modes�set-fringe-bitmap-face�set-terminal-parameter�set-window-dedicated-p�set-window-scroll-bars�single-key-description�terminal-coding-system�upcase-initials-region�variable-binding-locus�vector-or-char-table-p�w16-get-clipboard-data�w16-selection-exists-p�w16-set-clipboard-data�w32-get-clipboard-data�w32-selection-exists-p�w32-set-clipboard-data�w32-set-current-locale�w32-unregister-hot-key�window-configuration-p�window-text-pixel-size�x-display-pixel-height�x-display-visual-class�zlib-decompress-region�cancel-kbd-macro-events�clear-this-command-keys�compose-region-internal�compose-string-internal�composition-get-gstring�coordinates-in-window-p�current-minor-mode-maps�define-charset-internal�dump-frame-glyph-matrix�frame-pointer-visible-p�frame-scroll-bar-height�insert-buffer-substring�internal-copy-lisp-face�internal-make-lisp-face�libxml-parse-xml-region�line-beginning-position�local-variable-if-set-p�make-directory-internal�modify-frame-parameters�msdos-downcase-filename�msdos-set-mouse-buttons�pos-visible-in-window-p�previous-overlay-change�process-running-child-p�send-string-to-terminal�set-output-flow-control�set-process-window-size�set-standard-case-table�set-window-next-buffers�set-window-prev-buffers�standard-category-table�substitute-command-keys�substitute-in-file-name�substring-no-properties�tty-display-color-cells�w32-frame-menu-bar-size�w32-get-keyboard-layout�w32-get-valid-codepages�w32-reconstruct-hot-key�w32-registered-hot-keys�w32-set-keyboard-layout�window-mode-line-height�window-scroll-bar-width�x-display-backing-store�active-minibuffer-window�barf-if-buffer-read-only�bool-vector-exclusive-or�bool-vector-intersection�describe-buffer-bindings�generate-new-buffer-name�internal-complete-buffer�kill-all-local-variables�last-nonminibuffer-frame�libxml-parse-html-region�previous-property-change�process-datagram-address�read-key-sequence-vector�serial-process-configure�set-file-selinux-context�set-input-interrupt-mode�set-mouse-pixel-position�set-terminal-local-value�set-visited-file-modtime�set-window-configuration�set-window-display-table�this-command-keys-vector�this-single-command-keys�w32-get-codepage-charset�w32-get-console-codepage�w32-get-valid-locale-ids�w32-set-console-codepage�w32-set-process-priority�waiting-for-user-input-p�window-combination-limit�window-scroll-bar-height�x-change-window-property�x-delete-window-property�x-get-selection-internal�x-menu-bar-open-internal�x-own-selection-internal�compare-buffer-substrings�delete-and-extract-region�delete-directory-internal�external-debugging-output�face-attribute-relative-p�face-attributes-as-vector�file-name-all-completions�find-composition-internal�frame-or-buffer-changed-p�frame-right-divider-width�get-unused-iso-final-char�make-variable-frame-local�multibyte-char-to-unibyte�next-char-property-change�profiler-memory-running-p�redirect-debugging-output�restore-buffer-modified-p�set-char-table-extra-slot�set-frame-selected-window�set-marker-insertion-type�set-process-coding-system�system-move-file-to-trash�tool-bar-get-system-style�translate-region-internal�unencodable-char-position�unibyte-char-to-multibyte�w32-get-current-locale-id�w32-get-default-locale-id�window-header-line-height�window-inside-pixel-edges�window-resize-apply-total�x-backspace-delete-keys-p�x-server-max-request-size�bool-vector-set-difference�buffer-chars-modified-tick�define-coding-system-alias�equal-including-properties�field-string-no-properties�frame-bottom-divider-width�internal-lisp-face-empty-p�internal-lisp-face-equal-p�make-variable-buffer-local�minibuffer-selected-window�other-window-for-scrolling�process-filter-multibyte-p�process-query-on-exit-flag�read-non-nil-coding-system�reset-this-command-lengths�set-coding-system-priority�set-default-toplevel-value�set-network-process-option�window-configuration-frame�window-right-divider-width�check-coding-systems-region�coding-system-priority-list�file-accessible-directory-p�font-get-system-normal-font�hash-table-rehash-threshold�next-single-property-change�resize-mini-window-internal�run-window-scroll-functions�verify-visited-file-modtime�window-absolute-pixel-edges�window-bottom-divider-width�x-disown-selection-internal� bool-vector-count-population� combine-after-change-execute� current-window-configuration� find-operation-coding-system� internal-face-x-get-resource� next-read-file-uses-dialog-p� register-code-conversion-map� set-process-datagram-address� set-process-filter-multibyte� set-window-combination-limit� this-single-command-raw-keys� window-redisplay-end-trigger� bool-vector-count-consecutive� compare-window-configurations� define-coding-system-internal� delete-other-windows-internal� get-char-property-and-overlay� get-unicode-property-internal� internal-make-var-non-special� internal-merge-in-global-face� msdos-remember-default-colors� previous-char-property-change� put-unicode-property-internal� unhandled-file-name-directory� buffer-substring-no-properties� clear-buffer-auto-save-failure� command-error-default-function� directory-files-and-attributes� internal-describe-syntax-value� minibuffer-completion-contents� remove-list-of-text-properties� set-process-query-on-exit-flag� w32-get-valid-keyboard-layouts� internal-default-process-filter� previous-single-property-change� unicode-property-table-internal� w32-get-console-output-codepage� w32-set-console-output-codepage� current-bidi-paragraph-direction� internal-get-lisp-face-attribute� internal-set-lisp-face-attribute� next-single-char-property-change� run-hook-with-args-until-failure� run-hook-with-args-until-success� set-window-redisplay-end-trigger�!insert-before-markers-and-inherit�!internal-default-process-sentinel�!internal-set-font-selection-order�!minibuffer-contents-no-properties�!x-display-monitor-attributes-list�"display-supports-face-attributes-p�"process-inherit-coding-system-flag�"window-inside-absolute-pixel-edges�#bidi-find-overridden-directionality�#cygwin-convert-file-name-to-windows�#find-coding-systems-region-internal�#gnutls-peer-status-warning-describe�#internal-lisp-face-attribute-values�#set-keyboard-coding-system-internal�#set-terminal-coding-system-internal�#w32-display-monitor-attributes-list�$previous-single-char-property-change�$run-window-configuration-change-hook�%cygwin-convert-file-name-from-windows�%internal-event-symbol-parse-modifiers�&set-process-inherit-coding-system-flag�(set-safe-terminal-coding-system-internal�(tty-suppress-bold-inverse-default-colors�*internal-set-alternative-font-family-alist�,internal-set-alternative-font-registry-alist�.frame-can-run-window-configuration-change-hook�.internal-set-lisp-face-attribute-from-resourcerX �eqra �ashr� r� r� �elt�eqlr� r� r� �lshr �md5r r� r� �putrA rG rm rb �aref�asetrj rl rn �atom�bobp�bolpr� �delq�ding�eobp�eolpr� r� �fsetr� r� �logb�mapcr r r1 rK rM rg r� �consp�equalr� r� �fontp�frexp�int86�isnan�ldexp�listp�memql�nconc�point�prin1�princr% �rassqr? �subrp�widenrf �arrayp�boundp�concatr� �ffloor�floatpr� �framep�fround�imagep�insert�internr� �logand�logior�lognot�logxor�mapcarr �nlistp�nthcdrr- �rassoc�setcar�setcdrr rI �sxhash�terpri�upcaserw �bufferpr� �clrhash�daemonp�fboundp�funcall�gethash�keymapp�maphash�markerp�message�natnump�numberp�puthash�remhashr> �stringp�symbolp�vconcat�vectorp�windowp�autoload�charsetp�commandp�copysign�downcase�fceilingr� �integerp�keywordp�mapatoms�nreverse�overlayp�processp�purecopy�recenter�setplistrt �unintern� backtrace� byteorder� fillarray� ftruncate� functionp� mapconcat� redisplay� sequenceprf � capitalize� characterp� makunbound� propertize� fmakunbound� macroexpand� minibufferp� documentationr� rY rZ r[ r\ r^ r_ r] r` r� r� r3 r� r� r r r5 r r9 �read-from-string> � define-widget�with-no-warnings�with-electric-helpr' rC rH �defalias�featurep� defvaralias> �&aux�&key�&body�&rest�&whole� &optional� &environment�&allow-other-keys> � cl-assert� user-error� cl-check-type�warnr� r c # �V K � dg}t j | ||� D �] \ }}}|t j u r�|t j v r|t j |f�� �B|t j v r |t |f�� �`|t j v r|t j |f�� ��|t j v r|t j |f�� ��|t j v r|t j |f�� ��|t j v r|t j |f�� ��|||f�� �� y �wr� )r r( r r* r r� r) r� r �error_keywords� Exception� builtin_function_highlightedr+ r� r� �Pseudor� s r2 r( z%EmacsLispLexer.get_tokens_unprocessed� s � �� ����#-�#D�#D�T�4�QV�#W� &� �E�5�%��� � �%��N� ;� ;�;� �� � ��5�5� ��N� 8� 8�8� ��%�/�/� ��N� 9� 9�9� �� � ��6�6� ��N� G� G�G� �� � �u�4�4� ��N� 1� 1�1� �� � �u�4�4� ��N� ?� ?�?� �� � ��6�6� ����%� %�) &�s �D'D)r� rF r� rH rI z \?([^\\]|\\.)r� r� rJ r� r� r� r� z\[|\]rK z#\^\^?r� z#[bB][+-]?[01]+(/[01]+)?z#[oO][+-]?[0-7]+(/[0-7]+)?z&#[xX][+-]?[0-9a-fA-F]+(/[0-9a-fA-F]+)?z&#\d+r[+-]?[0-9a-zA-Z]+(/[0-9a-zA-Z]+)?r� r� z (,@|,|\.|:)r� r� r� r� r� rG z[^"\\`]+z`%s\'rV z\\\n)rX r� rI N),rY rZ r[ r\ r] r_ r` ra rb rd re r� r� r� r� r� r� r� r� r� r� r( r r r rs r rz r r+ rx r r r< r; r r) ru rv rw r{ r* r� r} r� r r2 r r � sl � �� �D�.�G���I� �!6�7�I� �L�L�E� -�H��X�%�K�'�J� $,�[� 9�F�/�F�b�M�x��t $� � �� �N� &�4 �F�O� � �Z� � �g�n�n� %� �6�8� $� �v�{�{� +� �F�]�D�L�L� )� �V�^�V�]�]� +� �F�]�F�M�M� *� �8� � �8� � �j� (�&�.�.� 9� �z� )�6� 2� L� �� � � � '� �{� #� �V�^�V�]�]� +� �� !� �T�]�]� #� )�&�*�*� 5� +�F�J�J� 7� 7�� � � C� 7�� ?� �x� � �x� � �X� &� �*� $�d�m�m� 4� �V�^�e� #�T�]�]�%9�%9� :� �T�]�]� #� �X�v� &� �K�� (� �K�� (�AA �F �&� !� �� �� � � .� �6�N� �V� � �f� � �6�6� "� �MN�Fr r c �< � e Zd ZdZdZdZdgZdgZddgZdZ d Z d Z d Z e D � ��ci c] }|t �� c}}} Zej d � e D � � ej d � e D � � dZdez Zdez Zdez Zdedfdej* fdej, fdefgdej0 fdej2 fdefdefdefd efd e fd e j< fd e j> fded fee jB fd!e jD fee fd"efgd#�Z#d$� Z$d%� Z%d&� Z&d'� Z'd(� Z(d)� Z)y*c c}}} w )+r z@ Lexer for Shen source code. .. versionadded:: 2.1 �Shenzhttp://shenlanguage.org/�shenz*.shenz text/x-shenzapplication/x-shen) �datatyper r� � defprolog�defcc�synonymsr� �package�typer� )r� r� r� r' �casesr� r% rS �freezer0 r� r� �protectr< r r r� �outputzprolog?z trap-errorr� r z/.rA z@pz@sz@v)�r r^ rX rY rZ r[ r\ r_ r` r] z <-addressz<-vectorr� � absvectorz absvector?z address->�adjoinrf �arityr� r� rp zbound?�call�cdr� �cnr� rD r� r� �cutr� r� zelement?r� zenable-type-theoryzerror-to-stringr� zeval-kl� exceptionr� �external�failzfail-ifr% �findall�fix�fst�fwhenr� zget-timer� �hd�hdstr�hdv�head� identical�implementationr� r zinclude-all-but� inferences�inputzinput+r� rK � intersectionr� �kill�languager� �limit�lineread�loaded�macror� r �mapcan� maxinferences�modez n->string�nlr� r r � occurrencesz occurs-checkr; �os�out�port�porters�pos�pr�precludezpreclude-all-butr% �profilezprofile-results�ps�quitr1 zread+r2 r zread-file-as-bytelistzread-file-as-stringr� �releaser� r� r> �runr rA z simple-error�snd� specialise�spy�step�stinput�stoutput�strz string->nrQ rb �substrh �systemf�tail�tcztc?�thaw�tl�tlstr�tlv�trackztuple?� undefmacror. zunify!�union� unprofile� unspecialise�untrackz variable?rw zvector->r{ �verifiedr} r� r� r� r� zy-or-n?)�where�skipr� r r� z<e>z<!>c # �@ K � | ] }|t j f�� � y �wr& )r r+ ��.0�ss r2 � <genexpr>zShenLexer.<genexpr>F s � �� �8�!�Q�� � �%�8�s � c # �, K � | ] }|t f�� � y �wr& )r r� s r2 r� zShenLexer.<genexpr>G s � �� �8�Q�Q��L�8�s �z[\w!$%*+,<=>?/.\'@&#:-]z%s+z [a-z!$%%*+,<=>?/.\'@&#_-]%s*z[A-Z]%s*rH rG z c#\d{1,3};z~[ARS%]z(?s).z(?s)\\\*.*?\*\\z\\\\.*rF z_{5,}z={5,}z(;|:=|\||--?>|<--?)z (:-|:|\{|\})z[+-]*\d*\.\d+(e[+-]?\d+)?z[+-]*\d+rI z(true|false|<>|\[\])z (\[|\]|\(|\)))rI rX c �v � t j | |� }| j |� }| j |� }|S r& )r r( �_process_symbols�_process_declarations)r, r- r} s r2 r( z ShenLexer.get_tokens_unprocessedh s9 � ��2�2�4��>���&�&�v�.���+�+�F�3��� r c �Z � |t t t j t j fvS r& )r r r rs rt )r, r/ s r2 � _relevantzShenLexer._relevantn s � ��T�:�w�~�~�w�?P�?P� Q�Q�Qr c # �� K � d}|D ]d \ }}}|||f�� | j |� s� |r3|t k( r*|| j v r |}| j ||� E d { ��� |dk( xr |t k( }�f y 7 ��w�NF�()r r r� �_process_declarationr )r, r} � opening_parenr. r/ r0 � declarations r2 r� z ShenLexer._process_declarationsq s� � �� � � �#)� F� �E�5�%����%� %��~�~�e�$� �U�g�%5�%�4�CT�CT�:T�"'�K� #� 8� 8��f� M�M�M� %�� � E��+�1E� � F� N�s �$A1�0A1�A/�A1c # �, K � d}|D ]� \ }}}|rC|t t j fv r+| j j |t j � }n'|t k( r || j v rt j }|dk( xr |t k( }|||f�� �� y �wr ) r r r* �MAPPINGSr� r) �BUILTINS_ANYWHEREr+ r )r, r} r r. r/ r0 s r2 r� zShenLexer._process_symbols{ s� � �� � � �#)� &� �E�5�%� ��7�D�M�M�*B�!B� � � �)�)�%�� � �?���'�!�e�t�/E�/E�&E� � � �� !�S�L� A�U�k�-A�M����%� %� &�s �BBc # � K � |D ] \ }}}| j |� r n |||f�� �" |dk( rtd}t k( rt j n|}|f�� |D ]J \ }}}|r|t k( rt j }|||f�� | j |� s�;|t k( xr |dk( }�L y |dk( r#t k( rt j n|}|f�� y |dk( r�t k( rt j n|}|f�� |D ] \ }}}| j |� r n |||f�� �" |dk( r6|t k( r-|t |f�� | j |� D ] \ }}}|||f�� � y |||f�� y t k( rt j n|}|f�� y �w)Nr� Fr� r� r �{) r r r r� r r� r) r �_process_signature)r, r r} r. r/ r0 �prev_was_colons r2 r z ShenLexer._process_declaration� s� � �� �#)� &� �E�5�%��~�~�e�$�����%� %� &� �*� $� "�N�$)�W�$4�G�L�L�%�E����%� %�'-� G�#��u�e�!�e�w�&6� #�L�L�E��U�E�)�)��>�>�%�(�%*�g�%5�%F�%�3�,�N� G�4 �) �I� %�&+�w�&6�D�N�N�E�E����%� %�$ �# �H� $�%*�g�%5�D�M�M�5�E����%� %�'-� *�#��u�e��>�>�%�(���U�E�)�)� *� ��|��� 0��[�%�/�/�+/�+B�+B�6�+J� .�'�E�5�%� ���-�-�.� � �U�E�)�)� � &+�g�%5�D�M�M�5�E����%� %��s �B E;�C-E;c # � K � |D ]p \ }}}|t k( r|dk( r |t |f�� y |t t j fv r0|j � rt j nt j }|||f�� �r y �w)N�})r r r r) �istitler* r r� )r, r} r. r/ r0 s r2 r z ShenLexer._process_signature� so � �� �#)� &� �E�5�%��� �E�S�L��[�%�/�/���7�D�M�M�2�2�).� � � �� � �g�l�l�����%� %� &�s �A7A9N)*rY rZ r[ r\ r] r^ r_ r` ra r� r� �BUILTINSr r r �update�valid_symbol_charsrf � symbol_name�variabler r| �Interpolr rt rs r r r r r; r< r r* r� r} r( r r� r� r r )r� r� r s 000r2 r r s� � �� �D� $�C��h�G�� �I� � 4�5�I��L� �M��H�6 H��$0�1�1�q��7� �1�H� �O�O�8�x�8�8� �O�O�8�-�8�8�3���+�+�J�1�4F�F�K�� /�/�H� �6�6� "� �F�M�M� *� �� � � )� �v� � � ��!2�!2� 3� ���� '� �Z� � �{� #� �{� #� #�[� 1� �g� &� )�6�<�<� 8� �&�.�.� )� �6�8� $� �t�}�}� %� $�g�n�n� 5� �'� "� �{� +� ��F�4� R�F�&�$�L&��M 2s �Dr c � � e Zd ZdZdZdgZdgZg ZdZdZ dZ dd e j fd e fd ej fd ej fd efde z ej$ fdej& fdej* fdef eed�� efde z ej2 fde z ej2 f ee dd�� ej4 fde z ej6 fe ej2 fde fde fgiZ y)r za A CPSA lexer based on the CPSA language as of version 2.2.12 .. versionadded:: 2.1 �CPSA�cpsaz*.cpsa)�herald�varsr� r � defprotocol�defrole� defskeleton� defstrand� deflistenerznon-origz uniq-origz pen-non-orig�precedesr) rI �recvr] r- �skey�akey�data�mesg) �cat�encr� �privk�pubk�invk�ltk�genr� r$ rX r� rF r� r� r� rJ rL rM rN r7 r� rO rP rQ �rl r� r r N) rY rZ r[ r\ r] r_ r` ra r� r� rf r rs r r r; r< r rx rz r r{ r r r r* r+ r) r r} r� r r2 r r � s6 � �� �D��h�G�� �I��I��I� �I� ,�J� � �g�n�n� %� �Z� � �F�L�L� )� �v�~�~� &� )�&� 1� �J� �� � � .� 7���� E� �� � � '� �� *� �9�U� +�W� 5� �:� %�t�}�}� 5� �:� %�t�}�}� 5� �9�Z�� >�� � � M� �*� $�d�m�m� 4� �� � � '� �� %� �� %�Y- �/�Fr r c �� � e Zd ZdZdZdZdgZdgZg ZdZ dZ dZ d Z d Z d Zd Zd ZdZdZdedfdedfdez ej* fdez ej* fdez ej* fdez ej* fdez ej* fdez ej* fdez ej* fdez ej* fd ez ej* fd ez ej. fd ez d z ez d z ez d!z ez d"z ej. f ee d#�$� ef eed#�$� ej* f ed%� eej4 fgd&ez ej8 fd'ej: fd(e f ee d#�$� ef eed#�$� ej* f ed%� eej4 fgd)e j@ fd*e!fd+e"jF fd,e"jH fd-e"fd.efd/ejJ f ee d#�$� ef ee d#�$� ej* fd0efg ee d#d1�2� edf ed3� gd4�Z&y5)6r a An xtlang lexer for the Extempore programming environment. This is a mixture of Scheme and xtlang, really. Keyword lists are taken from the Extempore Emacs mode (https://github.com/extemporelang/extempore-emacs-mode) .. versionadded:: 2.2 �xtlangz http://extempore.moso.com.au� extemporez*.xtm) r� r r' r r� r r< r� r rJ r r� ) r� r r� r� rU r� r r0 r1 r� ) z bind-funczbind-valzbind-libz bind-typez bind-aliasz bind-polyz bind-dylibz bind-lib-funcz bind-lib-val)�letz�memzone�cast�convertr� �doloop)JrX rY rZ r[ r\ r] r^ r_ r` r� ra rb re rf rg rj r� rl rm rn rp rs rt ru rv rw rx ry rz r{ r| r} r~ r r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r r r r r r> r? rG rM rf rm r' r- r r� r� )�r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� zinteraction-environmentr� r� r� r� r� r� r� r� r� r� r r r r r r znull-environmentr r r r� r r r r r r r! r( r+ r/ r0 r1 r3 r6 r7 r: zscheme-report-environmentzset-car!zset-cdr!rI rO rP rQ rR rS rT rU rV rW rX rY rZ r[ r\ r] r^ r_ r` ra rb rg rh ztranscript-offz transcript-onrt rv rw rx ry rz r{ r r� r� r� r� )o�toStringzafill!zpfill!ztfill!�tbindzvfill!z array-fill!z pointer-fill!z tuple-fill!ry �freer� �tupler� r� zcset!�crefr� �borz ang-namesr� r� r� r& �sprintfr r� zpset!zpref-ptrzvset!�vrefzaset!r& zaref-ptrztset!�trefztref-ptr�salloc�halloc�zalloc�alloc�scheduler� r� rG r� rm rj rb rn rM r� r� r� rt r? � llvm_printf� push_zone�pop_zoner4 r� � llvm_sprintfz make-arrayz array-set!z array-refz array-ref-ptrz pointer-set!z pointer-refzpointer-ref-ptrz stack-allocz heap-allocz zone-allocz make-tuplez tuple-set!z tuple-refz tuple-ref-ptrz closure-set!z closure-ref�pref�pdref� impc_null�bitcastr~ �ifretzret->zclrun->z make-env-zonezmake-envz<>�dtof�ftod�i1tof�i1tod�i1toi8�i1toi32�i1toi64�i8tof�i8tod�i8toi1�i8toi32�i8toi64�i32tof�i32tod�i32toi1�i32toi8�i32toi64�i64tof�i64tod�i64toi1�i64toi8�i64toi32r$ z[\w.!-]+z[]{}[\w<>,*/|!-]+r� rR r� rG z(?<=bind-func\s)z(?<=bind-val\s)z(?<=bind-type\s)z(?<=bind-alias\s)z(?<=bind-poly\s)z(?<=bind-lib\s)z(?<=bind-dylib\s)z(?<=bind-lib-func\s)z(?<=bind-lib-val\s)r� z(<z>|\|z\||/z/|z\*)\**rQ )rl �commonrJ rL rN r� rF r� r� z(#b|#o|#x)[\d.]+r� rM r r7 r/ r" )r1 r" re rX N)'rY rZ r[ r\ r] r^ r_ r` ra �common_keywordsr �xtlang_bind_keywords�xtlang_keywords�common_functions�scheme_functions�xtlang_functions�valid_scheme_name�valid_xtlang_name�valid_xtlang_typer r r) r r� r r r* r rx rz r r rs r r r; r< r{ r} r� r r2 r r s� � �� �D� (�C��m�G�� �I��I��O��O� ���O� ��"��F��0 3�� $��,�� �K�� )� �K�� (� �#4� 4�d�m�m� D� �"3� 3�T�]�]� C� �#4� 4�d�m�m� D� !�$5� 5�t�}�}� E� �#4� 4�d�m�m� D� �"3� 3�T�]�]� C� !�$5� 5�t�}�}� E� $�'8� 8�$�-�-� H� #�&7� 7�� � � G� �%� %�w�|�|� 4� �&� &�� 0�3D� D�w� N� � �!&�'�):�;�=F�G� �\�\� � �?�:� 6�� @� �#�J� 7�� � � G� �H� � �� � � .�? �F �%� %�v�}�}� 5� 8���� E� �� *� �?�:� 6�� @� �#�J� 7�� � � G� �H� � �� � � .�' �0 �g�n�n� %� �Z� � �F�L�L� )� �v�~�~� &� !�&� )� )�&� 1� �� � � '� �?�:� 6�� @� �#�J� 7�� � � G� �� %�7 �> �'� �5� I� �h� � �H� � �m]�Fr r c � � e Zd ZdZdZdZddgZdgZdZdZ d Z d Z d d e j fd efdefdej" fdej$ fdefdej* fde z ej, f eed�� ef ee d�� ej2 f ee d�� ej4 fdej6 fe ej6 fde fde fde fde fgiZ y) r z�A lexer for the Fennel programming language. Fennel compiles to Lua, so all the Lua builtins are recognized as well as the special forms that are particular to the Fennel compiler. .. versionadded:: 2.3 �Fennelzhttps://fennel-lang.org�fennel�fnlz*.fnl)?�#r� rX rY rZ r� r� z-?>z-?>>r9 z..r[ z//r� r\ r] r^ r_ r` z?.r� � accumulater �band�bnotr= �bxor�collect�commentr� �doc�doto�eachz eval-compilerr� �hashfn�icollectr' z import-macrosr r� r� �lshift�lua� macrodebugr> r znot=r< �partialz pick-argsz pick-valuesr� zrequire-macros�rshiftrA z set-forcibly!�tsetrv r� r� z with-openz~=)r� r� r� r4 r� r� �varrW )'�_G�_VERSION�arg�assert�bit32�collectgarbage� coroutiner� �dofiler� �getfenv� getmetatable�io�ipairsr� �loadfile� loadstring�math�nextr� r� �pairs�pcallr% �rawequal�rawget�rawlen�rawsetrH r �setfenv� setmetatablerI �table�tonumber�tostringr� r0 �xpcallz0[a-zA-Z_!$%&*+/:<=>?^~|-][\w!$%&*+/:<=>?^~|\.-]*rX r� r� rF r� r� r� z(true|false|nil)r� r� r� z\.\.\.r r r rs N) rY rZ r[ r\ r] r^ r_ r` r� r� r rf r rs r r r r; r< r r r{ rx r r ry r+ r* r r} r� r r2 r r � s" � �� �D� #�C��� �G�� �I� �M��L��H� E�J� � �g�n�n� %� �D�M� �Z� � �F�L�L� )� �v�~�~� &� (�&� 1� �$�-�-� 0� �J� �� � � .� �=�� -�w� 7� �<�� ,�g�.A�.A� B� �8�C� (�$�,�,� 7� �� � � &� �� � � '� �� %� �� %� �� %� �;� �G$ �&�Fr r )$r\ rb �pygments.lexerr r r r r �pygments.tokenr r r r r r r r r r r �pygments.lexers.pythonr � pygments.lexers._scheme_builtinsr r �__all__r r r r r r r r r r r� r r2 �<module>r� s� ��� � H� H�4� 4� 4� 4� /� M� )�� K�*� K�\z�j� z�zp�j� p�fl�*� l�^ A�:� A�HB �Z� B �Jb&� � b&�JK� � K�\I�*� I�XQ�*� Qr
© 2026 UnknownSec