fix fasl-read signature

primdata.ss

original commit: 8a3300b4898fb2f8504512b9a8a91a41582d8b3a
This commit is contained in:
Gustavo Massaccesi 2020-03-01 11:35:42 -03:00
parent f8fa08dafb
commit 83e920e0a0

View File

@ -1303,7 +1303,7 @@
(expand/optimize [sig [(ptr) (ptr environment) -> (ptr)]] [flags]) (expand/optimize [sig [(ptr) (ptr environment) -> (ptr)]] [flags])
(expt-mod [sig [(integer integer integer) -> (integer)]] [flags arith-op mifoldable discard]) (expt-mod [sig [(integer integer integer) -> (integer)]] [flags arith-op mifoldable discard])
(fasl-file [sig [(pathname pathname) -> (void)]] [flags true]) (fasl-file [sig [(pathname pathname) -> (void)]] [flags true])
(fasl-read [sig [(binary-input-port) (binary-input-port sub-symbol) -> (ptr)]] [flags true]) (fasl-read [sig [(binary-input-port) (binary-input-port sub-symbol) -> (ptr)]] [flags])
(fasl-write [sig [(sub-ptr binary-output-port) -> (void)]] [flags true]) (fasl-write [sig [(sub-ptr binary-output-port) -> (void)]] [flags true])
(vfasl-convert-file [sig [(ptr ptr ptr) -> (void)]] [flags]) (vfasl-convert-file [sig [(ptr ptr ptr) -> (void)]] [flags])
(file-access-time [sig [(pathname) (pathname ptr) -> (time)]] [flags discard]) (file-access-time [sig [(pathname) (pathname ptr) -> (time)]] [flags discard])