Parent Directory | Revision Log | Patch
revision 1.30 by mdj, Sun Apr 13 14:48:35 2003 UTC | revision 1.31 by mdj, Mon Apr 14 20:12:40 2003 UTC | |
---|---|---|
# | Line 1231 | Line 1231 |
1231 | (if (or (integer? g-n-s) | (if (or (integer? g-n-s) |
1232 | (zero? size)) | (zero? size)) |
1233 | g-n-s | g-n-s |
1234 | (append g-n-s index size)))))) | (append g-n-s (list index size))))))) |
1235 | slots)) | slots)) |
1236 | ||
1237 | ;;; compute-cpl | ;;; compute-cpl |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |