Changeset 4312 for branches/f4grobner/copy.lisp
- Timestamp:
- 2016-06-04T22:56:30-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/copy.lisp
r4223 r4312 38 38 ;; NOTE: This is a shallow copy. Add an around method for classes which need deep copy of the slots. 39 39 (defgeneric copy-instance (object &rest initargs &key &allow-other-keys) 40 (:method ((object number) &rest initargs &key &allow-other-keys)41 (declare (ignore initargs))42 object)43 (:method ((object cons) &rest initargs &key &allow-other-keys)44 (declare (ignore initargs))45 (copy-seq object))46 40 (:documentation "Makes and returns a shallow copy of OBJECT. 47 48 41 An uninitialized object of the same class as OBJECT is allocated by 49 42 calling ALLOCATE-INSTANCE. For all slots returned by
Note:
See TracChangeset
for help on using the changeset viewer.