|
Revision 3671, 501 bytes
(checked in by ksprotte, 4 months ago)
|
again whitespace cleanup + removed tabs
|
| Line | |
|---|
| 1 |
(in-package :bos.m2) |
|---|
| 2 |
|
|---|
| 3 |
;;;; m2-store |
|---|
| 4 |
(defvar *m2-store* nil) |
|---|
| 5 |
|
|---|
| 6 |
(defclass m2-store (mp-store) |
|---|
| 7 |
((tile-index :reader m2-store-tile-index))) |
|---|
| 8 |
|
|---|
| 9 |
(defmethod initialize-instance :before ((store m2-store) &key &allow-other-keys) |
|---|
| 10 |
(when *m2-store* |
|---|
| 11 |
(warn "reinitializing m2-store object")) |
|---|
| 12 |
(setq *m2-store* store) |
|---|
| 13 |
(geometry:make-rect-publisher) ; needs to exist for tile-index already during restore |
|---|
| 14 |
(setf (slot-value store 'tile-index) |
|---|
| 15 |
(indexed-class-index-named (find-class 'm2) 'm2-index))) |
|---|
