4.3BSD/usr/lib/lisp/vector.x

(File vector.l)
(set-in-fclosure lambda |1+| int:fclosure-stack-stuff return car eq vref setq lessp < vsize do error fclosurep not cond)
(symeval-in-fclosure lambda |1+| int:fclosure-stack-stuff return car eq vref setq lessp < vsize do error fclosurep not cond)
(vector-dump lambda |1+| vref lessp < not do terpr vprop vsize setq msg-print progn msg let)
(fclosure-function lambda vref fclosurep and)
(fclosure-alist lambda error |1+| cadr car cons setf push vref setq lessp < not vsize do fclosurep cond)
(fclosurep lambda vprop quote eq vectorp and)
(fclosure-list lexpr |1+| make-fclosure-with-alist setq setf push nreverse greaterp > list cons |1-| + cdr <& arg do minusp eq let listify error evenp not cond)
(fclosure lambda list make-fclosure-with-alist)
(make-fclosure-with-alist lambda list nconc copyint* cons boundp cdr return caar eq assq symbolp car setq vset setf do quote length |1+| new-vector let error dtpr null or not cond)
(vputprop lambda putprop vsetprop cons ncons setq dtpr not cond if vprop let)
(vget lambda get dtpr cond if vprop let)
(vsize-byte lambda error int:vsize vectorip cond if)
(vsize-word lambda error int:vsize vectorip cond if)
(vsize lambda error int:vsize vectorip vectorp or cond if)
(vseti-long lambda int:vset vsize cdr <& or fixp error vectorip not cond vset-macro)
(vseti-word lambda int:vset vsize-word cdr <& or fixp error vectorip not cond vset-macro)
(vseti-byte lambda int:vset vsize-byte cdr <& or fixp error vectorip not cond vset-macro)
(vset lambda int:vset vsize cdr <& or fixp error vectorp not cond vset-macro)
(vrefi-long lambda int:vref vsize lessp <& < or fixp error vectorip not cond vref-macro)
(vrefi-word lambda int:vref vsize-word lessp <& < or fixp error vectorip not cond vref-macro)
(vrefi-byte lambda int:vref vsize-byte lessp <& < or fixp error vectorip not cond vref-macro)
(vref lambda int:vref vsize lessp <& < or fixp error vectorp not cond vref-macro)
(vectori-long lexpr arg int:vset <& < |1-| do new-vectori-long let vector-macro)
(vectori-word lexpr arg int:vset <& < |1-| do new-vectori-word let vector-macro)
(vectori-byte lexpr arg int:vset <& < |1-| do new-vectori-byte let vector-macro)
(vector lexpr arg int:vset <& < |1-| do new-vector let vector-macro)