From 6ea5d2b175d7c2804c0aaa4b998f81a32f283a09 Mon Sep 17 00:00:00 2001
From: "Bradley M. Small" <bradley_small@hotmail.com>
Date: Thu, 27 Feb 2020 21:11:14 -0500
Subject: [PATCH] Refactoring loop keywords.
---
common-lisp/beer-song/beer-song.lisp | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/common-lisp/beer-song/beer-song.lisp b/common-lisp/beer-song/beer-song.lisp
index b69a329..7c95022 100644
--- a/common-lisp/beer-song/beer-song.lisp
+++ b/common-lisp/beer-song/beer-song.lisp
@@ -24,6 +24,6 @@
(defun sing (begin-verse &optional (end-verse 0))
"sing returns the beer song, from begin verse to the end verse"
- (loop for beer-verse downfrom begin-verse to end-verse by 1
- collect (verse beer-verse) into result finally (return (format nil "~{~A~%~}" result)))
- )
+ (loop :for beer-verse :downfrom begin-verse :to end-verse :by 1
+ :collect (verse beer-verse) :into result
+ :finally (return (format nil "~{~A~%~}" result))))
--
GitLab