git.fiddlerwoaroof.com
html-sanitizer.fasl
37317e3b
 #!/home/edwlan/sbcl/bin/sbcl --script
 # FASL
   compiled from "/home/edwlan/github_repos/html-sanitizer/html-sanitizer.lisp"
   using SBCL version 1.3.19.67-f63402521
 �X86-64N1.3.19.67-f634025212(:GENCGC :SB-PACKAGE-LOCKS :SB-THREAD :SB-UNICODE)PSETP*PACKAGE*dHTML-SANITIZER	,8�SB-IMPL�%DEFPARAMETER�HTML-SANITIZER�9+PLUMP-DONT-SELF-CLOSE-TAGS+�span	�div	�iframe	�script		d</home/edwlan/github_repos/html-sanitizer/html-sanitizer.lisp	"o	0	8>�	PLUMP-DOM�ELEMENTT
CREATE�	SB-KERNEL�%FIND-CLASSOID-CELL<�SB-C�TOP-LEVEL-FORMPQUOTE			"l�;�"m�;�t	0	\	+��7�	#TSTANDARD"Y7�7COMPILED-DEBUG-FUN-TOPLEVELl	m	p	q	\	###�-	0	\	##ks	0	�)�&�&TTOPLEVEL�Y10 �EH�eH�����H�=�����O ��u���TABSOLUTE�S=,PFUNCTIONP*	�09>2�></	PWRITE-STRING<PPRINC<PWRITE-CHAR<�TAG-NAME<�CHILDREN<�SB-PCL�!8FAST-METHOD-CALL�8METHOD-CALL-	�#ETYPECASE-FAILURE<: !\	###�-	9 !\	###�-	`METHOD-CELL	�'8CALL-NO-NEXT-METHOD<PSTRING-EQUALA�%MEMBER-TEST<�*STREAM*BP
FORMAT<�ATTRIBUTES<�SERIALIZE<Bd+Defmethod Serialize-Object Around (Element)	P
LAMBDAP
STREAM�	SB-FORMAT�MFORMAT-ARG1P&REST�	MARGS	TIN	+�$$	+	�G��	#+��	"���7COMPILED-DEBUG-FUN-EXTERNAL !"#\	###�-	0	"�S+�$$ab	+��	#TMINIMAL"���/COMPILED-DEBUG-FUN-MORE !"#\	###�-	0	"�S"N"L\	+�G�DEF����	#+���	"��#0	"S+�$$	+	�G��
	#+��	"��Y0	"�S+�$$ab	+��	#]"��`0	"�S"N"L\	+�G�DEF���	#+���	"��#0	"��8FAST-METHOD�!SERIALIZE-OBJECTT
AROUND		+�$8$0	+�DZ��	#+���	"��Y0	"9u"�8.ARGS-TAIL."@�
8.ARGS."0�8.FUNCTION."�%8.NEXT-METHOD-CALL."�	NODE"0"�TAG-NAME\
	+�����EFE(XFXDD!���8�����/�*����8��W��3��4�*/������8�8�f8�,�9��f��f�xD/XE>ڧXD
�ڻ����E3��E2BXB�B	#+��	"�����#0	\	##k(0	�F10 �EH����t4L��I��J�d��H��H��vN�L�M1�O�N�I��H��u�H�u��H�e�H��H��H�M�H�U�H�D$�H��H�����H�}�H�(H���H�D$�H��H�U�H�}�H�(H���H�D$�H���I>H�}�H�(H���� H��]�1<0 �EH����t4L��I��J�d��H��H��vN�L�M1�O�N�I��H��u�H�u��H�e�H��H��H�M�H�U�H�D$�H���I<H�}�H�(H���H�D$�H��H�U�H�}�H�(H���� H��]�1X0 �EH����H�e�H�}�H�u�I�L$`H�M�H�D$�H��H�U�H�(H���HB�H�U�H�M�H�M�H�D$�H��H�U�H�(H���HB�H�J�H���fH�e�H��H���H�L$H�U�H�Q�H�A H�}� ��H�Y�H�IH��H�M�A����H�M�A����H�M�A����H�\$�H��H��H�E�H�+H��P�r
RH�T$�� H��H��H)�H��H�S�H�{�H�s�H��H�E�H��H��H��H��H9�w	�H�H9�v��H�gH)�H�H��u
 H�R�H��]�H���H�D$�H��H�U�H�=����H�(H����H�E�HH;
�����H�E�H�pI�l$@M�\$I�SI;T$ �;I�T$I�SI1l$@t�	H�Z�H�B H�E�H�H
L��H�� ��H��RH�ظ�A��tH���H��H�� t�q�H�I�A��t��
 H��H)�H��H��H��H)�H��H�S�H�{�H�s�H��H��H�+H��P�r
RH�T$�� H��H��H)�H��H�S�H�{�H�s�H��H�E�H��H��H��H��H9�w	�H�H9�v��H�gH)�H�����
 /�A����H�AH= ����H�y�H�\$�H��I��H�ƹH�+H��P�r
RH�T$�� H��H��H)�H��H�S�H�{�H�s�H��H�E�H��H��H��H��H9�w	�H�H9�v��H�gH)�H�����
 /H�Q%H���W���H�AH�@H;�������=���H�E�HH;
�����H�E�H�@H�M�H�Q
H�M�H�yH�\$�H���H�+H��P�r
RH�T$�� H��H��H)�H��H�S�H�{�H�s�H��H�E�H��H��H��H��H9�w	�H�H9�v��H�gH)�H��"���H�Q%H������H�AH�@H;"����P����e���H�\$�H��H�}�H�����H�+H���r
RH�T$�� H��H��H)�H��H�S�H�{�H�s�H��H�E�H��H��H��H��H9�w	�H�H9�v��H�gH)�H��x���H������x�I�<<��aHDx���Q�H�5����H�D$�H��H�U�H�(H���H�� �J���H�n����P�I���aHDP���Q��H�=W���H�D$�H��H�u�H�(H���H�\$�H��H�U�H�+H���HB�H�
 ����x�I�<<��aHDx���QtlH�D$�H���H�(H���HB�H�����P�I���aHDP���Qt8H�=���H�uع�u����j�A[����
 �
 �
 �
 ��TRELATIVE�alloc_tramp+�G��I���H���G���E�B�C���<����RETURN-MULTIPLE���7���6�[�4���5���5���4���3��=�u�	8.PV.}~	-	.	+e�	���$�(�.�0�6�B�F�<�H�0�<�@�H����'�L��L"�-
 ql �o�tKJ�I!�n����� #�2�>�B�J	F�'8INVOKE-METHOD-CALL1�%8INVOKE-METHOD-CALL�/8INVOKE-FAST-METHOD-CALL�8TRACE-EMF-CALL�O8INVOKE-NARROW-EFFECTIVE-METHOD-FUNCTION�58FAST-CALL-NEXT-METHOD-BODYC�)8METHOD-CALL-FUNCTION�98METHOD-CALL-CALL-METHOD-ARGS�38FAST-METHOD-CALL-FUNCTION�'8FAST-METHOD-CALL-PV�C8FAST-METHOD-CALL-NEXT-METHOD-CALL�%REST-TRUEHID76\	��SQ�SB-INT��SFUNCTIONO	P	NULL	�����SQ�����>�1��+8%MAKE-METHOD-FUNCTION<TARG-INFO#		�E8METHOD-FUNCTION-FROM-FAST-FUNCTION<�SB-MOP�C�SET-FUNCALLABLE-INSTANCE-FUNCTION<TFUNCTION�8PLIST��8METHOD-CELLB	PSTANDARD-METHODrs	~	"�
0	�8LOAD-DEFMETHOD<�)8FIND-CLASS-FROM-CELL<dtop level form	��	r	�	P	LISTPFIND-CLASS		�	PLIST*�P	LET*�#DEBUG-NAME-MARKER !\	###�-	0		��8MF	�	��			�SOURCE-LOCATION			"��\	+��@���^��2��"������	#"�@���%0	\	##k(0	������������*�010 �EH�e�I�L$`H�M�H�9���H�HH�� ��I�l$@M�\$I�CI;D$ ��I�D$I�CI1l$@t�	H�E�H�U�H�J�H�M�H�A H���H�D$�H���H�(H����HB�H�U�H�]�H�]�H�����H�D$�H��H�=�����H�(H����HB�H�]�H��H�D$�H��H�ӹH�(H����HB�H�=����H�u�H�����I�l$@M�\$I�S I;T$ ��I�T$I�SH��H�x�H��H�@�H�p�H�XI1l$@t�	H��H�D$�H��8H�6���H�=7���H�58���H�]�H�X�H�1���H�X�H�H�H�
*���H�HعH�(H����HB� H��]�H�D$�H��H����H�=�����H�(H����HB�H���H���j���A[�V���j ���A[�#���+�alloc_tramp#+�alloc_tramp+���+���+��+���+���=����	��8�
%DEFUN�SANITIZE>�
 �CLSS��ENSURE-SELECTOR<�
 		+�7	#"M7%0	\	#"T(0	���*�M10 �EH�eH�������u���+مG=��/��7>��PLUMP-PARSER��PARSE<�LQUERY�1�*LQUERY-MASTER-DOCUMENT*T	SIZETINITIAL-ELEMENTTFILL-POINTER�%�MAKE-PROPER-VECTOR<��DETERMINE-VALUE<TDEPTH-FIRST��MATCH-SELECTOR<�LQUERY-FUNCS�
�REMOVE<��SERIALIZE<�	�NODE<��"$+��A��	#+��	"�AY0	#E�"�	HTML"�
RESULT\	+3��N�EFEpFE�&��	�(E�B	##"�N���#0	\	#"T(0	�
10 �EH���fH�e�H�U�I�L$`H�M�H�D$�H��H�UعH�(H���HB�H�U�H�
���H�M�H�����H�I���aHDH���Q�H�D$�H��0H������H�5����H�H�H�
�H�H�H�@�O �H�(H���HB�H��H�D$�H��H�UйH�(H���HB�H��H�D$�H��H�U�H�5�����H�(H���HB�H�D$�H���H�(H���HB�H��H�D$�H��H�UйH�(H���HB�H�D$�H��� �H�(H���HB��u���
 ������l��H��+�������g=���	-	.	+!�	I��������������	��$��$1��
�SELECT�������\	�"
0	8�%DEFPACKAGEdHTML-SANITIZER.TEST	dCL	dFIVEAM			"�
0	8
,8P
IMPORT�8�IT.BESE.FIVEAM��MAKE-SUITETHTML-SANITIZER8>��GET-TEST<�Create a new suite named ~A.	�Unknown suite ~A.	P
CERROR<R<P	SETF	<��*SUITE*�PLET`
SUITE0�			PIFPAND		PPROGNP	WHEN�	���					+��@����)��'����	#"�@���%0	\	#"�(0	*�d	10 �EH�e�I�L$`H�M�H�D$�H��H�`����H�(H����HB�H�� ��H�D$�H��H�=���H�=>���H�5����H�(H����H�D$�H��H�����H�=���� �H�(H����HB�H�D$�H��H�=����H�(H����HB�H�D$�H��H������H�(H����HB�H�
����A�I�D�x�aHD�H�P�� H��]�H�
�����A�I�D�x�aHD�H�P���+�+��+��+��+�\=.)��/8��REGISTER-TEST�HTML-SANITIZER.TEST�'�REMOVES-SCRIPT-TAGS�	��ISPEQUAL�<div></div>	נ<div><script></script></div>					PSYMBOL-VALUE7TDEFINITION-TIME8#<�/�*RUN-TEST-WHEN-DEFINED*7��	�RUN!28#�#�#�0�%�REMOVES-STYLE-TAGS3;<7=8#<>7�?@8#�#�#�?>A@