We are now able to decode char*!
This commit is contained in:
parent
3e49fc158b
commit
c4e87de70f
1 changed files with 4 additions and 1 deletions
|
@ -81,5 +81,8 @@
|
||||||
(printf "~a~%" size)
|
(printf "~a~%" size)
|
||||||
(printf "~a~%" port)
|
(printf "~a~%" port)
|
||||||
(printf "~a~%" host)
|
(printf "~a~%" host)
|
||||||
(printf "~a~%" (ftype-ref string () buf))
|
(printf
|
||||||
|
"~a~%"
|
||||||
|
(char*->string
|
||||||
|
(make-ftype-pointer char buf)))
|
||||||
))))
|
))))
|
||||||
|
|
Loading…
Reference in a new issue