/[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.11 by pfdietz, Wed Dec 4 02:55:41 2002 UTC revision 1.12 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 1005  Line 1005 
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)
# Line 1052  Line 1052 
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    
# Line 1068  Line 1076 
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
# Line 1100  Line 1110 
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    
# Line 1176  Line 1194 
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    
# Line 1251  Line 1277 
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    
# Line 1348  Line 1382 
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
# Line 1435  Line 1473 
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    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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