Parent Directory | Revision Log | Patch
revision 1.16 by pfdietz, Thu Jan 2 13:00:50 2003 UTC | revision 1.17 by pfdietz, Fri Jan 10 04:06:59 2003 UTC | |
---|---|---|
# | Line 938 the condition to go uncaught if it canno | Line 938 the condition to go uncaught if it canno |
938 | ||
939 | (defun safe-elt (x n) | (defun safe-elt (x n) |
940 | (classify-error* (elt x n))) | (classify-error* (elt x n))) |
941 | ||
942 | (defmacro defstruct* (&body args) | |
943 | `(eval-when (load eval compile) | |
944 | (ignore-errors | |
945 | (defstruct ,@args)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |