Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.6 by pfdietz, Tue Jun 14 03:05:19 2005 UTC | |
---|---|---|
# | Line 617 | Line 617 |
617 | (cons nil (rev-assoc-list (cdr x)))) | (cons nil (rev-assoc-list (cdr x)))) |
618 | (t | (t |
619 | (acons (cdar x) (caar x) (rev-assoc-list (cdr x)))))) | (acons (cdar x) (caar x) (rev-assoc-list (cdr x)))))) |
620 | ||
621 | (defvar *mapc.6-var* nil) | |
622 | (defun mapc.6-fun (x) | |
623 | (push x *mapc.6-var*) | |
624 | x) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |