/[gcl]/gcl/ansi-tests/cl-symbols.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cl-symbols.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by pfdietz, Fri Feb 21 03:41:17 2003 UTC revision 1.20 by pfdietz, Sun Feb 23 17:11:13 2003 UTC
# Line 5  Line 5 
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    
# Line 1103  Line 1102 
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
# Line 1179  Line 1178 
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
# Line 1190  Line 1189 
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
# Line 1229  Line 1228 
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    

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26