Every story and comment from the Hacker News API, in a layout borrowed from 2001.
A comment on JEP 443: Unnamed Patterns and Variables (Preview). Parent comment
1> (compile-toplevel '(match @(struct @type year @y) (time-struct-utc (time)) (list type y))) #<sys:vm-desc: 986dff0>
2> (disassemble *1)
data: 0: year 1: t 2: match 3: @(struct @type year @y)
syms: 0: time-struct-utc 1: time 2: structp 3: struct-type 4: slotp 5: slot 6: list 7: sys:match-pat-error
code: 0: 20000003 gcall t3 1 1: 00000001 2: 2001000D gcall t13 0 t3 3: 00030000
4: 20010002 gcall t2 2 t13 5: 000D0002
6: 38000017 if t2 23 7: 00000002
8: 20010009 gcall t9 3 t13 9: 000D0003
10: 2C0B0009 movsr t11 t9
11: 20020002 gcall t2 4 t9 d0 12: 00090004 13: 00000400
14: 38000017 if t2 23 15: 00000002
16: 20020008 gcall t8 5 t13 d0 17: 000D0005 18: 00000400
19: 2002000C gcall t12 6 t11 t8 20: 000B0006 21: 00000008
22: 1000000C end t12
23 is the error block: run-time function sys:match-pat-error is called with some arguments, like D3, which holds the source code of the pattern.
23: 20030002 gcall t2 7 d2 d3 t13 24: 04020007 25: 000D0403
26: 10000002 end t2 instruction count: 13 #<sys:vm-desc: 986dff0>
There are no comments on this comment yet.
23 is the error block: run-time function sys:match-pat-error is called with some arguments, like D3, which holds the source code of the pattern.
Not reached, since that function throws: