blob: 113e1c798b95296a92f936923e1d91809f69e318 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
*** sacla/lisp/test/should-array.lisp 2004-08-03 08:34:55.000000000 +0200
--- CLISP/clisp-20040712/sacla-tests/should-array.lisp 2004-08-06 03:27:42.000000000 +0200
***************
*** 31,43 ****
(ERROR NIL NIL)
(:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))
(progn
! #-(or cmu clisp)
(HANDLER-CASE (PROGN (ADJUSTABLE-ARRAY-P "not-a-symbol"))
(TYPE-ERROR NIL T)
(ERROR NIL NIL)
(:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))
! #+(or cmu clisp) 'skipped)
(progn
#-cmu
--- 31,44 ----
(ERROR NIL NIL)
(:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))
+ #-CLISP ; Why expect an error? A string _is_ an array.
(progn
! #-(or cmu clispxxx)
(HANDLER-CASE (PROGN (ADJUSTABLE-ARRAY-P "not-a-symbol"))
(TYPE-ERROR NIL T)
(ERROR NIL NIL)
(:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))
! #+(or cmu clispxxx) 'skipped)
(progn
#-cmu
|
