Fix weird dynamic variable behavior. Use lexical scoping.

jsmpereira · Sep 5, 2012 · ace654d · ace654d
1 parent 523feb3
commit ace654d
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/hello-world.lisp b/src/hello-world.lisp
@@ -5,13 +5,10 @@
   #+ccl (ccl:getenv target)
   #+sbcl (sb-posix:getenv target))
 
-;; Database
-(defvar *database-url* (heroku-getenv "DATABASE_URL"))
-
 (defun db-params ()
   "Heroku database url format is postgres://username:password@host:port/database_name.
 TODO: cleanup code."
-  (let* ((url (second (cl-ppcre:split "//" *database-url*)))
+  (let* ((url (second (cl-ppcre:split "//" (heroku-getenv "DATABASE_URL"))))
 	 (user (first (cl-ppcre:split ":" (first (cl-ppcre:split "@" url)))))
 	 (password (second (cl-ppcre:split ":" (first (cl-ppcre:split "@" url)))))
 	 (host (first (cl-ppcre:split ":" (first (cl-ppcre:split "/" (second (cl-ppcre:split "@" url)))))))