[consfigurator] BUG - set of methods applicable to argument is different from original method argument.

Benedict Hanshen Wang benedicthanshenwang at gmail.com
Fri Jun 16 16:51:47 BST 2023


Dear all,

Can somebody shed some light on this error message? Am I missing
something really obvious? My environment is:

- SBCL 2.2.9-debian
- Consfigurator v1.3.1
- I am trying to make the example code work in
  https://spwhitton.name/doc/consfigurator/introduction.html#try-it-out-quick-start

I get this error message,

----------------------------

The set of methods
(#<STANDARD-METHOD CONSFIGURATOR:CONNECTION-RUN (CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION
                                                 T
                                                 STREAM) {1002B60FC3}>
 #1=#<STANDARD-METHOD CONSFIGURATOR:CONNECTION-RUN (CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION
                                                    T
                                                    T) {1002B60FA3}>
 #2=#<STANDARD-METHOD CONSFIGURATOR:CONNECTION-RUN :AROUND (CONNECTION
                                                            T
                                                            T) {1002B610C3}>)
applicable to arguments
#3=#<CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION {10060D73E3}>,
#4="export HOME=/home/ben; cd /home/ben/; ssh root at oci-a1-flex \"sh -c \\\"tmpf=\\\\\\$(umask 077; exec 3>&1; if err=\\\\\\$(if command -v m4 >/dev/null; then echo 'mkstemp('\\\\\\${TMPDIR:-/tmp}'/tmp.XXXXXX)' | m4 2>&1 1>&3; else mktemp ''\\\\\\${TMPDIR:-/tmp}'/tmp.XXXXXX' 2>&1 1>&3; fi); then case \\\\\\$err in ?*) printf >&2 \\\\\\\"%s\\\\\\\\n\\\\\\\" \\\\\\\"\\\\\\$err\\\\\\\"; exit 1 ;; *) exit 0 ;; esac; else case \\\\\\$err in ?*) printf >&2 \\\\\\\"%s\\\\\\\\n\\\\\\\" \\\\\\\"\\\\\\$err\\\\\\\" ;; esac; exit 1; fi) && printf \\\\\\\"%s\\\\\\\\n\\\\\\\" \\\\\\\"\\\\\\$tmpf\\\\\\\" && (export HOME=/root; cd /root/; sbcl --noinform --noprint --disable-debugger --no-sysinit --no-userinit) >\\\\\\\"\\\\\\$tmpf\\\\\\\"\\\"\"",
#<SB-IMPL::STRING-INPUT-STREAM {1007080D43}> to call-next-method
is different from the set of methods
(#<STANDARD-METHOD CONSFIGURATOR:CONNECTION-RUN (CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION
                                                 T
                                                 STRING) {1002B60FB3}>
 #1# #2#)
applicable to the original method arguments #3#, #4#,
"(prin1 *features*)".
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [RETRY] Retry SLY mREPL evaluation request.
 1: [*ABORT] Return to SLY's top level.
 2: [ABORT] abort thread (#<THREAD "sly-channel-1-mrepl-remote-1" RUNNING {10022486F3}>)

Backtrace:
 0: (SB-PCL::%CHECK-CNM-ARGS #<unavailable argument> #<unavailable argument> #<unavailable argument>)
 1: ((FLET CALL-NEXT-METHOD :IN "/home/ben/quicklisp/local-projects/consfigurator/src/connection/local.lisp") #<CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION {10060D73E3}> "export HOME=/home/ben; cd /ho..
 2: ((:METHOD CONNECTION-RUN (CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION T STRING)) #<CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION {10060D73E3}> "export HOME=/home/ben; cd /home/ben/; ssh root at oci..
 3: ((FLET CALL-NEXT-METHOD :IN "/home/ben/quicklisp/local-projects/consfigurator/src/connection.lisp"))
 4: ((:METHOD CONNECTION-RUN :AROUND (CONNECTION T T)) #<CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION {10060D73E3}> "export HOME=/home/ben; cd /home/ben/; ssh root at oci-a1-flex \"sh -c \\\"tmpf=\\\\\\$(..
 5: ((LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.)) #<CONSFIGURATOR.CONNECTION.LOCAL:LOCAL-CONNECTION {10060D73E3}> "export HOME=/home/ben; cd /home/ben/; ssh root at oci-a1-flex \"sh -c \\\"tmpf=\\..
 6: (MRUN)
 7: ((:METHOD CONNECTION-RUN (CONSFIGURATOR.CONNECTION.SHELL-WRAP:SHELL-WRAP-CONNECTION T T)) #<CONSFIGURATOR.CONNECTION.SSH::SSH-CONNECTION {100629F7F3}> "tmpf=$(umask 077; exec 3>&1; if err=$(if command..
 8: ((FLET CALL-NEXT-METHOD :IN "/home/ben/quicklisp/local-projects/consfigurator/src/connection.lisp"))
 9: ((:METHOD CONNECTION-RUN :AROUND (CONNECTION T T)) #<CONSFIGURATOR.CONNECTION.SSH::SSH-CONNECTION {100629F7F3}> "tmpf=$(umask 077; exec 3>&1; if err=$(if command -v m4 >/dev/null; then echo 'mkstemp('..
10: ((LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.)) #<CONSFIGURATOR.CONNECTION.SSH::SSH-CONNECTION {100629F7F3}> "tmpf=$(umask 077; exec 3>&1; if err=$(if command -v m4 >/dev/null; then echo 'mks..
11: (RUN)
12: ((:METHOD ESTABLISH-CONNECTION ((EQL :SBCL) T)) #<unused argument> NIL :PACKAGE-MANAGER NIL) [fast-method]
13: ((SB-PCL::EMF ESTABLISH-CONNECTION) #<unused argument> #<unused argument> :SBCL NIL)
14: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.) :IN "/home/ben/.cache/common-lisp/sbcl-2.2.9.debian-..
15: ((LABELS CONSFIGURATOR::CONNECT :IN CONSFIGURATOR::%CONSFIGURE) ((:SBCL)))
16: ((LABELS CONSFIGURATOR::CONNECT :IN CONSFIGURATOR::%CONSFIGURE) ((:SSH :USER "root") (:SBCL)))
17: ((LABELS CONSFIGURATOR::CONNECT :IN CONSFIGURATOR::%CONSFIGURE) ((:LOCAL) (:SSH :USER "root") (:SBCL)))
18: (CONSFIGURATOR::%CONSFIGURE ((:SSH :USER "root") (:SBCL)) #<UNPREPROCESSED-HOST {100244A893}> :COLLECT-AT-END T)
19: (DEPLOY* ((:SSH :USER "root") :SBCL) #<UNPREPROCESSED-HOST {1002AD0133}> #<CONSFIGURATOR::UNPREPROCESSED-PROPSPEC {10020AA563}>)
 --more--

----------------------------

Any help would be appreciated!

Cheers,

Ben.



More information about the sgo-software-discuss mailing list