From 2622a909e9277ef1b3eaa193bd53ac5cab152a73 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 15 Jul 2020 10:31:57 -0500 Subject: added scrambler example --- examples.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples.lisp') 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)) -- cgit v1.2.3