diff --git a/demo/browser.lisp b/demo/browser.lisp index afe80f4c11dfa5d04b24094fbe8d90a79d6900b2..aff13212973af6a09916586cc116fa3e997b394a 100644 --- a/demo/browser.lisp +++ b/demo/browser.lisp @@ -3,7 +3,7 @@ ;;; Simple extensible browser ;;; Scott McKay -;; $fiHeader: browser.lisp,v 1.10 92/08/18 17:26:13 cer Exp Locker: cer $ +;; $fiHeader: browser.lisp,v 1.11 92/09/30 11:45:18 cer Exp Locker: cer $ (in-package :clim-browser) @@ -684,9 +684,8 @@ as form = `(,(si:defstruct-slot-description-ref-macro-name slot-description) ',object) collect (eval form)))) - ;;--- What do we do for INSTANCEP? (#+genera (si:instancep object) - #+allegro (typep object 'standard-object) + #-genera (typep object 'standard-object) #+genera (setq object (si:follow-structure-forwarding object)) ;;--- How to arrange for the slot names to be printed? ;; This works for Genera Flavors because they are embedded in CLOS @@ -705,9 +704,8 @@ (defmethod node-any-inferior-objects-p ((node lisp-object-call-node) (type (eql ':objects))) (let ((object (node-object node))) (or (consp object) - ;;--- What do we do for INSTANCEP? #+genera (si:instancep object) - #+allegro (typep object 'standard-object) + #-genera (typep object 'standard-object) (and (arrayp object) (not (stringp object)))))) @@ -732,22 +730,22 @@ (:command-definer t) (:command-table (browser :inherit-from (accept-values-pane))) (:panes - #+++ignore - (title :application - :display-after-commands t - :display-function 'display-title-pane - :default-text-style '(:sans-serif :bold :large)) - (graph :application - :display-function 'display-graph-pane - :display-after-commands t - :incremental-redisplay t - :scroll-bars :both) - (interactor :interactor :height '(5 :line)) - (control-panel :accept-values - :height :compute - :display-function - '(accept-values-pane-displayer - :displayer accept-call-graph-options))) + #+++ignore + (title :application + :display-after-commands t + :display-function 'display-title-pane + :default-text-style '(:sans-serif :bold :large)) + (graph :application + :display-function 'display-graph-pane + :display-after-commands t + :incremental-redisplay t + :scroll-bars :both) + (interactor :interactor :height '(5 :line)) + (control-panel :accept-values + :height :compute + :display-function + '(accept-values-pane-displayer + :displayer accept-call-graph-options))) (:layouts (default (vertically ()