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

Diff of /gcl/ansi-tests/unless.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 59  Line 59 
59  ;;; (deftest unless.error.1  ;;; (deftest unless.error.1
60  ;;;  (classify-error (unless))  ;;;  (classify-error (unless))
61  ;;;  program-error)  ;;;  program-error)
62    
63    (deftest unless.error.1
64      (classify-error (funcall (macro-function 'unless)))
65      program-error)
66    
67    (deftest unless.error.2
68      (classify-error (funcall (macro-function 'unless)
69                               '(unless t)))
70      program-error)
71    
72    (deftest unless.error.3
73      (classify-error (funcall (macro-function 'unless)
74                               '(unless t) nil nil))
75      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