;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302\303\"\210\300\304!\207" [require sly-fontifying-fu sly-tests "lib/sly-tests" sly-autodoc] 3) #@45 (fn &key (FONT-LOCK-MAGIC t) (AUTODOC t)) (defalias 'sly-initialize-lisp-buffer-for-test-suite #[128 "\302\303\"\206\304A@\302\305\"\206\306A@\211\203?\211@\307>\203(\211AA\262\202\310>A@\2036\311\262\202\312\313@\"\210\202\210\314\315\"\216\316\301!\210\311\317 \210\320\321!\210\322\323!\205h\203e\323\321!\202h\323\324!)\207" [lisp-mode-hook sly-highlight-suppressed-forms plist-member :font-lock-magic (nil t) :autodoc (nil t) (:font-lock-magic :autodoc :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:font-lock-magic :autodoc)" make-closure #[0 "\300\211\207" [V0 lisp-mode-hook] 2] make-local-variable lisp-mode sly-mode 1 boundp sly-autodoc-mode -1] 7 (#$ . 214)]) #@23 (fn BUFFER-CONTENT) (defalias 'sly-test-font-lock-magic #[257 "\300\301!\210\302 \210\303\304\305\"r\211q\210\306\307\"\216c\210\310\311\305\312\305$\210\313 \210\314\315\316\305#\2033\317\320\321\322`\323\"\324$\210db\210\314\325\316\305#\203G\317\326\321\322`\323\"#\210*\210\300\301!\207" [sly-sync-to-top-level 0.3 sly-check-top-level generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] sly-initialize-lisp-buffer-for-test-suite :autodoc :font-lock-magic font-lock-default-fontify-buffer search-backward "*NO*" nil sly-test-expect "Not suppressed by reader conditional?" sly-reader-conditional-face get-text-property face #[514 "=?\207" [] 4 "\n\n(fn X Y)"] "*YES*" "Suppressed by reader conditional?"] 8 (#$ . 957)]) (byte-code "\300\301\302\303\301\304\305\306\307\310&\"\210\300\311\302\303\311\312\313\306\307\314&\"\210\300\315\302\303\315\316\317\306\307\320&\"\210\300\321\302\303\321\322\323\306\307\324&\"\210\300\325\302\303\325\326\327\306\307\330&\"\210\300\331\302\303\331\332\333\306\307\334&\"\210\300\335\302\303\335\332\336\306\307\337&\"\210\300\340\302\303\340\341\342\306\307\343&\"\210\300\344\302\303\344\345\346\306\307\347&\"\210\300\350\302\303\350\351\352\306\307\353&\"\210\300\354\302\303\354\351\355\306\307\356&\"\210\300\357\302\303\357\360\361\306\307\362&\"\210\300\363\302\303\363\364\365\306\307\366&\"\210\300\367\302\303\367\370\371\306\307\372&\"\210\300\373\302\303\373\374\375\306\307\376&\"\210\300\377\302\303\377\201@\201A\306\307\201B&\"\210\300\201C\302\303\201C\201D\201E\306\307\201F&\"\210\300\201G\302\303\201G\201H\201I\306\307\201J&\"\210\300\201K\302\303\201K\201L\201M\306\307\201N&\"\210\300\201O\302\303\201O\374\201P\306\307\201Q&\"\210\300\201R\302\303\201R\201S\201T\306\307\201U&\"\210\300\201V\302\303\201V\201W\201X\306\307\201Y&\"\210\300\201Z\302\303\201Z\201[\201\\\306\307\201]&\"\210\300\201^\302\303\201^\201_\201`\306\307\201a&\"\210\201b\201c!\207" [ert-set-test font-lock-magic-1 record ert-test "For input ((defun *NO* (…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "(defun *NO* (x y) (+ x y))"] 2] nil :passed (sly contrib fontifying-fu-tests) font-lock-magic-2 "For input ((defun *NO*), some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "(defun *NO*"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-3 "For input (*NO*) #-(and)…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "*NO*) #-(and) (*YES*) (*NO* *NO*"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-4 "For input ((\n(defun *NO*), some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "(\n(defun *NO*"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-5 "For input ()\n(defun *NO*\n …, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic ")\n(defun *NO*\n (\n)"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-6 "For input (#+#.foo\n(defun…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#+#.foo\n(defun *NO* (x y) (+ x y))"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-7 #[0 "\300\301!\207" [sly-test-font-lock-magic "#+#.foo\n(defun *NO* (x "] 2] (sly contrib fontifying-fu-tests) font-lock-magic-8 "For input (#+(\n(defun *NO…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#+(\n(defun *NO* (x "] 2] (sly contrib fontifying-fu-tests) font-lock-magic-9 "For input (#+(test)\n(defu…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#+(test)\n(defun *NO* (x "] 2] (sly contrib fontifying-fu-tests) font-lock-magic-10 "For input ((eval-when (.…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "(eval-when (...)\n(defun *NO* (x "] 2] (sly contrib fontifying-fu-tests) font-lock-magic-11 #[0 "\300\301!\207" [sly-test-font-lock-magic "(eval-when (...)\n#+(and)\n(defun *NO* (x "] 2] (sly contrib fontifying-fu-tests) font-lock-magic-12 "For input (#-(and) (defu…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#-(and) (defun *YES* (x y) (+ x y))"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-13 "For input (\n#-(and) (defu…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "\n#-(and) (defun *YES* (x y) (+ x y))\n#+(and) (defun *NO* (x y) (+ x y))"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-14 "For input (#+(and) (defu…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#+(and) (defun *NO* (x y) #-(and) (+ *YES* y))"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-15 "For input (#| #+(or) |# …, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#| #+(or) |# *NO*"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-16 "For input (#| #+(or) x |…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#| #+(or) x |# *NO*"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-17 "For input (*NO* \"#| *NO*…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "*NO* \"#| *NO* #+(or) x |# *NO*\" *NO*"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-18 "For input (#+#.foo (defu…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#+#.foo (defun foo (bar))\n#-(and) *YES* *NO* bar\n"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-19 "For input (#+(foo) (defu…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#+(foo) (defun foo (bar))\n#-(and) *YES* *NO* bar"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-20 #[0 "\300\301!\207" [sly-test-font-lock-magic "#| #+(or) |# *NO* foo\n#-(and) *YES* *NO*"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-21 "For input (#- (and)\n(*YES…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#- (and)\n(*YES*)\n(*NO*)\n#-(and)\n(*YES*)\n(*NO*)"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-22 "For input (#+nil (foo)\n\n#-…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#+nil (foo)\n\n#-(and)\n#+nil (\n asdf *YES* a\n fsdfad)\n\n( asdf *YES*\n\n )\n(*NO*)\n\n"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-23 "For input (*NO*\n\n#-(and) (…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "*NO*\n\n#-(and) (progn\n #-(and)\n (defun *YES* ...)\n\n #+(and)\n (defun *YES* ...)\n\n (defun *YES* ...)\n\n *YES*\n\n *YES*\n\n *YES*\n\n *YES*\n)\n\n*NO*"] 2] (sly contrib fontifying-fu-tests) font-lock-magic-24 "For input (#-(not) *YES*…, some testing for the font-lock-magic. *YES* should be\n highlighted as a suppressed form, *NO* should not." #[0 "\300\301!\207" [sly-test-font-lock-magic "#-(not) *YES* *NO*\n\n*NO*\n\n#+(not) *NO* *NO*\n\n*NO*\n\n#+(not a b c) *NO* *NO*\n\n*NO*"] 2] (sly contrib fontifying-fu-tests) provide sly-fontifying-fu-tests] 10)