anchor.diff:       (eq tmp (cdr (append '(l) tmp)))))
     nil)
   
  -(defun %nconc-0 (lsts)
  -  (when lsts
  -    (!? (car lsts)
  -	    (progn
  -		  (rplacd (last !) (%nconc-0 (cdr lsts)))
  -		  !)
  -		(%nconc-0 (cdr lsts)))))
  -
  -(defun nconc (&rest lsts)
  -  (%nconc-0 lsts))
  -
   (define-test "NCONC works"
     ((nconc (copy-list '(l i)) (copy-list '(s p))))
     '(l i s p))
  
positive.code: ;;;;; tré – Copyright (c) 2005–2009,2011–2012 Sven Michael Klose <pixel@copei.de>
  
  (functional append adjoin reverse)
  
  
negative.code:   ((adjoin 'a '(l i s p)))
    '(a l i s p))
  
  (define-test "REVERSE works"
    ((reverse '(1 2 3)))
    '(3 2 1))
  