diff --git a/src/code/sunos-os.lisp b/src/code/sunos-os.lisp
index 4971a82f513ab6fe239e18e99b76163d62fc63f7..517c38be8f6b0677880307b6a395a669b0c8f1f9 100644
--- a/src/code/sunos-os.lisp
+++ b/src/code/sunos-os.lisp
@@ -58,7 +58,6 @@
 ;;;
 ;;;    Return system time, user time and number of page faults.
 ;;;
-#-(and sparc svr4)
 (defun get-system-info ()
   (multiple-value-bind
       (err? utime stime maxrss ixrss idrss isrss minflt majflt)
@@ -70,19 +69,6 @@
 	  (T
 	   (values utime stime majflt)))))
 
-;;; GET-SYSTEM-INFO  --  Interface
-;;;
-;;;    Return system time, user time and number of page faults.
-;;;
-#+(and sparc svr4)
-(defun get-system-info ()
-  (multiple-value-bind
-      (err? utime stime cutime cstime)
-      (unix:unix-times)
-    (declare (ignore err? cutime cstime))
-    ;; Return times in microseconds; page fault statistics not supported.
-    (values (* utime 10000) (* stime 10000) 0)))
-
 ;;; GET-PAGE-SIZE  --  Interface
 ;;;
 ;;;    Return the system page size.
diff --git a/src/code/time.lisp b/src/code/time.lisp
index bf853a2b6a4d6cebb2e541931797a7346a6f36ea..8558ebe0aacff2c3caca0398bd0dc2b7a2c9a747 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -64,7 +64,6 @@
 
 ;;; Get-Internal-Run-Time  --  Public
 ;;;
-#-(and sparc svr4)
 (defun get-internal-run-time ()
   _N"Return the run time in the internal time format.  This is useful for
   finding CPU usage."
@@ -81,20 +80,6 @@
 	 (truncate (+ utime-usec stime-usec)
 		   micro-seconds-per-internal-time-unit)))))
 
-;;; Get-Internal-Run-Time  --  Public
-;;;
-#+(and sparc svr4)
-(defun get-internal-run-time ()
-  _N"Return the run time in the internal time format.  This is useful for
-  finding CPU usage."
-  (declare (values (unsigned-byte 32)))
-  (locally (declare (optimize (speed 3) (safety 0)))
-    (multiple-value-bind (ignore utime stime cutime cstime)
-	(unix:unix-times)
-      (declare (ignore ignore cutime cstime)
-	       (type (unsigned-byte 31) utime stime))
-      (the (unsigned-byte 32) (+ utime stime)))))
-
 
 ;;;; Encode and Decode universal times.
 
diff --git a/src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp b/src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp
deleted file mode 100644
index e7d17c3c23c65bb4159c8c8952d2673702a0cff1..0000000000000000000000000000000000000000
--- a/src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp
+++ /dev/null
@@ -1,4 +0,0 @@
-;; Cross bootstrap file for cross-compiling from x86 to sparc.
-;; Use this file with the -B option for bin/cross-build-world.sh
-
-(export 'unix::unix-times "UNIX")
\ No newline at end of file