* (ql:quickload '(:lisp-binary))
To load "lisp-binary":
  Load 1 ASDF system:
    lisp-binary
; Loading "lisp-binary"
...........
(:LISP-BINARY)

* (lisp-binary:defbinary header ()
    (type "" :type (lisp-binary:counted-string 4)))
HEADER

* (lisp-binary:with-open-binary-file (wad #p"what.wad" :direction :input) (lisp-binary:read-binary 'header wad))
Heap exhausted during allocation: 964591616 bytes available, 1145132896 requested.
Gen  Boxed   Code    Raw  LgBox LgCode  LgRaw  Pin       Alloc     Waste        Trig      WP GCs Mem-age
 0    1179     12      0      7      0      0    0    37219008   2037056    10737418    1198   0  0,0000
 1     539     20    163     82      0     10   96    25693024    980128     2000000     814   0  0,6507
 2       0      0      0      0      0      0    0           0         0     2000000       0   0  0,0000
 3       0      0      0      0      0      0    0           0         0     2000000       0   0  0,0000
 4       0      0      0      0      0      0    0           0         0     2000000       0   0  0,0000
 5       0      0      0      0      0      0    0           0         0     2000000       0   0  0,0000
 6     426      2    183     55      0     10    0    21604816    546352     2000000     676   0  0,0000
           Total bytes allocated    =      84516848
           Dynamic-space-size bytes =    1073741824
GC control variables:
   *GC-INHIBIT* = false
   *GC-PENDING* = true
   *STOP-FOR-GC-PENDING* = false

debugger invoked on a SB-KERNEL::HEAP-EXHAUSTED-ERROR in thread
#<THREAD "main thread" RUNNING {10005184C3}>:
  Heap exhausted (no more space for allocation).
964591616 bytes available, 1145132896 requested.

PROCEED WITH CAUTION.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-KERNEL::HEAP-EXHAUSTED-ERROR 482295808 572566448)
0] backtrace

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005184C3}>
0: (SB-KERNEL::HEAP-EXHAUSTED-ERROR 482295808 572566448)
1: ("foreign function: call_into_lisp")
2: ("foreign function: funcall2")
3: ("foreign function: gc_heap_exhausted_error_or_lose")
4: ("foreign function: gc_find_freeish_pages")
5: ("foreign function: gc_alloc_large")
6: ("foreign function: alloc")
7: (SB-VM::ALLOC-TRAMP)
8: (SB-VM::ALLOCATE-VECTOR-WITH-WIDETAG :INVALID-VALUE-FOR-UNESCAPED-REGISTER-STORAGE :INVALID-VALUE-FOR-UNESCAPED-REGISTER-STORAGE :INVALID-VALUE-FOR-UNESCAPED-REGISTER-STORAGE)
9: (SB-KERNEL:%MAKE-ARRAY 1145132873 145 3 :ELEMENT-TYPE (UNSIGNED-BYTE 8) :INITIAL-ELEMENT NIL :INITIAL-CONTENTS NIL :ADJUSTABLE NIL :FILL-POINTER NIL :DISPLACED-TO NIL :DISPLACED-INDEX-OFFSET NIL)
10: ((:METHOD LISP-BINARY/INTEGER:READ-BYTES (T T)) 1145132873 #<SB-SYS:FD-STREAM for "file /tmp/what.wad" {10038377C3}> :ELEMENT-TYPE (UNSIGNED-BYTE 8)) [fast-method]
11: ((SB-PCL::EMF LISP-BINARY/INTEGER:READ-BYTES) #<unused argument> #<unused argument> 1145132873 #<SB-SYS:FD-STREAM for "file /tmp/what.wad" {10038377C3}>)
12: (LISP-BINARY:READ-COUNTED-STRING 4 #<SB-SYS:FD-STREAM for "file /tmp/what.wad" {10038377C3}> :BYTE-ORDER :LITTLE-ENDIAN)
13: ((:METHOD LISP-BINARY:READ-BINARY ((EQL (QUOTE HEADER)) T)) #<unused argument> #<SB-SYS:FD-STREAM for "file /tmp/what.wad" {10038377C3}>) [fast-method]
14: ((SB-PCL::SDFUN-METHOD LISP-BINARY:READ-BINARY) #<unused argument> #<unused argument> HEADER #<SB-SYS:FD-STREAM for "file /tmp/what.wad" {10038377C3}>)
15: ((LAMBDA ()))
16: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LISP-BINARY:WITH-OPEN-BINARY-FILE (WAD #P"what.wad" :DIRECTION :INPUT) (LISP-BINARY:READ-BINARY (QUOTE HEADER) WAD)) #<NULL-LEXENV>)
17: (EVAL (LISP-BINARY:WITH-OPEN-BINARY-FILE (WAD #P"what.wad" :DIRECTION :INPUT) (LISP-BINARY:READ-BINARY (QUOTE HEADER) WAD)))
18: (INTERACTIVE-EVAL (LISP-BINARY:WITH-OPEN-BINARY-FILE (WAD #P"what.wad" :DIRECTION :INPUT) (LISP-BINARY:READ-BINARY (QUOTE HEADER) WAD)) :EVAL NIL)
19: (SB-IMPL::REPL-FUN NIL)
20: ((FLET "LAMBDA0" :IN "SYS:SRC;CODE;TOPLEVEL.LISP"))
21: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (FLET "LAMBDA0" :IN "SYS:SRC;CODE;TOPLEVEL.LISP") {7F34A63E7B7B}>)
22: (SB-IMPL::TOPLEVEL-REPL NIL)
23: (SB-IMPL::TOPLEVEL-INIT)
24: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
25: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE))
26: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))