Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC | revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC | |
---|---|---|
# | Line 238 | Line 238 |
238 | (eqt access2 :inherited)))) | (eqt access2 :inherited)))) |
239 | (error (c) c))))))) | (error (c) c))))))) |
240 | t) | t) |
241 | ||
242 | (deftest unintern.error.1 | |
243 | (classify-error (unintern)) | |
244 | program-error) | |
245 | ||
246 | (deftest unintern.error.2 | |
247 | (classify-error (unintern '#:x "CL-TEST" nil)) | |
248 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |