full call to SB-KERNEL:DATA-VECTOR-SET-WITH-OFFSET

[Paul F. Dietz]

(defun f70 (x y z)
  (let ((k (make-array 8 :element-type '(unsigned-byte 8))))
    (dotimes (i 8)
      (setf (aref k i) (the nonsense (logior x 1))))
    (setq k (subseq y z))))

===>

full call to SB-KERNEL:DATA-VECTOR-SET-WITH-OFFSET
[...]
  0: (SB-INT:BUG "full call to ~S" SB-KERNEL:DATA-VECTOR-SET-WITH-OFFSET)
  1: (SB-C::PONDER-FULL-CALL #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-KERNEL:DATA-VECTOR-SET-WITH-OFFSET :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FRO..
  2: (SB-C::IR2-CONVERT-FULL-CALL #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-KERNEL:DATA-VECTOR-SET-WITH-OFFSET :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHER..
  3: (SB-C::IR2-CONVERT-BLOCK #<SB-C::CBLOCK 7 :START c3 {1004FF1EE3}>)
  4: (SB-C:IR2-CONVERT #<SB-C:COMPONENT :NAME F70 {1004F96053}>)
[...]

[Stas Boukarev (stassats)]

71a725ca608022b916ccc61b9f8689d008ad9a75