SecBSD/xenocara
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

zap trailing whitespace and tabs

Browse source
This commit is contained in:
purplerain 2023-12-13 04:57:51 +00:00
parent 9c49429a7e
commit deeab190c1
Signed by: purplerain
GPG key ID: F42C07F07E2E35B7
76 changed files with 382 additions and 378 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/xedit/lisp/test/hello.lsp
View file

@ -10,7 +10,7 @@
;;
;; The above copyright notice and this permission notice shall be included in
;; all copies or substantial portions of the Software.
;;
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/test/list.lsp
View file

@ -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))

2
app/xedit/lisp/test/math.lsp
View file

@ -337,7 +337,7 @@
;; fixratio fixnum
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(test 23502480199/57 #'+ 1/57 412324214)
(test -1608505/39 #'- 11/39 41244)
(test -1608505/39 #'- 11/39 41244)
(test 241844976595/3121 #'* 45245/3121 5345231)
(test 4231/30211050 #'/ 4231/67890 445)
(bool-test nil #'< 43123/12 -3432)

2
app/xedit/lisp/test/psql-1.lsp
View file

@ -1,7 +1,7 @@
;; Postgresql C library interface, example program 1, using the xedit
;; lisp interface
;; Test the C version of libpq, the PostgreSQL frontend library.
;; Test the C version of libpq, the PostgreSQL frontend library.
(require "psql")
(defun exit-nicely (conn)

2
app/xedit/lisp/test/stream.lsp
View file

@ -676,7 +676,7 @@ more text" #'get-output-stream-string os)
;; write-char - function
(equal-eval "a b"
'(with-output-to-string (s)
'(with-output-to-string (s)
(write-char #\a s)
(write-char #\Space s)
(write-char #\b s)))

2
app/xedit/lisp/test/widgets.lsp
View file

@ -10,7 +10,7 @@
;;
;; The above copyright notice and this permission notice shall be included in
;; all copies or substantial portions of the Software.
;;
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL