/[gcl]/gcl/ansi-tests/cons-test-18.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-18.lsp

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

revision 1.4 by pfdietz, Tue Oct 22 05:36:04 2002 UTC revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 57  Line 57 
57           (values indicator value tail))))           (values indicator value tail))))
58    g h (g h a c))    g h (g h a c))
59    
60    (deftest get-properties.error.1
61      (classify-error (get-properties))
62      program-error)
63    
64    (deftest get-properties.error.2
65      (classify-error (get-properties nil))
66      program-error)
67    
68    (deftest get-properties.error.3
69      (classify-error (get-properties nil nil nil))
70      program-error)
71    
72                        
73  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
74  ;;; getf  ;;; getf
# Line 220  Line 232 
232         p))         p))
233    (x) (a (x)))    (x) (a (x)))
234    
235    (deftest getf.error.1
236      (classify-error (getf))
237      program-error)
238    
239    (deftest getf.error.2
240      (classify-error (getf nil))
241      program-error)
242    
243    (deftest getf.error.3
244      (classify-error (getf nil nil nil nil))
245      program-error)
246    
247  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
248  ;;; remf  ;;; remf
249    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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