diff --git a/apps/tasty/source/inspector.lisp b/apps/tasty/source/inspector.lisp index 7203923c86869b32bea0aee7f680e0c6ed15b986..91c683ab9ae1e7ebea0bd899cc1ea3cbec807a23 100755 --- a/apps/tasty/source/inspector.lisp +++ b/apps/tasty/source/inspector.lisp @@ -40,7 +40,9 @@ (defun one-line (string) (glisp:replace-regexp (glisp:replace-regexp string (format nil "~%") " ") "'" "\\'" )) -(defparameter *suppress-%%-messages?* t) +(defparameter *suppress-%%-messages?* t "Boolean. Set to nil if you want to see messages starting and ending with %% in tasty inspector. Defaults to t.") + +(defparameter *suppress-$$-messages?* t "Boolean. Set to nil if you want to see messages starting with $$ in tasty inspector. Defaults to t.") ;; ;; FLAG -- replace with abstract associative map @@ -95,16 +97,19 @@ (remove-if #'(lambda (keyword) (or (member keyword *internal-keywords*) + (and *suppress-$$-messages?* + (let ((string (string keyword))) + (and + (> (length string) 2) (string-equal (subseq string 0 2) "$$")))) (and *suppress-%%-messages?* (let ((string (string keyword))) (and (> (length string) 2) - (or (string-equal (subseq string 0 2) "$$") - (and (eql (aref string 0) #\%) - (or (eql (aref string 1) #\%) - (eql - (aref string (1- (length string))) - #\%))))))))) + (and (eql (aref string 0) #\%) + (or (eql (aref string 1) #\%) + (eql + (aref string (1- (length string))) + #\%)))))))) (set-difference (the :node (:message-list)) (append (the :node diff --git a/apps/tasty/source/package.lisp b/apps/tasty/source/package.lisp index 4d103a0d772b33205664cbb5e879885588349986..602f60f72e26a01cab32239f97dd9ada3136766f 100755 --- a/apps/tasty/source/package.lisp +++ b/apps/tasty/source/package.lisp @@ -24,5 +24,6 @@ (gwl:define-package :tasty (:documentation #.(glisp:system-description :tasty)) - (:export #:assembly #:viewport #:inspector #:status-object #:menu-section #:*use-bsplines-for-vrml?*)) + (:export #:assembly #:viewport #:inspector #:status-object #:menu-section #:*use-bsplines-for-vrml?* + #:*suppress-%%-messages?* #:*suppress-$$-messages?*))