X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=dd04eb0fc73fa7fa2277a63c62bab6bd02749f1e;hb=cd13034f9415f64cdaa05893a4ac5ff1e95c97bd;hp=db787af2a7fb82676124c2e99c202a7db6a3fb99;hpb=96399d44ad75b2ee2e36b14d1e0ac773652e80c1;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index db787af..dd04eb0 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -651,19 +651,13 @@
 
 (define-alien-routine get-timezone sb!alien:void
   (when sb!alien:long :in)
-  (minutes-west sb!alien:int :out)
+  (seconds-west sb!alien:int :out)
   (daylight-savings-p sb!alien:boolean :out))
 
-(defun unix-get-minutes-west (secs)
-  (multiple-value-bind (ignore minutes dst) (get-timezone secs)
+(defun unix-get-seconds-west (secs)
+  (multiple-value-bind (ignore seconds dst) (get-timezone secs)
     (declare (ignore ignore) (ignore dst))
-    (values minutes)))
-
-(defun unix-get-timezone (secs)
-  (multiple-value-bind (ignore minutes dst) (get-timezone secs)
-    (declare (ignore ignore) (ignore minutes))
-    (values (deref unix-tzname (if dst 1 0)))))
-
+    (values seconds)))
 
 ;;;; sys/time.h