61 |
(push '((character object) fixnum #.(flags set rfa)"(putc(#0,(#1)->sm.sm_fp))") |
(push '((character object) fixnum #.(flags set rfa)"(putc(#0,(#1)->sm.sm_fp))") |
62 |
(get 'sputc 'inline-unsafe)) |
(get 'sputc 'inline-unsafe)) |
63 |
|
|
64 |
|
;;FORK |
65 |
|
(push '(() t #.(flags)"myfork()") |
66 |
|
(get 'si::fork 'inline-unsafe)) |
67 |
|
|
68 |
|
;;READ-POINTER-OBJECT |
69 |
|
(push '((t) t #.(flags ans set)"read_pointer_object(#0)") |
70 |
|
(get 'si::read-pointer-object 'inline-unsafe)) |
71 |
|
|
72 |
|
;;WRITE-POINTER-OBJECT |
73 |
|
(push '((t t) t #.(flags ans set)"write_pointer_object(#0,#1)") |
74 |
|
(get 'si::write-pointer-object 'inline-unsafe)) |
75 |
|
|
76 |
;;READ-BYTE1 |
;;READ-BYTE1 |
77 |
(push '((t t) t #.(flags ans set)"read_byte1(#0,#1)") |
(push '((t t) t #.(flags ans set)"read_byte1(#0,#1)") |
78 |
(get 'read-byte1 'inline-unsafe)) |
(get 'read-byte1 'inline-unsafe)) |