| commit | 7a8ebae8be4e4d1ba0330582b30390aa81a1eba3 | |
| author | Stas Boukarev <stassats@gmail.com> | |
| Sun, 17 Dec 2017 20:29:03 +0000 (17 23:29 +0300) | ||
| committer | Stas Boukarev <stassats@gmail.com> | |
| Sun, 17 Dec 2017 20:39:57 +0000 (17 23:39 +0300) | ||
| tree | 9142bf52cbc85cb94845aa57439bbe81bb2314bd | treesnapshot (tar.gz zip) |
| parent | a4c045046713cd9b3f1b89efbc8aaac538c4f40f | commitdiff |
Hide FUNCTIONALs from error reports.
; (SB-C::%FUNCALL #'(FLET SB-C::%F2 :IN SB-C::F49))
instead of
; (SB-C::%FUNCALL
; #<SB-C::CLAMBDA
; :%SOURCE-NAME SB-C::.ANONYMOUS.
; :%DEBUG-NAME (SB-C::XEP (FLET SB-C::%F2 :IN SB-C::F49))
; :KIND :EXTERNAL
; :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
; :WHERE-FROM :DEFINED
; :VARS (#:G1 #:G2) {1005484033}>)
; (SB-C::%FUNCALL #'(FLET SB-C::%F2 :IN SB-C::F49))
instead of
; (SB-C::%FUNCALL
; #<SB-C::CLAMBDA
; :%SOURCE-NAME SB-C::.ANONYMOUS.
; :%DEBUG-NAME (SB-C::XEP (FLET SB-C::%F2 :IN SB-C::F49))
; :KIND :EXTERNAL
; :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
; :WHERE-FROM :DEFINED
; :VARS (#:G1 #:G2) {1005484033}>)
| src/compiler/ir1report.lisp | diffblobblamehistory |