Changeset 2999 for branches

Timestamp:

2015-06-21T15:29:20-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/ring.lisp (modified) (1 diff)

branches/f4grobner/ring.lisp

@@ -220 +220 @@
           (setf (slot-value copy slot-name)
                 (copy-instance (slot-value object slot-name)))))
-      (apply #'reinitialize-instance copy initargs)))
-  (:method ((object built-in-class) &rest initargs &key &allow-other-keys)
-    (declare (ignore initargs))
-    object)
-  (:method ((object cons) &rest initargs &key &allow-other-keys)
-    (declare (ignore initargs))
-    (cons (copy-instance (car object))
-          (copy-instance (cdr object))))
-  (:method ((object null) &rest initargs &key &allow-other-keys)
-    (declare (ignore initargs))
-   object)
-  (:method ((object vector) &rest initargs &key &allow-other-keys)
-    (declare (ignore initargs))
-    (map 'vector #'copy-instance object))
-  (:method ((object number) &rest initargs &key &allow-other-keys)
-    (declare (ignore initargs))
-    object)
-  (:method ((object character) &rest initargs &key &allow-other-keys)
-    (declare (ignore initargs))
-    object)
-  (:method ((object symbol) &rest initargs &key &allow-other-keys)
-    (declare (ignore initargs))
-    object)
-  #+sbcl
-  (:method ((object SB-C:DEFINITION-SOURCE-LOCATION) &rest initargs &key &allow-other-keys)
-    (declare (ignore initargs))
-    (copy-structure object)))
+      (apply #'reinitialize-instance copy initargs))))