/[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.15 by pfdietz, Wed Jan 29 00:42:25 2003 UTC revision 1.16 by pfdietz, Wed Jan 29 02:11:54 2003 UTC
# Line 1377  Line 1377 
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

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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