zap trailing whitespace and tabs
This commit is contained in:
parent
9c49429a7e
commit
deeab190c1
76 changed files with 382 additions and 378 deletions
|
@ -902,7 +902,7 @@
|
|||
(eql-test 0 #'list-length '())
|
||||
(eql-test 0 #'list-length nil)
|
||||
(defun circular-list (&rest elements)
|
||||
(let ((cycle (copy-list elements)))
|
||||
(let ((cycle (copy-list elements)))
|
||||
(nconc cycle cycle)))
|
||||
(eq-test nil #'list-length (circular-list 'a 'b))
|
||||
(eq-test nil #'list-length (circular-list 'a))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue