diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-07-15 10:31:57 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-07-15 10:31:57 -0500 |
| commit | 2622a909e9277ef1b3eaa193bd53ac5cab152a73 (patch) | |
| tree | 0301be036219f729ee9dc30e38ea86aed31f931f /examples.lisp | |
| parent | b072097c20373d0d6d7698b3d5593235ca2e2128 (diff) | |
added scrambler example
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)) |