1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
|
(in-package #:containers)
(defgeneric copy-container (abstract-container)
(:method ((container abstract-container))
(metacopy:copy-thing container)))
(metacopy:defcopy-methods container-node-mixin :copy-all t)
(metacopy:defcopy-methods keyed-container-mixin :copy-all t)
(metacopy:defcopy-methods typed-container-mixin :copy-all t)
(metacopy:defcopy-methods initial-element-mixin :copy-all t)
(metacopy:defcopy-methods test-container-mixin :copy-all t)
(metacopy:defcopy-methods i-know-my-node-mixin :copy-all t)
(metacopy:defcopy-methods sorted-container-mixin :copy-all t)
(metacopy:defcopy-methods classified-container-mixin :copy-all t)
(metacopy:defcopy-methods uses-contents-mixin :copy-all t)
(metacopy:defcopy-methods priority-queue-on-container :copy-all t)
(metacopy:defcopy-methods stack-container :copy-all t)
(metacopy:defcopy-methods rooted-tree-container :copy-all t)
(metacopy:defcopy-methods parent-node-mixin :copy-all t)
(metacopy:defcopy-methods many-unordered-child-node :copy-all t)
(metacopy:defcopy-methods two-child-node :copy-all t)
(metacopy:defcopy-methods bst-node :copy-all t)
(metacopy:defcopy-methods quad-tree :copy-all t)
(metacopy:defcopy-methods four-child-node :copy-all t)
(metacopy:defcopy-methods quad-tree-node :copy-all t)
(metacopy:defcopy-methods basic-queue :copy-all t)
(metacopy:defcopy-methods bag-container :copy-all t)
(metacopy:defcopy-methods set-container :copy-all t)
(metacopy:defcopy-methods bag/set-container :copy-all t)
(metacopy:defcopy-methods keyed-bag/set-container :copy-all t)
(metacopy:defcopy-methods sorted-list-container :copy-all t)
(metacopy:defcopy-methods dlist-container-node :copy-all t)
(metacopy:defcopy-methods dlist-container :copy-all t)
(metacopy:defcopy-methods red-black-node :copy-all t)
(metacopy:defcopy-methods ring-buffer :copy-all t)
(metacopy:defcopy-methods array-container :copy-all t)
(metacopy:defcopy-methods sparse-array-container :copy-all t)
(metacopy:defcopy-methods alist-container :copy-all t)
(metacopy:defcopy-methods keyed-associative-container :copy-all t)
(metacopy:defcopy-methods heap-node :copy-all t)
(metacopy:defcopy-methods k-best-heap-container :copy-all t)
(metacopy:defcopy-methods stable-associative-container :copy-all t)
(metacopy:defcopy-methods associative-array :copy-all t)
(metacopy:defcopy-methods vector-container-mixin :copy-all t)
;;; ***************************************************************************
;;; * End of File *
;;; ***************************************************************************
|