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: 
  (defmacro append! (place &rest args)
    `(= ,place (append ,place ,@args)))
  
  (define-test "COPY-LIST works"
    ((copy-list '(l i s p)))
  
negative.code: (define-test "NCONC works with empty lists"
    ((nconc nil (copy-list '(l i)) nil (copy-list '(s p)) nil))
    '(l i s p))
  
  (define-test "ADJOIN doesn't add known member"
    ((adjoin 'i '(l i s p)))
  