1005 |
(multiple-value-bind (sym status) |
(multiple-value-bind (sym status) |
1006 |
(find-symbol (symbol-name s) keyword-package) |
(find-symbol (symbol-name s) keyword-package) |
1007 |
(cond |
(cond |
1008 |
((not (eqt s sym)) (push (list s sym) results)) |
((not (eqt s sym)) (push (list s sym) result)) |
1009 |
((eqt status :internal) |
((eqt status :internal) |
1010 |
(push (list s status) result)) |
(push (list s status) result)) |
1011 |
((eqt status :external) |
((eqt status :external) |
1052 |
(classify-error (special-operator-p 1)) |
(classify-error (special-operator-p 1)) |
1053 |
type-error) |
type-error) |
1054 |
|
|
1055 |
|
(deftest special-operator-p.4 |
1056 |
|
(classify-error (special-operator-p)) |
1057 |
|
program-error) |
1058 |
|
|
1059 |
|
(deftest special-operator-p.5 |
1060 |
|
(classify-error (special-operator-p 'cons 'cons)) |
1061 |
|
program-error) |
1062 |
|
|
1063 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1064 |
;;; keywordp |
;;; keywordp |
1065 |
|
|
1076 |
;;; This next test was busted. ::foo is not portable syntax |
;;; This next test was busted. ::foo is not portable syntax |
1077 |
;;(deftest keywordp-11 (not (not (keywordp ::foo))) t) |
;;(deftest keywordp-11 (not (not (keywordp ::foo))) t) |
1078 |
(deftest keywordp-12 (keywordp t) nil) |
(deftest keywordp-12 (keywordp t) nil) |
1079 |
|
(deftest keywordp-13 (classify-error (keywordp)) program-error) |
1080 |
|
(deftest keywordp-14 (classify-error (keywordp :x :x)) program-error) |
1081 |
|
|
1082 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1083 |
;;; symbol-name |
;;; symbol-name |
1110 |
(symbol-name :|abcdefg|) |
(symbol-name :|abcdefg|) |
1111 |
"abcdefg") |
"abcdefg") |
1112 |
|
|
1113 |
|
(deftest symbol-name-8 |
1114 |
|
(classify-error (symbol-name)) |
1115 |
|
program-error) |
1116 |
|
|
1117 |
|
(deftest symbol-name-9 |
1118 |
|
(classify-error (symbol-name 'a 'b)) |
1119 |
|
program-error) |
1120 |
|
|
1121 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1122 |
;;; make-symbol |
;;; make-symbol |
1123 |
|
|
1194 |
(symbol-name (safe-make-symbol "")) |
(symbol-name (safe-make-symbol "")) |
1195 |
"") |
"") |
1196 |
|
|
1197 |
|
(deftest make-symbol-19 |
1198 |
|
(classify-error (make-symbol)) |
1199 |
|
program-error) |
1200 |
|
|
1201 |
|
(deftest make-symbol-20 |
1202 |
|
(classify-error (make-symbol "a" "a")) |
1203 |
|
program-error) |
1204 |
|
|
1205 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1206 |
;;; copy-symbol |
;;; copy-symbol |
1207 |
|
|
1277 |
(eqt (copy-symbol 'a) (copy-symbol 'a)) |
(eqt (copy-symbol 'a) (copy-symbol 'a)) |
1278 |
nil) |
nil) |
1279 |
|
|
1280 |
|
(deftest copy-symbol-5 |
1281 |
|
(classify-error (copy-symbol)) |
1282 |
|
program-error) |
1283 |
|
|
1284 |
|
(deftest copy-symbol-6 |
1285 |
|
(classify-error (copy-symbol 'a t 'foo)) |
1286 |
|
program-error) |
1287 |
|
|
1288 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1289 |
;;; gensym |
;;; gensym |
1290 |
|
|
1382 |
;;; argument defaults to "G", with NIL causing an error. |
;;; argument defaults to "G", with NIL causing an error. |
1383 |
|
|
1384 |
(deftest gensym-14 |
(deftest gensym-14 |
1385 |
(catch-type-error (gensym 'aaa)) |
(classify-error (gensym 'aaa)) |
1386 |
type-error) |
type-error) |
1387 |
|
|
1388 |
(deftest gensym-15 |
(deftest gensym-15 |
1389 |
(catch-type-error (gensym 12.3)) |
(classify-error (gensym 12.3)) |
1390 |
type-error) |
type-error) |
1391 |
|
|
1392 |
(deftest gensym-16 |
(deftest gensym-16 |
1393 |
(catch-type-error (gensym t)) |
(classify-error (gensym t)) |
1394 |
type-error) |
type-error) |
1395 |
|
|
1396 |
(deftest gensym-17 |
(deftest gensym-17 |
1397 |
(catch-type-error (gensym nil)) |
(classify-error (gensym nil)) |
1398 |
type-error) ;; NIL /= no argument! |
type-error) ;; NIL /= no argument! |
1399 |
|
|
1400 |
(deftest gensym-18 |
(deftest gensym-18 |
1401 |
(catch-type-error (gensym '(a))) |
(classify-error (gensym '(a))) |
1402 |
type-error) |
type-error) |
1403 |
|
|
1404 |
(deftest gensym-19 |
(deftest gensym-19 |
1405 |
(catch-type-error (gensym #\x)) |
(classify-error (gensym #\x)) |
1406 |
type-error) |
type-error) |
1407 |
|
|
1408 |
|
(deftest gensym-20 |
1409 |
|
(classify-error (gensym 10 'foo)) |
1410 |
|
program-error) |
1411 |
|
|
1412 |
;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;; |
1413 |
|
|
1414 |
;;; Tests of CL package constraints from section 11.1.2.1.1 |
;;; Tests of CL package constraints from section 11.1.2.1.1 |
1473 |
(typep c 'class)) |
(typep c 'class)) |
1474 |
collect s) |
collect s) |
1475 |
nil) |
nil) |
1476 |
|
|
1477 |
|
;;; Various error cases for symbol-related functions |
1478 |
|
|
1479 |
|
(deftest symbolp.error.1 |
1480 |
|
(classify-error (symbolp)) |
1481 |
|
program-error) |
1482 |
|
|
1483 |
|
(deftest symbolp.error.2 |
1484 |
|
(classify-error (symbolp nil nil)) |
1485 |
|
program-error) |
1486 |
|
|
1487 |
|
(deftest keywordp.error.1 |
1488 |
|
(classify-error (keywordp)) |
1489 |
|
program-error) |
1490 |
|
|
1491 |
|
(deftest keywordp.error.2 |
1492 |
|
(classify-error (keywordp nil nil)) |
1493 |
|
program-error) |
1494 |
|
|
1495 |
|
(deftest symbol-function.error.1 |
1496 |
|
(classify-error (symbol-function)) |
1497 |
|
program-error) |
1498 |
|
|
1499 |
|
(deftest symbol-function.error.2 |
1500 |
|
(classify-error (symbol-function 'cons nil)) |
1501 |
|
program-error) |
1502 |
|
|
1503 |
|
(deftest symbol-name.error.1 |
1504 |
|
(classify-error (symbol-name)) |
1505 |
|
program-error) |
1506 |
|
|
1507 |
|
(deftest symbol-name.error.2 |
1508 |
|
(classify-error (symbol-name 'cons nil)) |
1509 |
|
program-error) |
1510 |
|
|
1511 |
|
(deftest symbol-package.error.1 |
1512 |
|
(classify-error (symbol-package)) |
1513 |
|
program-error) |
1514 |
|
|
1515 |
|
(deftest symbol-package.error.2 |
1516 |
|
(classify-error (symbol-package 'cons nil)) |
1517 |
|
program-error) |
1518 |
|
|
1519 |
|
(deftest symbol-plist.error.1 |
1520 |
|
(classify-error (symbol-plist)) |
1521 |
|
program-error) |
1522 |
|
|
1523 |
|
(deftest symbol-plist.error.2 |
1524 |
|
(classify-error (symbol-plist 'cons nil)) |
1525 |
|
program-error) |
1526 |
|
|
1527 |
|
(deftest symbol-value.error.1 |
1528 |
|
(classify-error (symbol-value)) |
1529 |
|
program-error) |
1530 |
|
|
1531 |
|
(deftest symbol-value.error.2 |
1532 |
|
(classify-error (symbol-value '*package* nil)) |
1533 |
|
program-error) |
1534 |
|
|