Minor fix to make things load at least.

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)
   ()