blob: f0876ef17fd98b90f9bba5789013fac4830f0499 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
(defun sys:loc (ctx)
(iflet ((loc (source-loc-str (sys:ctx-form ctx))))
`(@loc) ` ""))
(defun compile-error (ctx fmt . args)
(let ((loc (sys:loc ctx))
(name (sys:ctx-name ctx)))
(dump-deferred-warnings *stderr*)
(throwf 'eval-error `@loc~s: @fmt` name . args)))
(defun compile-warning (ctx fmt . args)
(let ((loc (sys:loc ctx))
(name (sys:ctx-name ctx)))
(catch
(throwf 'warning `@loc~s: @fmt` name . args)
(continue ()))))
(defun compile-defr-warning (ctx tag fmt . args)
(let ((loc (sys:loc ctx))
(name (sys:ctx-name ctx)))
(catch
(throw 'defr-warning (fmt `@loc~s: @fmt` name . args) tag)
(continue ()))))
|