mirror of
https://github.com/PDP-10/its.git
synced 2026-01-27 04:32:08 +00:00
25 lines
560 B
Common Lisp
Executable File
25 lines
560 B
Common Lisp
Executable File
;;; -*- Mode:LISP -*-
|
||
|
||
(herald COMPLAIN)
|
||
|
||
(defvar *complaint-handler* nil "At toplevel we don't handle complaints.")
|
||
(declare (*lexpr bug diagnose recorded-output))
|
||
|
||
(eval-when (eval load compile)
|
||
(cond ((not (memq compiler-state '(nil toplevel)))
|
||
(*lexpr complain))))
|
||
|
||
(defun complain (&rest stuff)
|
||
(if stuff
|
||
(progn
|
||
(lexpr-funcall #'diagnose stuff)
|
||
(recorded-output "~&")))
|
||
(cond (*complaint-handler* (*throw 'complaint-handler nil))
|
||
(t (bug "~&User error"))))
|
||
|
||
|
||
;;; Local Modes:;
|
||
;;; Mode:LISP;
|
||
;;; Comment Column:50;
|
||
;;; End:;
|