close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 2999


Ignore:
Timestamp:
2015-06-21T15:29:20-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/ring.lisp

    r2998 r2999  
    220220          (setf (slot-value copy slot-name)
    221221                (copy-instance (slot-value object slot-name)))))
    222       (apply #'reinitialize-instance copy initargs)))
    223   (:method ((object built-in-class) &rest initargs &key &allow-other-keys)
    224     (declare (ignore initargs))
    225     object)
    226   (:method ((object cons) &rest initargs &key &allow-other-keys)
    227     (declare (ignore initargs))
    228     (cons (copy-instance (car object))
    229           (copy-instance (cdr object))))
    230   (:method ((object null) &rest initargs &key &allow-other-keys)
    231     (declare (ignore initargs))
    232    object)
    233   (:method ((object vector) &rest initargs &key &allow-other-keys)
    234     (declare (ignore initargs))
    235     (map 'vector #'copy-instance object))
    236   (:method ((object number) &rest initargs &key &allow-other-keys)
    237     (declare (ignore initargs))
    238     object)
    239   (:method ((object character) &rest initargs &key &allow-other-keys)
    240     (declare (ignore initargs))
    241     object)
    242   (:method ((object symbol) &rest initargs &key &allow-other-keys)
    243     (declare (ignore initargs))
    244     object)
    245   #+sbcl
    246   (:method ((object SB-C:DEFINITION-SOURCE-LOCATION) &rest initargs &key &allow-other-keys)
    247     (declare (ignore initargs))
    248     (copy-structure object)))
     222      (apply #'reinitialize-instance copy initargs))))
    249223
    250224
Note: See TracChangeset for help on using the changeset viewer.