/[gcl]/gcl/ansi-tests/when.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/when.lsp

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

revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC revision 1.4 by pfdietz, Sun Apr 20 22:59:26 2003 UTC
# Line 50  Line 50 
50  ;;; (deftest when.error.1  ;;; (deftest when.error.1
51  ;;;  (classify-error (when))  ;;;  (classify-error (when))
52  ;;;  program-error)  ;;;  program-error)
53    
54    (deftest when.error.1
55      (classify-error (funcall (macro-function 'when)))
56      program-error)
57    
58    (deftest when.error.2
59      (classify-error (funcall (macro-function 'when)
60                               '(when t)))
61      program-error)
62    
63    (deftest when.error.3
64      (classify-error (funcall (macro-function 'when)
65                               '(when t) nil nil))
66      program-error)

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

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