[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Require bug (?)
- To: T-Discussion@YALE.ARPA
- Subject: Require bug (?)
- From: Jonathan Young <Young@YALE.ARPA>
- Date: Sun ,8 Apr 84 17:16:01 EDT
- In-reply-to: Christopher Owens <Owens>, Sun, 8 Apr 84 15:40:33 EST
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")
((NOT (LOADED-FILE-INSTALLED? LOADED-FILE))
(ERROR '("circular file dependencies - ~S~%"
" Do (RET T) to load recursively, or (RET) not to")