Changeset 3458 for branches/f4grobner/ring.lisp

Timestamp:

2015-09-05T09:45:08-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/ring.lisp (modified) (2 diffs)

branches/f4grobner/ring.lisp

@@ -63 +63 @@
            "SCALAR-COEFF"
            "INSERT-ITEM"
-           "APPEND-ITEM"
-           "COPY-INSTANCE")
+           "APPEND-ITEM")
   (:shadowing-import-from 
    #+openmcl-native-threads #:ccl 
@@ -233 +232 @@
 (defgeneric append-item (self item))
 
-;; Source: http://stackoverflow.com/questions/11067899/is-there-a-generic-method-for-cloning-clos-objects
-;; NOTE: This is a shallow copy. Add an around method for classes which need deep copy of the slots.
-(defgeneric copy-instance (object &rest initargs &key &allow-other-keys)
-  (:method ((object cons) &rest initargs &key &allow-other-keys) 
-    (copy-seq object))
-  (:documentation "Makes and returns a shallow copy of OBJECT.
-
-  An uninitialized object of the same class as OBJECT is allocated by
-  calling ALLOCATE-INSTANCE.  For all slots returned by
-  CLASS-SLOTS, the returned object has the
-  same slot values and slot-unbound status as OBJECT.
-
-  REINITIALIZE-INSTANCE is called to update the copy with INITARGS.")
-  (:method ((object standard-object) &rest initargs &key &allow-other-keys)
-    (let* ((class (class-of object))
-           (copy (allocate-instance class)))
-      (dolist (slot-name (mapcar #'slot-definition-name (class-slots class)))
-        (when (slot-boundp object slot-name)
-          (setf (slot-value copy slot-name)
-                (slot-value object slot-name))))
-      (apply #'reinitialize-instance copy initargs))))
 
 #|