projects
/
reversi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11859: Canonicalize whitespace
[reversi.git]
/
utils.lisp
diff --git
a/utils.lisp
b/utils.lisp
index 1dfa25c23e0d9bf2f04e30accb16d635d50eae12..92f9f994598d591b5b886fcdc28bbba4fb87735c 100644
(file)
--- a/
utils.lisp
+++ b/
utils.lisp
@@
-1,7
+1,7
@@
;;;;***************************************************************************
;;;;
;;;; FILE IDENTIFICATION
;;;;***************************************************************************
;;;;
;;;; FILE IDENTIFICATION
-;;;;
+;;;;
;;;; Name: reversi-base.lisp
;;;; Purpose: Basic functions for reversi
;;;; Programer: Kevin M. Rosenberg
;;;; Name: reversi-base.lisp
;;;; Purpose: Basic functions for reversi
;;;; Programer: Kevin M. Rosenberg
@@
-9,7
+9,7
@@
;;;;
;;;; $Id$
;;;;
;;;;
;;;; $Id$
;;;;
-;;;; This file is Copyright (c) 2001-2003 by Kevin M. Rosenberg
+;;;; This file is Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;;
;;;; Reversi users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;;
;;;; Reversi users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
@@
-78,9
+78,9
@@
(let ((output (when list (format nil "~A" (car list)))))
(dolist (obj (rest list))
(setq output (concatenate 'string output
(let ((output (when list (format nil "~A" (car list)))))
(dolist (obj (rest list))
(setq output (concatenate 'string output
- (format nil "~A" separator)
- (format nil "~A" obj))))
+
(format nil "~A" separator)
+
(format nil "~A" obj))))
output))
output))
-
+