anchor.diff:  
   "))
   (in-package "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST")
  +
  +
  +(define-modify-macro prependf (place &rest lists)
  +  (lambda (tail &rest lists) (apply (function append) (append lists (list tail)))))
  +
  +(defmacro push* (&rest elements-and-place)
  +  `(prependf ,(car (last elements-and-place))
  +             (list ,@(butlast elements-and-place))))
  +
  +(assert (equal (let ((i -1)
  +                     (v (vector nil)))
  +                 (push* 5 6 7 8 (aref v (incf i)))
  +                 (decf i)
  +                 (push* 1 2 3 4 (aref v (incf i)))
  +                 (aref v 0))
  +               '(1 2 3 4 5 6 7 8)))
   
   
   (defun ensure-list (item)
  
positive.code: 
      AGPL3
      
      Copyright Pascal J. Bourguignon 2003 - 2012
      
      This program is free software: you can redistribute it and/or modify
      it under the terms of the GNU Affero General Public License as published by
  
negative.code: ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;    
  ;;;;    Copyright Pascal J. Bourguignon 2002 - 2013
  ;;;;    
  ;;;;    This program is free software: you can redistribute it and/or modify
  ;;;;    it under the terms of the GNU Affero General Public License as published by
  