Welcome to the CHICKEN Scheme pasting service
no title added by alicemaz on Tue Jul 16 01:29:35 2019
#;18> ,d tmed structure of type `binary#immedrec': 0: 1 1: 2 2: 3 3: #\a 4: #\l 5: #\i 6: #\c 7: #\e #;18> (record-instance-type tmed) binary#immedrec #;19> (dump-obj (record-instance-type tmed)) 00000000 03 00 00 00 00 00 00 01 48 7b 51 ff 70 7f 00 00 |........H{Q.p...| 00000010 78 7d 51 ff 70 7f 00 00 0e 00 00 00 00 00 00 00 |x}Q.p...........| #;20> ,d (pointer->object (address->pointer #x7f70ff517b48)) symbol with name "binary#immedrec" #;20> ,d (pointer->object (address->pointer #x7f70ff517d78)) string of length 15 0: #\b 1: #\i 2: #\n 3: #\a 4: #\r 5: #\y 6: #\# 7: #\i 8: #\m (followed by 1 identical instance) ... 10: #\e 11: #\d 12: #\r 13: #\e 14: #\c #;20> (number-of-bytes (pointer->object (address->pointer #x7f70ff517b48))) 24 #;21> (dump-obj (pointer->object (address->pointer #x7f70ff517b48))) 00000000 03 00 00 00 00 00 00 01 48 7b 51 ff 70 7f 00 00 |........H{Q.p...| 00000010 78 7d 51 ff 70 7f 00 00 0e 00 00 00 00 00 00 00 |x}Q.p...........| #;22> (pointer->address (object->pointer (record-instance-type tmed))) 140123296594760 #;23> (dump-obj 'a) 00000000 03 00 00 00 00 00 00 01 2e 00 00 00 00 00 00 00 |................| 00000010 50 3b dd bc bf 55 00 00 0e 00 00 00 00 00 00 00 |P;...U..........| #;24> ,d (pointer->object (address->pointer #x55bfbcdd3b50)) statically allocated (0x55bfbcdd3b50) string of length 1 0: #\a