;;; The system system. -*- Mode:LISP; Package:SYSTEM-INTERNALS;PATCH-FILE: t -*-
;;;
;;; (c) Copyright 1984 - Lisp Machine, Inc.
;;;


(DEFVAR MAKSYS-BREAKPOINT-FLAG NIL)
(DEFUN FILE-NEWER-THAN-INSTALLED-P (FILE &AUX
				    (LOADED-ID (GET-FILE-LOADED-ID FILE *FORCE-PACKAGE*)))
  (AND (NOT *JUST-ACCUMULATING-FILES*)
       MAKSYS-BREAKPOINT-FLAG
       LOADED-ID
       (NOT (EQUAL LOADED-ID (SYSTEM-GET-FILE-INFO FILE)))
       (ERROR "TESTING MAKSYS"))
  (IF LOADED-ID
      (let ((file-info (SYSTEM-GET-FILE-INFO FILE)))
	(cond ((and (listp loaded-id) (listp file-info))
	       (not (equal (car loaded-id) (car file-info))))
	      (t
	       (not file-info))))	;dont reload anything already loaded.
	;(NOT (EQUAL LOADED-ID file-info))
    T))