Permalink
Browse files

Minor fix to make things load at least.

  • Loading branch information...
Shinmera committed Nov 26, 2017
1 parent 72ac62c commit c4f098a66829b9b35ce44737d83d5ae9c1e2c6b2
Showing with 12 additions and 9 deletions.
  1. +12 −9 editor/subject-chooser.lisp
@@ -74,15 +74,18 @@
(inspect selected))))
(defun find-subject-instances (base-class)
(let ((result ()))
(labels ((r (class)
(loop for ptr in (trial:instances class)
for val = (tg:weak-pointer-value ptr)
when val do (push val result))
(dolist (sub (c2mop:class-direct-subclasses class))
(r sub))))
(r base-class))
result))
()
;;; FIXME: Instances are no longer tracked by Trial!
;; (let ((result ()))
;; (labels ((r (class)
;; (loop for ptr in (trial:instances class)
;; for val = (tg:weak-pointer-value ptr)
;; when val do (push val result))
;; (dolist (sub (c2mop:class-direct-subclasses class))
;; (r sub))))
;; (r base-class))
;; result)
)
(define-widget instance-listing (QWidget qui:listing)
()

0 comments on commit c4f098a

Please sign in to comment.