-
Notifications
You must be signed in to change notification settings - Fork 16
/
copy.ecl
48 lines (44 loc) · 1.73 KB
/
copy.ecl
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
;;; Copyright 1994-2010 Fraunhofer ISST
;;; Copyright 2010 Henry G. Weller
;;;-----------------------------------------------------------------------------
;; This file is part of
;;; --- EuLisp System 'Eu2C'
;;;-----------------------------------------------------------------------------
;;
;; Eu2C is free software: you can redistribute it and/or modify it under the
;; terms of the GNU General Public License version 2 as published by the Free
;; Software Foundation.
;;
;; Eu2C is distributed in the hope that it will be useful, but WITHOUT ANY
;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
;; details.
;;
;; You should have received a copy of the GNU General Public License along with
;; this program. If not, see <http://www.gnu.org/licenses/>.
;;
;;;-----------------------------------------------------------------------------
;;; Title: EL-in-CL: standard module copy
;;; Description:
;;; Authors: Ingo Mohr
;;; Maintainer: Henry G. Weller
;;;-----------------------------------------------------------------------------
#module copy
(import (eulisp-kernel
(only (deep-copy
shallow-copy) list)
(only (deep-copy
shallow-copy) string)
(only (deep-copy
shallow-copy)
vector))
syntax (eulisp-kernel)
export (deep-copy
shallow-copy))
(defmethod deep-copy ((object <object>))
object)
(defmethod shallow-copy ((object <object>))
object)
;;;-----------------------------------------------------------------------------
#module-end
;;;-----------------------------------------------------------------------------