I quite often get problems trying to recompile or redefine functions
that are being profiled. Is this just something one should never do
or would it be considered a bug?
There is a very easy workaround: simply unprofile the functions before
redefining, then redefine, then profile them again.
Here is the typical error messages that occur:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
((#.(SYSTEM:INT-SAP #x582D4443) . 400951)
(#.(SYSTEM:INT-SAP #x584088B8) . 77) (#.(SYSTEM:INT-SAP
#x584311A3) . 184)
(#.(SYSTEM:INT-SAP #x583B5A9A) . 46)
(#.(SYSTEM:INT-SAP #x581C45A3) . 685542)
(#.(SYSTEM:INT-SAP #x59DF4A50) . 248) (#.(SYSTEM:INT-SAP
#x59DFA23B) . 424)
(#.(SYSTEM:INT-SAP #x59DF7392) . 106)) is not of type (MEMBER T
NIL)
[Condition of type TYPE-ERROR]
Restarts:
0: [ABORT] Abort SLIME compilation.
1: [ABORT] Abort handling SLIME request.
2: [ABORT] Return to Top-Level.
Backtrace:
0: (PROFILE::MAKE-PROFILE-INFO 2 GET-SQUARE ((#.(SYSTEM:INT-SAP
#x582D4443) . 400951) (#.(SYSTEM:INT-SAP #x584088B8) . 77)
(#.(SYSTEM:INT-SAP #x584311A3) . 184) (#.(SYSTEM:INT-SAP #x583B5A9A)
. 46) (#.(SYSTEM:INT-SAP #x581C45A3) . 685542) ...))[:EXTERNAL]
1: (PROFILE::PROFILE-1-FUNCTION GET-SQUARE ((#.(SYSTEM:INT-SAP
#x582D4443) . 400951) (#.(SYSTEM:INT-SAP #x584088B8) . 77)
(#.(SYSTEM:INT-SAP #x584311A3) . 184) (#.(SYSTEM:INT-SAP #x583B5A9A)
. 46) (#.(SYSTEM:INT-SAP #x581C45A3) . 685542) ...))
2: (LISP::%SET-FDEFINITION GET-SQUARE #<Function GET-SQUARE
{585CFF21}>)
3: (C::%%DEFUN GET-SQUARE #<Function GET-SQUARE {585CFF21}> NIL NIL)
4: (C::%%DEFUN 3 GET-SQUARE #<Function GET-SQUARE {585CFF21}> NIL
...)[:EXTERNAL]
5: (C::DO-CALL #<Code Object {282C7247}> 6 7 4 ...)
6: (C::SUB-COMPILE-TOP-LEVEL-LAMBDAS NIL T)
--
+------------------------------------------------------------------+
| [EMAIL PROTECTED] __ http://agora.rdrop.com/~jimka |
+----------------------------\/------------------------------------+
| Prejudice always masquerades as rationality until it is exposed. |
+------------------------------------------------------------------+
| None of us is truly free until all of us are free, with all our |
| rights intact and guaranteed, including the basic right to live |
| without threat or harassment. [PLAGAL] |
+------------------------------------------------------------------+
