;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302\303\"\210\300\304!\210\300\305!\207" [require sly sly-parse "lib/sly-parse" font-lock cl-lib] 3) (defvar sly-additional-font-lock-keywords '(("(\\(\\(\\s_\\|\\w\\)*:\\(define-\\|do-\\|with-\\|without-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face) ("(\\(\\(define-\\|do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face) ("(\\(check-\\(\\s_\\|\\w\\)*\\)" 1 font-lock-warning-face) ("(\\(assert-\\(\\s_\\|\\w\\)*\\)" 1 font-lock-warning-face))) (byte-code "\303\304\305\306\307DD\310\311\312\313\314&\210\205\315!\316\317\320\321\322\323\320\323\211\324\325\326\327& #\323\207" [load-file-name sly-fontifying-fu--path sly-fontifying-fu--contrib custom-declare-variable sly-highlight-suppressed-forms funcall function #[0 "\300\207" [t] 1] "Display forms disabled by reader conditionals as comments." :type (choice (const :tag "Enable" t) (const :tag "Disable" nil)) :group sly-mode file-name-directory put sly-contribs sly-fontifying-fu record sly-contrib nil sly-fontifying-fu-init sly-fontifying-fu-unload ("Tobias C. Rittweiler ") ("GPL")] 13) (defalias 'sly-fontifying-fu-init #[0 "\306\307\310\311\312\313\314\"\"\"\210\314\211:\203'@\262\315\316E \317\320$A\262\202 \266\n\321=\2037\322 \2037\323 \210\324\325 \"\210\f\203C\326 \210\327 !>\204S\330\331\332 D\"\210 \211\333\334I\207" [sly-fontifying-fu--path sly-contrib--required-slynk-modules this-command sly-additional-font-lock-keywords sly-highlight-suppressed-forms sly-fontifying-fu--contrib mapc funcall mapcar sly-contrib--enable cl-remove-if sly-contrib--enabled-p nil cl-adjoin sly-fontifying-fu :key cl-first sly-setup sly-connected-p sly-contrib--load-slynk-dependencies font-lock-add-keywords lisp-mode sly-activate-font-lock-magic type-of signal wrong-type-argument sly-contrib 1 t cl-struct-sly-contrib-tags] 7]) (defalias 'sly-fontifying-fu-unload #[0 "\304\305\"\210\306\211:\203@\262\307 \310\311$A\262\202\266\312\313\314\"\210\315\316\317\320\321\322\306\"\"\"\210\323\n! >\204?\324\325\326\nD\"\210\n\211\327\306I\207" [sly-additional-font-lock-keywords sly-contrib--required-slynk-modules sly-fontifying-fu--contrib cl-struct-sly-contrib-tags font-lock-remove-keywords lisp-mode nil cl-remove :key cl-first sly-warning "Disabling contrib %s" sly-fontifying-fu mapc funcall mapcar sly-contrib--disable cl-remove-if-not sly-contrib--enabled-p type-of signal wrong-type-argument sly-contrib 1] 7]) (custom-declare-face 'sly-reader-conditional-face '((t (:inherit font-lock-comment-face))) "Face for compiler notes while selected." :group 'sly-mode-faces) (defvar sly-search-suppressed-forms-match-data (byte-code "\300\211D\207" [nil] 2)) #@14 (fn LIMIT) (defalias 'sly-search-suppressed-forms-internal #[257 "\302\303#\205}\304\224\305 \3068\204\3078\203\310!\207`Sf\311p!\312!`X\205{\313=\2036\211\203@\314=\203w\211\203w\3151s\316 \210\317 \210\320 \210`X\204X\321\322!\210\323\324 \"\211\211\240\266\211\211A`\240\266\325!\210\303\2620\207\266\324\207\310!\266\205\207" [sly-reader-conditionals-regexp sly-search-suppressed-forms-match-data search-forward-regexp t 0 syntax-ppss 3 4 sly-search-suppressed-forms-internal read sly-eval-feature-expression 43 45 (error) forward-sexp backward-sexp sly-forward-sexp cl--assertion-failed (<= (point) limit) match-data nil set-match-data] 10 (#$ . 2802)]) #@72 Find reader conditionalized forms where the test is false. (fn LIMIT) (defalias 'sly-search-suppressed-forms #[257 "\205\301 \205\302\211\302=\203|`X\203|\3031p\3041h\3051_\3061U\3071J\3101>\311!\211\262000000\210\202\n00000\312\211\266\203\202\n0000\302\211\266\203\202\n000\302\211\266\203\202\n00\302\211\266\203\202\n0\302\211\266\203\202\n\312\262\313\314\"\266\202\n\211\262\207" [sly-highlight-suppressed-forms sly-connected-p retry (error) (sly-unknown-feature-expression) (sly-incorrect-feature-expression) (scan-error) (invalid-read-syntax) (end-of-file) sly-search-suppressed-forms-internal nil sly-warning "Caught error during fontification while searching for forms\nthat are suppressed by reader-conditionals. The error was: %S."] 6 (#$ . 3502)]) #@82 Search for a directly preceding reader conditional. Return its position, or nil. (defalias 'sly-search-directly-preceding-reader-conditional #[0 "\3011?`\302\212\303 \210`)\304#\211\205;\305\306\\b\210\307 \210`\"\211@AA@\2059\211\310V\262?\2059\211?\2059\266\203\266\2020\207\210\311\207" [sly-reader-conditionals-regexp (scan-error) search-backward-regexp beginning-of-defun t parse-partial-sexp 2 forward-sexp 0 nil] 8 (#$ . 4297)]) (defalias 'sly-extend-region-for-font-lock #[0 "\205'\3031\304\305 \n\"\211@\262\211A@\3068\210\211\2620\207\307\310 \n$\262\207" [sly-highlight-suppressed-forms font-lock-beg font-lock-end (error) nil sly-compute-region-for-font-lock 2 sly-warning "Caught error when trying to extend the region for fontification.\nThe error was: %S\nFurther: font-lock-beg=%d, font-lock-end=%d."] 6]) (defalias 'sly-beginning-of-tlf #[0 "\300\301 !\211\205\n\211b\207" [syntax-ppss-toplevel-pos syntax-ppss] 2]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put sly-beginning-of-tlf speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@26 (fn ORIG-BEG ORIG-END) (defalias 'sly-compute-region-for-font-lock #[514 "b\210\301\302 !\211\205\211b\266\302 @\211\303V\262\203 \304\305!\210`Z\306V\203-\2023\307 \2063\211\262\262\211b\210\310\311#\203\213\211\212\3121\202\313!\205}\303\225b\210`Sf\314=\315\3161c\317p!0\202j\320\321A\"\262!\203s\211\202u\211??\205{\322 \266\2020\210\202\203\210`)]\262\202:U?\206\226\211U?E\207" [sly-reader-conditionals-regexp syntax-ppss-toplevel-pos syntax-ppss 0 cl--assertion-failed (not (cl-plusp (nth 0 (sly-current-parser-state)))) 20000 sly-search-directly-preceding-reader-conditional search-backward-regexp t (error) looking-at 43 sly-eval-feature-expression (invalid-read-syntax) read signal sly-unknown-feature-expression sly-forward-sexp] 11 (#$ . 5407)]) (defalias 'sly-activate-font-lock-magic #[0 "\300\301\302\"\210\303\304\305\"\207" [font-lock-add-keywords lisp-mode ((sly-search-suppressed-forms 0 'sly-reader-conditional-face t)) add-hook lisp-mode-hook #[0 "\300\301\302\303\211$\207" [add-hook font-lock-extend-region-functions sly-extend-region-for-font-lock t] 5]] 3]) (byte-code "\300\301!\210\302\303!\207" [sly-byte-compile-hotspots (sly-extend-region-for-font-lock sly-compute-region-for-font-lock sly-search-directly-preceding-reader-conditional sly-search-suppressed-forms sly-beginning-of-tlf) provide sly-fontifying-fu] 2)