- Timestamp:
- 2015-06-21T15:31:18-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ring.lisp
r2999 r3000 219 219 (when (slot-boundp object slot-name) 220 220 (setf (slot-value copy slot-name) 221 ( copy-instance (slot-value object slot-name)))))221 (slot-value object slot-name)))) 222 222 (apply #'reinitialize-instance copy initargs)))) 223 223
Note:
See TracChangeset
for help on using the changeset viewer.