From 7d8400e2444898452012e83ba4530d28616789fc Mon Sep 17 00:00:00 2001 From: Gary King Date: Thu, 16 Apr 2015 10:11:57 -0700 Subject: [PATCH] (test only) Update LIFT for 10.0 tests added : no tests run : no performance : no change release note : none, internal change Change-Id: I13a42b2b22d4f375d34f987c5a5fe6b1d2ee2bf4 Reviewed-on: https://gerrit.franz.com:9080/4673 Reviewed-by: Ahmon Dancy Reviewed-by: Kevin Layer Tested-by: Kevin Layer --- dev/port.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/dev/port.lisp b/dev/port.lisp index 40357b7..f5fa6c3 100644 --- a/dev/port.lisp +++ b/dev/port.lisp @@ -222,15 +222,18 @@ returns a string with the corresponding backtrace.") (declare (ignorable name style fn body log-name count-calls-p timeout destination)) (funcall fn)) -#+allegro +#-(and allegro (version>= 10 0)) (eval-when (compile eval) (require :timedefs)) #+allegro (defun get-test-real-time () + #-(version>= 10 0) (multiple-value-bind (secs fsecs) (excl::cl-internal-real-time) - (+ (* (+ secs #.excl::seconds-1900-2015) 1000) fsecs))) + (+ (* (+ secs #.excl::seconds-1900-2015) 1000) fsecs)) + #+(version>= 10 0) + (excl::get-universal-hi-res-time)) #-allegro (defun get-test-real-time () -- 2.11.4.GIT