Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC | revision 1.4 by pfdietz, Sat Nov 2 03:55:07 2002 UTC | |
---|---|---|
# | Line 8 | Line 8 |
8 | (declaim (optimize (safety 3))) | (declaim (optimize (safety 3))) |
9 | ||
10 | (defun safe-elt (x n) | (defun safe-elt (x n) |
11 | (classify-error (elt x n))) | (classify-error* (elt x n))) |
12 | ||
13 | ;; elt on lists | ;; elt on lists |
14 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |