Optimization hints

Howdy!

Is there a way to get LispWorks to produce optimization hints like  
SBCL does?

I'm looking for something like this:

; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER
;                               &OPTIONAL), not a (VALUES DOUBLE- 
FLOAT &REST T).

I did try (compile-file ... :print 2) but that does not give out much  
info.

Also, I see the following two options to compile-file:

((lap-p *lap-p*))
((debug-info *debug-info*) compiler::*debug-info*)
((compiler-debug-level
    *compiler-debug-level*) compiler::*compiler-debug-level*)

What do these mean (specially lap-p) and how do I use them?

     Thanks, Joel

--
http://wagerlabs.com/uptick