anchor.diff: -;;;;; tré – Copyright (c) 2005–2009,2011–2012 Sven Michael Klose <pixel@copei.de>
  +;;;;; tré – Copyright (c) 2005–2009,2011–2013 Sven Michael Klose <pixel@copei.de>
   
   (functional append adjoin reverse)
   
  
positive.code:   ((adjoin 'a '(l i s p)))
    '(a l i s p))
  
  (defun reverse (lst)
    (let nl nil
      (dolist (i lst nl)
        (push i nl))))
  
  (define-test "REVERSE works"
    ((reverse '(1 2 3)))
    '(3 2 1))
  
negative.code:      (eq tmp (cdr (append '(l) tmp)))))
    nil)
  
  (define-test "NCONC works"
    ((nconc (copy-list '(l i)) (copy-list '(s p))))
    '(l i s p))
  