| 123456789101112131415161718192021222324252627 |
- % BUG.SL - Send bug reports
- %
- % Author: Martin Griss and Eric Benson
- % Symbolic Computation Group
- % Computer Science Dept.
- % University of Utah
- % Date: 11 December 1981
- % Copyright (c) 1981 University of Utah
- %
- % <PERDUE.PSL>BUG.SL.2, 7-Jan-83 16:52:07, Edit by PERDUE
- % Changed to LISP syntax, added bug-mail-to variable.
- % Each site may set bug-mail-to as desired.
- (imports '(exec))
- (fluid '(bug-mail-to))
- (cond ((null bug-mail-to) (setq bug-mail-to "")))
- (defun bug ()
- (printf "*** PSL Bug reporter, ^N to abort%n")
- (putrescan (bldmsg "mail %w%n" bug-mail-to))
- (mm)
- (terpri)
- t)
|
