;;; Lquery:$ and cl-arrows
;;; The Code in dispute
(defun get-live-href (data query)
  (-<>> (concatenate 'string ".cb-lv-scr-mtch-hdr a[href*=" query "].text-bold")
    (lquery:$ data)
    (aref <> 0)))

;;; Expected macro-expansion
(aref
 ($
   data
   (concatenate 'string ".cb-lv-scr-mtch-hdr a[href*=" query "].text-bold"))
 0)

;;; SBCL error
; in: DEFUN GET-LIVE-HREF
;     (-<>> (CONCATENATE 'STRING ".cb-lv-scr-mtch-hdr a[href*=" QUERY "].text-bold")
;       ($
;         DATA)
;       (AREF <> 0))
; --> AREF $
; ==>
;   (CONCATENATE
;    (LQUERY::DETERMINE-VALUE DATA
;                             (MAKE-PROPER-VECTOR :SIZE 1 :INITIAL-ELEMENT
;                                                 *LQUERY-MASTER-DOCUMENT*
;                                                 :FILL-POINTER T))
;    'STRING ".cb-lv-scr-mtch-hdr a[href*=" QUERY "].text-bold")
;
; caught WARNING:
;   Constant STRING conflicts with its asserted type SEQUENCE.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
;
; compilation unit finished
;   caught 1 WARNING condition