Permalink
Browse files

Fixes a warning in sbcl regarding *default-timezone*

*default-timezone* was used before being defined, causing a compile warning.
  • Loading branch information...
1 parent 13e02b2 commit 9f7eea3abcdf4a82bad1a030d6d0eb92fbf15545 tailor committed Apr 4, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/local-time.lisp
View
@@ -205,6 +205,8 @@
;;; Variables
+(defvar *default-timezone*)
+
(defparameter *default-timezone-repository-path*
(flet ((try (project-home-directory)
(when project-home-directory
@@ -476,7 +478,6 @@
,@(when load
`((%realize-timezone ,zone-sym))))))
-(defvar *default-timezone*)
(eval-when (:load-toplevel :execute)
(let ((default-timezone-file #p"/etc/localtime"))
(if (probe-file default-timezone-file)

0 comments on commit 9f7eea3

Please sign in to comment.