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

diff --git a/datetime.lisp b/datetime.lisp
index 4a4dbe2e321feae2789864b0d657c82759a9a1c6..ac71fa472841a383ca62ea89a24aebe2062d0eec 100644 (file)
--- a/datetime.lisp
+++ b/datetime.lisp
@@ -68,6 +68,11 @@
     (t
      (format t "~,2F ~A" val unit))))
 
     (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 
 
 
 ;;;; Daylight Saving Time calculations 
 

diff --git a/debian/changelog b/debian/changelog
index b14d4929b9fbe58f4e12bea8eaa1184b330724c3..691f5999ead775d8b58a3bcebd0b3f0390d20100 100644 (file)
--- 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
 cl-kmrcl (1.62-1) unstable; urgency=low
 
   * New upstream

diff --git a/package.lisp b/package.lisp
index 417005643c422336738aae4decadef86c4b9bceb..34b496002e171c1821f54ea585fe5c71399a68f1 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -194,6 +194,7 @@
    #:date-string
    #:print-float-units
    #:print-seconds
    #:date-string
    #:print-float-units
    #:print-seconds

+   #:posix-time-to-utime

    
    ;; From random.lisp
    #:seed-random-generator
    
    ;; From random.lisp
    #:seed-random-generator

diff --git a/processes.lisp b/processes.lisp
index 36fa3d952c10e0861386f19b4fa396777cacbc5a..f89d010931b1a3f8e8eabe77b123ada76954c2c7 100644 (file)
--- 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)
   #+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)
   )
 
 (defmacro with-lock-held ((lock) &body body)


@@ -42,9 +42,9 @@
   `(mp:with-lock-held (,lock) ,@body)
   #+lispworks
   `(mp:with-lock (,lock) ,@body)
   `(mp:with-lock-held (,lock) ,@body)
   #+lispworks
   `(mp:with-lock (,lock) ,@body)

-  #+sbcl-thread
+  #+sb-thread

   `(sb-thread:with-recursive-lock (,lock) ,@body)
   `(sb-thread:with-recursive-lock (,lock) ,@body)

-  #-(or allegro cmu lispworks sbcl-thread)
+  #-(or allegro cmu lispworks sb-thread)

   `(progn ,@body)
   )
 
   `(progn ,@body)
   )
 


@@ -54,9 +54,9 @@
   `(mp:with-timeout (,seconds) ,@body)
   #+cmu
   `(mp:with-timeout (,seconds) ,@body)
   `(mp:with-timeout (,seconds) ,@body)
   #+cmu
   `(mp:with-timeout (,seconds) ,@body)

-  #+sbcl-thread
+  #+sb-thread

   `(sb-ext:with-timeout ,seconds ,@body)
   `(sb-ext:with-timeout ,seconds ,@body)

-  #-(or allegro cmu sbcl-thread)
+  #-(or allegro cmu sb-thread)

   `(progn ,@body)
   )
   
   `(progn ,@body)
   )