mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
7 lines
340 B
Common Lisp
7 lines
340 B
Common Lisp
(with-test (:name :symbol-name-coalescing)
|
|
(dolist (testcase '("LAYOUTS" "CLASS1" "DST-OFFSET" "NIL" #+sb-unicode "T"))
|
|
(let ((symbols (find-all-symbols testcase)))
|
|
(assert (> (length symbols) 1))
|
|
(assert (every (lambda (x) (eq x (symbol-name (car symbols))))
|
|
(mapcar 'symbol-name (cdr symbols)))))))
|