The function copy-to-weak-simple-vector
creates and returns a weak vector with the same contents as the argument vector-t.
Apart from the checking of arguments, this is equivalent to:
(replace (make-array (length vector-t )
:weak t)
vector-t )
See set-array-weak for a description of weak vectors.
LispWorks User Guide and Reference Manual - 13 Feb 2015