14 lines
488 B
Common Lisp
14 lines
488 B
Common Lisp
* (let ((stream (flexi-streams:make-in-memory-output-stream)))
|
|
(binary:write-u32 stream 1024)
|
|
(binary:write-u32 stream 1024 :endian :big)
|
|
(format t "Stream contents: ~A~%"
|
|
(flexi-streams:get-output-stream-sequence stream)))
|
|
#(0 4 0 0 0 0 4 0)
|
|
NIL
|
|
* (let ((stream (flexi-streams:make-in-memory-input-stream #(0 4 0 0 0 0 4 0))))
|
|
(format t "Read ~A~%" (binary:read-u32 stream))
|
|
(format t "Read ~A~%" (binary:read-u32 stream :endian :big)))
|
|
Read 1024
|
|
Read 1024
|
|
NIL
|