How Lem works on each implementation
Lem has a test suite that uses rove a great package to test systems, this page is inteded to show the progress of each implementation. SBCL should be the default one, with all test green.
The changes are in Lem main branch (for more in-depth information, https://github.com/lem-project/lem/pull/686 )
With the recent changes using qlot, for now, only SBCL is supported on master
Progress
98%
| Test | Description | Result |
|---|---|---|
| (copy-ring) | Expect (EQ LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::RING2) to be false. | OK |
| (copy-ring) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) | |
| (LEM/COMMON/RING:RI… | OK | |
| (copy-ring) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1) | |
| (LEM/COMMON/RING:RI… | OK |
| Test | Description | Result |
|---|---|---|
| (ring-push) | Expect (STRING= | |
| (WITH-OUTPUT-TO-STRING (LEM-TESTS/COMMON/RING::OUT) | ||
| (LOOP :FOR … | OK |
| Test | Description | Result |
|---|---|---|
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be true. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| Test | Description | Result |
|---|---|---|
| (ring-length) | Expect (= 0 (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to be true. | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK |
| Test | Description | Result |
|---|---|---|
| (ring-ref) | Expect (EQL 5 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (ring-ref) | Expect (EQL 4 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1)) to be true. | OK |
| (ring-ref) | Expect (EQL 3 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 2)) to be true. | OK |
| (ring-ref) | Expect (EQL 2 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (ring-ref) | Expect (EQL 1 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 4)) to be true. | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING -1) to signal INVALID-INDEX-ERROR. | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (EQUAL 100 (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) 100)) to be true. | OK |
| (ring-ref) | Expect (EQUAL 100 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (ring-ref) | Expect (EQUAL “xx” | |
| (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3) “xx”)) t… | OK | |
| (ring-ref) | Expect (EQUAL “xx” (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (ring-ref) | Expect (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 5) | |
| ‘LEM-TESTS/COMMON/R… | OK |
| Test | Description | Result |
|---|---|---|
| (simple-test) | Expect (NULL (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test) | Expect (EQUAL “foo” | |
| (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) t… | OK | |
| (simple-test) | Expect (EQUAL “bar” | |
| (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) t… | OK | |
| (simple-test previous-history) | Expect (EQUAL ‘(“bar” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:PR… | OK | |
| (simple-test previous-history) | Expect (EQUAL ‘(“foo” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:PR… | OK | |
| (simple-test previous-history) | Expect (NULL (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test next-history) | Expect (EQUAL ‘(“bar” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:NE… | OK | |
| (simple-test next-history) | Expect (NULL (LEM/COMMON/HISTORY:NEXT-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (appending-if-empty) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK |
| Test | Description | Result |
|---|---|---|
| (before-inserting) | Expect (EQUAL “ba” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS… | OK | |
| (before-inserting) | Expect (EQUAL “cba” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK |
| Test | Description | Result |
|---|---|---|
| NIL | no error | OK |
| Test | Description | Result |
|---|---|---|
| (rotate) | Expect (EQUAL “a” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (rotate) | Expect (EQUAL “b” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (rotate) | Expect (EQUAL “b” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (rotate) | Expect (EQUAL “a” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK |
| Test | Description | Result |
|---|---|---|
| (internal-option) | Expect (EQUAL ‘(“foo” (:TEST)) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/KILL… | OK | |
| (internal-option) | Expect (EQUAL ‘(“foobar” (:TEST :TEST2)) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/C… | OK | |
| (internal-option) | Expect (EQUAL ‘(“bazfoobar” (:TEST3 :TEST :TEST2)) | |
| (MULTIPLE-VALUE-LIST | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (peek-killring-item-when-empty) | Expect (NULL | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/COMMON/KILLRING::… | OK |
| Test | Description | Result |
|---|---|---|
| (timer-name-tests) | Expect (STRING= “TESTING-TIMER” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (timer-name-tests) | Expect (STRING= “TESTING-TIMER” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (timer-name-tests) | Expect (STRING= “HELLO” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (timer-name-tests) | Expect (STRING= “foo” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (simple-timer-test) | Expect (LEM-MAILBOX:RECEIVE-MESSAGE LEM-TESTS/TIMER::MAILBOX :TIMEOUT 0.01) to be true. | OK |
| (simple-timer-test) | Expect LEM-TESTS/TIMER::TIMEOUT to be true. | OK |
| (simple-timer-test) | Expect (LEM-MAILBOX:RECEIVE-MESSAGE LEM-TESTS/TIMER::MAILBOX :TIMEOUT 0.01) to be false. | OK |
| (simple-timer-test) | Expect (LEM/COMMON/TIMER:TIMER-EXPIRED-P LEM/COMMON/TIMER:TIMER) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (NULL (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (= 10 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (= 8 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (= 0 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (= -8 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (eval-tests return evaluated value) | Expect (EQUAL “(1 . 2)” | |
| (MICROS/LSP-API:EVAL-RESULT-VALUE | ||
| LEM-LANGUA… | OK | |
| (eval-tests return evaluated value) | Expect (NULL | |
| (MICROS/LSP-API:EVAL-RESULT-ERROR | ||
| LEM-LANGUAGE-SERVER/MICROS-TESTS:… | OK | |
| (eval-tests reader error) | Expect (NULL | |
| (MICROS/LSP-API:EVAL-RESULT-VALUE | ||
| LEM-LANGUAGE-SERVER/MICROS-TESTS:… | OK | |
| (eval-tests reader error) | Expect (STRINGP | |
| (MICROS/LSP-API:EVAL-RESULT-ERROR | ||
| LEM-LANGUAGE-SERVER/MICROS-TES… | OK |
| Test | Description | Result |
|---|---|---|
| (initialize) | Expect (LEM-LSP-BASE/CONVERTER:CONVERT-FROM-JSON | |
| LEM-TESTS/LANGUAGE-SERVER/TESTS::RESPONS… | OK |
| Test | Description | Result |
|---|---|---|
| (shutdown) | shutdown without initialize-request results in uninitialized-error | OK |
| (shutdown) | Expect (LEM-LANGUAGE-SERVER:SERVER-SHUTDOWN-REQUEST-RECEIVED-P | |
| (LEM-LANGUAGE-SERVER:CURRE… | OK |
| Test | Description | Result |
|---|---|---|
| (exit) | Expect (EQL 0 | |
| (LEM-LANGUAGE-SERVER:MOCK-SERVER-EXIT-STATUS | ||
| (LEM-LANGUAGE… | OK | |
| (exit) | Expect (EQL 1 | |
| (LEM-LANGUAGE-SERVER:MOCK-SERVER-EXIT-STATUS | ||
| (LEM-LANGUAGE… | OK |
| Test | Description | Result |
|---|---|---|
| (textdocument/didopen) | Expect (EQUAL “file:///hoge/piyo/foo.lisp” | |
| (LEM-LANGUAGE-SERVER:TEXT-DOCUMENT-URI | ||
| … | OK | |
| (textdocument/didopen) | Expect (EQUAL “lisp” | |
| (LEM-LANGUAGE-SERVER:TEXT-DOCUMENT-LANGUAGE-ID | ||
| … | OK | |
| (textdocument/didopen) | Expect (EQUAL 1 | |
| (LEM-LANGUAGE-SERVER:TEXT-DOCUMENT-VERSION | ||
| LEM-TESTS… | OK | |
| (textdocument/didopen) | Expect (LEM-BASE:BUFFER-TEMPORARY-P LEM-TESTS/LANGUAGE-SERVER/TESTS::BUFFER) to be true. | OK |
| (textdocument/didopen) | Expect (EQ LEM-LISP-SYNTAX.SYNTAX-TABLE:SYNTAX-TABLE | |
| (LEM-BASE:BUFFER-SYNTAX-TABLE | ||
| … | OK | |
| (textdocument/didopen) | Expect (EQUAL “(cons 1 2)” | |
| (LEM-BASE:BUFFER-TEXT LEM-TESTS/LANGUAGE-SERVER/TESTS::B… | OK |
| Test | Description | Result |
|---|---|---|
| (textdocument/didchange Change the whole document) | Expect (EQUAL “x” (LEM-TESTS/LANGUAGE-SERVER/TESTS::GET-TEXT)) to be true. | OK |
| (textdocument/didchange insert) | Expect (EQUAL | |
| (LEM-TESTS/LANGUAGE-SERVER/UTILS:LINES “abchoge” “xyzpiyo” “fuga”) | ||
| … | OK | |
| (textdocument/didchange delete) | Expect (EQUAL (LEM-TESTS/LANGUAGE-SERVER/UTILS:LINES “hoge” “yo” “fuga”) | |
| (LEM-TESTS… | OK | |
| (textdocument/didchange delete) | Expect (EQUAL (LEM-TESTS/LANGUAGE-SERVER/UTILS:LINES “hoge” “fuga”) | |
| (LEM-TESTS/LANG… | OK |
| Test | Description | Result |
|---|---|---|
| (textdocument/didclose) | Expect (NULL | |
| (LEM-LANGUAGE-SERVER:FIND-TEXT-DOCUMENT | ||
| (MAKE-INSTANCE ‘LEM-LSP-BAS… | OK |
| Test | Description | Result |
|---|---|---|
| (cond-1) | COND-1 | OK |
| Test | Description | Result |
|---|---|---|
| (defclass-1) | DEFCLASS-1 | OK |
| Test | Description | Result |
|---|---|---|
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:3:(defun same-line-p (point1 point2) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:9:(defun first-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:14:(defun last-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:19:(defun start-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:23:(defun end-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:28:(defun start-buffer-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:32:(defun end-buffer-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:36:(defun %move-to-position (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:44:(defun move-point (point new-point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:53:(defun line-start (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:58:(defun line-end (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:64:(defun buffer-start (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:68:(defun buffer-end (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:72:(defun line-offset (point n &opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:102:(declaim (inline %character-off… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:103:(defun %character-offset (point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:124:(defun character-offset (point n) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:134:(defun character-at (point &opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:145:(defun line-string (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:149:(defun text-property-at (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:160:(defun put-text-property (start… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:177:(defun remove-text-property (st… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:192:(defun next-single-property-cha… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:206:(defun previous-single-property… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:220:(defun insert-character (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:225:(defun insert-string (point str… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:242:(defun delete-character (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:253:(defun erase-buffer (&optional … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:260:(defun region-beginning (&optio… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:265:(defun region-end (&optional (b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:270:(defun %map-region (start end f… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:289:(defun map-region (start end fu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:296:(defun points-to-string (start-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:307:(defun count-characters (start-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:318:(defun delete-between-points (s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:327:(defun count-lines (start-point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:334:(defun apply-region-lines (star… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:347:(defun line-number-at-point (po… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:351:(defun point-column (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:358:(defun move-to-column (point co… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:379:(defun position-at-point (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:386:(defun move-to-position (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:397:(defun point-bytes (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:409:(defun move-to-bytes (point bytes) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:422:(defun move-to-line (point line… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:441:(defun check-marked () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:446:(defun set-current-mark (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:452:(defun blank-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:466:(defun skip-chars-internal (poi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:477:(defun skip-chars-forward (poin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:484:(defun skip-chars-backward (poi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:491:(defun invoke-save-excursion (f… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:504:(defun insert-buffer (point buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:513:(defun buffer-text (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:3:(defvar *inhibit-read-onl… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:6:(defvar *inhibit-modifica… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:9:(define-editor-variable b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:10:(define-editor-variable … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:12:(defun step-on-read-only… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:22:(defun check-read-only-a… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:31:(defmacro with-modify-bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:39:(defun line-next-n (line n) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:44:(defun shift-markers (po… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:104:(defun %insert-newline/… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:113:(defgeneric insert-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:135:(defun %insert-line-str… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:143:(defgeneric insert-stri… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:167:(defun %delete-line-bet… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:180:(defun %delete-line-eol… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:187:(defun %delete-line/poi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:203:(defparameter n nil) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:205:(defgeneric delete-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:233: | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:234:(declaim (inline call-b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:237:(defun call-before-chan… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:242:(defun call-after-chang… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:247:(defmacro insert/after-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:258:(defmacro delete/after-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:269:(defmethod insert-char/… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:280:(defmethod insert-strin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:291:(defmethod delete-char/… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:3:(defgeneric delete-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:5:(defclass buffer-li… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:11:(defvar *buffer-li… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:13:(defun buffer-list… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:16:(defun call-with-c… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:22:(defmacro with-cur… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:3:(defparameter +primordial-buffer… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:5:(defclass buffer () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:88:(defclass text-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:91:(defmethod buffer-mark ((buffer… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:94:(defmethod buffer-mark-p ((buff… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:99:(defmethod initialize-instance … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:103:(setf (documentation ‘buffer-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:104:(setf (documentation ‘buffer-m… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:105:(setf (documentation ‘buffer-s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:106:(setf (documentation ‘buffer-e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:108:(defvar current-buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:110:(defun primordial-buffer () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:113:(defun current-buffer () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:120:(defun (setf current-buffer) (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:125:(defparameter undo-modes ‘(:… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:126:(defvar undo-mode :edit) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:128:(defun last-edit-history (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:133:(defun make-buffer-start-point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:136:(defun make-buffer-end-point (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:139:(defgeneric make-buffer-point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:143:(defun make-buffer (name &key … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:172:(defun bufferp (x) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:176:(defun buffer-modified-p (&opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:180:(defun buffer-enable-undo-p (&… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:184:(defun buffer-enable-undo (buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:189:(defun buffer-disable-undo (bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:196:(defmethod print-object ((buff… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:202:(defun %buffer-clear-keep-binf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:209:(defun buffer-free (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:214:(defun deleted-buffer-p (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:217:(defun buffer-name (&optional … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:221:(defun buffer-filename (&optio… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:226:(defun (setf buffer-filename) … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:230:(defun buffer-directory (&opti… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:235:(defun (setf buffer-directory)… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:242:(defun buffer-unmark (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:246:(defun buffer-mark-cancel (buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:249:(defun buffer-attributes (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:259:(defun check-read-only-buffer … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:263:(defun buffer-modify (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:271:(defun push-undo-stack (buffer… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:274:(defun push-redo-stack (buffer… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:277:(defun push-undo (buffer edit) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:288:(defun buffer-rename (buffer n… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:296:(defun buffer-undo-1 (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:305:(defun buffer-undo (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:319:(defun buffer-redo-1 (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:327:(defun buffer-redo (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:340:(defun buffer-undo-boundary (&… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:344:(defun buffer-value (buffer na… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:353:(defun (setf buffer-value) (va… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:360:(defun buffer-unbound (buffer … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:364:(defun clear-buffer-variables … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:368:(defun call-with-buffer-point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:374:(defmacro with-buffer-point ((… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:3:(define-editor-variable kill-bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:5:(defun buffer-list () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:9:(defun set-buffer-list (buffer-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:13:(defun add-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:18:(defun any-modified-buffer-p () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:24:(defun get-buffer (buffer-or-n… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:35:(defun unique-buffer-name (name) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:44:(defmethod delete-buffer-using… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:49:(defun delete-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:55:(defun get-next-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:61:(defun get-previous-buffer (bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:69:(defun unbury-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:77:(defun bury-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:86:(defun get-file-buffer (filename) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:3:(defmacro debug-assert… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:7:(defun check-line-corr… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:31:(defun check-lines-co… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:39:(defun check-buffer-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:50:(defun check-buffer-c… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:69:(defun check-all-buff… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:3:(eval-when (:compile-toplevel… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:52:(defmacro %eastasian-code-p … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:59:(defun eastasian-code-p (code) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:3:(defun make-edit (kind linum charp… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:6:(defun %apply-edit (point kind lin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:23:(defun apply-inverse-edit (edit p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/editor-variables.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/editor-variables.lisp:3:(define-editor-variabl… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:3:(defclass encoding () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:8:(defclass internal-encoding (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:13:(defvar *encoding-collection… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:15:(defun register-encoding (sy… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:22:(defun unregister-encoding (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:25:(defun encoding (symbol end-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:32:(defun e+ (c) (+ #xe000 c)) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:34:(defun encoding-read-detect-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:79:(defgeneric encoding-read (e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:81:(defgeneric encoding-write (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:83:(defgeneric encoding-check (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:85:(defmethod encoding-check (e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:3:(define-condition editor-conditi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:6:(define-condition directory-does… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:13:(define-condition read-only-err… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:19:(define-condition editor-error … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:28:(defun editor-error (message &r… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:31:(defun scan-error () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:34:(define-condition editor-interr… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:3:(defun guess-host-name (file… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:12:(defun parse-filename (file… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:40:(defun expand-file-name (fi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:45:(defun tail-of-pathname (pa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:53:(defun probe-file% (x) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:63:(defun virtual-probe-file (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:68:(defun sort-files (pathname… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:73:(defun sort-files-with-meth… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:83:(defun directory-files (pat… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:90:(defun list-directory (dire… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:100:(defun file-size (pathname) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:110:(defun file-mtime (pathname) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:117:(defun copy-file-or-direct… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:133:(defparameter *virtual-fil… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:135:(defun open-virtual-file (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:153:(defmacro with-open-virtua… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:3:(defvar find-file-hook ‘()) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:5:(define-editor-variable before-sav… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:6:(define-editor-variable after-save… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:8:(defvar external-format-function… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:9:(defvar find-directory-function … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:10:(defvar default-external-format… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:12:(define-condition encoding-read-e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:20:(defun %encoding-read (encoding p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:46:(defun insert-file-contents (poin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:71:(defun find-file-buffer (filename… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:111:(defun write-to-file-1 (buffer f… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:115:(defun run-before-save-hooks (bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:119:(defun run-after-save-hooks (buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:123:(defun call-with-write-hook (buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:129:(defmacro with-write-hook (buffe… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:132:(defun write-to-file (buffer fil… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:136:(defun %write-region-to-file (en… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:152:(defun %%write-region-to-file (e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:168:(defun write-region-to-file (sta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:188:(defun file-write-date* (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:192:(defun update-changed-disk-date … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:196:(defun changed-disk-p (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:3:(defgeneric run-hooks (hooks &res… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:5:(defmethod run-hooks ((hooks list… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:9:(defmacro add-hook (place callbac… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:20:(defmacro remove-hook (place cal… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:3:(defvar icon-name-table (make-ha… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:4:(defvar icon-code-table (make-ha… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:5:(defvar icon-ext-table (make-has… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:7:(defstruct icon | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:12:(defun register-icon (name code &… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:18:(defun register-icon-ext (ext name) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:21:(defun icon-code-p (code) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:24:(defun icon-string (name) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:29:(defun icon-string-by-ext (ext) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:33:(defun icon-value (code key) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:38:(register-icon “folder” #x1f4c1) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:3:(define-editor-variable indent-t… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:4:(define-editor-variable calc-ind… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:5:(define-editor-variable indent-w… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:7:(defun back-to-indentation (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:11:(defun indent-line-1 (point col… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:46:(defun calc-indent-default (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:52:(defun indent-line (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:58:(defun indent-points (start end) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:64:(defun indent-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:68:(defun insert-string-and-indent… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:3:(defstruct (line (:constructor %ma… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:11:(defmethod print-object ((object … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:17:(defun make-line (prev next str) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:27:(defun make-empty-line () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:30:(defun line-alive-p (line) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:33:(defun line-char (line i) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:38:(defun line-length (line) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:41:(defun remove-elements (elements … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:56:(defun normalization-elements (el… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:75:(defun subseq-elements (elements … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:87:(defun offset-elements (elements n) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:91:(defun put-elements (elements sta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:96:(defun merge-plist (plist1 plist2) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:106:(defun line-merge (curr-line nex… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:119:(defun line-normalization-plist … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:123:(defun line-remove-property (lin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:127:(defun line-add-property (line s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:135:(defun line-clear-property (line… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:138:(defun line-search-property (lin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:145:(defun line-search-property-rang… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:155:(defun line-property-insert-pos … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:167:(defun line-property-insert-newl… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:193:(defun line-property-delete-pos … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:217:(defun line-property-delete-line… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:230:(defun line-string/attributes (l… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:234:(defun line-free (line) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:3:(defmacro save-excursion (&body … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:8:(defmacro with-point (bindings &… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:38:(defmacro with-buffer-read-only… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:47:(defvar interrupts-enabled t) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:48:(defvar interrupted nil) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:50:(defmacro %without-interrupts (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:56:(defmacro without-interrupts (&… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:67:(defun interrupt (&optional force) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:1:(in-package :lem-base)hread…hread.. | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:3:(defclass mark ().hread…hread…hre | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:11:(defmethod mark-cancel ((mark mark)) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:14:(defmethod mark-set-point ((mark … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/package.lisp:1:(defpackage :lem-basead… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:3:(defstruct pps-state | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:12:(defun parse-partia… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:147:(define-editor-var… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:149:(defmacro syntax-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:152:(flet ((cache-poin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:202:(defun pps-state-s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:205:(defun pps-state-c… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:208:(defun pps-state-s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:215:(defun in-string-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:219:(defun in-comment-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:223:(defun in-string-o… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:227:(defun maybe-begin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:232:(defun maybe-begin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:237:(defun maybe-begin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:3:(defclass point () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:34:(setf (documentation ‘point-buff… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:37:(setf (documentation ‘point-kind… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:40:(defun current-point () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:44:(defmethod print-object ((object… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:51:(defun pointp (x) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:55:(defun initialize-point-slot-values | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:68:(defun initialize-point (point k… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:73:(defun make-point (buffer linum … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:85:(defmethod copy-point-using-clas… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:96:(defun copy-point (point &option… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:104:(defun delete-point (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:115:(defun alive-point-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:119:(defun point-change-line (point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:136:(defun point-temporary-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:139:(defun %always-same-buffer (poi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:145:(defun %point= (point1 point2) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:151:(defun %point< (point1 point2) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:156:(defun point= (point &rest more… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:162:(defun point/= (point &rest mor… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:170:(defun point< (point &rest more… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:177:(defun point<= (point &rest mor… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:185:(defun point> (point &rest more… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:191:(defun point>= (point &rest mor… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:199:(defun point-min (point &rest m… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:207:(defun point-max (point &rest m… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:3:(defvar case-fold-search nil) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:5:(defun char-compare-function () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:10:(defun search-step (point first… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:31:(defun search-forward-endp-func… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:38:(defun search-backward-endp-fun… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:44:(defun search-with-case-fold-se… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:50:(defun search-forward (point st… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:72:(defun search-backward (point s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:102:(defun search-forward-regexp (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:143:(define-compiler-macro search-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:150:(defun search-backward-regexp … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:193:(define-compiler-macro search-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:200:(defun search-symbol (string n… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:215:(defun search-forward-symbol (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:234:(defun search-backward-symbol … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:257:(defun looking-at (point regex) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:271:(define-compiler-macro looking… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:276:(defun match-string-at (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:3:(defconstant +defaul… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:5:(defparameter *char-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:44:(defun control-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:47:(defun wide-char-p … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:54:(defun char-width (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:69:(defun string-width… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:76:(defun wide-index (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:3:(define-editor-variable b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:4:(define-editor-variable a… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:5:(define-editor-variable e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:7:(defparameter *global-syn… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:9:(defun enable-syntax-high… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:13:(defun current-syntax-pa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:16:(defclass syntax-parser () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:19:(defgeneric %syntax-scan… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:21:(defvar *recursive-synta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:23:(defun syntax-scan-regio… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:3:(flet ((%match (str1 str2 s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:56: | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:57:(let ((cache (make-hash-ta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:68:(defun syntax-escape-point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:78:(defun inline-line-comment… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:85:(defun %skip-comment-forwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:107:(defun %skip-block-commen… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:124:(defun %skip-comment-back… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:136:(defun skip-space-and-com… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:145:(defun skip-space-and-com… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:156:(defun %skip-symbol-forwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:171:(defun %skip-symbol-backw… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:186:(defun %skip-quote-forwar… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:197:(defun %skip-quote-backwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:208:(defun %skip-string-forwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:211:(defun %skip-string-backw… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:214:(defun %skip-fence-forwar… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:217:(defun %skip-fence-backwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:220:(defun %skip-list-forward… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:258:(defun %skip-list-backwar… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:301:(defun %form-offset-posit… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:338:(defun %form-offset-negat… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:371:(defun form-offset (point n) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:384:(defun scan-lists (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:401:(flet ((non-newline-white… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:417:(defun skip-symbol-forwar… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:421:(defun skip-symbol-backwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:425:(defun symbol-region-at-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:435:(defun symbol-string-at-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:3:(defstruct syntax-table | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:21:(defun set-syntax-parser … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:24:(defparameter *fundamenta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:26:(defun fundamental-syntax… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:29:(defvar current-syntax … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:31:(defun current-syntax () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:36:(defmacro with-current-sy… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:40:(defmacro with-point-synt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:44:(defun syntax-word-char-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:48:(defun syntax-space-char-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:51:(defun syntax-symbol-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:55:(defun syntax-open-paren-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:58:(defun syntax-closed-pare… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:61:(defun syntax-equal-paren… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:68:(defun syntax-string-quot… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:71:(defun syntax-fence-char-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:74:(defun syntax-escape-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:77:(defun syntax-expr-prefix… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:80:(defun syntax-skip-expr-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:84:(defun syntax-skip-expr-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:3:(defclass tmlanguage (syntax… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:11:(defclass tm-rule () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:17:(defclass tm-region (tm-rule) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:41:(defclass tm-match (tm-rule) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:55:(defclass tm-include () ()) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:56:(defclass tm-include-self (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:57:(defclass tm-include-reposi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:62:(defclass tm-patterns () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:67:(defun make-tmlanguage (&ke… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:72:(defun make-tm-repository () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:75:(defun make-tm-match (strin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:82:(defun make-tm-region (begi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:99:(defun make-tm-include (spec) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:108:(defun make-tm-patterns (&… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:111:(defun make-tm-name (name) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:114:(defun add-tm-repository (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:117:(defun add-tm-pattern (tml… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:120:(defmethod %syntax-scan-re… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:123: | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:124:(defun set-syntax-context … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:127:(defun get-syntax-context … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:130:(defun tm-get-repository (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:133:(defun tm-ahead-matcher (r… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:140:(defun tm-ahead-match (rul… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:146:(defun tm-result-rule … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:147:(defun tm-result-start … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:148:(defun tm-result-end … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:149:(defun tm-result-reg-start… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:150:(defun tm-result-reg-ends … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:151:(defun tm-result-option … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:152:(defun (setf tm-result-opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:154:(defun tm-result= (result1… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:166:(defun tm-get-best-result … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:178:(defun tm-best-rule-in-pat… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:205:(defun tm-recompute-result… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:221:(defun tm-apply-capture (p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:228:(defun tm-apply-captures (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:243:(defun tm-apply-content-na… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:249:(defun tm-replace-back-ref… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:267:(defun tm-init-region-end-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:280:(defun tm-apply-begin-capt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:285:(defun tm-apply-end-captur… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:289:(defun tm-apply-region (ru… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:337:(defun tm-move-action (rul… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:355:(defun tm-apply-match-in-c… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:362:(defun tm-apply-match (rul… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:375:(defun tm-apply-result (po… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:383:(defun tm-continue-prev-li… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:410:(defun tm-scan-line (point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:422:(defun tm-syntax-scan-line… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:430:(defun tm-syntax-scan-regi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:3:(defun ensure-class (class) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:8:(defun collect-subclasses (class … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:19:(defun utf8-bytes (c) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:27:(defun bests-if (fn list test) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:40:(defun max-if (fn list) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:43:(defun min-if (fn list) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:46:(defun find-tree (x tree) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:53:(defmacro do-sequence ((var-form… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:75:(defmacro if-push (expression pl… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:3:(defvar editor-variables ‘()) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:5:(defstruct editor-variable | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:11:(setf (documentation ’editor-varia… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:15:(defmacro define-editor-variable (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:33:(defun clear-editor-local-variable… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:40:(defun editor-variable-error (symbol) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:43:(defun check-editor-variable (symbol) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:47:(defun ensure-buffer (where) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:54:(defun variable-value (symbol &opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:87:(defun (setf variable-value) (valu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:111:(defun variable-documentation (sy… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:118:(defun find-editor-variable (var) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:121:(defstruct per-buffer-hook | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:126:(defmethod run-hooks ((hook per-b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:132: | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:134:(defun call-with-global-variable-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:141:(defmacro with-global-variable-va… | OK |
| Test | Description | Result |
|---|---|---|
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:1: | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:2:# | |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:3:aaaaaa | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:4:bbbbbb | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:5:cccccc | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:6: | # |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:6: | # |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:9: | # |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:9: | # |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:12:(aaaaaaa( | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:18:(defun foo (foo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:24:(defmacro foo (… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:30:(#+sbcl foo | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:33:(let ((x y) | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:43:(list ;comment | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:47:(defun foo (x) | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:75:(defmacro foo (… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:82:(defun foo () | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:87:(defmacro foofo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:95:(loop for i fro… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:122:(loop for x in… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:126:(loop for x in… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:136:(loop for f in… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:142:(loop (foo) | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:147:(loop ;; comment | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:151:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:156:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:161:(loop ;; comme… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:166:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:171:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:177:(loop with foo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:182:(progn | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:192:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:200:(defmethod foo | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:205:(defmethod foo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:210:(defgeneric fo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:216:(defgeneric fo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:222:(defun foo (a | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:226:(defun foo (a | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:231:(defun foo (a … | OK |
| Test | Description | Result |
|---|---|---|
| (parse-name-and-options (name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (name)) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (parse-name-and-options (name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (parse-name-and-options (name)) | Expect (NULL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| LEM-TESTS… | OK | |
| (parse-name-and-options :conc-name) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options :conc-name) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (parse-name-and-options :conc-name) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (parse-name-and-options :conc-name) | Expect (STRING= "" | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| … | OK | |
| (parse-name-and-options (:conc-name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (:conc-name)) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (parse-name-and-options (:conc-name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (parse-name-and-options (:conc-name)) | Expect (STRING= "" | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| … | OK | |
| (parse-name-and-options (:conc-name conc-name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (parse-name-and-options (:conc-name conc-name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (parse-name-and-options (:conc-name conc-name)) | Expect (STRING= “PREFIX-” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NA… | OK | |
| (parse-name-and-options invalid) | (1) | OK |
| (parse-name-and-options invalid) | (1 CONC-NAME) | OK |
| (parse-name-and-options invalid) | (NIL) | OK |
| (parse-name-and-options invalid) | (FOO (CONC-NAME 1)) | OK |
| (parse-name-and-options invalid) | (FOO (CONC-NAME #())) | OK |
| Test | Description | Result |
|---|---|---|
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFSTR… | OK | |
| (analyze-defstruct simple) | Expect (EQUAL “foo” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME | ||
| … | OK | |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct simple) | Expect (= (LENGTH LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::SLOTS) 3) to be true. | OK |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct simple) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct simple) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct simple) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFSTR… | OK | |
| (analyze-defstruct complex slot-description) | Expect (EQUAL “foo” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME | ||
| … | OK | |
| (analyze-defstruct complex slot-description) | Expect (= (LENGTH LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::SLOTS) 11) to be true. | OK |
| (analyze-defstruct complex slot-description a) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description a) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description a) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description a) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description a) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description a) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (analyze-defstruct complex slot-description a) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (analyze-defstruct complex slot-description b) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description b) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description b) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description b) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description b) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INITI… | OK | |
| (analyze-defstruct complex slot-description b) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (analyze-defstruct complex slot-description b) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (analyze-defstruct complex slot-description c) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description c) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description c) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description c) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description c) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description c) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (analyze-defstruct complex slot-description c) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (analyze-defstruct complex slot-description d) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description d) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description d) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description d) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description d) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description d) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (analyze-defstruct complex slot-description d) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (analyze-defstruct complex slot-description e) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description e) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description e) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description e) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description e) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description e) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (analyze-defstruct complex slot-description e) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (analyze-defstruct complex slot-description f) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description f) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description f) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description f) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description f) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description f) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (analyze-defstruct complex slot-description f) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (analyze-defstruct complex slot-description g) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description g) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description g) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description g) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description g) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description g) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (analyze-defstruct complex slot-description g) | Expect (EQ T | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | ||
| … | OK | |
| (analyze-defstruct complex slot-description h) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description h) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description h) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description h) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description h) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description h) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (analyze-defstruct complex slot-description h) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (analyze-defstruct complex slot-description i) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description i) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description i) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description i) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description i) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description i) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (analyze-defstruct complex slot-description i) | Expect (EQ T | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | ||
| … | OK | |
| (analyze-defstruct complex slot-description j) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description j) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description j) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description j) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description j) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description j) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (analyze-defstruct complex slot-description j) | Expect (EQ T | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | ||
| … | OK | |
| (analyze-defstruct complex slot-description k) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (analyze-defstruct complex slot-description k) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (analyze-defstruct complex slot-description k) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (analyze-defstruct complex slot-description k) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (analyze-defstruct complex slot-description k) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (analyze-defstruct complex slot-description k) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (analyze-defstruct complex slot-description k) | Expect (EQ T | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | ||
| … | OK | |
| (analyze-defstruct name-and-options) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFSTR… | OK | |
| (analyze-defstruct name-and-options) | Expect (EQUAL “foo” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME | ||
| … | OK | |
| (analyze-defstruct name-and-options) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-… | OK |
| Test | Description | Result |
|---|---|---|
| NIL | (EQUAL ACTUAL EXPECTED) | OK |
| NIL | (EQUAL ACTUAL EXPECTED) | OK |
| NIL | (EQUAL ACTUAL EXPECTED) | OK |
| NIL | (EQUAL ACTUAL EXPECTED) | OK |
| Test | Description | Result |
|---|---|---|
| (infer-package-name-1) | Expect (EQUAL “project-root/foo/bar” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-… | OK | |
| (infer-package-name-1) | Expect (EQUAL “project-root-tests/a” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-… | OK | |
| (infer-package-name-1) | Expect (EQUAL “project-root/test/a/b” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER… | OK | |
| (infer-package-name-1) | Expect (EQUAL “project-root/test/a/b” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER… | OK | |
| (infer-package-name-1) | Expect (EQUAL “project-root/main” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PAC… | OK | |
| (infer-package-name-1) | Expect (EQUAL “lem-project-root/foo/bar” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::IN… | OK |
| Test | Description | Result |
|---|---|---|
| (external-option) | Expect (EQUAL ‘(“baz” (:TEST)) | |
| (MULTIPLE-VALUE-LIST (LEM-CORE:YANK-FROM-CLIPBOARD-O… | OK | |
| (external-option) | Expect (EQUAL LEM-TESTS/KILLRING::EXPECTED-RESULT | |
| (LEM-CORE:YANK-FROM-CLIPBOARD-OR-… | OK |
| Test | Description | Result |
|---|---|---|
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (wide-char-p) | Expect (LOOP :FOR CHAR :IN LEM-TESTS/STRING-WIDTH-UTILS::ALPHABET-OR-NUMBERS | |
| :ALWAYS… | OK | |
| (wide-char-p) | Expect (LOOP :FOR CHAR :IN LEM-TESTS/STRING-WIDTH-UTILS::CONTROL-CHARS | |
| :ALWAYS (LEM-… | OK | |
| (wide-char-p) | Expect (LOOP :FOR (LEM-TESTS/STRING-WIDTH-UTILS::START | |
| LEM-TESTS/STRING-WIDTH-… | OK | |
| (wide-char-p) | Expect (LEM-BASE:WIDE-CHAR-P (CODE-CHAR 127798)) to be false. | OK |
| (wide-char-p) | Expect (LEM-BASE:WIDE-CHAR-P (CODE-CHAR 128253)) to be false. | OK |
| Test | Description | Result |
|---|---|---|
| (char-width alphabet) | Expect (EQL 1 (LEM-BASE:CHAR-WIDTH #\a 0)) to be true. | OK |
| (char-width alphabet) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\a 1)) to be true. | OK |
| (char-width tab) | Expect (LOOP :FOR LEM-TESTS/STRING-WIDTH-UTILS::I :FROM 0 :BELOW 8 | |
| :ALWAYS (EQL 8 | ||
| … | OK | |
| (char-width tab) | Expect (LOOP :FOR LEM-TESTS/STRING-WIDTH-UTILS::I :FROM 8 :BELOW 16 | |
| :ALWAYS (EQL 16 | ||
| … | OK | |
| (char-width tab) | Expect (EQL 10 (LEM-BASE:CHAR-WIDTH #\Tab 9 :TAB-SIZE 10)) to be true. | OK |
| (char-width control) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\Nul 0)) to be true. | OK |
| (char-width control) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\Nul 1)) to be true. | OK |
| (char-width control) | Expect (EQL 4 (LEM-BASE:CHAR-WIDTH #\UE0FF 0)) to be true. | OK |
| (char-width control) | Expect (EQL 5 (LEM-BASE:CHAR-WIDTH #\UE0FF 1)) to be true. | OK |
| (char-width control) | Expect (EQL 6 (LEM-BASE:CHAR-WIDTH #\UE0FF 2)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\HIRAGANA_LETTER_A 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\HIRAGANA_LETTER_A 1)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width wide) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (char-width newline) | Expect (EQL 0 (LEM-BASE:CHAR-WIDTH #\Newline 0)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (string-width) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “a”)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “ab”)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abc”)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :END 2)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abcdef” :START 1 :END 3)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “あ”)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “aあ”)) to be true. | OK |
| (string-width) | Expect (EQL 0 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :END 0)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :END 3)) to be true. | OK |
| (string-width) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 5)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 6)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 7)) to be true. | OK |
| (string-width) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab))) to be true. | OK |
| (string-width) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab))) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “あ~A” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aaあ” #\Tab) :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 6 | |
| (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aaあ” #\Tab) :TAB-SIZE 5 :START | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “abc” 1)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “abc” 2)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 3)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 10)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “あいえうお” 0)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “あいえうお” 1)) to be true. | OK |
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “あいえうお” 2)) to be true. | OK |
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “あいえうお” 3)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “あいえうお” 4)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “あいえ” 5)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “あいえ” 6)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5)) to be true. | OK |
| (wide-index) | Expect (EQL 2 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5 :TAB-SIZE | ||
| … | OK | |
| (wide-index) | Expect (EQL 6 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5 :START 1)) to… | OK | |
| (wide-index) | Expect (EQL 5 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aa~Abcdefghijk” #\Tab #\Tab) 5 | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (form-offset skip comment) | Expect (LEM-BASE:START-BUFFER-P LEM-TESTS/SYNTAX-TEST::POINT) to be true. | OK |
| (form-offset skip comment) | Expect (EQUAL (LEM-BASE:SYMBOL-STRING-AT-POINT LEM-TESTS/SYNTAX-TEST::POINT) | |
| “bar”)… | OK |
| Test | Description | Result |
|---|---|---|
| (scan-lists limit-point forward) | Expect (AND | |
| (NULL | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT 1 0 T | ||
| … | OK | |
| (scan-lists limit-point forward) | Expect (AND | |
| (EQ LEM-TESTS/SYNTAX-TEST::POINT | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/S… | OK | |
| (scan-lists limit-point backward) | Expect (AND | |
| (NULL | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT -1 0 T | ||
| … | OK | |
| (scan-lists limit-point backward) | Expect (AND | |
| (EQ LEM-TESTS/SYNTAX-TEST::POINT | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/S… | OK |
| Test | Description | Result |
|---|---|---|
| (buffer-list) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (buffer-list) | Expect (LEM-BASE:BUFFERP LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (buffer-list) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (buffer-list make buffer-a) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) | |
| (LEM-BASE:BUFFER-LIST)) t… | OK | |
| (buffer-list make buffer-b) | Expect (EQUAL | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| LEM-TESTS/BUFFER-L… | OK | |
| (buffer-list make buffer-c) | Expect (EQUAL | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| LEM-TESTS/BUFFER-L… | OK |
| Test | Description | Result |
|---|---|---|
| (any-modified-buffer-p) | Expect (EQUAL | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| LEM-TESTS/BUFFER-L… | OK | |
| (any-modified-buffer-p) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (any-modified-buffer-p edit buffer-a, any-modified-buffer-p = nil) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (any-modified-buffer-p edit buffer-b, any-modified-buffer-p = nil) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (any-modified-buffer-p edit buffer-c, any-modified-buffer-p = t) | Expect (EQ T (LEM-BASE:ANY-MODIFIED-BUFFER-P)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (get-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-buffer) | Expect (NULL (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-a) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-b) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-b) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:GET-BUFFER “c”)) to be true. | OK |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK | |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK | |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK |
| Test | Description | Result |
|---|---|---|
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (unique-buffer-name) | Expect (EQUAL “foo” (LEM-BASE:UNIQUE-BUFFER-NAME “foo”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL “a<1>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL “a<2>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) “a”) to be true. | OK |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1>) | |
| “a… | OK | |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2>) | |
| “a… | OK | |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (unique-buffer-name) | Expect (EQUAL “a<2>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1> | ||
| … | OK | |
| (unique-buffer-name) | Expect (EQUAL “a<1>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (unique-buffer-name) | Expect (EQUAL “a” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (unique-buffer-name) | Expect (EQUAL “b” (LEM-BASE:UNIQUE-BUFFER-NAME “b”)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (delete-buffer temporary buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be false. | OK |
| (delete-buffer temporary buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::BUFFER-LIST | |
| (LEM-BASE:DELETE-BUFFER LEM-T… | OK | |
| (delete-buffer temporary buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (delete-buffer kill-buffer-hook buffer local) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (delete-buffer kill-buffer-hook buffer local) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook buffer local) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (delete-buffer kill-buffer-hook global) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (delete-buffer kill-buffer-hook global) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook global) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (delete-buffer kill-buffer-hook local/global called local hook) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (delete-buffer kill-buffer-hook local/global called local hook) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook local/global called global hook) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (delete-buffer kill-buffer-hook local/global called global hook) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook local/global) | Expect (EQUAL ‘(:LOCAL :GLOBAL) | |
| (NREVERSE LEM-TESTS/BUFFER-LIST-TEST::CALLED-ORDER)… | OK |
| Test | Description | Result |
|---|---|---|
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (get-next-buffer buffer-list length is 0) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 1) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) | |
| LEM-TESTS/B… | OK | |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) | |
| LEM-TESTS/B… | OK | |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) | |
| NIL) to … | OK |
| Test | Description | Result |
|---|---|---|
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (get-previous-buffer buffer-list length is 0) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (get-previous-buffer buffer-list length is 1) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) | |
| NIL) to… | OK | |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) | |
| LEM-TES… | OK | |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) | |
| LEM-TES… | OK | |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ | |
| (LEM-BASE:GET-PREVIOUS-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (bury-buffer buffer-list length is 1) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (bury-buffer buffer-list length is 1) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) t… | OK | |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| … | OK | |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (bury-buffer temporary buffer buffer-list length is 0) | Expect (EQ NIL (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T))) to be true. | OK |
| (bury-buffer temporary buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-B… | OK | |
| (bury-buffer temporary buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (unbury-buffer buffer-list length is 1) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (unbury-buffer buffer-list length is 1) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) t… | OK | |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | ||
| … | OK | |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| … | OK | |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (unbury-buffer temporary buffer buffer-list length is 0) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (unbury-buffer temporary buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (unbury-buffer temporary buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER NIL) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER T) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER 1) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER #(#\a)) to signal TYPE-ERROR. | OK |
| (get-file-buffer) | Expect (NULL (LEM-BASE:GET-FILE-BUFFER LEM-TESTS/BUFFER-LIST-TEST::FILENAME)) to be true. | OK |
| (get-file-buffer) | Expect (EQ (LEM-BASE:GET-FILE-BUFFER LEM-TESTS/BUFFER-LIST-TEST::FILENAME) | |
| LEM-TESTS/B… | OK |
| Test | Description | Result |
|---|---|---|
| (display-popup-window) | Expect (EQUAL “hello” | |
| (LEM-FAKE-INTERFACE:GET-DISPLAYED-TEXT | ||
| LEM-TES… | OK | |
| (display-popup-window) | Expect (EQUAL “hello” | |
| (LEM-BASE:BUFFER-TEXT | ||
| (LEM-CORE:WINDOW-BUFFER … | OK | |
| (display-popup-window) | Expect (EQL 1 | |
| (LEM-CORE:FLOATING-WINDOW-BORDER | ||
| LEM-TESTS/POPUP-WINDOW::P… | OK | |
| (display-popup-window) | Expect (EQ (LEM-CORE:CURRENT-WINDOW) | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-SOURCE-WINDOW | ||
| … | OK | |
| (display-popup-window) | Expect (= 5 | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-BASE-WIDTH | ||
| LEM-TESTS/POPUP-WINDO… | OK | |
| (display-popup-window) | Expect (= 1 | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-BASE-HEIGHT | ||
| LEM-TESTS/POPUP-WIND… | OK | |
| (display-popup-window) | Expect (LEM/POPUP-WINDOW::POPUP-WINDOW-GRAVITY | |
| LEM-TESTS/POPUP-WINDOW::POPUP-WINDOW) to b… | OK |
| Test | Description | Result |
|---|---|---|
| (prompt-for-character) | Expect (EQUAL #\a | |
| (LEM-CORE:PROMPT-FOR-CHARACTER “test: " :GRAVITY | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (replace-string) | Expect (EQUAL | |
| (CL-PPCRE:REGEX-REPLACE-ALL “foo” LEM-TESTS/ISEARCH::TEXT “foobar”) | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (simple-fake-cursor-test Test the fake-cursor created buffer-fake-cursors) | Expect (ALEXANDRIA:LENGTH= 1 | |
| (LEM-CORE:BUFFER-FAKE-CURSORS | ||
| … | OK | |
| (simple-fake-cursor-test Test the fake-cursor created buffer-fake-cursors) | Expect (EQ LEM-TESTS/CURSORS::CURSOR | |
| (FIRST (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CU… | OK | |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQ (LEM-CORE:CURRENT-KILLRING) LEM-TESTS/CURSORS::KILLRING) to be false. | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “aaa” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “bbb” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “ccc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (simple-fake-cursor-test Test the fake-cursor created point-kind) | Expect (EQ :LEFT-INSERTING (LEM-BASE:POINT-KIND LEM-TESTS/CURSORS::CURSOR)) to be true. | OK |
| (simple-fake-cursor-test Delete cursor) | Expect (NULL (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFFER)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (test-to-execute-a-series-of-commands execute self-insert command) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES " abcdefg” " hijklmn” " opqrstu”) | |
| (LEM… | OK | |
| (test-to-execute-a-series-of-commands execute delete-previous-character command) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES “abcdefg” “hijklmn” “opqrstu”) | |
| (LEM-BA… | OK | |
| (test-to-execute-a-series-of-commands multiple cursor killring) | Expect (EQUAL ‘(“abcd” “opqr” “hijk”) | |
| (MAPCAR | ||
| (LAMBDA (LEM-TESTS/CUR… | OK |
| Test | Description | Result |
|---|---|---|
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((2 12) (3 10) (4 10)) | |
| … | OK | |
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((1 14) (2 12) (3 10)) | |
| … | OK | |
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((2 12) (3 10) (4 10)) | |
| … | OK |
| Test | Description | Result |
|---|---|---|
| (self-insert-command) | aaa | OK |
| (self-insert-command) | aaaa | OK |
| (self-insert-command) | Expect (SEARCH “Key not found: " | |
| (PRINC-TO-STRING LEM-TESTS/SELF-INSERT-COMMAND::E… | OK |
| Test | Description | Result |
|---|---|---|
| (execute-the-same-command-consecutively) | Expect (EQUAL ‘(NIL T T) LEM/TESTS/INTERP::RESULT) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (get-file-mode) | Expect (EQUAL ‘LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE | |
| (LEM-CORE:GET-FILE-MODE “.bash… | OK | |
| (get-file-mode) | Expect (EQUAL ‘LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE | |
| (LEM-CORE:GET-FILE-MODE “foo.b… | OK | |
| (get-file-mode) | Expect (EQUAL ‘LEM-LISP-MODE/INTERNAL:LISP-MODE | |
| (LEM-CORE:GET-FILE-MODE “foo.lisp”)… | OK | |
| (get-file-mode) | Expect (NULL (LEM-CORE:GET-FILE-MODE “foo.lisp.bak”)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (test-completion) | Expect (EQUAL ‘(“apple” “banana” “orange” “pineapple”) | |
| (LEM-CORE:COMPLETION “a” LEM… | OK | |
| (test-completion) | Expect (EQUAL ‘(“apple” “pineapple”) | |
| (LEM-CORE:COMPLETION “app” LEM-TESTS/COMPLETIO… | OK | |
| (test-completion) | Expect (EQUAL ‘NIL (LEM-CORE:COMPLETION “xyz” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (test-completion) | Expect (EQUAL ‘NIL (LEM-CORE:COMPLETION “APP” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (test-completion) | Expect (EQUAL ‘(“apple” “pineapple”) | |
| (LEM-CORE:COMPLETION “APP” LEM-TESTS/COMPLETIO… | OK | |
| (test-completion) | Expect (EQUAL ‘(“foo-bar-baz” “foo-bar-y”) | |
| (LEM-CORE:COMPLETION “foo-bar” | ||
| … | OK |
| Test | Description | Result |
|---|---|---|
| (simple-eval-test) | Raise an error while testing. | ERROR |
Progress
100%
| Test | Description | Result |
|---|---|---|
| (rotate) | Expect (EQUAL “a” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0))… | OK |
| (rotate) | Expect (EQUAL “b” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 1))… | OK |
| (rotate) | Expect (EQUAL “b” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0))… | OK |
| (rotate) | Expect (EQUAL “a” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 1))… | OK |
| Test | Description | Result |
|---|---|---|
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-D… | OK |
| (analyze-defstruct simple) | Expect (EQUAL “foo” (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME LEM-TESTS/LISP-SYNTAX/DEF… | OK |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct simple) | Expect (= (LENGTH LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::SLOTS) 3) to be true. | OK |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct simple) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct simple) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct simple) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct simple) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct simple) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-D… | OK |
| (analyze-defstruct complex slot-description) | Expect (EQUAL “foo” (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME LEM-TESTS/LISP-SYNTAX/DEF… | OK |
| (analyze-defstruct complex slot-description) | Expect (= (LENGTH LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::SLOTS) 11) to be true. | OK |
| (analyze-defstruct complex slot-description a) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description a) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description a) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description a) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description a) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description a) | Expect (AND (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-START-POINT LEM-T… | OK |
| (analyze-defstruct complex slot-description a) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description b) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description b) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description b) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description b) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description b) | Expect (AND (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INITIAL-VALUE-START-PO… | OK |
| (analyze-defstruct complex slot-description b) | Expect (AND (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-START-POINT LEM-T… | OK |
| (analyze-defstruct complex slot-description b) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description c) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description c) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description c) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description c) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description c) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description c) | Expect (AND (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-START-POINT LEM-T… | OK |
| (analyze-defstruct complex slot-description c) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description d) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description d) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description d) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description d) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description d) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description d) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE (LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description d) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description e) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description e) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description e) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description e) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description e) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description e) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE (LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description e) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description f) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description f) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description f) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description f) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description f) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description f) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE (LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description f) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description g) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description g) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description g) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description g) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description g) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description g) | Expect (AND (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-START-POINT LEM-T… | OK |
| (analyze-defstruct complex slot-description g) | Expect (EQ T (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-… | OK |
| (analyze-defstruct complex slot-description h) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description h) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description h) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description h) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description h) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description h) | Expect (AND (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-START-POINT LEM-T… | OK |
| (analyze-defstruct complex slot-description h) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description i) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description i) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description i) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description i) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description i) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description i) | Expect (AND (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-START-POINT LEM-T… | OK |
| (analyze-defstruct complex slot-description i) | Expect (EQ T (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-… | OK |
| (analyze-defstruct complex slot-description j) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description j) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description j) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description j) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description j) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description j) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE (LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description j) | Expect (EQ T (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-… | OK |
| (analyze-defstruct complex slot-description k) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (analyze-defstruct complex slot-description k) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description k) | Expect (EQUAL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME LEM-TESTS/LISP-SYNTAX… | OK |
| (analyze-defstruct complex slot-description k) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P (LEM-LISP-SYNTAX.D… | OK |
| (analyze-defstruct complex slot-description k) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM (LEM-TESTS/LISP-SYNT… | OK |
| (analyze-defstruct complex slot-description k) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE (LEM-TESTS/LISP-SYNTAX/D… | OK |
| (analyze-defstruct complex slot-description k) | Expect (EQ T (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P LEM-TESTS/LISP-… | OK |
| (analyze-defstruct name-and-options) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-D… | OK |
| (analyze-defstruct name-and-options) | Expect (EQUAL “foo” (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME LEM-TESTS/LISP-SYNTAX/DEF… | OK |
| (analyze-defstruct name-and-options) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCL… | OK |
| Test | Description | Result |
|---|---|---|
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:3:(defun same-line-p (point1 point2) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:9:(defun first-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:14:(defun last-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:19:(defun start-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:23:(defun end-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:28:(defun start-buffer-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:32:(defun end-buffer-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:36:(defun %move-to-position (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:44:(defun move-point (point new-point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:53:(defun line-start (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:58:(defun line-end (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:64:(defun buffer-start (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:68:(defun buffer-end (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:72:(defun line-offset (point n &opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:102:(declaim (inline %character-off… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:103:(defun %character-offset (point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:124:(defun character-offset (point n) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:134:(defun character-at (point &opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:145:(defun line-string (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:149:(defun text-property-at (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:160:(defun put-text-property (start… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:177:(defun remove-text-property (st… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:192:(defun next-single-property-cha… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:206:(defun previous-single-property… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:220:(defun insert-character (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:225:(defun insert-string (point str… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:242:(defun delete-character (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:253:(defun erase-buffer (&optional … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:260:(defun region-beginning (&optio… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:265:(defun region-end (&optional (b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:270:(defun %map-region (start end f… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:289:(defun map-region (start end fu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:296:(defun points-to-string (start-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:307:(defun count-characters (start-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:318:(defun delete-between-points (s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:327:(defun count-lines (start-point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:334:(defun apply-region-lines (star… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:347:(defun line-number-at-point (po… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:351:(defun point-column (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:358:(defun move-to-column (point co… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:379:(defun position-at-point (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:386:(defun move-to-position (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:397:(defun point-bytes (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:409:(defun move-to-bytes (point bytes) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:422:(defun move-to-line (point line… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:441:(defun check-marked () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:446:(defun set-current-mark (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:452:(defun blank-line-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:466:(defun skip-chars-internal (poi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:477:(defun skip-chars-forward (poin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:484:(defun skip-chars-backward (poi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:491:(defun invoke-save-excursion (f… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:504:(defun insert-buffer (point buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:513:(defun buffer-text (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:3:(defvar *inhibit-read-onl… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:6:(defvar *inhibit-modifica… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:9:(define-editor-variable b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:10:(define-editor-variable … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:12:(defun step-on-read-only… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:22:(defun check-read-only-a… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:31:(defmacro with-modify-bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:39:(defun line-next-n (line n) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:44:(defun shift-markers (po… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:104:(defun %insert-newline/… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:113:(defgeneric insert-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:135:(defun %insert-line-str… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:143:(defgeneric insert-stri… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:167:(defun %delete-line-bet… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:180:(defun %delete-line-eol… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:187:(defun %delete-line/poi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:203:(defparameter n nil) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:205:(defgeneric delete-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:233: | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:234:(declaim (inline call-b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:237:(defun call-before-chan… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:242:(defun call-after-chang… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:247:(defmacro insert/after-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:258:(defmacro delete/after-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:269:(defmethod insert-char/… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:280:(defmethod insert-strin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:291:(defmethod delete-char/… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:3:(defgeneric delete-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:5:(defclass buffer-li… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:11:(defvar *buffer-li… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:13:(defun buffer-list… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:16:(defun call-with-c… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:22:(defmacro with-cur… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:3:(defparameter +primordial-buffer… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:5:(defclass buffer () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:88:(defclass text-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:91:(defmethod buffer-mark ((buffer… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:94:(defmethod buffer-mark-p ((buff… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:99:(defmethod initialize-instance … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:103:(setf (documentation ‘buffer-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:104:(setf (documentation ‘buffer-m… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:105:(setf (documentation ‘buffer-s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:106:(setf (documentation ‘buffer-e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:108:(defvar current-buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:110:(defun primordial-buffer () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:113:(defun current-buffer () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:120:(defun (setf current-buffer) (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:125:(defparameter undo-modes ‘(:… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:126:(defvar undo-mode :edit) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:128:(defun last-edit-history (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:133:(defun make-buffer-start-point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:136:(defun make-buffer-end-point (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:139:(defgeneric make-buffer-point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:143:(defun make-buffer (name &key … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:172:(defun bufferp (x) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:176:(defun buffer-modified-p (&opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:180:(defun buffer-enable-undo-p (&… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:184:(defun buffer-enable-undo (buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:189:(defun buffer-disable-undo (bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:196:(defmethod print-object ((buff… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:202:(defun %buffer-clear-keep-binf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:209:(defun buffer-free (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:214:(defun deleted-buffer-p (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:217:(defun buffer-name (&optional … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:221:(defun buffer-filename (&optio… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:226:(defun (setf buffer-filename) … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:230:(defun buffer-directory (&opti… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:235:(defun (setf buffer-directory)… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:242:(defun buffer-unmark (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:246:(defun buffer-mark-cancel (buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:249:(defun buffer-attributes (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:259:(defun check-read-only-buffer … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:263:(defun buffer-modify (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:271:(defun push-undo-stack (buffer… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:274:(defun push-redo-stack (buffer… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:277:(defun push-undo (buffer edit) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:288:(defun buffer-rename (buffer n… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:296:(defun buffer-undo-1 (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:305:(defun buffer-undo (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:319:(defun buffer-redo-1 (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:327:(defun buffer-redo (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:340:(defun buffer-undo-boundary (&… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:344:(defun buffer-value (buffer na… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:353:(defun (setf buffer-value) (va… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:360:(defun buffer-unbound (buffer … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:364:(defun clear-buffer-variables … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:368:(defun call-with-buffer-point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:374:(defmacro with-buffer-point ((… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:3:(define-editor-variable kill-bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:5:(defun buffer-list () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:9:(defun set-buffer-list (buffer-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:13:(defun add-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:18:(defun any-modified-buffer-p () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:24:(defun get-buffer (buffer-or-n… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:35:(defun unique-buffer-name (name) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:44:(defmethod delete-buffer-using… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:49:(defun delete-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:55:(defun get-next-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:61:(defun get-previous-buffer (bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:69:(defun unbury-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:77:(defun bury-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:86:(defun get-file-buffer (filename) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:3:(defmacro debug-assert… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:7:(defun check-line-corr… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:31:(defun check-lines-co… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:39:(defun check-buffer-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:50:(defun check-buffer-c… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:69:(defun check-all-buff… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:3:(eval-when (:compile-toplevel… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:52:(defmacro %eastasian-code-p … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:59:(defun eastasian-code-p (code) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:3:(defun make-edit (kind linum charp… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:6:(defun %apply-edit (point kind lin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:23:(defun apply-inverse-edit (edit p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/editor-variables.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/editor-variables.lisp:3:(define-editor-variabl… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:3:(defclass encoding () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:8:(defclass internal-encoding (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:13:(defvar *encoding-collection… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:15:(defun register-encoding (sy… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:22:(defun unregister-encoding (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:25:(defun encoding (symbol end-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:32:(defun e+ (c) (+ #xe000 c)) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:34:(defun encoding-read-detect-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:79:(defgeneric encoding-read (e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:81:(defgeneric encoding-write (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:83:(defgeneric encoding-check (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:85:(defmethod encoding-check (e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:3:(define-condition editor-conditi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:6:(define-condition directory-does… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:13:(define-condition read-only-err… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:19:(define-condition editor-error … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:28:(defun editor-error (message &r… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:31:(defun scan-error () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:34:(define-condition editor-interr… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:3:(defun guess-host-name (file… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:12:(defun parse-filename (file… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:40:(defun expand-file-name (fi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:45:(defun tail-of-pathname (pa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:53:(defun probe-file% (x) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:63:(defun virtual-probe-file (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:68:(defun sort-files (pathname… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:73:(defun sort-files-with-meth… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:83:(defun directory-files (pat… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:90:(defun list-directory (dire… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:100:(defun file-size (pathname) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:110:(defun file-mtime (pathname) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:117:(defun copy-file-or-direct… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:133:(defparameter *virtual-fil… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:135:(defun open-virtual-file (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:153:(defmacro with-open-virtua… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:3:(defvar find-file-hook ‘()) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:5:(define-editor-variable before-sav… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:6:(define-editor-variable after-save… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:8:(defvar external-format-function… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:9:(defvar find-directory-function … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:10:(defvar default-external-format… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:12:(define-condition encoding-read-e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:20:(defun %encoding-read (encoding p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:46:(defun insert-file-contents (poin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:71:(defun find-file-buffer (filename… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:111:(defun write-to-file-1 (buffer f… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:115:(defun run-before-save-hooks (bu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:119:(defun run-after-save-hooks (buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:123:(defun call-with-write-hook (buf… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:129:(defmacro with-write-hook (buffe… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:132:(defun write-to-file (buffer fil… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:136:(defun %write-region-to-file (en… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:152:(defun %%write-region-to-file (e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:168:(defun write-region-to-file (sta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:188:(defun file-write-date* (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:192:(defun update-changed-disk-date … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:196:(defun changed-disk-p (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:3:(defgeneric run-hooks (hooks &res… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:5:(defmethod run-hooks ((hooks list… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:9:(defmacro add-hook (place callbac… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:20:(defmacro remove-hook (place cal… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:3:(defvar icon-name-table (make-ha… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:4:(defvar icon-code-table (make-ha… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:5:(defvar icon-ext-table (make-has… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:7:(defstruct icon | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:12:(defun register-icon (name code &… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:18:(defun register-icon-ext (ext name) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:21:(defun icon-code-p (code) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:24:(defun icon-string (name) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:29:(defun icon-string-by-ext (ext) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:33:(defun icon-value (code key) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:38:(register-icon “folder” #x1f4c1) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:3:(define-editor-variable indent-t… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:4:(define-editor-variable calc-ind… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:5:(define-editor-variable indent-w… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:7:(defun back-to-indentation (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:11:(defun indent-line-1 (point col… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:46:(defun calc-indent-default (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:52:(defun indent-line (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:58:(defun indent-points (start end) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:64:(defun indent-buffer (buffer) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:68:(defun insert-string-and-indent… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:3:(defstruct (line (:constructor %ma… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:11:(defmethod print-object ((object … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:17:(defun make-line (prev next str) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:27:(defun make-empty-line () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:30:(defun line-alive-p (line) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:33:(defun line-char (line i) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:38:(defun line-length (line) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:41:(defun remove-elements (elements … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:56:(defun normalization-elements (el… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:75:(defun subseq-elements (elements … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:87:(defun offset-elements (elements n) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:91:(defun put-elements (elements sta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:96:(defun merge-plist (plist1 plist2) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:106:(defun line-merge (curr-line nex… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:119:(defun line-normalization-plist … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:123:(defun line-remove-property (lin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:127:(defun line-add-property (line s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:135:(defun line-clear-property (line… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:138:(defun line-search-property (lin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:145:(defun line-search-property-rang… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:155:(defun line-property-insert-pos … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:167:(defun line-property-insert-newl… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:193:(defun line-property-delete-pos … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:217:(defun line-property-delete-line… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:230:(defun line-string/attributes (l… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:234:(defun line-free (line) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:3:(defmacro save-excursion (&body … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:8:(defmacro with-point (bindings &… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:38:(defmacro with-buffer-read-only… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:47:(defvar interrupts-enabled t) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:48:(defvar interrupted nil) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:50:(defmacro %without-interrupts (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:56:(defmacro without-interrupts (&… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:66:;; 別のスレッドから(bt:interrupt-t | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:67:(defun interrupt (&optional force) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:1:(in-package :lem-base)hread…hread.. | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:3:(defclass mark ().hread…hread…hre | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:11:(defmethod mark-cancel ((mark mark)) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:14:(defmethod mark-set-point ((mark … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/package.lisp:1:(defpackage :lem-basead… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:3:(defstruct pps-state | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:12:(defun parse-partia… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:147:(define-editor-var… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:149:(defmacro syntax-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:152:(flet ((cache-poin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:202:(defun pps-state-s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:205:(defun pps-state-c… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:208:(defun pps-state-s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:215:(defun in-string-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:219:(defun in-comment-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:223:(defun in-string-o… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:227:(defun maybe-begin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:232:(defun maybe-begin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:237:(defun maybe-begin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:3:(defclass point () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:34:(setf (documentation ‘point-buff… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:37:(setf (documentation ‘point-kind… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:40:(defun current-point () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:44:(defmethod print-object ((object… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:51:(defun pointp (x) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:55:(defun initialize-point-slot-values | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:68:(defun initialize-point (point k… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:73:(defun make-point (buffer linum … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:85:(defmethod copy-point-using-clas… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:96:(defun copy-point (point &option… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:104:(defun delete-point (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:115:(defun alive-point-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:119:(defun point-change-line (point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:136:(defun point-temporary-p (point) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:139:(defun %always-same-buffer (poi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:145:(defun %point= (point1 point2) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:151:(defun %point< (point1 point2) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:156:(defun point= (point &rest more… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:162:(defun point/= (point &rest mor… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:170:(defun point< (point &rest more… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:177:(defun point<= (point &rest mor… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:185:(defun point> (point &rest more… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:191:(defun point>= (point &rest mor… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:199:(defun point-min (point &rest m… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:207:(defun point-max (point &rest m… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:3:(defvar case-fold-search nil) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:5:(defun char-compare-function () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:10:(defun search-step (point first… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:31:(defun search-forward-endp-func… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:38:(defun search-backward-endp-fun… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:44:(defun search-with-case-fold-se… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:50:(defun search-forward (point st… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:72:(defun search-backward (point s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:102:(defun search-forward-regexp (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:143:(define-compiler-macro search-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:150:(defun search-backward-regexp … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:193:(define-compiler-macro search-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:200:(defun search-symbol (string n… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:215:(defun search-forward-symbol (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:234:(defun search-backward-symbol … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:257:(defun looking-at (point regex) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:271:(define-compiler-macro looking… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:276:(defun match-string-at (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:3:(defconstant +defaul… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:5:(defparameter *char-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:44:(defun control-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:47:(defun wide-char-p … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:54:(defun char-width (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:69:(defun string-width… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:76:(defun wide-index (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:3:(define-editor-variable b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:4:(define-editor-variable a… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:5:(define-editor-variable e… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:7:(defparameter *global-syn… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:9:(defun enable-syntax-high… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:13:(defun current-syntax-pa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:16:(defclass syntax-parser () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:19:(defgeneric %syntax-scan… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:21:(defvar *recursive-synta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:23:(defun syntax-scan-regio… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:3:(flet ((%match (str1 str2 s… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:56: | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:57:(let ((cache (make-hash-ta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:68:(defun syntax-escape-point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:78:(defun inline-line-comment… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:85:(defun %skip-comment-forwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:107:(defun %skip-block-commen… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:124:(defun %skip-comment-back… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:136:(defun skip-space-and-com… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:145:(defun skip-space-and-com… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:156:(defun %skip-symbol-forwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:171:(defun %skip-symbol-backw… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:186:(defun %skip-quote-forwar… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:197:(defun %skip-quote-backwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:208:(defun %skip-string-forwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:211:(defun %skip-string-backw… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:214:(defun %skip-fence-forwar… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:217:(defun %skip-fence-backwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:220:(defun %skip-list-forward… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:258:(defun %skip-list-backwar… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:301:(defun %form-offset-posit… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:338:(defun %form-offset-negat… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:371:(defun form-offset (point n) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:384:(defun scan-lists (point … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:401:(flet ((non-newline-white… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:417:(defun skip-symbol-forwar… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:421:(defun skip-symbol-backwa… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:425:(defun symbol-region-at-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:435:(defun symbol-string-at-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:3:(defstruct syntax-table | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:21:(defun set-syntax-parser … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:24:(defparameter *fundamenta… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:26:(defun fundamental-syntax… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:29:(defvar current-syntax … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:31:(defun current-syntax () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:36:(defmacro with-current-sy… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:40:(defmacro with-point-synt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:44:(defun syntax-word-char-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:48:(defun syntax-space-char-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:51:(defun syntax-symbol-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:55:(defun syntax-open-paren-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:58:(defun syntax-closed-pare… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:61:(defun syntax-equal-paren… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:68:(defun syntax-string-quot… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:71:(defun syntax-fence-char-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:74:(defun syntax-escape-char… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:77:(defun syntax-expr-prefix… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:80:(defun syntax-skip-expr-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:84:(defun syntax-skip-expr-p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:3:(defclass tmlanguage (syntax… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:11:(defclass tm-rule () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:17:(defclass tm-region (tm-rule) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:41:(defclass tm-match (tm-rule) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:55:(defclass tm-include () ()) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:56:(defclass tm-include-self (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:57:(defclass tm-include-reposi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:62:(defclass tm-patterns () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:67:(defun make-tmlanguage (&ke… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:72:(defun make-tm-repository () | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:75:(defun make-tm-match (strin… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:82:(defun make-tm-region (begi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:99:(defun make-tm-include (spec) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:108:(defun make-tm-patterns (&… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:111:(defun make-tm-name (name) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:114:(defun add-tm-repository (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:117:(defun add-tm-pattern (tml… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:120:(defmethod %syntax-scan-re… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:123: | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:124:(defun set-syntax-context … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:127:(defun get-syntax-context … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:130:(defun tm-get-repository (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:133:(defun tm-ahead-matcher (r… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:140:(defun tm-ahead-match (rul… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:146:(defun tm-result-rule … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:147:(defun tm-result-start … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:148:(defun tm-result-end … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:149:(defun tm-result-reg-start… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:150:(defun tm-result-reg-ends … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:151:(defun tm-result-option … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:152:(defun (setf tm-result-opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:154:(defun tm-result= (result1… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:166:(defun tm-get-best-result … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:178:(defun tm-best-rule-in-pat… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:205:(defun tm-recompute-result… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:221:(defun tm-apply-capture (p… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:228:(defun tm-apply-captures (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:243:(defun tm-apply-content-na… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:249:(defun tm-replace-back-ref… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:267:(defun tm-init-region-end-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:280:(defun tm-apply-begin-capt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:285:(defun tm-apply-end-captur… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:289:(defun tm-apply-region (ru… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:337:(defun tm-move-action (rul… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:355:(defun tm-apply-match-in-c… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:362:(defun tm-apply-match (rul… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:375:(defun tm-apply-result (po… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:383:(defun tm-continue-prev-li… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:410:(defun tm-scan-line (point… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:422:(defun tm-syntax-scan-line… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:430:(defun tm-syntax-scan-regi… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:3:(defun ensure-class (class) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:8:(defun collect-subclasses (class … | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:19:(defun utf8-bytes (c) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:27:(defun bests-if (fn list test) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:40:(defun max-if (fn list) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:43:(defun min-if (fn list) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:46:(defun find-tree (x tree) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:53:(defmacro do-sequence ((var-form… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:75:(defmacro if-push (expression pl… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:1:(in-package :lem-base) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:3:(defvar editor-variables ‘()) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:5:(defstruct editor-variable | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:11:(setf (documentation ’editor-varia… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:15:(defmacro define-editor-variable (… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:33:(defun clear-editor-local-variable… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:40:(defun editor-variable-error (symbol) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:43:(defun check-editor-variable (symbol) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:47:(defun ensure-buffer (where) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:54:(defun variable-value (symbol &opt… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:87:(defun (setf variable-value) (valu… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:111:(defun variable-documentation (sy… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:118:(defun find-editor-variable (var) | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:121:(defstruct per-buffer-hook | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:126:(defmethod run-hooks ((hook per-b… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:132: | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:134:(defun call-with-global-variable-… | OK |
| (indent-test-under-lem-base) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:141:(defmacro with-global-variable-va… | OK |
| Test | Description | Result |
|---|---|---|
| (buffer-list) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (buffer-list) | Expect (LEM-BASE:BUFFERP LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (buffer-list) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (buffer-list make buffer-a) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (buffer-list make buffer-b) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) (L… | OK |
| (buffer-list make buffer-c) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM… | OK |
| Test | Description | Result |
|---|---|---|
| (infer-package-name-1) | Expect (EQUAL “project-root/foo/bar” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1… | OK |
| (infer-package-name-1) | Expect (EQUAL “project-root-tests/a” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1… | OK |
| (infer-package-name-1) | Expect (EQUAL “project-root/test/a/b” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-… | OK |
| (infer-package-name-1) | Expect (EQUAL “project-root/test/a/b” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-… | OK |
| (infer-package-name-1) | Expect (EQUAL “project-root/main” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1 (L… | OK |
| (infer-package-name-1) | Expect (EQUAL “lem-project-root/foo/bar” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NA… | OK |
| Test | Description | Result |
|---|---|---|
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (simple-fake-cursor-test Test the fake-cursor created buffer-fake-cursors) | Expect (ALEXANDRIA:LENGTH= 1 (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFFER)) to be true. | OK |
| (simple-fake-cursor-test Test the fake-cursor created buffer-fake-cursors) | Expect (EQ LEM-TESTS/CURSORS::CURSOR (FIRST (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFF… | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQ (LEM-CORE:CURRENT-KILLRING) LEM-TESTS/CURSORS::KILLRING) to be false. | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “aaa” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/CURSORS::KILLRING 2)) to be… | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “bbb” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/CURSORS::KILLRING 1)) to be… | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “ccc” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/CURSORS::KILLRING 0)) to be… | OK |
| (simple-fake-cursor-test Test the fake-cursor created point-kind) | Expect (EQ :LEFT-INSERTING (LEM-BASE:POINT-KIND LEM-TESTS/CURSORS::CURSOR)) to be true. | OK |
| (simple-fake-cursor-test Delete cursor) | Expect (NULL (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFFER)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (replace-string) | Expect (EQUAL (CL-PPCRE:REGEX-REPLACE-ALL “foo” LEM-TESTS/ISEARCH::TEXT “foobar”) (LEM-BASE:BUF… | OK |
| Test | Description | Result |
|---|---|---|
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be true. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| Test | Description | Result |
|---|---|---|
| (string-width) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “a”)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “ab”)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abc”)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :END 2)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abcdef” :START 1 :END 3)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “あ”)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “aあ”)) to be true. | OK |
| (string-width) | Expect (EQL 0 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :END 0)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :END 3)) to be true. | OK |
| (string-width) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 5)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 6)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 7)) to be true. | OK |
| (string-width) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab))) to be true. | OK |
| (string-width) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab))) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “あ~A” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aaあ” #\Tab) :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 6 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aaあ” #\Tab) :TAB-SIZE 5 :START 0 :END 2)) to b.. | OK |
| Test. | Description | Result |
|---|---|---|
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER NIL) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER T) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER 1) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER #(#\a)) to signal TYPE-ERROR. | OK |
| (get-file-buffer) | Expect (NULL (LEM-BASE:GET-FILE-BUFFER LEM-TESTS/BUFFER-LIST-TEST::FILENAME)) to be true. | OK |
| (get-file-buffer) | Expect (EQ (LEM-BASE:GET-FILE-BUFFER LEM-TESTS/BUFFER-LIST-TEST::FILENAME) LEM-TESTS/BUFFER-LIST-… | OK |
| Test | Description | Result |
|---|---|---|
| (get-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-buffer) | Expect (NULL (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-a) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-b) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-b) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:GET-BUFFER “c”)) to be true. | OK |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-LIST-TEST::… | OK |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-LIST-TEST::… | OK |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-LIST-TEST::… | OK |
| Test | Description | Result |
|---|---|---|
| (parse-name-and-options (name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (name)) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-D… | OK |
| (parse-name-and-options (name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-… | OK |
| (parse-name-and-options (name)) | Expect (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (parse-name-and-options :conc-name) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options :conc-name) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-D… | OK |
| (parse-name-and-options :conc-name) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-… | OK |
| (parse-name-and-options :conc-name) | Expect (STRING= "" (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME LEM-TESTS/LISP-SYNTA… | OK |
| (parse-name-and-options (:conc-name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (:conc-name)) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-D… | OK |
| (parse-name-and-options (:conc-name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-… | OK |
| (parse-name-and-options (:conc-name)) | Expect (STRING= "" (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME LEM-TESTS/LISP-SYNTA… | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-D… | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-… | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (STRING= “PREFIX-” (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME LEM-TESTS/LIS… | OK |
| (parse-name-and-options invalid) | (1) | OK |
| (parse-name-and-options invalid) | (1 CONC-NAME) | OK |
| (parse-name-and-options invalid) | (NIL) | OK |
| (parse-name-and-options invalid) | (FOO (CONC-NAME 1)) | OK |
| (parse-name-and-options invalid) | (FOO (CONC-NAME #())) | OK |
| Test | Description | Result |
|---|---|---|
| (test-to-execute-a-series-of-commands execute self-insert command) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES " abcdefg" " hijklmn" " opqrstu") (LEM-BASE:BUFFER-TEX… | OK |
| (test-to-execute-a-series-of-commands execute delete-previous-character command) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES “abcdefg” “hijklmn” “opqrstu”) (LEM-BASE:BUFFER-TEXT L… | OK |
| (test-to-execute-a-series-of-commands multiple cursor killring) | Expect (EQUAL ‘(“abcd” “opqr” “hijk”) (MAPCAR (LAMBDA (LEM-TESTS/CURSORS::KILLRING) (LEM/COMMON/K… | OK |
| Test | Description | Result |
|---|---|---|
| (copy-ring) | Expect (EQ LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::RING2) to be false. | OK |
| (copy-ring) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) (LEM/COMMON/RING:RING-REF LEM-TES… | OK |
| (copy-ring) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1) (LEM/COMMON/RING:RING-REF LEM-TES… | OK |
| Test | Description | Result |
|---|---|---|
| (form-offset skip comment) | Expect (LEM-BASE:START-BUFFER-P LEM-TESTS/SYNTAX-TEST::POINT) to be true. | OK |
| (form-offset skip comment) | Expect (EQUAL (LEM-BASE:SYMBOL-STRING-AT-POINT LEM-TESTS/SYNTAX-TEST::POINT) “bar”) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (simple-test) | Expect (NULL (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test) | Expect (EQUAL “foo” (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test) | Expect (EQUAL “bar” (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test previous-history) | Expect (EQUAL ‘(“bar” T) (MULTIPLE-VALUE-LIST (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TESTS/HIST… | OK |
| (simple-test previous-history) | Expect (EQUAL ‘(“foo” T) (MULTIPLE-VALUE-LIST (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TESTS/HIST… | OK |
| (simple-test previous-history) | Expect (NULL (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test next-history) | Expect (EQUAL ‘(“bar” T) (MULTIPLE-VALUE-LIST (LEM/COMMON/HISTORY:NEXT-HISTORY LEM-TESTS/HISTORY:… | OK |
| (simple-test next-history) | Expect (NULL (LEM/COMMON/HISTORY:NEXT-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((2 12) (3 10) (4 10)) (LEM-TESTS/CURSORS::ALL-PO… | OK |
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((1 14) (2 12) (3 10)) (LEM-TESTS/CURSORS::ALL-PO… | OK |
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((2 12) (3 10) (4 10)) (LEM-TESTS/CURSORS::ALL-PO… | OK |
| Test | Description | Result |
|---|---|---|
| (ring-ref) | Expect (EQL 5 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (ring-ref) | Expect (EQL 4 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1)) to be true. | OK |
| (ring-ref) | Expect (EQL 3 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 2)) to be true. | OK |
| (ring-ref) | Expect (EQL 2 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (ring-ref) | Expect (EQL 1 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 4)) to be true. | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING -1) to signal INVALID-INDEX-ERROR. | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (EQUAL 100 (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) 100)) to be true. | OK |
| (ring-ref) | Expect (EQUAL 100 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (ring-ref) | Expect (EQUAL “xx” (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3) “xx”)) to be true. | OK |
| (ring-ref) | Expect (EQUAL “xx” (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (ring-ref) | Expect (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 5) ‘LEM-TESTS/COMMON/RING::FOO) to si… | OK |
| Test | Description | Result |
|---|---|---|
| (scan-lists limit-point forward) | Expect (AND (NULL (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT 1 0 T LEM-TESTS/SYNTAX-TEST::… | OK |
| (scan-lists limit-point forward) | Expect (AND (EQ LEM-TESTS/SYNTAX-TEST::POINT (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT 1 … | OK |
| (scan-lists limit-point backward) | Expect (AND (NULL (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT -1 0 T LEM-TESTS/SYNTAX-TEST:… | OK |
| (scan-lists limit-point backward) | Expect (AND (EQ LEM-TESTS/SYNTAX-TEST::POINT (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT -1… | OK |
| Test | Description | Result |
|---|---|---|
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “abc” 1)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “abc” 2)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 3)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 10)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “あいえうお” 0)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “あいえうお” 1)) to be true. | OK |
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “あいえうお” 2)) to be true. | OK |
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “あいえうお” 3)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “あいえうお” 4)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “あいえ” 5)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “あいえ” 6)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5 :TAB-SIZE 4)) to be true. | OK |
| (wide-index) | Expect (EQL 6 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5 :START 1)) to be true. | OK |
| (wide-index) | Expect (EQL 5 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aa~Abcdefghijk” #\Tab #\Tab) 5 :START 1 :TAB-SIZ… | OK |
| Test | Description | Result |
|---|---|---|
| (self-insert-command) | aaa | OK |
| (self-insert-command) | aaaa | OK |
| (self-insert-command) | Expect (SEARCH “Key not found: " (PRINC-TO-STRING LEM-TESTS/SELF-INSERT-COMMAND::E)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (cond-1) | COND-1 | OK |
| Test | Description | Result |
|---|---|---|
| (external-option) | Expect (EQUAL ‘(“baz” (:TEST)) (MULTIPLE-VALUE-LIST (LEM-CORE:YANK-FROM-CLIPBOARD-OR-KILLRING))) … | OK |
| (external-option) | Expect (EQUAL LEM-TESTS/KILLRING::EXPECTED-RESULT (LEM-CORE:YANK-FROM-CLIPBOARD-OR-KILLRING)) to … | OK |
| Test | Description | Result |
|---|---|---|
| (internal-option) | Expect (EQUAL ‘(“foo” (:TEST)) (MULTIPLE-VALUE-LIST (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-T… | OK |
| (internal-option) | Expect (EQUAL ‘(“foobar” (:TEST :TEST2)) (MULTIPLE-VALUE-LIST (LEM/COMMON/KILLRING:PEEK-KILLRING-… | OK |
| (internal-option) | Expect (EQUAL ‘(“bazfoobar” (:TEST3 :TEST :TEST2)) (MULTIPLE-VALUE-LIST (LEM/COMMON/KILLRING:PEEK… | OK |
| Test | Description | Result |
|---|---|---|
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (unique-buffer-name) | Expect (EQUAL “foo” (LEM-BASE:UNIQUE-BUFFER-NAME “foo”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL “a<1>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL “a<2>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) “a”) to be true. | OK |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1>) “a<1>”) to be true. | OK |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2>) “a<2>”) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> LEM-TESTS/BUFF… | OK |
| (unique-buffer-name) | Expect (EQUAL “a<2>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1> LEM-TESTS/BUFF… | OK |
| (unique-buffer-name) | Expect (EQUAL “a<1>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> LEM-TESTS/BUFF… | OK |
| (unique-buffer-name) | Expect (EQUAL “a” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> LEM-TESTS/BUFF… | OK |
| (unique-buffer-name) | Expect (EQUAL “b” (LEM-BASE:UNIQUE-BUFFER-NAME “b”)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (prompt-for-character) | Expect (EQUAL #\a (LEM-CORE:PROMPT-FOR-CHARACTER “test: " :GRAVITY (MAKE-INSTANCE ‘LEM/POPUP-WIND… | OK |
| Test | Description | Result |
|---|---|---|
| NIL | no error | OK |
| Test | Description | Result |
|---|---|---|
| (peek-killring-item-when-empty) | Expect (NULL (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0)) to b… | OK |
| Test | Description | Result |
|---|---|---|
| (appending-if-empty) | Expect (EQUAL “abc” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0… | OK |
| Test | Description | Result |
|---|---|---|
| (defclass-1) | DEFCLASS-1 | OK |
| Test | Description | Result |
|---|---|---|
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (get-next-buffer buffer-list length is 0) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 1) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) LEM-TESTS/BUFFER-LIST-… | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) LEM-TESTS/BUFFER-LIST-… | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT LEM-TESTS/BUFFER-LIST-TEST::EXPECTED-BUFFER-LIST… | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT LEM-TESTS/BUFFER-LIST-TEST::EXPECTED-BUFFER-LIST… | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT LEM-TESTS/BUFFER-LIST-TEST::EXPECTED-BUFFER-LIST… | OK |
| (delete-buffer temporary buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be false. | OK |
| (delete-buffer temporary buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::BUFFER-LIST (LEM-BASE:DELETE-BUFFER LEM-TESTS/BUFFER-LI… | OK |
| (delete-buffer temporary buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (delete-buffer kill-buffer-hook buffer local) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER)… | OK |
| (delete-buffer kill-buffer-hook buffer local) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook buffer local) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (delete-buffer kill-buffer-hook global) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER)… | OK |
| (delete-buffer kill-buffer-hook global) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook global) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (delete-buffer kill-buffer-hook local/global called local hook) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER)… | OK |
| (delete-buffer kill-buffer-hook local/global called local hook) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook local/global called global hook) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER)… | OK |
| (delete-buffer kill-buffer-hook local/global called global hook) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook local/global) | Expect (EQUAL ‘(:LOCAL :GLOBAL) (NREVERSE LEM-TESTS/BUFFER-LIST-TEST::CALLED-ORDER)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (ring-push) | Expect (STRING= (WITH-OUTPUT-TO-STRING (LEM-TESTS/COMMON/RING::OUT) (LOOP :FOR LEM-TESTS/COMMON/R… | OK |
| Test | Description | Result |
|---|---|---|
| (execute-the-same-command-consecutively) | Expect (EQUAL ‘(NIL T T) LEM/TESTS/INTERP::RESULT) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (unbury-buffer buffer-list length is 1) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TES… | OK |
| (unbury-buffer buffer-list length is 1) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) to be true. | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TES… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A LEM-TESTS/BUFFER-… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TES… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM-TESTS/BUFFER-… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TES… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| (unbury-buffer temporary buffer buffer-list length is 0) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (unbury-buffer temporary buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (unbury-buffer temporary buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| Test | Description | Result |
|---|---|---|
| (before-inserting) | Expect (EQUAL “ba” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0)… | OK |
| (before-inserting) | Expect (EQUAL “cba” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0… | OK |
| Test | Description | Result |
|---|---|---|
| (wide-char-p) | Expect (LOOP :FOR CHAR :IN LEM-TESTS/STRING-WIDTH-UTILS::ALPHABET-OR-NUMBERS :ALWAYS (NOT (LEM-BA… | OK |
| (wide-char-p) | Expect (LOOP :FOR CHAR :IN LEM-TESTS/STRING-WIDTH-UTILS::CONTROL-CHARS :ALWAYS (LEM-BASE:WIDE-CHA… | OK |
| (wide-char-p) | Expect (LOOP :FOR (LEM-TESTS/STRING-WIDTH-UTILS::START LEM-TESTS/STRING-WIDTH-UTILS::END) :IN LEM… | OK |
| (wide-char-p) | Expect (LEM-BASE:WIDE-CHAR-P (CODE-CHAR 127798)) to be false. | OK |
| (wide-char-p) | Expect (LEM-BASE:WIDE-CHAR-P (CODE-CHAR 128253)) to be false. | OK |
| Test | Description | Result |
|---|---|---|
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (get-previous-buffer buffer-list length is 0) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (get-previous-buffer buffer-list length is 1) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) NIL) to be true. | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) LEM-TESTS/BUFFER-L… | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) LEM-TESTS/BUFFER-L… | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (any-modified-buffer-p) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM… | OK |
| (any-modified-buffer-p) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (any-modified-buffer-p edit buffer-a, any-modified-buffer-p = nil) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (any-modified-buffer-p edit buffer-b, any-modified-buffer-p = nil) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (any-modified-buffer-p edit buffer-c, any-modified-buffer-p = t) | Expect (EQ T (LEM-BASE:ANY-MODIFIED-BUFFER-P)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (char-width alphabet) | Expect (EQL 1 (LEM-BASE:CHAR-WIDTH #\a 0)) to be true. | OK |
| (char-width alphabet) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\a 1)) to be true. | OK |
| (char-width tab) | Expect (LOOP :FOR LEM-TESTS/STRING-WIDTH-UTILS::I :FROM 0 :BELOW 8 :ALWAYS (EQL 8 (LEM-BASE:CHAR-… | OK |
| (char-width tab) | Expect (LOOP :FOR LEM-TESTS/STRING-WIDTH-UTILS::I :FROM 8 :BELOW 16 :ALWAYS (EQL 16 (LEM-BASE:CHA… | OK |
| (char-width tab) | Expect (EQL 10 (LEM-BASE:CHAR-WIDTH #\Tab 9 :TAB-SIZE 10)) to be true. | OK |
| (char-width control) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\Null 0)) to be true. | OK |
| (char-width control) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\Null 1)) to be true. | OK |
| (char-width control) | Expect (EQL 4 (LEM-BASE:CHAR-WIDTH #\U+E0FF 0)) to be true. | OK |
| (char-width control) | Expect (EQL 5 (LEM-BASE:CHAR-WIDTH #\U+E0FF 1)) to be true. | OK |
| (char-width control) | Expect (EQL 6 (LEM-BASE:CHAR-WIDTH #\U+E0FF 2)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\U+3042 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\U+3042 1)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width newline) | Expect (EQL 0 (LEM-BASE:CHAR-WIDTH #\Newline 0)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (ring-length) | Expect (= 0 (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to be true. | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| Test | Description | Result |
|---|---|---|
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (bury-buffer buffer-list length is 1) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (bury-buffer buffer-list length is 1) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) to be true. | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM-TESTS/BUFFER-… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| (bury-buffer temporary buffer buffer-list length is 0) | Expect (EQ NIL (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T))) to be true. | OK |
| (bury-buffer temporary buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-BUFFER NIL :… | OK |
| (bury-buffer temporary buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| Test | Description | Result |
|---|---|---|
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:1: | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:2:# | |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:3:aaaaaa | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:4:bbbbbb | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:5:cccccc | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:6: | # |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:6: | # |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:9: | # |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:9: | # |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:12:(aaaaaaa( | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:18:(defun foo (foo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:24:(defmacro foo (… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:30:(#+sbcl foo | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:33:(let ((x y) | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:43:(list ;comment | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:47:(defun foo (x) | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:75:(defmacro foo (… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:82:(defun foo () | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:87:(defmacro foofo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:95:(loop for i fro… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:122:(loop for x in… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:126:(loop for x in… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:136:(loop for f in… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:142:(loop (foo) | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:147:(loop ;; comment | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:151:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:156:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:161:(loop ;; comme… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:166:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:171:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:177:(loop with foo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:182:(progn | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:192:(loop | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:200:(defmethod foo | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:205:(defmethod foo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:210:(defgeneric fo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:216:(defgeneric fo… | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:222:(defun foo (a | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:226:(defun foo (a | OK |
| (indent-test-for-sample-case) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:231:(defun foo (a … | OK |
| Test | Description | Result |
|---|---|---|
| (test-completion) | Expect (EQUAL ‘(“apple” “banana” “orange” “pineapple”) (LEM-CORE:COMPLETION “a” LEM-TESTS/COMPLET… | OK |
| (test-completion) | Expect (EQUAL ‘(“apple” “pineapple”) (LEM-CORE:COMPLETION “app” LEM-TESTS/COMPLETION::ITEMS)) to … | OK |
| (test-completion) | Expect (EQUAL ‘NIL (LEM-CORE:COMPLETION “xyz” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (test-completion) | Expect (EQUAL ‘NIL (LEM-CORE:COMPLETION “APP” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (test-completion) | Expect (EQUAL ‘(“apple” “pineapple”) (LEM-CORE:COMPLETION “APP” LEM-TESTS/COMPLETION::ITEMS :KEY … | OK |
| (test-completion) | Expect (EQUAL ‘(“foo-bar-baz” “foo-bar-y”) (LEM-CORE:COMPLETION “foo-bar” ‘(“foo-bar-baz” “foo-ba… | OK |
| Test | Description | Result |
|---|---|---|
| (get-file-mode) | Expect (EQUAL ‘LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE (LEM-CORE:GET-FILE-MODE “.bashrc”)) to be true. | OK |
| (get-file-mode) | Expect (EQUAL ‘LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE (LEM-CORE:GET-FILE-MODE “foo.bashrc”)) to be… | OK |
| (get-file-mode) | Expect (EQUAL ‘LEM-LISP-MODE/INTERNAL:LISP-MODE (LEM-CORE:GET-FILE-MODE “foo.lisp”)) to be true. | OK |
| (get-file-mode) | Expect (NULL (LEM-CORE:GET-FILE-MODE “foo.lisp.bak”)) to be true. | OK |
Progress
83%
| Test | Description | Result |
|---|---|---|
| (copy-ring) | Expect (EQ LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::RING2) to be false. | OK |
| (copy-ring) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) (LEM/COMMON/RING:RING-REF LEM-TES… | OK |
| (copy-ring) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1) (LEM/COMMON/RING:RING-REF LEM-TES… | OK |
| Test | Description | Result |
|---|---|---|
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-previous-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (get-previous-buffer buffer-list length is 0) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (get-previous-buffer buffer-list length is 1) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) NIL) to be true. | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) LEM-TESTS/BUFFER-L… | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) LEM-TESTS/BUFFER-L… | OK |
| (get-previous-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-next-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (get-next-buffer buffer-list length is 0) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 1) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) LEM-TESTS/BUFFER-LIST-… | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) LEM-TESTS/BUFFER-LIST-… | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (get-next-buffer buffer-list length is 3) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “abc” 1)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “abc” 2)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 3)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 10)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “あいえうお” 0)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “あいえうお” 1)) to be true. | OK |
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “あいえうお” 2)) to be true. | OK |
| (wide-index) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “あいえうお” 3)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “あいえうお” 4)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “あいえ” 5)) to be true. | OK |
| (wide-index) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “あいえ” 6)) to be true. | OK |
| (wide-index) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5)) to be true. | OK |
| (wide-index) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5 :TAB-SIZE 4)) to be true. | OK |
| (wide-index) | Expect (EQL 6 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5 :START 1)) to be true. | OK |
| (wide-index) | Expect (EQL 5 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aa~Abcdefghijk” #\Tab #\Tab) 5 :START 1 :TAB-SIZ… | OK |
| Test | Description | Result |
|---|---|---|
| (get-file-mode) | Expect (EQUAL (QUOTE LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE) (LEM-CORE:GET-FILE-MODE “.bashrc”)) t… | OK |
| (get-file-mode) | Expect (EQUAL (QUOTE LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE) (LEM-CORE:GET-FILE-MODE “foo.bashrc”)… | OK |
| (get-file-mode) | Expect (EQUAL (QUOTE LEM-LISP-MODE/INTERNAL:LISP-MODE) (LEM-CORE:GET-FILE-MODE “foo.lisp”)) to be… | OK |
| (get-file-mode) | Expect (NULL (LEM-CORE:GET-FILE-MODE “foo.lisp.bak”)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (control-char) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (indent-test-under-lem-base) | Raise an error while testing. | ERROR |
| Test | Description | Result |
|---|---|---|
| (form-offset skip comment) | Raise an error while testing. | ERROR |
| Test | Description | Result |
|---|---|---|
| (any-modified-buffer-p) | Raise an error while testing. | ERROR |
| Test | Description | Result |
|---|---|---|
| (buffer-list) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (buffer-list) | Expect (LEM-BASE:BUFFERP LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (buffer-list) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (buffer-list make buffer-a) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (buffer-list make buffer-b) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) (L… | OK |
| (buffer-list make buffer-c) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM… | OK |
| Test | Description | Result |
|---|---|---|
| (cond-1) | COND-1 | OK |
| Test | Description | Result |
|---|---|---|
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (unbury-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (unbury-buffer buffer-list length is 1) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TES… | OK |
| (unbury-buffer buffer-list length is 1) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) to be true. | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TES… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A LEM-TESTS/BUFFER-… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TES… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM-TESTS/BUFFER-… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TES… | OK |
| (unbury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| (unbury-buffer temporary buffer buffer-list length is 0) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (unbury-buffer temporary buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (unbury-buffer temporary buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| Test | Description | Result |
|---|---|---|
| (simple-timer-test) | Expect (LEM-MAILBOX:RECEIVE-MESSAGE LEM-TESTS/TIMER::MAILBOX :TIMEOUT 0.01) to be true. | OK |
| (simple-timer-test) | Expect LEM-TESTS/TIMER::TIMEOUT to be true. | OK |
| (simple-timer-test) | Expect (LEM/COMMON/TIMER:TIMER-EXPIRED-P LEM/COMMON/TIMER:TIMER) to be true. | OK |
| (simple-timer-test) | Expect (LEM-MAILBOX:RECEIVE-MESSAGE LEM-TESTS/TIMER::MAILBOX :TIMEOUT 0.01) to be false. | ERROR |
| Test | Description | Result |
|---|---|---|
| (test-to-execute-a-series-of-commands execute self-insert command) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES " abcdefg" " hijklmn" " opqrstu") (LEM-BASE:BUFFER-TEX… | OK |
| (test-to-execute-a-series-of-commands execute delete-previous-character command) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES “abcdefg” “hijklmn” “opqrstu”) (LEM-BASE:BUFFER-TEXT L… | OK |
| (test-to-execute-a-series-of-commands multiple cursor killring) | Expect (EQUAL (QUOTE (“abcd” “opqr” “hijk”)) (MAPCAR (LAMBDA (LEM-TESTS/CURSORS::KILLRING) (LEM/C… | OK |
| Test | Description | Result |
|---|---|---|
| (scan-lists limit-point forward) | Expect (AND (NULL (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT 1 0 T LEM-TESTS/SYNTAX-TEST::… | OK |
| (scan-lists limit-point forward) | Expect (AND (EQ LEM-TESTS/SYNTAX-TEST::POINT (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT 1 … | OK |
| (scan-lists limit-point backward) | Expect (AND (NULL (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT -1 0 T LEM-TESTS/SYNTAX-TEST:… | OK |
| (scan-lists limit-point backward) | Expect (AND (EQ LEM-TESTS/SYNTAX-TEST::POINT (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT -1… | OK |
| Test | Description | Result |
|---|---|---|
| (appending-if-empty) | Expect (EQUAL “abc” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0… | OK |
| Test | Description | Result |
|---|---|---|
| (rotate) | Expect (EQUAL “a” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0))… | OK |
| (rotate) | Expect (EQUAL “b” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 1))… | OK |
| (rotate) | Expect (EQUAL “b” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0))… | OK |
| (rotate) | Expect (EQUAL “a” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 1))… | OK |
| Test | Description | Result |
|---|---|---|
| (ring-push) | Expect (STRING= (WITH-OUTPUT-TO-STRING (LEM-TESTS/COMMON/RING::OUT) (LOOP :FOR LEM-TESTS/COMMON/R… | ERROR |
| Test | Description | Result |
|---|---|---|
| (get-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (get-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (get-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (get-buffer) | Expect (NULL (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-a) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-b) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-b) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (get-buffer buffer-c) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:GET-BUFFER “c”)) to be true. | OK |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-LIST-TEST::… | OK |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-LIST-TEST::… | OK |
| (get-buffer receive the buffer-object itself) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-LIST-TEST::… | OK |
| Test | Description | Result |
|---|---|---|
| (defclass-1) | DEFCLASS-1 | OK |
| Test | Description | Result |
|---|---|---|
| (internal-option) | Expect (EQUAL (QUOTE (“foo” (:TEST))) (MULTIPLE-VALUE-LIST (LEM/COMMON/KILLRING:PEEK-KILLRING-ITE… | OK |
| (internal-option) | Expect (EQUAL (QUOTE (“foobar” (:TEST :TEST2))) (MULTIPLE-VALUE-LIST (LEM/COMMON/KILLRING:PEEK-KI… | OK |
| (internal-option) | Expect (EQUAL (QUOTE (“bazfoobar” (:TEST3 :TEST :TEST2))) (MULTIPLE-VALUE-LIST (LEM/COMMON/KILLRI… | OK |
| Test | Description | Result |
|---|---|---|
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL (QUOTE ((2 12) (3 10) (4 10))) (LEM-TESTS/CURSORS:… | OK |
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL (QUOTE ((1 14) (2 12) (3 10))) (LEM-TESTS/CURSORS:… | OK |
| (next-line/previous-line) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL (QUOTE ((2 12) (3 10) (4 10))) (LEM-TESTS/CURSORS:… | OK |
| Test | Description | Result |
|---|---|---|
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER NIL) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER T) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER 1) to signal TYPE-ERROR. | OK |
| (get-file-buffer argument type) | Expect (LEM-BASE:GET-FILE-BUFFER #(#\a)) to signal TYPE-ERROR. | OK |
| (get-file-buffer) | Raise an error while testing. | ERROR |
| Test | Description | Result |
|---|---|---|
| (replace-string) | Expect (EQUAL (CL-PPCRE:REGEX-REPLACE-ALL “foo” LEM-TESTS/ISEARCH::TEXT “foobar”) (LEM-BASE:BUF… | OK |
| Test | Description | Result |
|---|---|---|
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (delete-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT LEM-TESTS/BUFFER-LIST-TEST::EXPECTED-BUFFER-LIST… | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT LEM-TESTS/BUFFER-LIST-TEST::EXPECTED-BUFFER-LIST… | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (delete-buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (delete-buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT LEM-TESTS/BUFFER-LIST-TEST::EXPECTED-BUFFER-LIST… | OK |
| (delete-buffer temporary buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be false. | OK |
| (delete-buffer temporary buffer) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::BUFFER-LIST (LEM-BASE:DELETE-BUFFER LEM-TESTS/BUFFER-LI… | OK |
| (delete-buffer temporary buffer) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (delete-buffer kill-buffer-hook buffer local) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER)… | OK |
| (delete-buffer kill-buffer-hook buffer local) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook buffer local) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (delete-buffer kill-buffer-hook global) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER)… | OK |
| (delete-buffer kill-buffer-hook global) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook global) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (delete-buffer kill-buffer-hook local/global called local hook) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER)… | OK |
| (delete-buffer kill-buffer-hook local/global called local hook) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook local/global called global hook) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER)… | OK |
| (delete-buffer kill-buffer-hook local/global called global hook) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (delete-buffer kill-buffer-hook local/global) | Expect (EQUAL (QUOTE (:LOCAL :GLOBAL)) (NREVERSE LEM-TESTS/BUFFER-LIST-TEST::CALLED-ORDER)) to be… | OK |
| Test | Description | Result |
|---|---|---|
| (char-width alphabet) | Expect (EQL 1 (LEM-BASE:CHAR-WIDTH #\a 0)) to be true. | OK |
| (char-width alphabet) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\a 1)) to be true. | OK |
| (char-width tab) | Expect (LOOP :FOR LEM-TESTS/STRING-WIDTH-UTILS::I :FROM 0 :BELOW 8 :ALWAYS (EQL 8 (LEM-BASE:CHAR-… | OK |
| (char-width tab) | Expect (LOOP :FOR LEM-TESTS/STRING-WIDTH-UTILS::I :FROM 8 :BELOW 16 :ALWAYS (EQL 16 (LEM-BASE:CHA… | OK |
| (char-width tab) | Expect (EQL 10 (LEM-BASE:CHAR-WIDTH #\Tab 9 :TAB-SIZE 10)) to be true. | OK |
| (char-width control) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\Null 0)) to be true. | OK |
| (char-width control) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\Null 1)) to be true. | OK |
| (char-width control) | Expect (EQL 4 (LEM-BASE:CHAR-WIDTH #\ 0)) to be true. | OK |
| (char-width control) | Expect (EQL 5 (LEM-BASE:CHAR-WIDTH #\ 1)) to be true. | OK |
| (char-width control) | Expect (EQL 6 (LEM-BASE:CHAR-WIDTH #\ 2)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\あ 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\あ 1)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width wide) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) 0)) to be true. | OK |
| (char-width newline) | Expect (EQL 0 (LEM-BASE:CHAR-WIDTH #\Newline 0)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (string-width) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “a”)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “ab”)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abc”)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :END 2)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abcdef” :START 1 :END 3)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “あ”)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “aあ”)) to be true. | OK |
| (string-width) | Expect (EQL 0 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :END 0)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :END 3)) to be true. | OK |
| (string-width) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 5)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 6)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 7)) to be true. | OK |
| (string-width) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab))) to be true. | OK |
| (string-width) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab))) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (string-width) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (string-width) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “あ~A” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (string-width) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aaあ” #\Tab) :START 1)) to be true. | OK |
| (string-width) | Expect (EQL 6 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aaあ” #\Tab) :TAB-SIZE 5 :START 0 :END 2)) to b.. | OK |
| Test | Description | Result. |
|---|---|---|
| NIL | no error | OK |
| Test | Description | Result |
|---|---|---|
| (prompt-for-character) | Expect (EQUAL #\a (LEM-CORE:PROMPT-FOR-CHARACTER “test: " :GRAVITY (MAKE-INSTANCE (QUOTE LEM/POPU… | OK |
| Test | Description | Result |
|---|---|---|
| (analyze-defstruct simple) | Raise an error while testing. | ERROR |
| (analyze-defstruct complex slot-description) | Raise an error while testing. | ERROR |
| (analyze-defstruct name-and-options) | Raise an error while testing. | ERROR |
| Test | Description | Result |
|---|---|---|
| (infer-package-name-1) | Expect (EQUAL “project-root/foo/bar” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1… | OK |
| (infer-package-name-1) | Expect (EQUAL “project-root-tests/a” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1… | OK |
| (infer-package-name-1) | Expect (EQUAL “project-root/test/a/b” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-… | OK |
| (infer-package-name-1) | Expect (EQUAL “project-root/test/a/b” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-… | OK |
| (infer-package-name-1) | Expect (EQUAL “project-root/main” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1 (L… | OK |
| (infer-package-name-1) | Expect (EQUAL “lem-project-root/foo/bar” (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NA… | OK |
| Test | Description | Result |
|---|---|---|
| (ring-ref) | Expect (EQL 5 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (ring-ref) | Expect (EQL 4 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1)) to be true. | OK |
| (ring-ref) | Expect (EQL 3 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 2)) to be true. | OK |
| (ring-ref) | Expect (EQL 2 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (ring-ref) | Expect (EQL 1 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 4)) to be true. | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING -1) to signal INVALID-INDEX-ERROR. | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (ring-ref) | Expect (EQUAL 100 (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) 100)) to be true. | OK |
| (ring-ref) | Expect (EQUAL 100 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (ring-ref) | Expect (EQUAL “xx” (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3) “xx”)) to be true. | OK |
| (ring-ref) | Expect (EQUAL “xx” (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (ring-ref) | Expect (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 5) (QUOTE LEM-TESTS/COMMON/RING::FOO)… | OK |
| Test | Description | Result |
|---|---|---|
| (ring-length) | Expect (= 0 (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to be true. | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| (ring-length) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to… | OK |
| Test | Description | Result |
|---|---|---|
| (test-completion) | Expect (EQUAL (QUOTE (“apple” “banana” “orange” “pineapple”)) (LEM-CORE:COMPLETION “a” LEM-TESTS/… | OK |
| (test-completion) | Expect (EQUAL (QUOTE (“apple” “pineapple”)) (LEM-CORE:COMPLETION “app” LEM-TESTS/COMPLETION::ITEM… | OK |
| (test-completion) | Expect (EQUAL (QUOTE NIL) (LEM-CORE:COMPLETION “xyz” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (test-completion) | Expect (EQUAL (QUOTE NIL) (LEM-CORE:COMPLETION “APP” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (test-completion) | Expect (EQUAL (QUOTE (“apple” “pineapple”)) (LEM-CORE:COMPLETION “APP” LEM-TESTS/COMPLETION::ITEM… | OK |
| (test-completion) | Expect (EQUAL (QUOTE (“foo-bar-baz” “foo-bar-y”)) (LEM-CORE:COMPLETION “foo-bar” (QUOTE (“foo-bar… | OK |
| Test | Description | Result |
|---|---|---|
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be true. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (ring-empty-p) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| Test | Description | Result |
|---|---|---|
| (self-insert-command) | aaa | OK |
| (self-insert-command) | aaaa | OK |
| (self-insert-command) | Expect (SEARCH “Key not found: " (PRINC-TO-STRING LEM-TESTS/SELF-INSERT-COMMAND::E)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (execute-the-same-command-consecutively) | Expect (EQUAL (QUOTE (NIL T T)) LEM/TESTS/INTERP::RESULT) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (bury-buffer argument type) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (bury-buffer buffer-list length is 1) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (bury-buffer buffer-list length is 1) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) to be true. | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B LEM-TESTS/BUFFER-… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER-LIST-TEST:… | OK |
| (bury-buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| (bury-buffer temporary buffer buffer-list length is 0) | Expect (EQ NIL (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T))) to be true. | OK |
| (bury-buffer temporary buffer buffer-list length is 3) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-BUFFER NIL :… | OK |
| (bury-buffer temporary buffer buffer-list length is 3) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C LEM-TESTS/BUFFER-… | OK |
| Test | Description | Result |
|---|---|---|
| (timer-name-tests) | Expect (STRING= “TESTING-TIMER” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (timer-name-tests) | Expect (STRING= “TESTING-TIMER” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (timer-name-tests) | Expect (STRING= “foo” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (simple-fake-cursor-test Test the fake-cursor created buffer-fake-cursors) | Expect (ALEXANDRIA:LENGTH= 1 (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFFER)) to be true. | OK |
| (simple-fake-cursor-test Test the fake-cursor created buffer-fake-cursors) | Expect (EQ LEM-TESTS/CURSORS::CURSOR (FIRST (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFF… | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQ (LEM-CORE:CURRENT-KILLRING) LEM-TESTS/CURSORS::KILLRING) to be false. | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “aaa” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/CURSORS::KILLRING 2)) to be… | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “bbb” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/CURSORS::KILLRING 1)) to be… | OK |
| (simple-fake-cursor-test Test the fake-cursor created killring) | Expect (EQUAL “ccc” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/CURSORS::KILLRING 0)) to be… | OK |
| (simple-fake-cursor-test Test the fake-cursor created point-kind) | Expect (EQ :LEFT-INSERTING (LEM-BASE:POINT-KIND LEM-TESTS/CURSORS::CURSOR)) to be true. | OK |
| (simple-fake-cursor-test Delete cursor) | Expect (NULL (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFFER)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (indent-test-for-sample-case) | Raise an error while testing. | ERROR |
| Test | Description | Result |
|---|---|---|
| (peek-killring-item-when-empty) | Expect (NULL (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0)) to b… | OK |
| Test | Description | Result |
|---|---|---|
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (unique-buffer-name argument type) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (unique-buffer-name) | Expect (EQUAL “foo” (LEM-BASE:UNIQUE-BUFFER-NAME “foo”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL “a<1>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL “a<2>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) “a”) to be true. | OK |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1>) “a<1>”) to be true. | OK |
| (unique-buffer-name) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2>) “a<2>”) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> LEM-TESTS/BUFF… | OK |
| (unique-buffer-name) | Expect (EQUAL “a<2>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1> LEM-TESTS/BUFF… | OK |
| (unique-buffer-name) | Expect (EQUAL “a<1>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> LEM-TESTS/BUFF… | OK |
| (unique-buffer-name) | Expect (EQUAL “a” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (unique-buffer-name) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> LEM-TESTS/BUFF… | OK |
| (unique-buffer-name) | Expect (EQUAL “b” (LEM-BASE:UNIQUE-BUFFER-NAME “b”)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (NULL (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (= 10 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (= 8 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (= 0 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (compute-the-time-for-the-next-idle-timer-to-be-called) | Expect (= -8 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (before-inserting) | Expect (EQUAL “ba” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0)… | OK |
| (before-inserting) | Expect (EQUAL “cba” (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM LEM-TESTS/COMMON/KILLRING::KILLRING 0… | OK |
| Test | Description | Result |
|---|---|---|
| (simple-test) | Expect (NULL (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test) | Expect (EQUAL “foo” (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test) | Expect (EQUAL “bar” (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test previous-history) | Expect (EQUAL (QUOTE (“bar” T)) (MULTIPLE-VALUE-LIST (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TES… | OK |
| (simple-test previous-history) | Expect (EQUAL (QUOTE (“foo” T)) (MULTIPLE-VALUE-LIST (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TES… | OK |
| (simple-test previous-history) | Expect (NULL (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (simple-test next-history) | Expect (EQUAL (QUOTE (“bar” T)) (MULTIPLE-VALUE-LIST (LEM/COMMON/HISTORY:NEXT-HISTORY LEM-TESTS/H… | OK |
| (simple-test next-history) | Expect (NULL (LEM/COMMON/HISTORY:NEXT-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| Test | Description | Result |
|---|---|---|
| (external-option) | Expect (EQUAL (QUOTE (“baz” (:TEST))) (MULTIPLE-VALUE-LIST (LEM-CORE:YANK-FROM-CLIPBOARD-OR-KILLR… | OK |
| (external-option) | Expect (EQUAL LEM-TESTS/KILLRING::EXPECTED-RESULT (LEM-CORE:YANK-FROM-CLIPBOARD-OR-KILLRING)) to … | OK |
| Test | Description | Result |
|---|---|---|
| (display-popup-window) | Expect (EQUAL “hello” (LEM-FAKE-INTERFACE:GET-DISPLAYED-TEXT LEM-TESTS/POPUP-WINDOW::POPUP-WINDOW… | OK |
| (display-popup-window) | Expect (EQUAL “hello” (LEM-BASE:BUFFER-TEXT (LEM-CORE:WINDOW-BUFFER LEM-TESTS/POPUP-WINDOW::POPUP… | OK |
| (display-popup-window) | Expect (EQL 1 (LEM-CORE:FLOATING-WINDOW-BORDER LEM-TESTS/POPUP-WINDOW::POPUP-WINDOW)) to be true. | OK |
| (display-popup-window) | Expect (EQ (LEM-CORE:CURRENT-WINDOW) (LEM/POPUP-WINDOW::POPUP-WINDOW-SOURCE-WINDOW LEM-TESTS/POPU… | OK |
| (display-popup-window) | Expect (= 5 (LEM/POPUP-WINDOW::POPUP-WINDOW-BASE-WIDTH LEM-TESTS/POPUP-WINDOW::POPUP-WINDOW)) to … | OK |
| (display-popup-window) | Expect (= 1 (LEM/POPUP-WINDOW::POPUP-WINDOW-BASE-HEIGHT LEM-TESTS/POPUP-WINDOW::POPUP-WINDOW)) to… | OK |
| (display-popup-window) | Expect (LEM/POPUP-WINDOW::POPUP-WINDOW-GRAVITY LEM-TESTS/POPUP-WINDOW::POPUP-WINDOW) to be an ins… | OK |
| Test | Description | Result |
|---|---|---|
| (parse-name-and-options (name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (name)) | Expect (EQ (QUOTE LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO) LEM-TESTS/LISP-SYNTAX/DEFSTRU… | OK |
| (parse-name-and-options (name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-… | OK |
| (parse-name-and-options (name)) | Expect (NULL (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME LEM-TESTS/LISP-SYNTAX/DEFS… | OK |
| (parse-name-and-options :conc-name) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options :conc-name) | Expect (EQ (QUOTE LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO) LEM-TESTS/LISP-SYNTAX/DEFSTRU… | OK |
| (parse-name-and-options :conc-name) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-… | OK |
| (parse-name-and-options :conc-name) | Expect (STRING= "” (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME LEM-TESTS/LISP-SYNTA… | OK |
| (parse-name-and-options (:conc-name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (:conc-name)) | Expect (EQ (QUOTE LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO) LEM-TESTS/LISP-SYNTAX/DEFSTRU… | OK |
| (parse-name-and-options (:conc-name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-… | OK |
| (parse-name-and-options (:conc-name)) | Expect (STRING= "” (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME LEM-TESTS/LISP-SYNTA… | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (EQ (QUOTE LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO) LEM-TESTS/LISP-SYNTAX/DEFSTRU… | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-… | OK |
| (parse-name-and-options (:conc-name conc-name)) | Expect (STRING= “PREFIX-” (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME LEM-TESTS/LIS… | OK |
| (parse-name-and-options invalid) | (1) | OK |
| (parse-name-and-options invalid) | (1 CONC-NAME) | OK |
| (parse-name-and-options invalid) | (NIL) | OK |
| (parse-name-and-options invalid) | (FOO (CONC-NAME 1)) | OK |
| (parse-name-and-options invalid) | (FOO (CONC-NAME #())) | OK |
Progress
98%
| Test | Description | Result |
|---|---|---|
| (lem-tests/common/killring SIMPLE-TEST) | Expect (LEM/COMMON/KILLRING:PUSH-KILLRING-ITEM | |
| LEM-TESTS/COMMON/KILLRING::KILLRING | ||
| … | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (LEM/COMMON/KILLRING:PUSH-KILLRING-ITEM | |
| LEM-TESTS/COMMON/KILLRING::KILLRING | ||
| … | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “def” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “def” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST NIL) | Expect (EQUAL “def!!” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TE… | OK | |
| (lem-tests/common/killring SIMPLE-TEST NIL) | Expect (EQUAL “??def!!” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-… | OK | |
| (lem-tests/common/killring APPENDING-IF-EMPTY) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring BEFORE-INSERTING) | Expect (EQUAL “ba” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS… | OK | |
| (lem-tests/common/killring BEFORE-INSERTING) | Expect (EQUAL “cba” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| NIL | no error | OK |
| (lem-tests/common/killring ROTATE) | Expect (EQUAL “a” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (lem-tests/common/killring ROTATE) | Expect (EQUAL “b” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (lem-tests/common/killring ROTATE) | Expect (EQUAL “b” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (lem-tests/common/killring ROTATE) | Expect (EQUAL “a” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (lem-tests/common/killring INTERNAL-OPTION) | Expect (EQUAL ‘(“foo” (:TEST)) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/KILL… | OK | |
| (lem-tests/common/killring INTERNAL-OPTION) | Expect (EQUAL ‘(“foobar” (:TEST :TEST2)) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/C… | OK | |
| (lem-tests/common/killring INTERNAL-OPTION) | Expect (EQUAL ‘(“bazfoobar” (:TEST3 :TEST :TEST2)) | |
| (MULTIPLE-VALUE-LIST | ||
| … | OK | |
| (lem-tests/common/killring PEEK-KILLRING-ITEM-WHEN-EMPTY) | Expect (NULL | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/COMMON/KILLRING::… | OK | |
| (lem-tests/history SIMPLE-TEST) | Expect (NULL (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (lem-tests/history SIMPLE-TEST) | Expect (EQUAL “foo” | |
| (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) t… | OK | |
| (lem-tests/history SIMPLE-TEST) | Expect (EQUAL “bar” | |
| (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) t… | OK | |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (EQUAL ‘(“bar” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:PR… | OK | |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (EQUAL ‘(“foo” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:PR… | OK | |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (NULL (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (EQUAL ‘(“bar” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:NE… | OK | |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (NULL (LEM/COMMON/HISTORY:NEXT-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (lem-tests/lisp-syntax/indent-test COND-1) | COND-1 | OK |
| (lem-tests/lisp-syntax/indent-test DEFCLASS-1) | DEFCLASS-1 | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:3:(defclass encoding () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:8:(defclass internal-encoding (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:13:(defvar *encoding-collection… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:15:(defun register-encoding (sy… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:22:(defun unregister-encoding (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:25:(defun encoding (symbol end-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:32:(defun e+ (c) (+ #xe000 c)) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:34:(defun encoding-read-detect-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:79:(defgeneric encoding-read (e… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:81:(defgeneric encoding-write (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:83:(defgeneric encoding-check (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/encodings.lisp:85:(defmethod encoding-check (e… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:3:(defvar icon-name-table (make-ha… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:4:(defvar icon-code-table (make-ha… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:5:(defvar icon-ext-table (make-has… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:7:(defstruct icon | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:12:(defun register-icon (name code &… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:18:(defun register-icon-ext (ext name) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:21:(defun icon-code-p (code) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:24:(defun icon-string (name) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:29:(defun icon-string-by-ext (ext) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:33:(defun icon-value (code key) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/icon.lisp:38:(register-icon “folder” #x1f4c1) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:3:(defconstant +defaul… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:5:(defparameter *char-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:44:(defun control-char… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:47:(defun wide-char-p … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:54:(defun char-width (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:69:(defun string-width… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/string-width-utils.lisp:76:(defun wide-index (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:3:(defparameter +primordial-buffer… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:5:(defclass buffer () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:88:(defclass text-buffer (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:91:(defmethod buffer-mark ((buffer… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:94:(defmethod buffer-mark-p ((buff… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:97:;; workaround for windows | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:98:#+win32 | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:99:(defmethod initialize-instance … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:103:(setf (documentation ‘buffer-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:104:(setf (documentation ‘buffer-m… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:105:(setf (documentation ‘buffer-s… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:106:(setf (documentation ‘buffer-e… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:108:(defvar current-buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:110:(defun primordial-buffer () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:113:(defun current-buffer () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:120:(defun (setf current-buffer) (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:125:(defparameter undo-modes ‘(:… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:126:(defvar undo-mode :edit) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:128:(defun last-edit-history (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:133:(defun make-buffer-start-point… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:136:(defun make-buffer-end-point (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:139:(defgeneric make-buffer-point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:143:(defun make-buffer (name &key … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:172:(defun bufferp (x) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:176:(defun buffer-modified-p (&opt… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:180:(defun buffer-enable-undo-p (&… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:184:(defun buffer-enable-undo (buf… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:189:(defun buffer-disable-undo (bu… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:196:(defmethod print-object ((buff… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:202:(defun %buffer-clear-keep-binf… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:209:(defun buffer-free (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:214:(defun deleted-buffer-p (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:217:(defun buffer-name (&optional … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:221:(defun buffer-filename (&optio… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:226:(defun (setf buffer-filename) … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:230:(defun buffer-directory (&opti… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:235:(defun (setf buffer-directory)… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:242:(defun buffer-unmark (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:246:(defun buffer-mark-cancel (buf… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:249:(defun buffer-attributes (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:259:(defun check-read-only-buffer … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:263:(defun buffer-modify (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:271:(defun push-undo-stack (buffer… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:274:(defun push-redo-stack (buffer… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:277:(defun push-undo (buffer edit) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:288:(defun buffer-rename (buffer n… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:296:(defun buffer-undo-1 (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:305:(defun buffer-undo (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:319:(defun buffer-redo-1 (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:327:(defun buffer-redo (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:340:(defun buffer-undo-boundary (&… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:344:(defun buffer-value (buffer na… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:353:(defun (setf buffer-value) (va… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:360:(defun buffer-unbound (buffer … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:364:(defun clear-buffer-variables … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:368:(defun call-with-buffer-point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer.lisp:374:(defmacro with-buffer-point ((… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:3:(defun same-line-p (point1 point2) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:9:(defun first-line-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:14:(defun last-line-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:19:(defun start-line-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:23:(defun end-line-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:28:(defun start-buffer-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:32:(defun end-buffer-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:36:(defun %move-to-position (point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:44:(defun move-point (point new-point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:53:(defun line-start (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:58:(defun line-end (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:64:(defun buffer-start (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:68:(defun buffer-end (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:72:(defun line-offset (point n &opt… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:102:(declaim (inline %character-off… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:103:(defun %character-offset (point… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:124:(defun character-offset (point n) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:134:(defun character-at (point &opt… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:145:(defun line-string (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:149:(defun text-property-at (point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:160:(defun put-text-property (start… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:177:(defun remove-text-property (st… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:192:(defun next-single-property-cha… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:206:(defun previous-single-property… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:220:(defun insert-character (point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:225:(defun insert-string (point str… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:242:(defun delete-character (point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:253:(defun erase-buffer (&optional … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:260:(defun region-beginning (&optio… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:265:(defun region-end (&optional (b… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:270:(defun %map-region (start end f… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:289:(defun map-region (start end fu… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:296:(defun points-to-string (start-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:307:(defun count-characters (start-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:318:(defun delete-between-points (s… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:327:(defun count-lines (start-point… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:334:(defun apply-region-lines (star… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:347:(defun line-number-at-point (po… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:351:(defun point-column (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:358:(defun move-to-column (point co… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:379:(defun position-at-point (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:386:(defun move-to-position (point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:397:(defun point-bytes (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:409:(defun move-to-bytes (point bytes) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:422:(defun move-to-line (point line… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:441:(defun check-marked () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:446:(defun set-current-mark (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:452:(defun blank-line-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:466:(defun skip-chars-internal (poi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:477:(defun skip-chars-forward (poin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:484:(defun skip-chars-backward (poi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:491:(defun invoke-save-excursion (f… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:504:(defun insert-buffer (point buf… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/basic.lisp:513:(defun buffer-text (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:3:(defclass tmlanguage (syntax… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:11:(defclass tm-rule () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:17:(defclass tm-region (tm-rule) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:41:(defclass tm-match (tm-rule) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:55:(defclass tm-include () ()) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:56:(defclass tm-include-self (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:57:(defclass tm-include-reposi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:62:(defclass tm-patterns () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:67:(defun make-tmlanguage (&ke… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:72:(defun make-tm-repository () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:75:(defun make-tm-match (strin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:82:(defun make-tm-region (begi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:99:(defun make-tm-include (spec) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:108:(defun make-tm-patterns (&… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:111:(defun make-tm-name (name) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:114:(defun add-tm-repository (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:117:(defun add-tm-pattern (tml… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:120:(defmethod %syntax-scan-re… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:123: | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:124:(defun set-syntax-context … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:127:(defun get-syntax-context … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:130:(defun tm-get-repository (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:133:(defun tm-ahead-matcher (r… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:140:(defun tm-ahead-match (rul… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:146:(defun tm-result-rule … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:147:(defun tm-result-start … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:148:(defun tm-result-end … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:149:(defun tm-result-reg-start… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:150:(defun tm-result-reg-ends … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:151:(defun tm-result-option … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:152:(defun (setf tm-result-opt… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:154:(defun tm-result= (result1… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:166:(defun tm-get-best-result … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:178:(defun tm-best-rule-in-pat… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:205:(defun tm-recompute-result… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:221:(defun tm-apply-capture (p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:228:(defun tm-apply-captures (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:243:(defun tm-apply-content-na… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:249:(defun tm-replace-back-ref… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:267:(defun tm-init-region-end-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:280:(defun tm-apply-begin-capt… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:285:(defun tm-apply-end-captur… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:289:(defun tm-apply-region (ru… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:337:(defun tm-move-action (rul… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:355:(defun tm-apply-match-in-c… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:362:(defun tm-apply-match (rul… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:375:(defun tm-apply-result (po… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:383:(defun tm-continue-prev-li… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:410:(defun tm-scan-line (point… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:422:(defun tm-syntax-scan-line… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/tmlanguage.lisp:430:(defun tm-syntax-scan-regi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:3:(define-editor-variable kill-bu… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:5:(defun buffer-list () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:9:(defun set-buffer-list (buffer-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:13:(defun add-buffer (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:18:(defun any-modified-buffer-p () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:24:(defun get-buffer (buffer-or-n… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:35:(defun unique-buffer-name (name) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:44:(defmethod delete-buffer-using… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:49:(defun delete-buffer (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:55:(defun get-next-buffer (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:61:(defun get-previous-buffer (bu… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:69:(defun unbury-buffer (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:77:(defun bury-buffer (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffers.lisp:86:(defun get-file-buffer (filename) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:3:(defclass mark () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:11:(defmethod mark-cancel ((mark mark)) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/mark.lisp:14:(defmethod mark-set-point ((mark … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:3:(defclass point () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:31:(setf (documentation ‘point-buff… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:34:(setf (documentation ‘point-kind… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:37:(defun current-point () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:41:(defmethod print-object ((object… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:48:(defun pointp (x) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:52:(defun initialize-point-slot-values | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:65:(defun initialize-point (point k… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:70:(defun make-point (buffer linum … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:82:(defmethod copy-point-using-clas… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:93:(defun copy-point (point &option… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:101:(defun delete-point (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:112:(defun alive-point-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:116:(defun point-change-line (point… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:133:(defun point-temporary-p (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:136:(defun %always-same-buffer (poi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:142:(defun %point= (point1 point2) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:148:(defun %point< (point1 point2) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:153:(defun point= (point &rest more… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:159:(defun point/= (point &rest mor… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:167:(defun point< (point &rest more… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:174:(defun point<= (point &rest mor… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:182:(defun point> (point &rest more… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:188:(defun point>= (point &rest mor… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:196:(defun point-min (point &rest m… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/point.lisp:204:(defun point-max (point &rest m… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:3:(defvar *inhibit-read-onl… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:6:(defvar *inhibit-modifica… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:9:(define-editor-variable b… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:10:(define-editor-variable … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:12:(defun step-on-read-only… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:22:(defun check-read-only-a… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:31:(defmacro with-modify-bu… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:39:(defun line-next-n (line n) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:44:(defun shift-markers (po… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:104:(defun %insert-newline/… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:113:(defgeneric insert-char… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:135:(defun %insert-line-str… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:143:(defgeneric insert-stri… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:167:(defun %delete-line-bet… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:180:(defun %delete-line-eol… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:187:(defun %delete-line/poi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:201:;;TODO: ABCL complains … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:202:#+abcl | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:203:(defparameter n nil) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:205:(defgeneric delete-char… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:233: | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:234:(declaim (inline call-b… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:237:(defun call-before-chan… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:242:(defun call-after-chang… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:247:(defmacro insert/after-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:258:(defmacro delete/after-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:269:(defmethod insert-char/… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:280:(defmethod insert-strin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-insert.lisp:291:(defmethod delete-char/… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:3:(defgeneric delete-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:5:(defclass buffer-li… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:11:(defvar *buffer-li… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:13:(defun buffer-list… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:16:(defun call-with-c… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/buffer-list-manager.lisp:22:(defmacro with-cur… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:3:(defmacro save-excursion (&body … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:7:(defmacro with-point (bindings &… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:35:(defmacro with-buffer-read-only… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:44:(defvar interrupts-enabled t) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:45:(defvar interrupted nil) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:47:(defmacro %without-interrupts (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:53:(defmacro without-interrupts (&… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:63:;; 別のスレッドから(bt:interrupt-t | OK hre |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE)ad… | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:63:;; 別のスレッドから(bt:interrupt-t | OK hre |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE)ad… | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:63:;; 別のスレッドから(bt:interrupt-t | OK hre |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE)ad… | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:63:;; 別のスレッドから(bt:interrupt-t | OK hre |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE)ad… | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:63:;; 別のスレッドから(bt:interrupt-t | OK hre |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE)ad… | /home/fermin/quicklisp/local-projects/lem/src/base/macros.lisp:64:(defun interrupt (&optional force) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:3:(defun guess-host-name (file… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:12:(defun parse-filename (file… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:40:(defun expand-file-name (fi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:45:(defun tail-of-pathname (pa… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:53:(defun probe-file% (x) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:63:(defun virtual-probe-file (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:68:(defun sort-files (pathname… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:73:(defun sort-files-with-meth… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:83:(defun directory-files (pat… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:90:(defun list-directory (dire… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:100:(defun file-size (pathname) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:110:(defun file-mtime (pathname) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:117:(defun copy-file-or-direct… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:133:(defparameter *virtual-fil… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:135:(defun open-virtual-file (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file-utils.lisp:153:(defmacro with-open-virtua… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:3:(defstruct syntax-table | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:21:(defun set-syntax-parser … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:24:(defparameter *fundamenta… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:26:(defun fundamental-syntax… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:29:(defvar current-syntax … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:31:(defun current-syntax () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:36:(defmacro with-current-sy… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:40:(defmacro with-point-synt… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:44:(defun syntax-word-char-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:48:(defun syntax-space-char-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:51:(defun syntax-symbol-char… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:55:(defun syntax-open-paren-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:58:(defun syntax-closed-pare… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:61:(defun syntax-equal-paren… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:68:(defun syntax-string-quot… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:71:(defun syntax-fence-char-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:74:(defun syntax-escape-char… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:77:(defun syntax-expr-prefix… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:80:(defun syntax-skip-expr-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-table.lisp:84:(defun syntax-skip-expr-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:3:(define-editor-variable indent-t… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:4:(define-editor-variable calc-ind… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:5:(define-editor-variable indent-w… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:7:(defun back-to-indentation (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:11:(defun indent-line-1 (point col… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:46:(defun calc-indent-default (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:52:(defun indent-line (point) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:58:(defun indent-points (start end) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:64:(defun indent-buffer (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/indent.lisp:68:(defun insert-string-and-indent… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:3:(defmacro debug-assert… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:7:(defun check-line-corr… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:31:(defun check-lines-co… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:39:(defun check-buffer-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:50:(defun check-buffer-c… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/check-corruption.lisp:69:(defun check-all-buff… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:3:(defvar case-fold-search nil) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:5:(defun char-compare-function () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:10:(defun search-step (point first… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:31:(defun search-forward-endp-func… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:38:(defun search-backward-endp-fun… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:44:(defun search-with-case-fold-se… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:50:(defun search-forward (point st… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:72:(defun search-backward (point s… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:102:(defun search-forward-regexp (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:143:(define-compiler-macro search-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:150:(defun search-backward-regexp … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:193:(define-compiler-macro search-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:200:(defun search-symbol (string n… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:215:(defun search-forward-symbol (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:234:(defun search-backward-symbol … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:257:(defun looking-at (point regex) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:271:(define-compiler-macro looking… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/search.lisp:276:(defun match-string-at (point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/editor-variables.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/editor-variables.lisp:3:(define-editor-variabl… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:3:(defvar editor-variables ‘()) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:5:(defstruct editor-variable | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:11:(setf (documentation ’editor-varia… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:15:(defmacro define-editor-variable (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:33:(defun clear-editor-local-variable… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:40:(defun editor-variable-error (symbol) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:43:(defun check-editor-variable (symbol) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:47:(defun ensure-buffer (where) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:54:(defun variable-value (symbol &opt… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:87:(defun (setf variable-value) (valu… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:111:(defun variable-documentation (sy… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:118:(defun find-editor-variable (var) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:121:(defstruct per-buffer-hook | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:126:(defmethod run-hooks ((hook per-b… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:132: | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:133:;; for test | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:134:(defun call-with-global-variable-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/var.lisp:141:(defmacro with-global-variable-va… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/package.lisp:1:(defpackage :lem-base | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:3:(defvar find-file-hook ‘()) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:5:(define-editor-variable before-sav… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:6:(define-editor-variable after-save… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:8:(defvar external-format-function… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:9:(defvar find-directory-function … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:10:(defvar default-external-format… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:12:(define-condition encoding-read-e… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:20:(defun %encoding-read (encoding p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:46:(defun insert-file-contents (poin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:71:(defun find-file-buffer (filename… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:111:(defun write-to-file-1 (buffer f… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:115:(defun run-before-save-hooks (bu… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:119:(defun run-after-save-hooks (buf… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:123:(defun call-with-write-hook (buf… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:129:(defmacro with-write-hook (buffe… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:132:(defun write-to-file (buffer fil… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:136:(defun %write-region-to-file (en… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:152:(defun %%write-region-to-file (e… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:168:(defun write-region-to-file (sta… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:188:(defun file-write-date* (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:192:(defun update-changed-disk-date … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/file.lisp:196:(defun changed-disk-p (buffer) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:3:(flet ((%match (str1 str2 s… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:56: | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:57:(let ((cache (make-hash-ta… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:68:(defun syntax-escape-point… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:78:(defun inline-line-comment… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:85:(defun %skip-comment-forwa… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:107:(defun %skip-block-commen… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:124:(defun %skip-comment-back… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:136:(defun skip-space-and-com… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:145:(defun skip-space-and-com… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:156:(defun %skip-symbol-forwa… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:171:(defun %skip-symbol-backw… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:186:(defun %skip-quote-forwar… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:197:(defun %skip-quote-backwa… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:208:(defun %skip-string-forwa… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:211:(defun %skip-string-backw… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:214:(defun %skip-fence-forwar… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:217:(defun %skip-fence-backwa… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:220:(defun %skip-list-forward… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:258:(defun %skip-list-backwar… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:301:(defun %form-offset-posit… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:338:(defun %form-offset-negat… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:371:(defun form-offset (point n) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:384:(defun scan-lists (point … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:401:(flet ((non-newline-white… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:417:(defun skip-symbol-forwar… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:421:(defun skip-symbol-backwa… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:425:(defun symbol-region-at-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-scan.lisp:435:(defun symbol-string-at-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:3:(defun ensure-class (class) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:8:(defun collect-subclasses (class … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:19:(defun utf8-bytes (c) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:27:(defun bests-if (fn list test) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:40:(defun max-if (fn list) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:43:(defun min-if (fn list) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:46:(defun find-tree (x tree) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:53:(defmacro do-sequence ((var-form… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/utils.lisp:75:(defmacro if-push (expression pl… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:3:(defgeneric run-hooks (hooks &res… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:5:(defmethod run-hooks ((hooks list… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:9:(defmacro add-hook (place callbac… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/hooks.lisp:20:(defmacro remove-hook (place cal… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:3:(define-editor-variable b… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:4:(define-editor-variable a… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:5:(define-editor-variable e… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:7:(defparameter *global-syn… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:9:(defun enable-syntax-high… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:13:(defun current-syntax-pa… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:16:(defclass syntax-parser () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:19:(defgeneric %syntax-scan… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:21:(defvar *recursive-synta… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/syntax-parser.lisp:23:(defun syntax-scan-regio… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:3:(defstruct pps-state | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:12:(defun parse-partia… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:147:(define-editor-var… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:149:(defmacro syntax-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:152:(flet ((cache-poin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:202:(defun pps-state-s… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:205:(defun pps-state-c… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:208:(defun pps-state-s… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:215:(defun in-string-p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:219:(defun in-comment-… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:223:(defun in-string-o… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:227:(defun maybe-begin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:232:(defun maybe-begin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/parse-partial-sexp.lisp:237:(defun maybe-begin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:3:(eval-when (:compile-toplevel… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:52:(defmacro %eastasian-code-p … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/eastasian.lisp:59:(defun eastasian-code-p (code) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:3:(defun make-edit (kind linum charp… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:6:(defun %apply-edit (point kind lin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/edit.lisp:23:(defun apply-inverse-edit (edit p… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:3:(define-condition editor-conditi… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:6:(define-condition directory-does… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:13:(define-condition read-only-err… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:19:(define-condition editor-error … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:28:(defun editor-error (message &r… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:31:(defun scan-error () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/errors.lisp:34:(define-condition editor-interr… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:1:(in-package :lem-base) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:3:(defstruct (line (:constructor %ma… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:11:(defmethod print-object ((object … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:17:(defun make-line (prev next str) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:27:(defun make-empty-line () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:30:(defun line-alive-p (line) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:33:(defun line-char (line i) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:38:(defun line-length (line) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:41:(defun remove-elements (elements … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:56:(defun normalization-elements (el… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:75:(defun subseq-elements (elements … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:87:(defun offset-elements (elements n) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:91:(defun put-elements (elements sta… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:96:(defun merge-plist (plist1 plist2) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:106:(defun line-merge (curr-line nex… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:119:(defun line-normalization-plist … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:123:(defun line-remove-property (lin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:127:(defun line-add-property (line s… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:135:(defun line-clear-property (line… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:138:(defun line-search-property (lin… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:145:(defun line-search-property-rang… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:155:(defun line-property-insert-pos … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:167:(defun line-property-insert-newl… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:193:(defun line-property-delete-pos … | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:217:(defun line-property-delete-line… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:230:(defun line-string/attributes (l… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | /home/fermin/quicklisp/local-projects/lem/src/base/line.lisp:234:(defun line-free (line) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:1: | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:2:# | |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:3:aaaaaa | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:4:bbbbbb | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:5:cccccc | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:6: | # |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:6: | # |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:8:# | ********() |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:9: | # |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:9: | # |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:12:(aaaaaaa( | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:18:(defun foo (foo… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:24:(defmacro foo (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:30:(#+sbcl foo | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:33:(let ((x y) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:43:(list ;comment | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:47:(defun foo (x) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:75:(defmacro foo (… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:82:(defun foo () | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:87:(defmacro foofo… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:95:(loop for i fro… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:122:(loop for x in… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:126:(loop for x in… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:136:(loop for f in… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:142:(loop (foo) | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:147:(loop ;; comment | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:151:(loop | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:156:(loop | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:161:(loop ;; comme… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:166:(loop | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:171:(loop | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:177:(loop with foo… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:182:(progn | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:192:(loop | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:200:(defmethod foo | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:205:(defmethod foo… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:210:(defgeneric fo… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:216:(defgeneric fo… | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:222:(defun foo (a | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:226:(defun foo (a | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | /home/fermin/quicklisp/local-projects/lem/tests/sample-code/indent-sample.lisp:231:(defun foo (a … | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (NULL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| LEM-TESTS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (STRING= "" | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (STRING= "" | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (STRING= “PREFIX-” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NA… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (1) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (1 CONC-NAME) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (NIL) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (FOO (CONC-NAME 1)) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (FOO (CONC-NAME #())) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFSTR… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (EQUAL “foo” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (= (LENGTH LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::SLOTS) 3) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFSTR… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (EQUAL “foo” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (= (LENGTH LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::SLOTS) 11) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INITI… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQ T | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | |
| LEM-TESTS/LIS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-TYPE-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQ T | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQ T | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-INFO-P | |
| LEM-TESTS/LISP-SYN… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-COMPLEX-P | |
| LEM-TESTS/LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-NAME | ||
| LEM-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-POINT-POSITION-P | |
| (LEM-LISP-… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-INITFORM | |
| (LEM-T… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQUAL LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::EXPECTED-TYPE | |
| (LEM-TESTS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL NIL) | Expect (EQ T | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::SLOT-DESCRIPTION-READ-ONLY-P | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFSTR… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (EQUAL “foo” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::STRUCT-NAME | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root/foo/bar” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root-tests/a” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root/test/a/b” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root/test/a/b” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root/main” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PAC… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “lem-project-root/foo/bar” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::IN… | OK | |
| (lem-tests/killring EXTERNAL-OPTION) | Expect (EQUAL ‘(“baz” (:TEST)) | |
| (MULTIPLE-VALUE-LIST (LEM-CORE:YANK-FROM-CLIPBOARD-O… | OK | |
| (lem-tests/killring EXTERNAL-OPTION) | Expect (EQUAL LEM-TESTS/KILLRING::EXPECTED-RESULT | |
| (LEM-CORE:YANK-FROM-CLIPBOARD-OR-… | OK | |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LOOP :FOR | |
| CHAR | ||
| :IN | ||
| LEM-TESTS/STRING-WIDTH-UTILS::A… | OK | |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LOOP :FOR | |
| CHAR | ||
| :IN | ||
| LEM-TESTS/STRING-WIDTH-UTILS::C… | OK | |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LOOP :FOR | |
| (LEM-TESTS/STRING-WIDTH-UTILS::START | ||
| LEM-TESTS/STRIN… | OK | |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LEM-BASE:WIDE-CHAR-P (CODE-CHAR 127798)) to be false. | OK |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LEM-BASE:WIDE-CHAR-P (CODE-CHAR 128253)) to be false. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 1 (LEM-BASE:CHAR-WIDTH #\a 0)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\a 1)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (LOOP :FOR | |
| LEM-TESTS/STRING-WIDTH-UTILS::I | ||
| :FROM | ||
| 0 | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (LOOP :FOR | |
| LEM-TESTS/STRING-WIDTH-UTILS::I | ||
| :FROM | ||
| 8 | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 10 (LEM-BASE:CHAR-WIDTH #\Tab 9 :TAB-SIZE 10)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\Nul 0)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\Nul 1)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 4 (LEM-BASE:CHAR-WIDTH #\UE0FF 0)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 5 (LEM-BASE:CHAR-WIDTH #\UE0FF 1)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 6 (LEM-BASE:CHAR-WIDTH #\UE0FF 2)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\HIRAGANA_LETTER_A 0)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\HIRAGANA_LETTER_A 1)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 0 (LEM-BASE:CHAR-WIDTH #\Newline 0)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “a”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “ab”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abc”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :START 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :END 2)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abcdef” :START 1 :END 3)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “あ”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “aあ”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 0 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :END 0)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :END 3)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 5)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 6)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH “abcdeあいうえお” :START 4 :END 7)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab))) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab))) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :START 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “あ~A” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aaあ” #\Tab) :START 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 6 | |
| (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aaあ” #\Tab) | ||
| … | OK | |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “abc” 1)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “abc” 2)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 3)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 10)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “あいえうお” 0)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “あいえうお” 1)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “あいえうお” 2)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “あいえうお” 3)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “あいえうお” 4)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “あいえ” 5)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “あいえ” 6)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 2 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) | ||
| … | OK | |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 6 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5 :START 1)) to… | OK | |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 5 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aa~Abcdefghijk” #\Tab #\Tab) | ||
| … | OK | |
| (lem-tests/syntax-test FORM-OFFSET NIL) | Expect (LEM-BASE:START-BUFFER-P LEM-TESTS/SYNTAX-TEST::POINT) to be true. | OK |
| (lem-tests/syntax-test FORM-OFFSET NIL) | Expect (EQUAL (LEM-BASE:SYMBOL-STRING-AT-POINT LEM-TESTS/SYNTAX-TEST::POINT) | |
| “bar”)… | OK | |
| (lem-tests/syntax-test SCAN-LISTS NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT | ||
| … | OK | |
| (lem-tests/syntax-test SCAN-LISTS NIL NIL) | Expect (AND | |
| (EQ LEM-TESTS/SYNTAX-TEST::POINT | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/S… | OK | |
| (lem-tests/syntax-test SCAN-LISTS NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT | ||
| … | OK | |
| (lem-tests/syntax-test SCAN-LISTS NIL NIL) | Expect (AND | |
| (EQ LEM-TESTS/SYNTAX-TEST::POINT | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/S… | OK | |
| (lem-tests/buffer-list-test BUFFER-LIST) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (lem-tests/buffer-list-test BUFFER-LIST) | Expect (LEM-BASE:BUFFERP LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test BUFFER-LIST) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (lem-tests/buffer-list-test BUFFER-LIST NIL) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) | |
| (LEM-BASE:BUFFER-LIST)) t… | OK | |
| (lem-tests/buffer-list-test BUFFER-LIST NIL) | Expect (EQUAL | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| LEM-TESTS/BUFFER-L… | OK | |
| (lem-tests/buffer-list-test BUFFER-LIST NIL) | Expect (EQUAL | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| LEM-TESTS/BUFFER-L… | OK | |
| (lem-tests/buffer-list-test ANY-MODIFIED-BUFFER-P) | Expect (EQUAL | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| LEM-TESTS/BUFFER-L… | OK | |
| (lem-tests/buffer-list-test ANY-MODIFIED-BUFFER-P) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (lem-tests/buffer-list-test ANY-MODIFIED-BUFFER-P NIL) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (lem-tests/buffer-list-test ANY-MODIFIED-BUFFER-P NIL) | Expect (LEM-BASE:ANY-MODIFIED-BUFFER-P) to be false. | OK |
| (lem-tests/buffer-list-test ANY-MODIFIED-BUFFER-P NIL) | Expect (EQ T (LEM-BASE:ANY-MODIFIED-BUFFER-P)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-BUFFER) | Expect (NULL (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:GET-BUFFER “c”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK | |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK | |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “foo” (LEM-BASE:UNIQUE-BUFFER-NAME “foo”)) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a<1>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a<2>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) “a”) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1>) | |
| “a… | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2>) | |
| “a… | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a<2>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1> | ||
| … | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a<1>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “b” (LEM-BASE:UNIQUE-BUFFER-NAME “b”)) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::BUFFER-LIST | |
| (LEM-BASE:DELETE-BUFFER LEM-T… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (EQUAL ‘(:LOCAL :GLOBAL) | |
| (NREVERSE LEM-TESTS/BUFFER-LIST-TEST::CALLED-ORDER)… | OK | |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) | |
| LEM-TESTS/B… | OK | |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) | |
| LEM-TESTS/B… | OK | |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) | |
| NIL) to … | OK | |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) | |
| NIL) to… | OK | |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) | |
| LEM-TES… | OK | |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) | |
| LEM-TES… | OK | |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ | |
| (LEM-BASE:GET-PREVIOUS-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) | ||
| … | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) t… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| … | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL NIL) | Expect (EQ NIL (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T))) to be true. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-B… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) t… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | ||
| … | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| … | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test GET-FILE-BUFFER NIL) | Expect (LEM-BASE:GET-FILE-BUFFER NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER NIL) | Expect (LEM-BASE:GET-FILE-BUFFER T) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER NIL) | Expect (LEM-BASE:GET-FILE-BUFFER 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER NIL) | Expect (LEM-BASE:GET-FILE-BUFFER #(#\a)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER) | Expect (NULL (LEM-BASE:GET-FILE-BUFFER LEM-TESTS/BUFFER-LIST-TEST::FILENAME)) to be true. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER) | Expect (EQ (LEM-BASE:GET-FILE-BUFFER LEM-TESTS/BUFFER-LIST-TEST::FILENAME) | |
| LEM-TESTS/B… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (EQUAL “hello” | |
| (LEM-FAKE-INTERFACE:GET-DISPLAYED-TEXT | ||
| LEM-TES… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (EQUAL “hello” | |
| (LEM-BASE:BUFFER-TEXT | ||
| (LEM-CORE:WINDOW-BUFFER … | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (EQL 1 | |
| (LEM-CORE:FLOATING-WINDOW-BORDER | ||
| LEM-TESTS/POPUP-WINDOW::P… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (EQ (LEM-CORE:CURRENT-WINDOW) | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-SOURCE-WINDOW | ||
| … | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (= 5 | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-BASE-WIDTH | ||
| LEM-TESTS/POPUP-WINDO… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (= 1 | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-BASE-HEIGHT | ||
| LEM-TESTS/POPUP-WIND… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (LEM/POPUP-WINDOW::POPUP-WINDOW-GRAVITY | |
| LEM-TESTS/POPUP-WINDOW::POPUP-WINDOW) to b… | OK | |
| (lem-tests/prompt PROMPT-FOR-CHARACTER) | Expect (EQUAL #\a | |
| (LEM-CORE:PROMPT-FOR-CHARACTER “test: " | ||
| … | OK | |
| (lem-tests/isearch REPLACE-STRING) | Expect (EQUAL | |
| (CL-PPCRE:REGEX-REPLACE-ALL “foo” LEM-TESTS/ISEARCH::TEXT “foobar”) | ||
| … | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (ALEXANDRIA:LENGTH= 1 | |
| (LEM-CORE:BUFFER-FAKE-CURSORS | ||
| … | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQ LEM-TESTS/CURSORS::CURSOR | |
| (FIRST (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CU… | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQ (LEM-CORE:CURRENT-KILLRING) LEM-TESTS/CURSORS::KILLRING) to be false. | OK |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQUAL “aaa” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQUAL “bbb” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQUAL “ccc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQ :LEFT-INSERTING (LEM-BASE:POINT-KIND LEM-TESTS/CURSORS::CURSOR)) to be true. | OK |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL) | Expect (NULL (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFFER)) to be true. | OK |
| (lem-tests/cursors TEST-TO-EXECUTE-A-SERIES-OF-COMMANDS NIL) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES " abcdefg” " hijklmn” " opqrstu”) | |
| (LEM… | OK | |
| (lem-tests/cursors TEST-TO-EXECUTE-A-SERIES-OF-COMMANDS NIL) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES “abcdefg” “hijklmn” “opqrstu”) | |
| (LEM-BA… | OK | |
| (lem-tests/cursors TEST-TO-EXECUTE-A-SERIES-OF-COMMANDS NIL) | Expect (EQUAL ‘(“abcd” “opqr” “hijk”) | |
| (MAPCAR | ||
| (LAMBDA (LEM-TESTS/CUR… | OK | |
| (lem-tests/cursors NEXT-LINE/PREVIOUS-LINE) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((2 12) (3 10) (4 10)) | |
| … | OK | |
| (lem-tests/cursors NEXT-LINE/PREVIOUS-LINE) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((1 14) (2 12) (3 10)) | |
| … | OK | |
| (lem-tests/cursors NEXT-LINE/PREVIOUS-LINE) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((2 12) (3 10) (4 10)) | |
| … | OK | |
| (lem-tests/self-insert-command SELF-INSERT-COMMAND) | aaa | OK |
| (lem-tests/self-insert-command SELF-INSERT-COMMAND) | aaaa | OK |
| (lem-tests/self-insert-command SELF-INSERT-COMMAND) | Expect (SEARCH “Key not found: " | |
| (PRINC-TO-STRING LEM-TESTS/SELF-INSERT-COMMAND::E… | OK | |
| (lem/tests/interp EXECUTE-THE-SAME-COMMAND-CONSECUTIVELY) | Expect (EQUAL ‘(NIL T T) LEM/TESTS/INTERP::RESULT) to be true. | OK |
| (lem/tests/file GET-FILE-MODE) | Expect (EQUAL ‘LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE | |
| (LEM-CORE:GET-FILE-MODE “.bash… | OK | |
| (lem/tests/file GET-FILE-MODE) | Expect (EQUAL ‘LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE | |
| (LEM-CORE:GET-FILE-MODE “foo.b… | OK | |
| (lem/tests/file GET-FILE-MODE) | Expect (EQUAL ‘LEM-LISP-MODE/INTERNAL:LISP-MODE | |
| (LEM-CORE:GET-FILE-MODE “foo.lisp”)… | OK | |
| (lem/tests/file GET-FILE-MODE) | Expect (NULL (LEM-CORE:GET-FILE-MODE “foo.lisp.bak”)) to be true. | OK |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘(“apple” “banana” “orange” “pineapple”) | |
| (LEM-CORE:COMPLETION “a” LEM… | OK | |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘(“apple” “pineapple”) | |
| (LEM-CORE:COMPLETION “app” LEM-TESTS/COMPLETIO… | OK | |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘NIL (LEM-CORE:COMPLETION “xyz” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘NIL (LEM-CORE:COMPLETION “APP” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘(“apple” “pineapple”) | |
| (LEM-CORE:COMPLETION “APP” | ||
| … | OK | |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘(“foo-bar-baz” “foo-bar-y”) | |
| (LEM-CORE:COMPLETION “foo-bar” | ||
| … | OK | |
| (lem-tests/common/ring COPY-RING) | Expect (EQ LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::RING2) to be false. | OK |
| (lem-tests/common/ring COPY-RING) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) | |
| (LEM/COMMON/RING:RI… | OK | |
| (lem-tests/common/ring COPY-RING) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1) | |
| (LEM/COMMON/RING:RI… | OK | |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be true. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-LENGTH) | Expect (= 0 (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to be true. | OK |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-REF) | Expect (EQL 5 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQL 4 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQL 3 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 2)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQL 2 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQL 1 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 4)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING -1) to signal INVALID-INDEX-ERROR. | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQUAL 100 (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) 100)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQUAL 100 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQUAL “xx” | |
| (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3) “xx”)) t… | OK | |
| (lem-tests/common/ring RING-REF) | Expect (EQUAL “xx” (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 5) | |
| ‘LEM-TESTS/COMMON/R… | OK | |
| (lem-tests/common/ring RING-PUSH) | Expect (STRING= | |
| (WITH-OUTPUT-TO-STRING (LEM-TESTS/COMMON/RING::OUT) | ||
| (LOOP :FOR | ||
| … | ERROR | |
| (lem-tests/timer SIMPLE-TIMER-TEST) | Expect (LEM-MAILBOX:RECEIVE-MESSAGE LEM-TESTS/TIMER::MAILBOX :TIMEOUT 0.01) to be true. | OK |
| (lem-tests/timer SIMPLE-TIMER-TEST) | Expect LEM-TESTS/TIMER::TIMEOUT to be true. | OK |
| (lem-tests/timer SIMPLE-TIMER-TEST) | Expect (LEM-MAILBOX:RECEIVE-MESSAGE LEM-TESTS/TIMER::MAILBOX :TIMEOUT 0.01) to be false. | OK |
| (lem-tests/timer SIMPLE-TIMER-TEST) | Expect (LEM/COMMON/TIMER:TIMER-EXPIRED-P LEM/COMMON/TIMER:TIMER) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (NULL (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (= 10 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (= 8 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (= 0 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (= -8 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer TIMER-NAME-TESTS) | Expect (STRING= “TESTING-TIMER” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (lem-tests/timer TIMER-NAME-TESTS) | Expect (STRING= “TESTING-TIMER” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (lem-tests/timer TIMER-NAME-TESTS) | Expect (STRING= “foo” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (lem-tests/timer TIMER-NAME-TESTS) | Expect (STRING= “HELLO” LEM-TESTS/TIMER::VALUE) to be true. | ERROR |
Progress
84%
| Test | Description | Result |
|---|---|---|
| (lem-tests/common/killring SIMPLE-TEST) | Expect (LEM/COMMON/KILLRING:PUSH-KILLRING-ITEM | |
| LEM-TESTS/COMMON/KILLRING::KILLRING | ||
| … | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (LEM/COMMON/KILLRING:PUSH-KILLRING-ITEM | |
| LEM-TESTS/COMMON/KILLRING::KILLRING | ||
| … | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “def” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST) | Expect (EQUAL “def” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring SIMPLE-TEST NIL) | Expect (EQUAL “def!!” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TE… | OK | |
| (lem-tests/common/killring SIMPLE-TEST NIL) | Expect (EQUAL “??def!!” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-… | OK | |
| (lem-tests/common/killring APPENDING-IF-EMPTY) | Expect (EQUAL “abc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/common/killring BEFORE-INSERTING) | Expect (EQUAL “ba” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS… | OK | |
| (lem-tests/common/killring BEFORE-INSERTING) | Expect (EQUAL “cba” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| NIL | no error | OK |
| (lem-tests/common/killring ROTATE) | Expect (EQUAL “a” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (lem-tests/common/killring ROTATE) | Expect (EQUAL “b” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (lem-tests/common/killring ROTATE) | Expect (EQUAL “b” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (lem-tests/common/killring ROTATE) | Expect (EQUAL “a” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/… | OK | |
| (lem-tests/common/killring INTERNAL-OPTION) | Expect (EQUAL ‘(“foo” (:TEST)) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/KILL… | OK | |
| (lem-tests/common/killring INTERNAL-OPTION) | Expect (EQUAL ‘(“foobar” (:TEST :TEST2)) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/C… | OK | |
| (lem-tests/common/killring INTERNAL-OPTION) | Expect (EQUAL ‘(“bazfoobar” (:TEST3 :TEST :TEST2)) | |
| (MULTIPLE-VALUE-LIST | ||
| … | OK | |
| (lem-tests/common/killring PEEK-KILLRING-ITEM-WHEN-EMPTY) | Expect (NULL | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TESTS/COMMON/KILLRING::… | OK | |
| (lem-tests/history SIMPLE-TEST) | Expect (NULL (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (lem-tests/history SIMPLE-TEST) | Expect (EQUAL “foo” | |
| (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) t… | OK | |
| (lem-tests/history SIMPLE-TEST) | Expect (EQUAL “bar” | |
| (LEM/COMMON/HISTORY:LAST-HISTORY LEM-TESTS/HISTORY::HISTORY)) t… | OK | |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (EQUAL ‘(“bar” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:PR… | OK | |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (EQUAL ‘(“foo” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:PR… | OK | |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (NULL (LEM/COMMON/HISTORY:PREVIOUS-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (EQUAL ‘(“bar” T) | |
| (MULTIPLE-VALUE-LIST | ||
| (LEM/COMMON/HISTORY:NE… | OK | |
| (lem-tests/history SIMPLE-TEST NIL) | Expect (NULL (LEM/COMMON/HISTORY:NEXT-HISTORY LEM-TESTS/HISTORY::HISTORY)) to be true. | OK |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root/foo/bar” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root-tests/a” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root/test/a/b” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root/test/a/b” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “project-root/main” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PAC… | OK | |
| (lem-tests/lisp-mode/package-inferred-system INFER-PACKAGE-NAME-1) | Expect (EQUAL “lem-project-root/foo/bar” | |
| (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::IN… | OK | |
| (lem-tests/killring EXTERNAL-OPTION) | Expect (EQUAL ‘(“baz” (:TEST)) | |
| (MULTIPLE-VALUE-LIST (LEM-CORE:YANK-FROM-CLIPBOARD-O… | OK | |
| (lem-tests/killring EXTERNAL-OPTION) | Expect (EQUAL LEM-TESTS/KILLRING::EXPECTED-RESULT | |
| (LEM-CORE:YANK-FROM-CLIPBOARD-OR-… | OK | |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (LEM-BASE:CONTROL-CHAR CHAR) to be false. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils CONTROL-CHAR) | Expect (EQUAL (LEM-BASE:CONTROL-CHAR CHAR) LEM-BASE:CONTROL-CHAR) to be true. | OK |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LOOP :FOR | |
| CHAR | ||
| :IN | ||
| LEM-TESTS/STRING-WIDTH-UTILS::A… | OK | |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LOOP :FOR | |
| CHAR | ||
| :IN | ||
| LEM-TESTS/STRING-WIDTH-UTILS::C… | OK | |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LOOP :FOR | |
| (LEM-TESTS/STRING-WIDTH-UTILS::START | ||
| LEM-TESTS/STRIN… | OK | |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LEM-BASE:WIDE-CHAR-P (CODE-CHAR 127798)) to be false. | OK |
| (lem-tests/string-width-utils WIDE-CHAR-P) | Expect (LEM-BASE:WIDE-CHAR-P (CODE-CHAR 128253)) to be false. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 1 (LEM-BASE:CHAR-WIDTH #\a 0)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\a 1)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (LOOP :FOR | |
| LEM-TESTS/STRING-WIDTH-UTILS::I | ||
| :FROM | ||
| 0 | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (LOOP :FOR | |
| LEM-TESTS/STRING-WIDTH-UTILS::I | ||
| :FROM | ||
| 8 | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 10 (LEM-BASE:CHAR-WIDTH #\Tab 9 :TAB-SIZE 10)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\NUL 0)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\NUL 1)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 4 (LEM-BASE:CHAR-WIDTH #\UE0FF 0)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 5 (LEM-BASE:CHAR-WIDTH #\UE0FF 1)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 6 (LEM-BASE:CHAR-WIDTH #\UE0FF 2)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 (LEM-BASE:CHAR-WIDTH #\HIRAGANA_LETTER_A 0)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 3 (LEM-BASE:CHAR-WIDTH #\HIRAGANA_LETTER_A 1)) to be true. | OK |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 2 | |
| (LEM-BASE:CHAR-WIDTH (CODE-CHAR LEM-TESTS/STRING-WIDTH-UTILS::CODE) | ||
| … | OK | |
| (lem-tests/string-width-utils CHAR-WIDTH NIL) | Expect (EQL 0 (LEM-BASE:CHAR-WIDTH #\Newline 0)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “a”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “ab”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abc”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :START 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abc” :END 2)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “abcdef” :START 1 :END 3)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH “B”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “aB”)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 0 (LEM-BASE:STRING-WIDTH “abcdeBDFHJ” :END 0)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeBDFHJ” :END 3)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 1 (LEM-BASE:STRING-WIDTH “abcdeBDFHJ” :START 4 :END 5)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH “abcdeBDFHJ” :START 4 :END 6)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH “abcdeBDFHJ” :START 4 :END 7)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab))) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 10 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab))) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 2 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~Aab” #\Tab) :START 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 3)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 5 (LEM-BASE:STRING-WIDTH (FORMAT NIL “ab~Aab” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “B~A” #\Tab) :TAB-SIZE 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 3 (LEM-BASE:STRING-WIDTH (FORMAT NIL “~AaB” #\Tab) :START 1)) to be true. | OK |
| (lem-tests/string-width-utils STRING-WIDTH) | Expect (EQL 6 | |
| (LEM-BASE:STRING-WIDTH (FORMAT NIL “~AaB” #\Tab) | ||
| … | OK | |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “abc” 1)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “abc” 2)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 3)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “abc” 10)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “BDHFJ” 0)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX “BDHFJ” 1)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “BDHFJ” 2)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 1 (LEM-BASE:WIDE-INDEX “BDHFJ” 3)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “BDHFJ” 4)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 2 (LEM-BASE:WIDE-INDEX “BDH” 5)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL NIL (LEM-BASE:WIDE-INDEX “BDH” 6)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 0 (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5)) to be true. | OK |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 2 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) | ||
| … | OK | |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 6 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aabcdefghijk” #\Tab) 5 :START 1)) to… | OK | |
| (lem-tests/string-width-utils WIDE-INDEX) | Expect (EQL 5 | |
| (LEM-BASE:WIDE-INDEX (FORMAT NIL “~Aa~Abcdefghijk” #\Tab #\Tab) | ||
| … | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (EQUAL “hello” | |
| (LEM-FAKE-INTERFACE:GET-DISPLAYED-TEXT | ||
| LEM-TES… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (EQUAL “hello” | |
| (LEM-BASE:BUFFER-TEXT | ||
| (LEM-CORE:WINDOW-BUFFER … | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (EQL 1 | |
| (LEM-CORE:FLOATING-WINDOW-BORDER | ||
| LEM-TESTS/POPUP-WINDOW::P… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (EQ (LEM-CORE:CURRENT-WINDOW) | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-SOURCE-WINDOW | ||
| … | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (= 5 | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-BASE-WIDTH | ||
| LEM-TESTS/POPUP-WINDO… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (= 1 | |
| (LEM/POPUP-WINDOW::POPUP-WINDOW-BASE-HEIGHT | ||
| LEM-TESTS/POPUP-WIND… | OK | |
| (lem-tests/popup-window DISPLAY-POPUP-WINDOW) | Expect (LEM/POPUP-WINDOW::POPUP-WINDOW-GRAVITY | |
| LEM-TESTS/POPUP-WINDOW::POPUP-WINDOW) to b… | OK | |
| (lem-tests/prompt PROMPT-FOR-CHARACTER) | Expect (EQUAL #\a | |
| (LEM-CORE:PROMPT-FOR-CHARACTER “test: " | ||
| … | OK | |
| (lem-tests/isearch REPLACE-STRING) | Expect (EQUAL | |
| (CL-PPCRE:REGEX-REPLACE-ALL “foo” LEM-TESTS/ISEARCH::TEXT “foobar”) | ||
| … | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (ALEXANDRIA:LENGTH= 1 | |
| (LEM-CORE:BUFFER-FAKE-CURSORS | ||
| … | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQ LEM-TESTS/CURSORS::CURSOR | |
| (FIRST (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CU… | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQ (LEM-CORE:CURRENT-KILLRING) LEM-TESTS/CURSORS::KILLRING) to be false. | OK |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQUAL “aaa” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQUAL “bbb” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQUAL “ccc” | |
| (LEM/COMMON/KILLRING:PEEK-KILLRING-ITEM | ||
| LEM-TEST… | OK | |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL NIL) | Expect (EQ :LEFT-INSERTING (LEM-BASE:POINT-KIND LEM-TESTS/CURSORS::CURSOR)) to be true. | OK |
| (lem-tests/cursors SIMPLE-FAKE-CURSOR-TEST NIL) | Expect (NULL (LEM-CORE:BUFFER-FAKE-CURSORS LEM-TESTS/CURSORS::BUFFER)) to be true. | OK |
| (lem-tests/cursors TEST-TO-EXECUTE-A-SERIES-OF-COMMANDS NIL) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES " abcdefg” " hijklmn" " opqrstu") | |
| (LEM… | OK | |
| (lem-tests/cursors TEST-TO-EXECUTE-A-SERIES-OF-COMMANDS NIL) | Expect (STRING= (LEM-TESTS/UTILITIES:LINES “abcdefg” “hijklmn” “opqrstu”) | |
| (LEM-BA… | OK | |
| (lem-tests/cursors TEST-TO-EXECUTE-A-SERIES-OF-COMMANDS NIL) | Expect (EQUAL ‘(“abcd” “opqr” “hijk”) | |
| (MAPCAR | ||
| (LAMBDA (LEM-TESTS/CUR… | OK | |
| (lem-tests/cursors NEXT-LINE/PREVIOUS-LINE) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((2 12) (3 10) (4 10)) | |
| … | OK | |
| (lem-tests/cursors NEXT-LINE/PREVIOUS-LINE) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((1 14) (2 12) (3 10)) | |
| … | OK | |
| (lem-tests/cursors NEXT-LINE/PREVIOUS-LINE) | Expect (LEM-TESTS/CURSORS::POSITIONS-SET-EQUAL ‘((2 12) (3 10) (4 10)) | |
| … | OK | |
| (lem-tests/self-insert-command SELF-INSERT-COMMAND) | aaa | OK |
| (lem-tests/self-insert-command SELF-INSERT-COMMAND) | aaaa | OK |
| (lem-tests/self-insert-command SELF-INSERT-COMMAND) | Expect (SEARCH “Key not found: " | |
| (PRINC-TO-STRING LEM-TESTS/SELF-INSERT-COMMAND::E… | OK | |
| (lem/tests/interp EXECUTE-THE-SAME-COMMAND-CONSECUTIVELY) | Expect (EQUAL ‘(NIL T T) LEM/TESTS/INTERP::RESULT) to be true. | OK |
| (lem/tests/file GET-FILE-MODE) | Expect (EQUAL ‘LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE | |
| (LEM-CORE:GET-FILE-MODE “.bash… | OK | |
| (lem/tests/file GET-FILE-MODE) | Expect (EQUAL ‘LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE | |
| (LEM-CORE:GET-FILE-MODE “foo.b… | OK | |
| (lem/tests/file GET-FILE-MODE) | Expect (EQUAL ‘LEM-LISP-MODE/INTERNAL:LISP-MODE | |
| (LEM-CORE:GET-FILE-MODE “foo.lisp”)… | OK | |
| (lem/tests/file GET-FILE-MODE) | Expect (NULL (LEM-CORE:GET-FILE-MODE “foo.lisp.bak”)) to be true. | OK |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘(“apple” “banana” “orange” “pineapple”) | |
| (LEM-CORE:COMPLETION “a” LEM… | OK | |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘(“apple” “pineapple”) | |
| (LEM-CORE:COMPLETION “app” LEM-TESTS/COMPLETIO… | OK | |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘NIL (LEM-CORE:COMPLETION “xyz” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘NIL (LEM-CORE:COMPLETION “APP” LEM-TESTS/COMPLETION::ITEMS)) to be true. | OK |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘(“apple” “pineapple”) | |
| (LEM-CORE:COMPLETION “APP” | ||
| … | OK | |
| (lem-tests/completion TEST-COMPLETION) | Expect (EQUAL ‘(“foo-bar-baz” “foo-bar-y”) | |
| (LEM-CORE:COMPLETION “foo-bar” | ||
| … | OK | |
| (lem-tests/common/ring COPY-RING) | Expect (EQ LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::RING2) to be false. | OK |
| (lem-tests/common/ring COPY-RING) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) | |
| (LEM/COMMON/RING:RI… | OK | |
| (lem-tests/common/ring COPY-RING) | Expect (EQUAL (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1) | |
| (LEM/COMMON/RING:RI… | OK | |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be true. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-EMPTY-P) | Expect (LEM/COMMON/RING:RING-EMPTY-P LEM/COMMON/RING:RING) to be false. | OK |
| (lem-tests/common/ring RING-LENGTH) | Expect (= 0 (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING:RING)) to be true. | OK |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-LENGTH) | Expect (= (MIN 3 LEM-TESTS/COMMON/RING::I) | |
| (LEM/COMMON/RING:RING-LENGTH LEM/COMMON/RING… | OK | |
| (lem-tests/common/ring RING-REF) | Expect (EQL 5 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQL 4 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 1)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQL 3 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 2)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQL 2 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQL 1 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 4)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING -1) to signal INVALID-INDEX-ERROR. | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING LEM-TESTS/COMMON/RING::I) to signal INVALID… | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQUAL 100 (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0) 100)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQUAL 100 (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 0)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (EQUAL “xx” | |
| (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3) “xx”)) t… | OK | |
| (lem-tests/common/ring RING-REF) | Expect (EQUAL “xx” (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 3)) to be true. | OK |
| (lem-tests/common/ring RING-REF) | Expect (SETF (LEM/COMMON/RING:RING-REF LEM/COMMON/RING:RING 5) | |
| ‘LEM-TESTS/COMMON/R… | OK | |
| (lem-tests/common/ring RING-PUSH) | Expect (STRING= | |
| (WITH-OUTPUT-TO-STRING (LEM-TESTS/COMMON/RING::OUT) | ||
| (LOOP :FOR | ||
| … | ERROR | |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (NULL (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (= 10 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (= 8 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (= 0 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer COMPUTE-THE-TIME-FOR-THE-NEXT-IDLE-TIMER-TO-BE-CALLED) | Expect (= -8 (LEM/COMMON/TIMER:GET-NEXT-TIMER-TIMING-MS)) to be true. | OK |
| (lem-tests/timer TIMER-NAME-TESTS) | Expect (STRING= “TESTING-TIMER” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (lem-tests/timer TIMER-NAME-TESTS) | Expect (STRING= “TESTING-TIMER” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (lem-tests/timer TIMER-NAME-TESTS) | Expect (STRING= “foo” LEM-TESTS/TIMER::VALUE) to be true. | OK |
| (lem-tests/timer TIMER-NAME-TESTS) | Expect (STRING= “HELLO” LEM-TESTS/TIMER::VALUE) to be true. | ERROR |
| (lem-tests/lisp-syntax/indent-test COND-1) | COND-1 | OK |
| (lem-tests/lisp-syntax/indent-test DEFCLASS-1) | DEFCLASS-1 | OK |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-UNDER-LEM-BASE) | Raise an error while testing. | ERROR |
| (lem-tests/lisp-syntax/indent-test INDENT-TEST-FOR-SAMPLE-CASE) | Raise an error while testing. | ERROR |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (NULL | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| LEM-TESTS… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (STRING= "” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (STRING= "” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NAME | ||
| … | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (= 2 (LENGTH VALUES)) to be true. | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (EQ ‘LEM-TESTS/LISP-SYNTAX/DEFSTRUCT-TO-DEFCLASS::FOO | |
| LEM-TESTS/LISP-SYNTAX/DEF… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-INFO-P | |
| LEM-TESTS/LISP-SYNTAX/DEFST… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | Expect (STRING= “PREFIX-” | |
| (LEM-LISP-SYNTAX.DEFSTRUCT-TO-DEFCLASS::OPTIONS-CONC-NA… | OK | |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (1) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (1 CONC-NAME) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (NIL) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (FOO (CONC-NAME 1)) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass PARSE-NAME-AND-OPTIONS NIL) | (FOO (CONC-NAME #())) | OK |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Raise an error while testing. | ERROR |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Raise an error while testing. | ERROR |
| (lem-tests/lisp-syntax/defstruct-to-defclass ANALYZE-DEFSTRUCT NIL) | Raise an error while testing. | ERROR |
| (lem-tests/syntax-test SCAN-LISTS NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT | ||
| … | OK | |
| (lem-tests/syntax-test SCAN-LISTS NIL NIL) | Expect (AND | |
| (EQ LEM-TESTS/SYNTAX-TEST::POINT | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/S… | OK | |
| (lem-tests/syntax-test SCAN-LISTS NIL NIL) | Expect (AND | |
| (NULL | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/SYNTAX-TEST::POINT | ||
| … | OK | |
| (lem-tests/syntax-test SCAN-LISTS NIL NIL) | Expect (AND | |
| (EQ LEM-TESTS/SYNTAX-TEST::POINT | ||
| (LEM-BASE:SCAN-LISTS LEM-TESTS/S… | OK | |
| (lem-tests/syntax-test FORM-OFFSET NIL) | Raise an error while testing. | ERROR |
| (lem-tests/buffer-list-test BUFFER-LIST) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (lem-tests/buffer-list-test BUFFER-LIST) | Expect (LEM-BASE:BUFFERP LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test BUFFER-LIST) | Expect (NULL (LEM-BASE:BUFFER-LIST)) to be true. | OK |
| (lem-tests/buffer-list-test BUFFER-LIST NIL) | Expect (EQUAL (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) | |
| (LEM-BASE:BUFFER-LIST)) t… | OK | |
| (lem-tests/buffer-list-test BUFFER-LIST NIL) | Expect (EQUAL | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| LEM-TESTS/BUFFER-L… | OK | |
| (lem-tests/buffer-list-test BUFFER-LIST NIL) | Expect (EQUAL | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| LEM-TESTS/BUFFER-L… | OK | |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-BUFFER) | Expect (NULL (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A (LEM-BASE:GET-BUFFER “a”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B (LEM-BASE:GET-BUFFER “b”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C (LEM-BASE:GET-BUFFER “c”)) to be true. | OK |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK | |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK | |
| (lem-tests/buffer-list-test GET-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:GET-BUFFER LEM-TESTS/BUFFER-… | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “foo” (LEM-BASE:UNIQUE-BUFFER-NAME “foo”)) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a<1>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a<2>” LEM-TESTS/BUFFER-LIST-TEST::NAME) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) “a”) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1>) | |
| “a… | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (STRING= (LEM-BASE:BUFFER-NAME LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2>) | |
| “a… | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a<2>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<1> | ||
| … | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a<1>” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “a” (LEM-BASE:UNIQUE-BUFFER-NAME “a”)) to be true. | OK |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A<2> | ||
| … | OK | |
| (lem-tests/buffer-list-test UNIQUE-BUFFER-NAME) | Expect (EQUAL “b” (LEM-BASE:UNIQUE-BUFFER-NAME “b”)) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::DELETING-BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::RESULT | |
| LEM-TESTS/BUFFER-LIST-TEST::EXPECT… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (EQUAL LEM-TESTS/BUFFER-LIST-TEST::BUFFER-LIST | |
| (LEM-BASE:DELETE-BUFFER LEM-T… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::BUFFER) to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect LEM-TESTS/BUFFER-LIST-TEST::CALLED-HOOK-P to be true. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER | |
| LEM-TESTS/BUFFER-LIST-TEST::DELET… | OK | |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL NIL) | Expect (LEM-BASE:DELETED-BUFFER-P LEM-TESTS/BUFFER-LIST-TEST::HOOKED-BUFFER) to be false. | OK |
| (lem-tests/buffer-list-test DELETE-BUFFER NIL NIL) | Expect (EQUAL ‘(:LOCAL :GLOBAL) | |
| (NREVERSE LEM-TESTS/BUFFER-LIST-TEST::CALLED-ORDER)… | OK | |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) | |
| LEM-TESTS/B… | OK | |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) | |
| LEM-TESTS/B… | OK | |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-NEXT-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-NEXT-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) | |
| NIL) to … | OK | |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (FUNCALL FUNCTION (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (FUNCALL FUNCTION LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) NIL) to be true. | OK |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C) | |
| NIL) to… | OK | |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B) | |
| LEM-TES… | OK | |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ (LEM-BASE:GET-PREVIOUS-BUFFER LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A) | |
| LEM-TES… | OK | |
| (lem-tests/buffer-list-test GET-PREVIOUS-BUFFER NIL) | Expect (EQ | |
| (LEM-BASE:GET-PREVIOUS-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T)) | ||
| … | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) t… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| … | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL NIL) | Expect (EQ NIL (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-BUFFER NIL :TEMPORARY T))) to be true. | OK |
| (lem-tests/buffer-list-test BURY-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:BURY-BUFFER (LEM-BASE:MAKE-B… | OK | |
| (lem-tests/buffer-list-test BURY-BUFFER NIL NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (FUNCALL FUNCTION “name”) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A)) t… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-A | ||
| … | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-B | ||
| … | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFF… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL NIL) | Expect (EQ LEM-TESTS/BUFFER-LIST-TEST::BUFFER | |
| (LEM-BASE:UNBURY-BUFFER LEM-TESTS/BUFFER… | OK | |
| (lem-tests/buffer-list-test UNBURY-BUFFER NIL NIL) | Expect (EQUAL (LEM-BASE:BUFFER-LIST) | |
| (LIST LEM-TESTS/BUFFER-LIST-TEST::BUFFER-C | ||
| … | OK | |
| (lem-tests/buffer-list-test GET-FILE-BUFFER NIL) | Expect (LEM-BASE:GET-FILE-BUFFER NIL) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER NIL) | Expect (LEM-BASE:GET-FILE-BUFFER T) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER NIL) | Expect (LEM-BASE:GET-FILE-BUFFER 1) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER NIL) | Expect (LEM-BASE:GET-FILE-BUFFER #(#\a)) to signal TYPE-ERROR. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER) | Expect (NULL (LEM-BASE:GET-FILE-BUFFER LEM-TESTS/BUFFER-LIST-TEST::FILENAME)) to be true. | OK |
| (lem-tests/buffer-list-test GET-FILE-BUFFER) | Expect (EQ (LEM-BASE:GET-FILE-BUFFER LEM-TESTS/BUFFER-LIST-TEST::FILENAME) | |
| LEM-TESTS/B… | OK | |
| (lem-tests/buffer-list-test ANY-MODIFIED-BUFFER-P) | Raise an error while testing. | ERROR |