tanky:~/src/toys% sh sharp-mem.sh
 sharp-ptr=#.(SB-SYS:INT-SAP #X0808D558) [incoming value=#m(1.000000000000000d0 2.000000000000000d0 3.000000000000000d0 4.000000000000000d0)]
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into sharp-mem.core:
writing 3512 bytes from the read-only space at 0x01000000
writing 3120 bytes from the static space at 0x01100000
writing 45264896 bytes from the dynamic space at 0x09000000
done]
 sharp-ptr=#.(SB-SYS:INT-SAP #X0808D558) [incoming value=#m(557034543712805200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000000000000d0 .0000000000000000d0 88876331835947720000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000000000000d0 .0000000000000000d0)]
 sharp-ptr=#.(SB-SYS:INT-SAP #X0808D5C0) [incoming value=#m(0.000000000000000d0 0.000000000000000d0 0.000000000000000d0 0.000000000000000d0)]
==> BINGO
setting SHARP-ALLOC[0] to 1234...
x: 1234.0  sharp-alloc: #m(1234.000000000000000d0 .0000000000000000d0 0.000000000000000d0 0.000000000000000d0)
setting X to 54321...
x: 54321.0  sharp-alloc: #m(54321.000000000000000d0 .0000000000000000d0 0.000000000000000d0 0.000000000000000d0)