[cl-debian] Bug#350942: more info

[Giovanni Gigante]

Here is the traceback on Aquamacs 0.9.8 (emacs 22.0.50.1)



Debugger entered--Lisp error: (wrong-number-of-arguments nil 12)
  signal(wrong-number-of-arguments (nil 12))
  (if (= (length --cl-rest--) 7) (pop --cl-rest--) (signal (quote
wrong-number-of-arguments) (list nil ...)))
  (let* ((--cl-rest-- info) (pid ...) (type ...) (name ...) (features
...) (style ...) (version ...) (host ...)) (setf (slime-pid) pid
(slime-lisp-implementation-type) type
(slime-lisp-implementation-type-name) name (slime-connection-name)
(slime-generate-connection-name name) (slime-lisp-features) features
(slime-communication-style) style (slime-lisp-implementation-version)
version (slime-machine-instance) host))
  (progn (let* (... ... ... ... ... ... ... ...) (setf ... pid ... type
... name ... ... ... features ... style ... version ... host)))
  (destructuring-bind (pid type name features style version host) info
(setf (slime-pid) pid (slime-lisp-implementation-type) type
(slime-lisp-implementation-type-name) name (slime-connection-name)
(slime-generate-connection-name name) (slime-lisp-features) features
(slime-communication-style) style (slime-lisp-implementation-version)
version (slime-machine-instance) host))
  slime-set-connection-info(#<process SLIME Lisp> (:pid 29006 :style
:fd-handler :lisp-implementation (:type "SBCL" :name "sbcl" :version
"0.9.7.1") :machine (:instance "green" :type "X86" :version "AMD
Duron(tm)") :features (:asdf :clc-os-debian :common-lisp-controller
:ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-package-locks
:sb-unicode :sb-source-locations :ieee-floating-point :x86 :elf :linux
:gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack
:stack-allocatable-closures :linkage-table :os-provides-dlopen
:os-provides-dladdr :os-provides-putwc) :package (:name
"COMMON-LISP-USER" :prompt "CL-USER")))
  (lambda (info) (slime-set-connection-info proc info))((:pid 29006
:style :fd-handler :lisp-implementation (:type "SBCL" :name "sbcl"
:version "0.9.7.1") :machine (:instance "green" :type "X86" :version
"AMD Duron(tm)") :features (:asdf :clc-os-debian :common-lisp-controller
:ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-package-locks
:sb-unicode :sb-source-locations :ieee-floating-point :x86 :elf :linux
:gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack
:stack-allocatable-closures :linkage-table :os-provides-dlopen
:os-provides-dladdr :os-provides-putwc) :package (:name
"COMMON-LISP-USER" :prompt "CL-USER")))
  funcall((lambda (info) (slime-set-connection-info proc info)) (:pid
29006 :style :fd-handler :lisp-implementation (:type "SBCL" :name "sbcl"
:version "0.9.7.1") :machine (:instance "green" :type "X86" :version
"AMD Duron(tm)") :features (:asdf :clc-os-debian :common-lisp-controller
:ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-package-locks
:sb-unicode :sb-source-locations :ieee-floating-point :x86 :elf :linux
:gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack
:stack-allocatable-closures :linkage-table :os-provides-dlopen
:os-provides-dladdr :os-provides-putwc) :package (:name
"COMMON-LISP-USER" :prompt "CL-USER")))
  (if (symbol-value G50012) (funcall (symbol-value G50012) result))
  (let* ((--cl-rest-- rand-50010) (result ...)) (if (symbol-value
G50012) (funcall ... result)))
  (cond ((eql op-50009 ...) (let* ... ...)) ((eql op-50009 ...) (let*
... ... ...)) (t (error "destructure-case failed: %S" tmp-50011)))
  (let* ((tmp-50011 G50008) (op-50009 ...) (rand-50010 ...)) (cond (...
...) (... ...) (t ...)))
  (lambda (G50012 G50008) (let* (... ... ...) (cond ... ...
...)))(--cont-- (:ok (:pid 29006 :style :fd-handler :lisp-implementation
(:type "SBCL" :name "sbcl" :version "0.9.7.1") :machine (:instance
"green" :type "X86" :version "AMD Duron(tm)") :features (:asdf
:clc-os-debian :common-lisp-controller :ansi-cl :common-lisp :sbcl :unix
:sb-doc :sb-test :sb-package-locks :sb-unicode :sb-source-locations
:ieee-floating-point :x86 :elf :linux :gencgc
:stack-grows-downward-not-upward :c-stack-is-control-stack
:stack-allocatable-closures :linkage-table :os-provides-dlopen
:os-provides-dladdr :os-provides-putwc) :package (:name
"COMMON-LISP-USER" :prompt "CL-USER"))))
  apply((lambda (G50012 G50008) (let* (... ... ...) (cond ... ... ...)))
--cont-- (:ok (:pid 29006 :style :fd-handler :lisp-implementation (:type
"SBCL" :name "sbcl" :version "0.9.7.1") :machine (:instance "green"
:type "X86" :version "AMD Duron(tm)") :features (:asdf :clc-os-debian
:common-lisp-controller :ansi-cl :common-lisp :sbcl :unix :sb-doc
:sb-test :sb-package-locks :sb-unicode :sb-source-locations
:ieee-floating-point :x86 :elf :linux :gencgc
:stack-grows-downward-not-upward :c-stack-is-control-stack
:stack-allocatable-closures :linkage-table :os-provides-dlopen
:os-provides-dladdr :os-provides-putwc) :package (:name
"COMMON-LISP-USER" :prompt "CL-USER"))))
  (lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote --cont--)
--cl-rest--))((:ok (:pid 29006 :style :fd-handler :lisp-implementation
(:type "SBCL" :name "sbcl" :version "0.9.7.1") :machine (:instance
"green" :type "X86" :version "AMD Duron(tm)") :features (:asdf
:clc-os-debian :common-lisp-controller :ansi-cl :common-lisp :sbcl :unix
:sb-doc :sb-test :sb-package-locks :sb-unicode :sb-source-locations
:ieee-floating-point :x86 :elf :linux :gencgc
:stack-grows-downward-not-upward :c-stack-is-control-stack
:stack-allocatable-closures :linkage-table :os-provides-dlopen
:os-provides-dladdr :os-provides-putwc) :package (:name
"COMMON-LISP-USER" :prompt "CL-USER"))))
  slime-dispatch-event((:return (:ok (:pid 29006 :style :fd-handler
:lisp-implementation ... :machine ... :features ... :package ...)) 1)
#<process SLIME Lisp>)
  slime-process-available-input()
  slime-net-filter(#<process SLIME Lisp> "\" . 1) (\"with-connection\" .
1) (\"with-reader-error-handler\" . 1) (\"with-bindings\" . 1)
(\"with-io-redirection\" . 1) (\"with-temp-package\" .
1)))00025B(:return (:ok (:pid 29006 :style :fd-handler
:lisp-implementation (:type \"SBCL\" :name \"sbcl\" :version
\"0.9.7.1\") :machine (:instance \"green\" :type \"X86\" :version \"AMD
Duron(tm)\") :features (:asdf :clc-os-debian :common-lisp-controller
:ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-package-locks
:sb-unicode :sb-source-locations :ieee-floating-point :x86 :elf :linux
:gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack
:stack-allocatable-closures :linkage-table :os-provides-dlopen
:os-provides-dladdr :os-provides-putwc) :package (:name
\"COMMON-LISP-USER\" :prompt \"CL-USER\"))) 1)")