Custom Query (1030 matches)

In the end of compilation of McCLIM I get the following:

> Error: value "home:lisp;site;mcclim;graphics.lisp.newest" is not of the expected type LIST.
> While executing: CCL::DEF-INFO.MACRO-P, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :B
*(7F957DE11868) : 0 (DEF-INFO.MACRO-P #(NIL NIL "home:lisp;site;mcclim;graphics.lisp.newest" (CCL::MACRO))) 82
 (7F957DE118C0) : 1 (REPORT-DEFERRED-WARNINGS) 1573
 (7F957DE11940) : 2 (CALL-WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY ASDF:OPERATE) #x7F957F43543F> [...]) 245

CCL trunk, test:

(in-package :cl-user)

(let ((a (make-array 16 :element-type '(unsigned-byte 8) :fill-pointer 11))
      (b (make-array 16 :element-type '(unsigned-byte 8) :fill-pointer 10)))
  (replace a b :start1 1 :end1 11 :start2 0)
  (princ a))

Produces an error:

The value 16 is not of the expected type ARRAY.
[Condition of type TYPE-ERROR]

Restarts:
0: [RETRY] Retry SLIME interactive evaluation request.
1: [*ABORT] Return to SLIME's top level.
2: [ABORT-BREAK] Reset this thread
3: [ABORT] Kill this thread

Backtrace:
0: (CCL::%ARRAY-IS-HEADER 16)
Locals:
ARRAY = 16
1: (DISPLACED-ARRAY-P #<error printing (VECTOR CCL::UNUSED 10) #x302004A7459D>)
Locals:
ARRAY = #<error printing (VECTOR UNUSED 10) #x302004A7459D>
DISP = #(0 0 0 0 0 0 ...)
TARGET = 16
2: (CCL::WRITE-AN-ARRAY #<error printing (VECTOR CCL::UNUSED 10) #x302004A7459D> #<SWANK/GRAY::SLIME-OUTPUT-STREAM #x302000B6D05D> 1152921504606846975)
3: (#<CCL::STANDARD-KERNEL-METHOD PRINT-OBJECT (T T)> #<error printing (VECTOR CCL::UNUSED 10) #x302004A7459D> #<SWANK/GRAY::SLIME-OUTPUT-STREAM #x302000B6D05D>)
4: (CCL::%CALL-NEXT-METHOD (NIL #<CCL::STANDARD-KERNEL-METHOD PRINT-OBJECT (T T)> . 17592094079249))
5: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<CCL::STANDARD-KERNEL-METHOD PRINT-OBJECT :AROUND (T T)> #<CCL::STANDARD-KERNEL-METHOD PRINT-OBJECT (T T)>) 17592094079249)
6: (NIL #<Unknown Arguments>)
7: (CCL::WRITE-A-FROB #<error printing (VECTOR CCL::UNUSED 10) #x302004A7459D> #<SWANK/GRAY::SLIME-OUTPUT-STREAM #x302000B6D05D> 1152921504606846975 NIL)
8: (CCL::WRITE-INTERNAL #<SWANK/GRAY::SLIME-OUTPUT-STREAM #x302000B6D05D> #<error printing (VECTOR CCL::UNUSED 10) #x302004A7459D> 1152921504606846975 NIL)
9: (CCL::WRITE-1 #<error printing (VECTOR CCL::UNUSED 10) #x302004A7459D> #<SWANK/GRAY::SLIME-OUTPUT-STREAM #x302000B6D05D> 1152921504606846975)
10: (PRINC #<error printing (VECTOR CCL::UNUSED 10) #x302004A7459D> NIL)
11: (CCL::CHEAP-EVAL (LET ((A (MAKE-ARRAY 16 :ELEMENT-TYPE '# :FILL-POINTER ...)) (B (MAKE-ARRAY 16 :ELEMENT-TYPE '# :FILL-POINTER ...))) (REPLACE A B :START1 1 :END1 ...) (PRINC A)))
12: ((:INTERNAL SWANK:INTERACTIVE-EVAL))

The culprit is %UVECTOR-REPLACE used in REPLACE function. It uses %SVREF which breaks on non-simple vectors.

Suggested patch is attached.

CL-USER> (let ((a (make-array 4 :element-type '(complex double-float)))
               (b (make-array 4 :element-type '(complex double-float))))
           (dotimes (i 4)
             (setf (aref b i) (complex (* 1.0d0 i) (* 2.0d0 i))))
           (format t "A: ~A~%" a)
           (format t "B: ~A~%" b)
           (replace a b)
           (format t "A <- B: ~A~%" a)
           nil)
A: #(#C(0.0D0 0.0D0) #C(0.0D0 0.0D0) #C(0.0D0 0.0D0) #C(0.0D0 0.0D0))
B: #(#C(0.0D0 0.0D0) #C(1.0D0 2.0D0) #C(2.0D0 4.0D0) #C(3.0D0 6.0D0))
A <- B: #(#C(0.0D0 0.0D0) #C(1.0D0 2.0D0) #C(2.0D0 4.0D0) #C(3.0D0 0.0D0))

The imagpart of the last element isn't making it though. Not sure if this test case exhausts all of the scenarios of this bug.