Index: /trunk/ccl/level-1/linux-files.lisp
===================================================================
--- /trunk/ccl/level-1/linux-files.lisp	(revision 399)
+++ /trunk/ccl/level-1/linux-files.lisp	(revision 400)
@@ -273,8 +273,4 @@
     (+ (* 1000 (pref tv :timeval.tv_sec)) (round (pref tv :timeval.tv_usec) 1000)))
 
-(defun get-internal-real-time ()
-  (rlet ((tv :timeval))
-    (#_gettimeofday tv (%null-ptr))
-    (timeval->milliseconds tv)))
 
 (defun %add-timevals (result a b)
@@ -301,11 +297,5 @@
 
 
-(defun get-internal-run-time ()
-  (rlet ((usage :rusage)
-	 (total :timeval))
-    (%%rusage usage)
-    (timeval->milliseconds (%add-timevals total 
-					  (pref usage :rusage.ru_utime) 
-					  (pref usage :rusage.ru_stime)))))
+