Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Mar 29 03:55:28 2003 UTC | revision 1.3 by pfdietz, Thu Apr 3 05:35:10 2003 UTC | |
---|---|---|
# | Line 58 | Line 58 |
58 | program-error) | program-error) |
59 | ||
60 | (deftest defclass.error.9 | (deftest defclass.error.9 |
61 | (classify-error | (let ((option (gentemp "UNKNOWN-OPTION" (symbol-package :foo)))) |
62 | (defclass defclass-error-9 () | (eval |
63 | (foo bar) | `(classify-error |
64 | (#:unknown-class-option nil))) | (defclass defclass-error-9 () |
65 | (foo bar) | |
66 | (,option nil))))) | |
67 | program-error) | program-error) |
68 | ||
69 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |