diff --git a/common-lisp/beer-song/beer-song.lisp b/common-lisp/beer-song/beer-song.lisp
index b69a32969795885ac92442662704428cb98e19da..7c9502200ad546cc6edcc3fc3712a7a48f9a242f 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))))