[Openmcl-devel] more ansi-test bugs

[Eric Marsden]

These come from sacla-tests.


? (let ((x (make-array '(2 3) :initial-contents '((a b c) (x y z)))))
  (and (eql (setf (aref x 0 0) 0.0) 0.0)
       (eql (setf (aref x 0 1) 0.1) 0.1)
       (eql (setf (aref x 0 2) 0.2) 0.2)
       (eql (setf (aref x 1 0) 1.0) 1.0)
       (eql (setf (aref x 1 1) 1.1) 1.1)
       (eql (setf (aref x 1 2) 1.2) 1.2)
       (equalp x #2A((0.0 0.1 0.2) (1.0 1.1 1.2)))))
Unhandled exception 11 at 0x40e68b, context->regs at #x40230868
? for help
[5768] OpenMCL kernel debugger: B
current thread: tcr = 0x402317e0, native thread ID = 0x1688, interrupts enabled
(#x00002AAAAACBBBA0) #x00003000404D7F7C : #<Function TOPLEVEL-EVAL #x00003000404D7DCF> + 429
(#x00002AAAAACBBBF0) #x00003000404D9DB4 : #<Function READ-LOOP #x00003000404D967F> + 1845
(#x00002AAAAACBBDF8) #x00003000404DFD34 : #<Function TOPLEVEL-LOOP #x00003000404DFC6F> + 197


? (ELT '(0 1 . 2) 2)
Unhandled exception 11 at 0x30004012aa8e, context->regs at #x40230868
? for help
[5820] OpenMCL kernel debugger: B
current thread: tcr = 0x402317e0, native thread ID = 0x16bc, interrupts enabled
(#x00002AAAAACBBB68) #x00003000404E0494 : #<Function CALL-CHECK-REGS #x00003000404E03AF> + 229
(#x00002AAAAACBBBA0) #x00003000404D7F7C : #<Function TOPLEVEL-EVAL #x00003000404D7DCF> + 429
(#x00002AAAAACBBBF0) #x00003000404D9DB4 : #<Function READ-LOOP #x00003000404D967F> + 1845
(#x00002AAAAACBBDF8) #x00003000404DFD34 : #<Function TOPLEVEL-LOOP #x00003000404DFC6F> + 197


? (NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (AND (EQL (AREF ARRAY 0 0) 0) (EQL (AREF ARRAY 0 1) 1) (EQL (AREF ARRAY 0 2) 2) (EQL (AREF ARRAY 1 0) 3) (EQL (AREF ARRAY 1 1) 4) (EQL (AREF ARRAY 1 2) 5))))
> Error: bad regspec: NIL
> While executing: CCL::%HARD-REGSPEC-VALUE, in process listener(1).

-- 
Eric Marsden