Hi

  We had an application written in CLOS and when I
took the Time profile, I see it is being dominated
by a few calls which I am showing below (expecially the
:DISCRIMINATOR calls)

Could you please give suggestions why they are the
dominant ones and any way to avoid it.

(I indicated the application calls with (LOCAL))


Thanks



----------

Sample represents 20.8 seconds of processor time (out of a total of
20.8)

Times below 0.5% will be suppressed.

  %     %     self  total            self   total  Function
 Time  Cum.   secs   secs    calls ms/call ms/call   name
  4.1   4.1    0.9    0.9                          (:DISCRIMINATOR
                                                    (:N-N-READER))
  3.6   7.7    0.7    0.7                          "closure_start"
  3.1  10.8    0.6    0.7                         
"XDrawString"          ;; (LOCAL)
  2.7  13.5    0.6    0.6                          "&crypt"
  2.6  16.1    0.5    0.8                          GETHASH
  2.3  18.4    0.5    0.6                          ... SLOT-VALUE
  2.3  20.7    0.5    0.5                          "unidentified"
  2.2  22.9    0.5    0.5                          "q_wrapper_slots_std"
  2.1  25.0    0.4    0.4                          ... (:DISCRIMINATOR
                                                        (:CACHING
                                                         (CL:CLASS)
                                                         T))
  2.0  27.0    0.4    0.4                          (:DISCRIMINATOR
                                                    (:CACHING (CL:CLASS)
NIL))
  1.8  28.9    0.4    0.4                          "sigprocmask"
  1.8  30.7    0.4    0.4                          (:DISCRIMINATOR
                                                    (:ONE-CLASS-READER
NIL))
  1.6  32.3    0.3    0.3                          (:DISCRIMINATOR
                                                    (:CHECKING
(CL:CLASS) NIL))
  1.5  33.8    0.3    0.3                          "_inv_s_aref"
  1.5  35.3    0.3    0.3                          "q_wrapper"
  1.4  36.7    0.3    0.3                          "aref"
  1.1  37.7    0.2    0.3                         
UNIQUE                    ;; (LOCAL)
  1.0  38.8    0.2    0.8                          ...
SET.MEMBER?           ;; (LOCAL)
  1.0  39.8    0.2    0.2                          "kwdscan_no_rest"
  0.9  40.8    0.2    0.6                         
STRING-CONCATF            ;; (LOCAL)
  0.9  41.7    0.2    0.4                          "new_other"
  0.9  42.6    0.2    0.2                         
EXCL::LIST-POSITION-EQ
  0.9  43.5    0.2    0.2                          "qcons"
  0.9  44.3    0.2    0.2                          (:DISCRIMINATOR
                                                    (:ONE-INDEX-READER
NIL))
  0.8  45.1    0.2    0.2                          TYPE-OF
  0.7  45.8    0.1    2.1                          (METHOD
                                                    :GETRIGHT
                                                   
(READONLYCONTROL))         ;; (LOCAL)
  0.7  46.5    0.1    0.9                         
GETSTRINGWIDTH              ;; (LOCAL)
  0.7  47.2    0.1    0.4                          ...
GETTEXTORBM             ;; (LOCAL)
  0.7  47.9    0.1    0.2                          EXCL::STRUCTURIFY
  0.7  48.6    0.1    0.1                          (:DISCRIMINATOR
                                                    (:N-N-WRITER))
  0.7  49.3    0.1    0.1                          EXCL::GETHASH-STRING
  0.7  49.9    0.1    0.1                          EXCL::SXHASH-IF-FAST
  0.7  50.6    0.1    0.1                          STRINGP
  0.5  51.1    0.1    0.2                          REVERSE
  0.5  51.6    0.1    0.1                         
EXCL::INTERNAL-STRING
  0.5  52.1    0.1    0.1                          CLASS-OF
  0.5  52.7    0.1    0.1                          EXCL::GET_2OP



-- 
Suresh Kalathur
Cognition Corporation
209 Burlington Rd,
Bedford, MA  01730
(617) 271-9300 x247