;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302\303\"\210\304\305\306\211\307\306\211&\207" [require sly-indentation sly-tests "lib/sly-tests" sly--lisp-indent-add-style "common-lisp-indent-test" nil ((complex-indent\.1 ((&whole 4 (&whole 1 1 1 1 (&whole 1 1) &rest 1) &body) &body)) (complex-indent\.2 (4 (&whole 4 &rest 1) &body)) (complex-indent\.3 (4 &body)))] 7) (defalias 'sly-indentation-mess-up-indentation #[0 "m\204K\300y\210\301\302!\204\303\304!\211\305\267\210\202\301\306!\203*\301\307!\204G\310\300!\210\202\210\202\303\311!T\211\312V\203B\211S\262\306c\210\2022\266\202\210\202\313 \207" [1 looking-at "^$" random 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 23 1 46)) " " " ;" delete-char 24 0 buffer-string] 4]) #@61 Can be set indentation tests to `indent-region' if need be. (defvar sly-indentation--test-function nil (#$ . 868)) #@26 (fn BINDINGS EXPECTED) (defalias 'sly-indentation-test--1 #[514 "\302\303\304\305\"r\211q\210\306\307\"\216\310 \210\311\312\313!\210\311\211\211:\203=@\262\211A\262\242\262\211@\262\314!L\210A\262\202\266c\210eb\210\315 \211\230\203Q\316\317!\210eb\210\320ed\"\210\321 \210\322\323\"\322\324 \323\"\325C\3261w\327GG)D0\202\202\330\240\210\211@AD\262\331C\311C\306\332%\216\333\242\"\240)\204\236\316\242!\210\266\311\311\211\211\211:\203\365@\262:\203\365@\262 !\262 !\262U\204\346\334\335 \"\210\334\336\324 \"\210\316\337\340$!\210A\262A\262\311\262\202\247\266 \311\262*\207" [indent-tabs-mode signal-hook-function #[257 "\211\300\301\302T\211\262\203%GW\203%H\262\303=\203%\211T\262\202\207" [-1 nil 0 32] 7 "\n\n(fn LINE)"] generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-mode nil sly-common-lisp-set-style "common-lisp-indent-test" make-local-variable sly-indentation-mess-up-indentation ert-fail "Could not mess up indentation?" indent-region delete-trailing-whitespace split-string "\n" buffer-string = (error) ert--should-signal-hook signal #1=#:ert-form-evaluation-aborted-8076 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (= (length expected-lines) (length observed-lines))) :form #1# :value = ert-explainer :explanation apply ert--signal-should-execution] 7] apply message "Starting with this mess:\n%s" "\nGot this result:\n%s" format "Expected line `%s' to have %d leading spaces. Got %d"] 20 (#$ . 989)]) #@36 (fn TEST-NAME BINDINGS EXPECTED) (defalias 'sly-indentation-test-form #[771 "\300\301\302\303\"\304\305DE\257\207" [define-sly-ert-test nil format "An indentation test named `%s'" sly-indentation-test--1 quote] 10 (#$ . 2718)]) #@13 (fn FILE) (defalias 'sly-indentation-test-forms-for-file #[257 "r\301\302\"!q\210eb\210\303\211\211\211\211\304\305\303\306#\203\274\307\310\303\224\2057\211\2031\311\224\225#\266\202\2029\312\224\225\"\266\202!\262\214`\313d!\210`}\210\212eb\210\303\304\314\303\306#\203\235\307\310\303\224\205p\211\203j\311\224\225#\266\202\202r\312\224\225\"\266\202!\315\316\303\224\205\221\211\203\213\311\224\225#\266\202\202\223\312\224\225\"\266\202!@DB\262\202J\211\237\262*\262\312`\317`\310\"\"\262\320#B\262\303\262\202\237\266\205)\207" [sly-path find-file-noselect expand-file-name nil re-search-forward ";;; Test:[ \n ]*\\(.*\\)[ \n ]" t intern 1 substring-no-properties buffer-substring-no-properties forward-comment "\\([^ ]*\\)[ \n ]*:[ \n ]*\\(.*\\)[ \n ]" read-from-string 2 scan-sexps sly-indentation-test-form] 15 (#$ . 2962)]) (defalias 'sly-indentation-define-tests '(macro . #[0 "\300\301\302!B\207" [progn sly-indentation-test-forms-for-file "test/sly-cl-indent-test.txt"] 3])) (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\336\337\306\307\340&\"\210\300\341\302\303\341\342\343\306\307\344&\"\210\300\345\302\303\345\346\347\306\307\350&\"\210\300\351\302\303\351\352\353\306\307\354&\"\210\300\355\302\303\355\356\357\306\307\360&\"\210\300\361\302\303\361\362\363\306\307\364&\"\210\300\365\302\303\365\366\367\306\307\370&\"\210\300\371\302\303\371\372\373\306\307\374&\"\210\300\375\302\303\375\376\377\306\307\201@&\"\210\300\201A\302\303\201A\201B\201C\306\307\201D&\"\210\300\201E\302\303\201E\201F\201G\306\307\201H&\"\210\300\201I\302\303\201I\201J\201K\306\307\201L&\"\210\300\201M\302\303\201M\201N\201O\306\307\201P&\"\210\300\201Q\302\303\201Q\201R\201S\306\307\201T&\"\210\300\201U\302\303\201U\201V\201W\306\307\201X&\"\210\300\201Y\302\303\201Y\201Z\201[\306\307\201\\&\"\210\300\201]\302\303\201]\201^\201_\306\307\201`&\"\210\300\201a\302\303\201a\201b\201c\306\307\201d&\"\210\300\201e\302\303\201e\201f\201g\306\307\201h&\"\210\300\201i\302\303\201i\201j\201k\306\307\201l&\"\210\300\201m\302\303\201m\201n\201o\306\307\201p&\"\210\300\201q\302\303\201q\201r\201s\306\307\201t&\"\210\300\201u\302\303\201u\201v\201w\306\307\201x&\"\210\300\201y\302\303\201y\201z\201{\306\307\201|&\"\210\300\201}\302\303\201}\201~\201\306\307\201\200&\"\210\300\201\201\302\303\201\201\201\202\201\203\306\307\201\204&\"\210\300\201\205\302\303\201\205\201\206\201\207\306\307\201\210&\"\210\300\201\211\302\303\201\211\201\212\201\213\306\307\201\214&\"\210\300\201\215\302\303\201\215\201\216\201\217\306\307\201\220&\"\210\300\201\221\302\303\201\221\201\222\201\223\306\307\201\224&\"\210\300\201\225\302\303\201\225\201\226\201\227\306\307\201\230&\"\210\300\201\231\302\303\201\231\201\232\201\233\306\307\201\234&\"\210\300\201\235\302\303\201\235\201\236\201\237\306\307\201\240&\"\210\300\201\241\302\303\201\241\201\242\201\243\306\307\201\244&\"\210\300\201\245\302\303\201\245\201\246\201\247\306\307\201\250&\"\210\300\201\251\302\303\201\251\201\252\201\253\306\307\201\254&\"\210\300\201\255\302\303\201\255\201\256\201\257\306\307\201\260&\"\210\300\201\261\302\303\201\261\201\262\201\263\306\307\201\264&\"\210\300\201\265\302\303\201\265\201\266\201\267\306\307\201\270&\"\210\300\201\271\302\303\201\271\201\272\201\273\306\307\201\274&\"\210\300\201\275\302\303\201\275\201\276\201\277\306\307\201\300&\"\210\300\201\301\302\303\201\301\201\302\201\303\306\307\201\304&\"\210\300\201\305\302\303\201\305\201\306\201\307\306\307\201\310&\"\210\300\201\311\302\303\201\311\201\312\201\313\306\307\201\314&\"\210\300\201\315\302\303\201\315\201\316\201\317\306\307\201\320&\"\210\300\201\321\302\303\201\321\201\322\201\323\306\307\201\324&\"\210\300\201\325\302\303\201\325\201\326\201\327\306\307\201\330&\"\210\300\201\331\302\303\201\331\201\332\201\333\306\307\201\334&\"\210\300\201\335\302\303\201\335\201\336\201\337\306\307\201\340&\"\210\300\201\341\302\303\201\341\201\342\201\343\306\307\201\344&\"\210\300\201\345\302\303\201\345\201\346\201\347\306\307\201\350&\"\210\300\201\351\302\303\201\351\201\352\201\353\306\307\201\354&\"\210\300\201\355\302\303\201\355\201\356\201\357\306\307\201\360&\"\210\300\201\361\302\303\201\361\201\362\201\363\306\307\201\364&\"\210\300\201\365\302\303\201\365\201\366\201\367\306\307\201\370&\"\210\300\201\371\302\303\201\371\201\372\201\373\306\307\201\374&\"\210\300\201\375\302\303\201\375\201\376\201\377\306\307\201&\"\210\300\201\302\303\201\201\201\306\307\201&\"\210\300\201\302\303\201\201\201\306\307\201&\"\210\300\201 \302\303\201 \201\n\201 \306\307\201\f&\"\210\300\201 \302\303\201 \201\201\306\307\201&\"\210\300\201\302\303\201\201\201\306\307\201&\"\210\300\201\302\303\201\201\201\306\307\201&\"\210\300\201\302\303\201\201\201\306\307\201&\"\210\300\201\302\303\201\201\201\306\307\201 &\"\210\300\201!\302\303\201!\201\"\201#\306\307\201$&\"\210\300\201%\302\303\201%\201&\201'\306\307\201(&\"\210\300\201)\302\303\201)\201*\201+\306\307\201,&\"\210\300\201-\302\303\201-\201.\201/\306\307\2010&\"\210\300\2011\302\303\2011\2012\2013\306\307\2014&\"\210\300\2015\302\303\2015\2016\2017\306\307\2018&\"\210\300\2019\302\303\2019\201:\201;\306\307\201<&\"\210\300\201=\302\303\201=\201>\201?\306\307\201@&\"\210\300\201A\302\303\201A\201B\201C\306\307\201D&\"\210\300\201E\302\303\201E\201F\201G\306\307\201H&\"\210\300\201I\302\303\201I\201J\201K\306\307\201L&\"\210\300\201M\302\303\201M\201N\201O\306\307\201P&\"\210\300\201Q\302\303\201Q\201R\201S\306\307\201T&\"\210\300\201U\302\303\201U\201V\201W\306\307\201X&\"\210\300\201Y\302\303\201Y\201Z\201[\306\307\201\\&\"\210\300\201]\302\303\201]\201^\201_\306\307\201`&\"\210\300\201a\302\303\201a\201b\201c\306\307\201d&\"\210\300\201e\302\303\201e\201f\201g\306\307\201h&\"\210\300\201i\302\303\201i\201j\201k\306\307\201l&\"\210\300\201m\302\303\201m\201n\201o\306\307\201p&\"\210\300\201q\302\303\201q\201r\201s\306\307\201t&\"\210\300\201u\302\303\201u\201v\201w\306\307\201x&\"\210\300\201y\302\303\201y\201z\201{\306\307\201|&\"\210\300\201}\302\303\201}\201~\201\306\307\201\200&\"\210\201\201\201\202!\207" [ert-set-test indent-1 record ert-test "An indentation test named `indent-1'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defun foo ()\n t)"] 3] nil :passed (sly contrib indentation-tests) indent-2 "An indentation test named `indent-2'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment nil) (sly-lisp-lambda-list-keyword-alignment nil)) "(defun foo (foo &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-3 "An indentation test named `indent-3'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment nil)) "(defun foo (foo &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-4 "An indentation test named `indent-4'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment nil) (sly-lisp-lambda-list-keyword-alignment t)) "(defun foo (foo &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-5 "An indentation test named `indent-5'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defun foo (foo &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-6 "An indentation test named `indent-6'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment nil) (sly-lisp-lambda-list-keyword-alignment nil)) "(defmacro foo ((foo &optional opt1\n opt2\n &rest rest))\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-7 "An indentation test named `indent-7'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment nil)) "(defmacro foo ((foo &optional opt1\n opt2\n &rest rest))\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-8 "An indentation test named `indent-8'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment nil) (sly-lisp-lambda-list-keyword-alignment t)) "(defmacro foo ((foo &optional opt1\n opt2\n &rest rest))\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-9 "An indentation test named `indent-9'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defmacro foo ((foo &optional opt1\n opt2\n &rest rest))\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-10 "An indentation test named `indent-10'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(let ((x y)\n (foo #-foo (no-foo)\n #+foo (yes-foo))\n (bar #-bar\n (no-bar)\n #+bar\n (yes-bar)))\n (list foo bar\n x))"] 3] (sly contrib indentation-tests) indent-11 "An indentation test named `indent-11'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t)) "(loop for i from 0 below 2\n for j from 0 below 2\n when foo\n do (fubar)\n (bar)\n (moo)\n and collect cash\n into honduras\n else do ;; this is the body of the first else\n ;; the body is ...\n (indented to the above comment)\n (ZMACS gets this wrong)\n and do this\n and do that\n and when foo\n do the-other\n and cry\n when this-is-a-short-condition do\n (body code of the when)\n when here's something I used to botch do (here is a body)\n (rest of body indented same)\n do\n (exdented loop body)\n (I'm not sure I like this but it's compatible)\n when funny-predicate do ;; Here's a comment\n (body filled to comment))"] 3] (sly contrib indentation-tests) indent-12 "An indentation test named `indent-12'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defun foo (x)\n (tagbody\n foo\n (bar)\n baz\n (when (losing)\n (with-big-loser\n (yow)\n ((lambda ()\n foo)\n big)))\n (flet ((foo (bar baz zap)\n (zip))\n (zot ()\n quux))\n (do ()\n ((lose)\n (foo 1))\n (quux)\n foo\n (lose))\n (cond ((x)\n (win 1 2\n (foo)))\n (t\n (lose\n 3))))))"] 3] (sly contrib indentation-tests) indent-13 "An indentation test named `indent-13'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(if* (eq t nil)\n then ()\n ()\n elseif (dsf)\nthenret x\n else (balbkj)\n (sdf))"] 3] (sly contrib indentation-tests) indent-14 "An indentation test named `indent-14'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(list foo #+foo (foo)\n #-foo (no-foo))"] 3] (sly contrib indentation-tests) indent-15 "An indentation test named `indent-15'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t)) "(loop for x in foo1\n for y in quux1\n )"] 3] (sly contrib indentation-tests) indent-16 "An indentation test named `indent-16'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil)) "(loop for x in foo1\n for y in quux1\n )"] 3] (sly contrib indentation-tests) indent-17 "An indentation test named `indent-17'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil) (sly-lisp-loop-indent-forms-like-keywords t)) "(loop for x in foo\n for y in quux\n finally (foo)\n (fo)\n (zoo)\n do\n (print x)\n (print y)\n (print 'ok!))"] 3] (sly contrib indentation-tests) indent-18 "An indentation test named `indent-18'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil) (sly-lisp-loop-indent-forms-like-keywords nil)) "(loop for x in foo\n for y in quux\n finally (foo)\n (fo)\n (zoo)\n do\n (print x)\n (print y)\n (print 'ok!))"] 3] (sly contrib indentation-tests) indent-19 "An indentation test named `indent-19'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t) (sly-lisp-loop-indent-forms-like-keywords nil)) "(loop for x in foo\n for y in quux\n finally (foo)\n (fo)\n (zoo)\n do\n (print x)\n (print y)\n (print 'ok!))"] 3] (sly contrib indentation-tests) indent-20 "An indentation test named `indent-20'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil) (sly-lisp-loop-indent-forms-like-keywords nil)) "(loop for f in files\n collect (open f\n :direction :output)\n do (foo) (bar)\n (quux))"] 3] (sly contrib indentation-tests) indent-21 "An indentation test named `indent-21'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t)) "(loop for f in files\n collect (open f\n :direction :output)\n do (foo) (bar)\n (quux))"] 3] (sly contrib indentation-tests) indent-22 "An indentation test named `indent-22'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defsetf foo bar\n \"the doc string\")"] 3] (sly contrib indentation-tests) indent-23 "An indentation test named `indent-23'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defsetf foo\n bar\n \"the doc string\")"] 3] (sly contrib indentation-tests) indent-24 "An indentation test named `indent-24'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t)) "(defsetf foo (x y &optional a\n z)\n (a b c)\n stuff)"] 3] (sly contrib indentation-tests) indent-25 "An indentation test named `indent-25'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-align-keywords-in-calls t)) "(make-instance 'foo :bar t :quux t\n :zot t)"] 3] (sly contrib indentation-tests) indent-26 "An indentation test named `indent-26'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-align-keywords-in-calls nil)) "(make-instance 'foo :bar t :quux t\n :zot t)"] 3] (sly contrib indentation-tests) indent-27 "An indentation test named `indent-27'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-indentation nil)) "(defun example (a b &optional o1 o2\n o3 o4\n &rest r\n &key k1 k2\n k3 k4)\n 'hello)"] 3] (sly contrib indentation-tests) indent-28 "An indentation test named `indent-28'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(destructuring-bind (foo &optional x\n y\n &key bar\n quux)\n foo\n body)"] 3] (sly contrib indentation-tests) indent-29 "An indentation test named `indent-29'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(named-lambda foo\n (x &optional y\n z\n &rest more)\n body)"] 3] (sly contrib indentation-tests) indent-30 "An indentation test named `indent-30'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(foo fii\n (or x\n y) t\n bar)"] 3] (sly contrib indentation-tests) indent-31 "An indentation test named `indent-31'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(foo\n (bar))"] 3] (sly contrib indentation-tests) indent-32 "An indentation test named `indent-32'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((comment-indent-function (lambda nil nil)) (comment-column nil)) "(unknown (;; KLUDGE: comment-indent hackery to get\n ;; the comment right. Otherwise we get a\n ;; space before the first ;.\n bar quux\n zot)\n (#|fii|#\n zot)\n (\n quux))"] 3] (sly contrib indentation-tests) indent-33 "An indentation test named `indent-33'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(complex-indent.1 ((x z\n f\n ((fox foo\n foo))\n :note (ding bar quux\n zot)\n :wait (this! is\n a funcall))\n ;; Not 100% sure this should not be a step left.\n (abbb)\n (abb))\n (bodyform)\n (another))"] 3] (sly contrib indentation-tests) indent-34 "An indentation test named `indent-34'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(complex-indent.2 (bar quux\n zot)\n (a b\n c d)\n (form1)\n (form2))"] 3] (sly contrib indentation-tests) indent-35 "An indentation test named `indent-35'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(complex-indent.3 (:wait fii\n (this is\n a funcall))\n (bodyform)\n (another))"] 3] (sly contrib indentation-tests) indent-36 "An indentation test named `indent-36'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defmacro foo (body)\n `(let (,@(stuff)\n ,(more-stuff)\n ,(even-more)\n (foo foo))\n ,@bofy))"] 3] (sly contrib indentation-tests) indent-37 "An indentation test named `indent-37'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defun foo ()\n `(list foo bar\n ,@(quux fo\n foo)))"] 3] (sly contrib indentation-tests) indent-38 "An indentation test named `indent-38'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defmacro foofoo (body)\n `(foo\n `(let (,',@,(stuff)\n ,(more-stuff)\n ,(even-more)\n (foo foo))\n ,@bofy)))"] 3] (sly contrib indentation-tests) indent-39 "An indentation test named `indent-39'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defstruct (foo (:constructor make-foo (&optional bar\n quux\n &key zot\n fii)))\n bar\n quux\n zot\n fii)"] 3] (sly contrib indentation-tests) indent-40 "An indentation test named `indent-40'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defmethod foo :around (zot &key x\n y)\n (list zot))"] 3] (sly contrib indentation-tests) indent-41 "An indentation test named `indent-41'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(progn\n (defmethod foo :around (fii &key x\n y)\n (list fii)))"] 3] (sly contrib indentation-tests) indent-42 "An indentation test named `indent-42'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(progn\n (defgeneric foo (x y &optional a\n b)\n (:method :around (a b &optional x\n y)\n (list a b x y))))"] 3] (sly contrib indentation-tests) indent-43 "An indentation test named `indent-43'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defgeneric foo (x &optional a b)\n (:method (x y &optional a\n b)\n (list x y a b)))"] 3] (sly contrib indentation-tests) indent-44 "An indentation test named `indent-44'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(let (definer\n foo\n bar\n quux)\n ...)"] 3] (sly contrib indentation-tests) indent-45 "An indentation test named `indent-45'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(let (definition\n foo\n bar\n quux)\n ...)"] 3] (sly contrib indentation-tests) indent-46 "An indentation test named `indent-46'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(let (foo bar\n quux)\n ...)"] 3] (sly contrib indentation-tests) indent-47 "An indentation test named `indent-47'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(with-compilation-unit\n (:foo t\n :quux nil)\n ...)"] 3] (sly contrib indentation-tests) indent-48 "An indentation test named `indent-48'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(cond\n ((> x y) (foo)\n ;; This isn't ideal -- I at least would align with (FOO here.\n (bar) (quux)\n (zot))\n (qux (foo)\n (bar)\n (zot))\n (zot\n (foo)\n (foo2))\n (t (foo)\n (bar)))"] 3] (sly contrib indentation-tests) indent-49 "An indentation test named `indent-49'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(cond ((> x y) (foo)\n ;; This isn't ideal -- I at least would align with (FOO here.\n (bar))\n (qux (foo)\n (bar))\n (zot\n (foo))\n (t (foo)\n (bar)))"] 3] (sly contrib indentation-tests) indent-50 "An indentation test named `indent-50'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment nil) (sly-lisp-lambda-list-keyword-alignment nil)) "(defun foo (x &optional opt1\n opt2\n &rest rest\n &allow-other-keys)\n (list opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-51 "An indentation test named `indent-51'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment nil)) "(defun foo (x &optional opt1\n opt2\n &rest rest\n &allow-other-keys)\n (list opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-52 "An indentation test named `indent-52'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment nil) (sly-lisp-lambda-list-keyword-alignment t)) "(defun foo (x &optional opt1\n opt2\n &rest rest\n &allow-other-keys)\n (list opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-53 "An indentation test named `indent-53'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defun foo (x &optional opt1\n opt2\n &rest rest\n &allow-other-keys)\n (list opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-54 "An indentation test named `indent-54'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(loop (foo)\n ;; comment\n (bar)\n (quux))"] 3] (sly contrib indentation-tests) indent-55 "An indentation test named `indent-55'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(loop ;; comment\n (foo)\n (bar))"] 3] (sly contrib indentation-tests) indent-56 "An indentation test named `indent-56'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(loop\n (foo)\n ;; comment\n (bar))"] 3] (sly contrib indentation-tests) indent-57 "An indentation test named `indent-57'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(loop\n ;; comment\n (foo)\n (bar))"] 3] (sly contrib indentation-tests) indent-58 "An indentation test named `indent-58'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t)) "(loop ;; comment at toplevel of the loop\n with foo = t\n do (foo foo)\n (foo))"] 3] (sly contrib indentation-tests) indent-59 "An indentation test named `indent-59'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil)) "(loop ;; comment at toplevel of the loop\n with foo = t\n do (foo foo)\n (foo))"] 3] (sly contrib indentation-tests) indent-60 "An indentation test named `indent-60'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t) (sly-indentation--test-function indent-region)) "(loop\n ;; comment at toplevel of the loop\n with foo = t\n do (foo foo))"] 3] (sly contrib indentation-tests) indent-61 "An indentation test named `indent-61'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil)) "(loop\n ;; comment at toplevel of the loop\n with foo = t\n do (foo foo)\n (foo))"] 3] (sly contrib indentation-tests) indent-62 "An indentation test named `indent-62'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t)) "(loop with foo = t\n do (foo foo)\n ;; comment inside clause\n (bar))"] 3] (sly contrib indentation-tests) indent-63 "An indentation test named `indent-63'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil)) "(loop with foo = t\n do (foo foo)\n ;; comment inside clause\n (bar))"] 3] (sly contrib indentation-tests) indent-64 "An indentation test named `indent-64'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defmethod (setf foo) :around (zot &key x\n y)\n (list zot))"] 3] (sly contrib indentation-tests) indent-65 "An indentation test named `indent-65'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defmethod (setf foo)\n :around (zot &key x y)\n (list zot))"] 3] (sly contrib indentation-tests) indent-66 "An indentation test named `indent-66'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(define-condition\n foo\n (bar quux\n zot)\n ()\n (:report \"foo\"))"] 3] (sly contrib indentation-tests) indent-67 "An indentation test named `indent-67'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defclass\n foo\n (bar quxx\n xoo)\n ()\n (:metaclass foo-class))"] 3] (sly contrib indentation-tests) indent-68 "An indentation test named `indent-68'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil) (sly-indentation--test-function indent-region)) "(progn\n (loop\n repeat 1000\n do ;; This is the\n ;; beginning\n (foo))\n (loop repeat 100 ;; This too\n ;; is a beginning\n do (foo)))"] 3] (sly contrib indentation-tests) indent-69 "An indentation test named `indent-69'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t)) "(progn\n (loop\n repeat 1000\n do ;; This is the\n ;; beginning\n (foo))\n (loop repeat 100 ;; This too\n ;; is a beginning\n do (foo)))"] 3] (sly contrib indentation-tests) indent-70 "An indentation test named `indent-70'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses nil)) "(progn\n (loop\n :repeat 1000\n #:do ;; This is the\n ;; beginning\n (foo))\n (loop #:repeat 100 ;; This too\n ;; is a beginning\n :do (foo)))"] 3] (sly contrib indentation-tests) indent-71 "An indentation test named `indent-71'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-subclauses t)) "(progn\n (loop\n #:repeat 1000\n #:do ;; This is the\n ;; beginning\n (foo))\n (loop :repeat 100 ;; This too\n ;; is a beginning\n #:do (foo)))"] 3] (sly contrib indentation-tests) indent-72 "An indentation test named `indent-72'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment nil) (sly-lisp-lambda-list-keyword-alignment nil)) "(flet ((foo (foo &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest)))\n ...)"] 3] (sly contrib indentation-tests) indent-73 "An indentation test named `indent-73'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment nil)) "(flet ((foo (foo &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest)))\n ...)"] 3] (sly contrib indentation-tests) indent-74 "An indentation test named `indent-74'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment nil) (sly-lisp-lambda-list-keyword-alignment t)) "(flet ((foo (foo &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest)))\n ...)"] 3] (sly contrib indentation-tests) indent-75 "An indentation test named `indent-75'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(flet ((foo (foo &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest)))\n ...)"] 3] (sly contrib indentation-tests) indent-76 "An indentation test named `indent-76'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(macrolet ((foo\n (foo (&optional xopt1\n xopt2\n &rest xrest)\n &optional opt1\n opt2\n &rest rest)\n (list foo opt1 opt2\n rest)))\n ...)"] 3] (sly contrib indentation-tests) indent-77 "An indentation test named `indent-77'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-align-keywords-in-calls t)) "(foo *foo*\n :bar t\n :quux #+quux t\n #-quux nil\n :zot t)"] 3] (sly contrib indentation-tests) indent-78 "An indentation test named `indent-78'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-align-keywords-in-calls t)) "(foo *foo* :fii t\n :bar t\n :quux #+quux t\n #+zot nil\n :zot t)"] 3] (sly contrib indentation-tests) indent-79 "An indentation test named `indent-79'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(foo #+quux :quux #+quux t\n #-quux :zoo #-quux t)"] 3] (sly contrib indentation-tests) indent-80 "An indentation test named `indent-80'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-align-keywords-in-calls t)) "(foo *foo* :fii t\n :bar t\n #+quux :quux #+quux t\n :zot t)"] 3] (sly contrib indentation-tests) indent-81 "An indentation test named `indent-81'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-align-keywords-in-calls t)) "(foo *foo* :fii t\n :bar t\n #+quux #+quux :quux t\n :zot t)"] 3] (sly contrib indentation-tests) indent-82 "An indentation test named `indent-82'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-align-keywords-in-calls t)) "(foo *foo* :fii t\n :bar t\n #+quux\n :quux #+quux t\n :zot t)"] 3] (sly contrib indentation-tests) indent-83 "An indentation test named `indent-83'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-align-keywords-in-calls t)) "(foo *foo* :fii t\n :bar t\n #+quux #+quux\n :quux t\n :zot t)"] 3] (sly contrib indentation-tests) indent-84 "An indentation test named `indent-84'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(and ;; Foo\n (something)\n ;; Quux\n (more))"] 3] (sly contrib indentation-tests) indent-85 "An indentation test named `indent-85'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(and ;; Foo\n (something)\n ;; Quux\n (more))"] 3] (sly contrib indentation-tests) indent-86 "An indentation test named `indent-86'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(foo (\n bar quux\n zor))"] 3] (sly contrib indentation-tests) indent-87 "An indentation test named `indent-87'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-lambda-list-keyword-parameter-alignment t) (sly-lisp-lambda-list-keyword-alignment t)) "(defmacro foo ((foo &optional (opt1 (or (this)\n (that)))\n (opt2 (the-default)\n opt2-p)\n (opt3\n (the-default (foo)\n (bar)))\n &rest rest))\n (list foo opt1 opt2\n rest))"] 3] (sly contrib indentation-tests) indent-88 "An indentation test named `indent-88'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(defstruct (foo\n (:constructor make-foo\n (bar &aux (quux (quux-from-bar bar\n :for 'foo)))))\n bar\n quux)"] 3] (sly contrib indentation-tests) indent-89 "An indentation test named `indent-89'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(define-tentative-thing foo\n (bar)\n quux)"] 3] (sly contrib indentation-tests) indent-90 "An indentation test named `indent-90'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 nil "(define-tentative-thing foo\n bar\n quux)"] 3] (sly contrib indentation-tests) indent-91 "An indentation test named `indent-91'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-body-forms-relative-to-loop-start t)) "(loop for foo in bar\n do\n (progn foo\n bar\n baz))"] 3] (sly contrib indentation-tests) indent-92 "An indentation test named `indent-92'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-indent-body-forms-relative-to-loop-start t) (sly-lisp-loop-clauses-indentation 4)) "(loop\n for foo in bar\n do\n (progn foo\n bar\n baz))"] 3] (sly contrib indentation-tests) indent-93 "An indentation test named `indent-93'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-clauses-indentation 4)) "(loop\n for foo in bar\n doing\n (progn foo\n bar\n baz))"] 3] (sly contrib indentation-tests) indent-94 "An indentation test named `indent-94'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-clauses-indentation 4) (sly-lisp-loop-body-forms-indentation 1)) "(loop\n for foo in bar\n doing\n (list foo\n bar\n baz))"] 3] (sly contrib indentation-tests) indent-95 "An indentation test named `indent-95'" #[0 "\300\301\302\"\207" [sly-indentation-test--1 ((sly-lisp-loop-body-forms-indentation 1) (sly-lisp-loop-indent-body-forms-relative-to-loop-start t)) "(loop\n for foo in bar\n do\n (list foo\n bar\n baz))"] 3] (sly contrib indentation-tests) provide sly-indentation-tests] 10)