`with` does not support vectors about rutils HOT 2 CLOSED

RTL-USER> (defmethod bind-dispatch ((arg1 array) arg2 &rest args)
            (declare (ignore args))
            (let ((garg2 (gensym)))
              `(let* ((,garg2 ,arg2)
                      ,@(mapindex (lambda (i arg) `(,arg (aref ,garg2 ,i)))
                                  (coerce arg1 'list))))))
WARNING:
   redefining BIND-DISPATCH (#<BUILT-IN-CLASS COMMON-LISP:ARRAY>
                             #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
#<STANDARD-METHOD RUTILS.BIND:BIND-DISPATCH (ARRAY T) {10178E61A3}>
RTL-USER> (m1 '(with ((#(a b) #(1 2 3)))
            b))
(LET* ((#:G716 #(1 2 3)) (A (AREF #:G716 0)) (B (AREF #:G716 1)))
  B)
T
RTL-USER> (with ((#(a b) #(1 2 3)))
            b)
; in: WITH ((#(A B) #(1 2 3)))
;     (LET* ((#:G717 #(1 2 3))
;            (RTL-USER::A (AREF #:G717 0))
;            (RTL-USER::B (AREF #:G717 1)))
;       RTL-USER::B)
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
2