10653 |
(equalp #*0 "0") |
(equalp #*0 "0") |
10654 |
nil) |
nil) |
10655 |
|
|
10656 |
|
;;; clisp 21 Mar 2005 (-ansi -q, x86 Linux, gcc 3.2.2) |
10657 |
|
;;; *** - Compiler bug!! Occurred in SP-DEPTH at <0. |
10658 |
|
|
10659 |
|
(deftest misc.593 |
10660 |
|
(funcall |
10661 |
|
(compile |
10662 |
|
nil |
10663 |
|
'(lambda (a b) |
10664 |
|
(declare (ignorable a b)) |
10665 |
|
(declare (optimize (space 3) (debug 0) (safety 1) |
10666 |
|
(compilation-speed 3) (speed 1))) |
10667 |
|
(prog2 |
10668 |
|
(catch 'ct1 (if (or (and t (not (and (and (or a t) nil) nil))) nil) |
10669 |
|
a |
10670 |
|
(reduce #'(lambda (lmv5 lmv2) 0) (vector b 0 a)))) |
10671 |
|
0))) |
10672 |
|
2212755 3154856) |
10673 |
|
0) |