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)")