;; some old definitions for backward compatibility

;;AUTOLOAD: append
(setq append +)
;;AUTOLOAD: list-append
(setq list-append +)

;;; list-put & al...

;;AUTOLOAD: list-put!
(setq list-put! put)
;;AUTOLOAD: list-put
(defun list-put (l p v)
  (put (copy l) p v)
)
;;AUTOLOAD: list-remove!
(setq list-remove! delete)
;;AUTOLOAD: list-remove
(defun list-remove (l p)
  (delete (copy l) p)
)
