/[gcl]/gcl/ansi-tests/cons-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26