Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Sat Jan 17 20:04:52 2004 UTC | revision 1.6 by pfdietz, Fri Jun 24 14:11:45 2005 UTC | |
---|---|---|
# | Line 107 | Line 107 |
107 | collect (list i form))) | collect (list i form))) |
108 | nil) | nil) |
109 | ||
110 | (deftest multiple-value-setq.13 | |
111 | (multiple-value-setq nil :good) | |
112 | :good) | |
113 | ||
114 | ;;; Error tests | |
115 | ||
116 | (deftest multiple-value-setq.error.1 | (deftest multiple-value-setq.error.1 |
117 | (signals-error (funcall (macro-function 'multiple-value-setq)) | (signals-error (funcall (macro-function 'multiple-value-setq)) |
118 | program-error) | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |