Parent Directory | Revision Log | Patch
revision 1.2 by camm, Wed Oct 9 19:05:01 2002 UTC | revision 1.3 by pfdietz, Sun Oct 13 10:42:08 2002 UTC | |
---|---|---|
# | Line 586 | Line 586 |
586 | ||
587 | (deftest position-error.4 | (deftest position-error.4 |
588 | (locally (declare (optimize (safety 3))) | (locally (declare (optimize (safety 3))) |
589 | (handler-case (position 'a '(a b c . d)) | (handler-case (position 'e '(a b c . d)) |
590 | (type-error () :type-error) | (type-error () :type-error) |
591 | (error (c) c))) | (error (c) c))) |
592 | :type-error) | :type-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |