diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-28 16:09:14 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-28 16:09:14 +0000 |
| commit | 80ab4cec14452a641e741d372037dafda16ee871 (patch) | |
| tree | 352324dc62ffbd3c9c651a7154a2e88338144641 /chess-fen.el | |
| parent | 7248e5c89f6d53d3f2a4ecf511167af929241f76 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-fen.el')
| -rw-r--r-- | chess-fen.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/chess-fen.el b/chess-fen.el index 91ee683..b428a5f 100644 --- a/chess-fen.el +++ b/chess-fen.el @@ -40,6 +40,7 @@ (defun chess-fen-to-pos (fen) "Convert a FEN-like notation string to a chess position." + (assert (stringp fen)) (let ((i 0) (l (length fen)) (rank 0) (file 0) (c ?0) (position (chess-pos-create t)) @@ -88,6 +89,7 @@ (defun chess-pos-to-fen (position &optional full) "Convert a chess POSITION to FEN-like notation. If FULL is non-nil, represent trailing spaces as well." + (assert (vectorp position)) (let ((blank 0) (str "") output) (dotimes (rank 8) (dotimes (file 8) |