From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 13 Jan 2004 16:11:44 +0000 (+0000)
Subject: r8505: Automated commit for Debian build of kmrcl upstream-version-1.63
X-Git-Tag: v1.96~97
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=ffa469ca8554ae12f2a5e297e8a0880d784b1f12

r8505: Automated commit for Debian build of kmrcl upstream-version-1.63
---

diff --git a/datetime.lisp b/datetime.lisp
index 4a4dbe2..ac71fa4 100644
--- a/datetime.lisp
+++ b/datetime.lisp
@@ -68,6 +68,11 @@
     (t
      (format t "~,2F ~A" val unit))))
 
+(defconstant +posix-epoch+
+  (encode-universal-time 0 0 0 1 1 1970 0))
+
+(defun posix-time-to-utime (time)
+  (+ time +posix-epoch+))
 
 ;;;; Daylight Saving Time calculations 
 
diff --git a/debian/changelog b/debian/changelog
index b14d492..691f599 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.63-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 13 Jan 2004 09:11:35 -0700
+
 cl-kmrcl (1.62-1) unstable; urgency=low
 
   * New upstream
diff --git a/package.lisp b/package.lisp
index 4170056..34b4960 100644
--- a/package.lisp
+++ b/package.lisp
@@ -194,6 +194,7 @@
    #:date-string
    #:print-float-units
    #:print-seconds
+   #:posix-time-to-utime
    
    ;; From random.lisp
    #:seed-random-generator
diff --git a/processes.lisp b/processes.lisp
index 36fa3d9..f89d010 100644
--- a/processes.lisp
+++ b/processes.lisp
@@ -32,7 +32,7 @@
   #+allegro (mp:make-process-lock :name name)
   #+cmu (mp:make-lock name)
   #+lispworks (mp:make-lock :name name)
-  #+sbcl-thread (sb-thread:make-mutex :name name)
+  #+sb-thread (sb-thread:make-mutex :name name)
   )
 
 (defmacro with-lock-held ((lock) &body body)
@@ -42,9 +42,9 @@
   `(mp:with-lock-held (,lock) ,@body)
   #+lispworks
   `(mp:with-lock (,lock) ,@body)
-  #+sbcl-thread
+  #+sb-thread
   `(sb-thread:with-recursive-lock (,lock) ,@body)
-  #-(or allegro cmu lispworks sbcl-thread)
+  #-(or allegro cmu lispworks sb-thread)
   `(progn ,@body)
   )
 
@@ -54,9 +54,9 @@
   `(mp:with-timeout (,seconds) ,@body)
   #+cmu
   `(mp:with-timeout (,seconds) ,@body)
-  #+sbcl-thread
+  #+sb-thread
   `(sb-ext:with-timeout ,seconds ,@body)
-  #-(or allegro cmu sbcl-thread)
+  #-(or allegro cmu sb-thread)
   `(progn ,@body)
   )