Require bug (?)

[Jonathan Young <Young@YALE.ARPA>]

    Interesting.  I had always thought that it was annoying that it
gave an error, but "that's the way things were".  The following will
fix it if installed in the *T-IMPLEMENTATION-ENV*.

(DEFINE (RELOAD? FNAME LOADED-FILE)
  (LET ((Z (LOADED-FILE-FILENAME LOADED-FILE)))
    (COND ((NOT (FILENAME-EQUAL? (filename-with-type FNAME nil)
                                 (filename-with-type Z nil)))
           (ERROR '("~S has already been loaded from file ~A~%"
                    "  Do (RET T) to reload from ~A, or (RET) not to")
                  (FILENAME-NAME FNAME)
                  Z
                  FNAME))
          ((NOT (LOADED-FILE-INSTALLED? LOADED-FILE))
           (ERROR '("circular file dependencies - ~S~%"
                    "  Do (RET T) to load recursively, or (RET) not to")
                    FNAME))
          (T
           NIL))))

                --- Jonathan