1377 |
;;; gensym should be implemented so that its only |
;;; gensym should be implemented so that its only |
1378 |
;;; argument defaults to "G", with NIL causing an error. |
;;; argument defaults to "G", with NIL causing an error. |
1379 |
|
|
1380 |
(deftest gensym-14 |
(deftest gensym.error.1 |
1381 |
(classify-error (gensym 'aaa)) |
(classify-error (gensym 'aaa)) |
1382 |
type-error) |
type-error) |
1383 |
|
|
1384 |
(deftest gensym-15 |
(deftest gensym.error.2 |
1385 |
(classify-error (gensym 12.3)) |
(classify-error (gensym 12.3)) |
1386 |
type-error) |
type-error) |
1387 |
|
|
1388 |
(deftest gensym-16 |
(deftest gensym.error.3 |
1389 |
(classify-error (gensym t)) |
(classify-error (gensym t)) |
1390 |
type-error) |
type-error) |
1391 |
|
|
1392 |
(deftest gensym-17 |
(deftest gensym.error.4 |
1393 |
(classify-error (gensym nil)) |
(classify-error (gensym nil)) |
1394 |
type-error) ;; NIL /= no argument! |
type-error) ;; NIL /= no argument! |
1395 |
|
|
1396 |
(deftest gensym-18 |
(deftest gensym.error.5 |
1397 |
(classify-error (gensym '(a))) |
(classify-error (gensym '(a))) |
1398 |
type-error) |
type-error) |
1399 |
|
|
1400 |
(deftest gensym-19 |
(deftest gensym.error.6 |
1401 |
(classify-error (gensym #\x)) |
(classify-error (gensym #\x)) |
1402 |
type-error) |
type-error) |
1403 |
|
|
1404 |
(deftest gensym-20 |
(deftest gensym.error.7 |
1405 |
(classify-error (gensym 10 'foo)) |
(classify-error (gensym 10 'foo)) |
1406 |
program-error) |
program-error) |
1407 |
|
|
1408 |
|
(deftest gensym.error.8 |
1409 |
|
(classify-error (locally (gensym t) t)) |
1410 |
|
type-error) |
1411 |
|
|
1412 |
|
|
1413 |
;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;; |
1414 |
|
|
1415 |
;;; Tests of CL package constraints from section 11.1.2.1.1 |
;;; Tests of CL package constraints from section 11.1.2.1.1 |