(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
+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
#+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)
`(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)
)
`(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)
)