When I inspect the object from lispworks it works
------------------
CL-USER> (inspect k2::*current-hushe*
)
#<HUSHE-CLIENT:HUSHE-CLIENT 118742AB> is a
HUSHE-CLIENT:HUSHE-CLIENT
TIMESTAMP 3398596745
TIMEOUT 1200
I/O-PACKAGE #<The HUSHE-CLIENT package, 135/256 internal,
101/256 external>
LOCK #<MP:LOCK "Hushe-client serializer" Unlocked
NIL 0 118742DF>
TCPCLIENT-STREAM #<COMM:SOCKET-STREAM 11875E87>
HOST "localhost"
PORT 11116
ERROR-FORMAT "GENERIC-TCP-CLIENT ERROR: ~a"
----------------
But when I inspect with slime I get this: (note I use all contib mocules, and it is latest cvs)
----------------------
The
slot #<STANDARD-EFFECTIVE-SLOT-DEFINITION
GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> is missing from
#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> (of class #<STANDARD-CLASS HUSHE-CLIENT:HUSHE-CLIENT
10A27AEB>), when reading the value.
[Condition of type CONDITIONS::SLOT-MISSING-ERROR]
Restarts:
0: [ABORT] Return to SLIME's top level.
1: [ABORT] Quit process.
Backtrace:
0: CONDITIONS::CONDITIONS-ERROR (:INVISIBLEP
T
CONDITIONS::SLOT-MISSING-ERROR
(:NAME
#<STANDARD-EFFECTIVE-SLOT-DEFINITION
GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>
:INSTANCE
#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
:CLASS
#<STANDARD-CLASS HUSHE-CLIENT:HUSHE-CLIENT
10A27AEB>
:OPERATION
..))
1: ERROR (CONDITIONS::SLOT-MISSING-ERROR
&REST
(:NAME
#<STANDARD-EFFECTIVE-SLOT-DEFINITION
GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>
:INSTANCE
#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963>
:CLASS
#<STANDARD-CLASS HUSHE-CLIENT:HUSHE-CLIENT
10A27AEB>
:OPERATION
SLOT-BOUNDP ..))
2: (METHOD SLOT-MISSING (T T T T)) (#<STANDARD-CLASS HUSHE-CLIENT:HUSHE-CLIENT
10A27AEB>
#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
#<STANDARD-EFFECTIVE-SLOT-DEFINITION
GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>
SLOT-BOUNDP
&OPTIONAL
NIL)
3: CLOS::GENERIC-FUNCTION-NON-DISCRIMINATOR NIL
4: CLOS::SLOT-BOUNDP-MISSING (#(1571
(GENERIC-TCPCLIENT::TCPCLIENT-STREAM
GENERIC-TCPCLIENT::HOST
GENERIC-TCPCLIENT::PORT
GENERIC-TCPCLIENT::TIMEOUT
GENERIC-TCPCLIENT::I/O-PACKAGE
GENERIC-TCPCLIENT::ERROR-FORMAT
HUSHE-CLIENT::TIMESTAMP
HUSHE-CLIENT::LOCK)
NIL ..))
5: (METHOD SWANK:INSPECT-SLOT-FOR-EMACS (T T T)) (#<STANDARD-CLASS HUSHE-CLIENT:HUSHE-CLIENT
10A27AEB>
#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
#<STANDARD-EFFECTIVE-SLOT-DEFINITION
GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>)
6: (SUBFUNCTION
1
(METHOD CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)))
(:INVISIBLEP
T
&REST
(#<STANDARD-CLASS HUSHE-CLIENT:HUSHE-CLIENT
10A27AEB>
#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
#<STANDARD-EFFECTIVE-SLOT-DEFINITION
GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>))
7: (METHOD SWANK::ALL-SLOTS-FOR-INSPECTOR (STANDARD-OBJECT T)) (#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
:DONT-KNOW)
8: CLOS::CACHE-MISS-FUNCTION (:INVISIBLEP
T
&REST
(#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963>
#<SWANK::FANCY-INSPECTOR
1188D817>))
9: (SUBFUNCTION
1
(METHOD CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)))
(:INVISIBLEP
T
&REST
(#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
#<SWANK::FANCY-INSPECTOR
1188D817>))
10: (METHOD
SWANK-BACKEND:INSPECT-FOR-EMACS
(STANDARD-OBJECT SWANK::FANCY-INSPECTOR))
(#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
#<SWANK::FANCY-INSPECTOR
1188D817>)
11: CLOS::CACHE-MISS-FUNCTION (:INVISIBLEP
T
&REST
(#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963>
#<SWANK::FANCY-INSPECTOR
1188D817>))
12: (SUBFUNCTION
1
(METHOD CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION)))
(:INVISIBLEP
T
&REST
(#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
#<SWANK::FANCY-INSPECTOR
1188D817>))
13: SWANK::INSPECT-OBJECT (#<HUSHE-CLIENT:HUSHE-CLIENT
11A11963>
&OPTIONAL
"<(INSPECTOR
*DEFAULT-INSPECTOR*)>")
14: (SUBFUNCTION 1
SWANK:INIT-INSPECTOR) NIL
15: SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (#<Closure 1 subfunction of SWANK:INIT-INSPECTOR>)
16: SWANK::CALL-WITH-BUFFER-SYNTAX (#<Closure 1 subfunction of SWANK:INIT-INSPECTOR>)
17: SYSTEM::%INVOKE (:INVISIBLEP T)
18: SYSTEM::%EVAL ((SWANK:INIT-INSPECTOR "k2::*current-hushe*"))
19: EVAL ((SWANK:INIT-INSPECTOR "k2::*current-hushe*"))
20: (SUBFUNCTION 1
SWANK::EVAL-FOR-EMACS) NIL
21: (SUBFUNCTION 1 (TOP-LEVEL-FORM 52))
(#<Function
SWANK:SWANK-DEBUGGER-HOOK>
#<Closure 1 subfunction of
SWANK::EVAL-FOR-EMACS>)
22: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (#<Function
SWANK:SWANK-DEBUGGER-HOOK>
#<Closure 1 subfunction
of SWANK::EVAL-FOR-EMACS>)
23: FUNCALL (SWANK::EVAL-FOR-EMACS
&REST
((SWANK:INIT-INSPECTOR
"k2::*current-hushe*")
"COMMON-LISP-USER"
13))
24: SWANK::READ-FROM-EMACS NIL
25: (SUBFUNCTION 1
SWANK::HANDLE-REQUEST) NIL
26: (SUBFUNCTION 1 (TOP-LEVEL-FORM 52))
(#<Function
SWANK:SWANK-DEBUGGER-HOOK>
#<Function 1
subfunction of SWANK::HANDLE-REQUEST>)
27: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (#<Function
SWANK:SWANK-DEBUGGER-HOOK>
#<Function 1
subfunction of SWANK::HANDLE-REQUEST>)
28: (SUBFUNCTION 1
SWANK::CALL-WITH-CONNECTION) NIL
29: SWANK::CALL-WITH-REDIRECTED-IO (#<SWANK::CONNECTION 1192C3E7>
#<Closure 1 subfunction of
SWANK::CALL-WITH-CONNECTION>)
30: SWANK::CALL-WITH-CONNECTION (#<SWANK::CONNECTION 1192C3E7>
#<Function 1
subfunction of SWANK::HANDLE-REQUEST>)
31: SWANK::HANDLE-REQUEST (#<SWANK::CONNECTION
1192C3E7>)
32: SWANK::REPL-LOOP (#<SWANK::CONNECTION
1192C3E7>)
33: (SUBFUNCTION 1
SWANK::SPAWN-REPL-THREAD) NIL
34: SWANK::CALL-WITH-BINDINGS (NIL
#<Closure 1 subfunction of
SWANK::SPAWN-REPL-THREAD>)
35: (SUBFUNCTION 1
SWANK::SPAWN-REPL-THREAD) NIL
36: (SUBFUNCTION
MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-STACK) (:DONT-KNOW)
37: SYSTEM::%%FIRST-CALL-TO-STACK NIL
38: SYSTEM::%%FIRST-CALL-TO-STACK NIL
--
FreeCode Signature
Free Software Consultant
Cell: +47 - 47 34 40 08
Phone: +47 - 21 53 69 00, Fax: +47 - 21 53 69 09
Addr: Slemdalsveien 70, PB 1
Vinderen, 0319 Oslo
