diff options
Diffstat (limited to 'examples.lisp')
| -rw-r--r-- | examples.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples.lisp b/examples.lisp index df50a23..33ae013 100644 --- a/examples.lisp +++ b/examples.lisp @@ -122,7 +122,7 @@ vector VEC, one at a time." ;;; Silly Scrambler ;;; -(defun pad (str len &optional (pad-char #\Space])) +(defun pad (str len &optional (pad-char #\Space)) (let ((i 0)) (with-output-to-string (out) (loop :for c :across str :do (incf i) (princ c out)) |