5 |
;;;; and symbol-related functions |
;;;; and symbol-related functions |
6 |
|
|
7 |
(in-package :cl-test) |
(in-package :cl-test) |
|
(use-package :rt) |
|
8 |
|
|
9 |
(declaim (optimize (safety 3))) |
(declaim (optimize (safety 3))) |
10 |
|
|
1102 |
;;; symbol-name |
;;; symbol-name |
1103 |
|
|
1104 |
(deftest symbol-name.1 |
(deftest symbol-name.1 |
1105 |
(safe-symbol-name '|ABCD|) |
(symbol-name '|ABCD|) |
1106 |
"ABCD") |
"ABCD") |
1107 |
|
|
1108 |
(deftest symbol-name.2 |
(deftest symbol-name.2 |
1109 |
(safe-symbol-name '|1234abcdABCD|) |
(symbol-name '|1234abcdABCD|) |
1110 |
"1234abcdABCD") |
"1234abcdABCD") |
1111 |
|
|
1112 |
(deftest symbol-name.3 |
(deftest symbol-name.3 |
1113 |
(safe-symbol-name 1) |
(classify-error (symbol-name 1)) |
1114 |
type-error) |
type-error) |
1115 |
|
|
1116 |
(deftest symbol-name.4 |
(deftest symbol-name.4 |
1117 |
(safe-symbol-name '(a)) |
(classify-error (symbol-name '(a))) |
1118 |
type-error) |
type-error) |
1119 |
|
|
1120 |
(deftest symbol-name.5 |
(deftest symbol-name.5 |
1121 |
(safe-symbol-name "ABCDE") |
(classify-error (symbol-name "ABCDE")) |
1122 |
type-error) |
type-error) |
1123 |
|
|
1124 |
(deftest symbol-name.6 |
(deftest symbol-name.6 |
1125 |
(safe-symbol-name 12913.0213) |
(classify-error (symbol-name 12913.0213)) |
1126 |
type-error) |
type-error) |
1127 |
|
|
1128 |
(deftest symbol-name.7 |
(deftest symbol-name.7 |
1178 |
nil) |
nil) |
1179 |
|
|
1180 |
(deftest make-symbol.10 |
(deftest make-symbol.10 |
1181 |
(symbol-name (safe-make-symbol "")) |
(symbol-name (make-symbol "")) |
1182 |
"") |
"") |
1183 |
|
|
1184 |
(deftest make-symbol.order.1 |
(deftest make-symbol.order.1 |
1189 |
"ABC" 1) |
"ABC" 1) |
1190 |
|
|
1191 |
(deftest make-symbol.error.1 |
(deftest make-symbol.error.1 |
1192 |
(safe-make-symbol nil) |
(classify-error (make-symbol nil)) |
1193 |
type-error) |
type-error) |
1194 |
|
|
1195 |
(deftest make-symbol.error.2 |
(deftest make-symbol.error.2 |
1196 |
(safe-make-symbol 'a) |
(classify-error (make-symbol 'a)) |
1197 |
type-error) |
type-error) |
1198 |
|
|
1199 |
(deftest make-symbol.error.3 |
(deftest make-symbol.error.3 |
1200 |
(safe-make-symbol 1) |
(classify-error (make-symbol 1)) |
1201 |
type-error) |
type-error) |
1202 |
|
|
1203 |
(deftest make-symbol.error.4 |
(deftest make-symbol.error.4 |
1204 |
(safe-make-symbol -1) |
(classify-error (make-symbol -1)) |
1205 |
type-error) |
type-error) |
1206 |
|
|
1207 |
(deftest make-symbol.error.5 |
(deftest make-symbol.error.5 |
1208 |
(safe-make-symbol 1.213) |
(classify-error (make-symbol 1.213)) |
1209 |
type-error) |
type-error) |
1210 |
|
|
1211 |
(deftest make-symbol.error.6 |
(deftest make-symbol.error.6 |
1212 |
(safe-make-symbol -1312.2) |
(classify-error (make-symbol -1312.2)) |
1213 |
type-error) |
type-error) |
1214 |
|
|
1215 |
(deftest make-symbol.error.7 |
(deftest make-symbol.error.7 |
1216 |
(safe-make-symbol #\w) |
(classify-error (make-symbol #\w)) |
1217 |
type-error) |
type-error) |
1218 |
|
|
1219 |
(deftest make-symbol.error.8 |
(deftest make-symbol.error.8 |
1220 |
(safe-make-symbol '(a)) |
(classify-error (make-symbol '(a))) |
1221 |
type-error) |
type-error) |
1222 |
|
|
1223 |
(deftest make-symbol.error.9 |
(deftest make-symbol.error.9 |
1228 |
(classify-error (make-symbol "a" "a")) |
(classify-error (make-symbol "a" "a")) |
1229 |
program-error) |
program-error) |
1230 |
|
|
1231 |
|
(deftest make-symbol.error.11 |
1232 |
|
(classify-error (make-symbol '(#\a #\b #\c))) |
1233 |
|
type-error) |
1234 |
|
|
1235 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1236 |
;;; copy-symbol |
;;; copy-symbol |
1237 |
|
|