(Sorry, my last message wasn't cc'd to the help list. It probably
should've been).
> rif wrote on Wed, Oct 16, 2002 at 07:15:06PM -0400:
> >
> > Thanks so much! That did the trick. If I want to do this in the
> > middle of a session, after I've already been profiling things, I have
> > to find and recompile the CMUCL code that does profiling?
>
> No, you need to unprofile and then give the profile command again.
>
This didn't work for me:
* (profile:profile get-model-framedists)
Compiling LAMBDA (PROFILE::NAME PROFILE::CALLERS-P):
Compiling Top-Level Form:
* (time (setf r (score-ann-file "../smallOut" "../smallId" 500 500 pmf snhash)))
Compiling LAMBDA NIL:
Compiling Top-Level Form:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
1157040184 is not of type (UNSIGNED-BYTE 29)
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
("LAMBDA (PROFILE::NAME PROFILE::CALLERS-P)" #<Stream for file "../smallOut">
500 500 #<Closure Over Function "DEFUN MAKE-POINT-TO-MODEL-FUN" {48D82291}>)
Source: (- (PROFILE::TOTAL-CONSING) PROFILE::START-CONSED)
0] 0
* (profile:unprofile get-model-framedists)
* (defmacro profile::total-consing () 0)
PROFILE::TOTAL-CONSING
* (profile:profile get-model-framedists)
* (time (setf r (score-ann-file "../smallOut" "../smallId" 500 500 pmf snhash)))
Compiling LAMBDA NIL:
Compiling Top-Level Form:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
1252292736 is not of type (UNSIGNED-BYTE 29)
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
("LAMBDA (PROFILE::NAME PROFILE::CALLERS-P)" #<Stream for file "../smallOut">
500 500 #<Closure Over Function "DEFUN MAKE-POINT-TO-MODEL-FUN" {48D82291}>)
Source: (- (PROFILE::TOTAL-CONSING) PROFILE::START-CONSED)
0]
> Sure.
>
> www.cons.org/maillists has it. There is some internet site where we
> feed into a seach serach engine
Thanks much.
rif
