- slime-devel - mailman3.common-lisp.net

[slime-devel] slime.el issues w/ 21.4 xemacs
by Sundar Narasimhan 12 Sep '05

12 Sep '05

I get a wrong-type listp lambda when I click right on a presented value in XEmacs 21.4 (patch 15). Stack trace below.. Could someone who understands x-popup-menu parse what needs to be done here? slime-menu-choices-for-presentation contains (list `(,(if (featurep 'xemacs) " " "") ("" ("Inspect" . (lambda () (interactive) (slime-inspect-presented-object ',what))) ... which doesn't seem right given that xemacs evaluates (cons 'a (lambda (x) x)) to (a lambda (x) x) Tracing -- 1 -> x-popup-menu: event=#<buttondown-event button3> menu=(" " ("" ("Inspect" lambda nil (interactive) (slime-inspect-presented-object (quote (4 . 0)))) ("Describe" lambda nil (interactive) (slime-eval (quote (cl:describe (swank::lookup-presented-object (quote (4 . 0))))))) ("Copy to input" . slime-copy-presentation-at-point))) Thanks, -Sundar -- #<compiled-function (x) "...(51)" [x vector nil true-list-p convert_fsf_popup] 3>(lambda) mapcar(#<compiled-function (x) "...(51)" [x vector nil true-list-p convert_fsf_popup] 3> (lambda nil (interactive) (slime-inspect-presented-object (quote (4 . 0))))) convert_fsf_popup((lambda nil (interactive) (slime-inspect-presented-object (quote (4 . 0))))) #<compiled-function (x) "...(51)" [x vector nil true-list-p convert_fsf_popup] 3>(("Inspect" lambda nil (interactive) (slime-inspect-presented-object (quote (4 . 0))))) mapcar(#<compiled-function (x) "...(51)" [x vector nil true-list-p convert_fsf_popup] 3> (("Inspect" lambda nil (interactive) (slime-inspect-presented-object (quote (4 . 0)))) ("Describe" lambda nil (interactive) (slime-eval (quote (cl:describe (swank::lookup-presented-object (quote (4 . 0))))))) ("Copy to input" . slime-copy-presentation-at-point))) convert_fsf_popup((("Inspect" lambda nil (interactive) (slime-inspect-presented-object (quote (4 . 0)))) ("Describe" lambda nil (interactive) (slime-eval (quote (cl:describe (swank::lookup-presented-object (quote (4 . 0))))))) ("Copy to input" . slime-copy-presentation-at-point))) ad-Orig-x-popup-menu(#<buttondown-event button3> (" " ("" ("Inspect" lambda nil (interactive) (slime-inspect-presented-object (quote (4 . 0)))) ("Describe" lambda nil (interactive) (slime-eval (quote (cl:describe (swank::lookup-presented-object (quote (4 . 0))))))) ("Copy to input" . slime-copy-presentation-at-point)))) x-popup-menu(#<buttondown-event button3> (" " ("" ("Inspect" lambda nil (interactive) (slime-inspect-presented-object (quote (4 . 0)))) ("Describe" lambda nil (interactive) (slime-eval (quote (cl:describe (swank::lookup-presented-object (quote (4 . 0))))))) ("Copy to input" . slime-copy-presentation-at-point)))) (let ((choice (x-popup-menu event menu))) (when choice (call-interactively choice))) (let ((menu (slime-menu-choices-for-presentation presentation from to))) (let ((choice (x-popup-menu event menu))) (when choice (call-interactively choice)))) (let* ((G350273 (slime-presentation-around-point point)) (presentation (nth 0 G350273)) (from (nth 1 G350273)) (to (nth 2 G350273))) (unless presentation (error "No presentation at event position")) (let ((menu (slime-menu-choices-for-presentation presentation from to))) (let ((choice (x-popup-menu event menu))) (when choice (call-interactively choice))))) (multiple-value-bind (presentation from to) (slime-presentation-around-point point) (unless presentation (error "No presentation at event position")) (let ((menu (slime-menu-choices-for-presentation presentation from to))) (let ((choice (x-popup-menu event menu))) (when choice (call-interactively choice))))) (save-current-buffer (set-buffer (window-buffer window)) (multiple-value-bind (presentation from to) (slime-presentation-around-point point) (unless presentation (error "No presentation at event position")) (let ((menu (slime-menu-choices-for-presentation presentation from to))) (let ((choice (x-popup-menu event menu))) (when choice (call-interactively choice)))))) (with-current-buffer (window-buffer window) (multiple-value-bind (presentation from to) (slime-presentation-around-point point) (unless presentation (error "No presentation at event position")) (let ((menu (slime-menu-choices-for-presentation presentation from to))) (let ((choice (x-popup-menu event menu))) (when choice (call-interactively choice)))))) (let* ((point (if (featurep (quote xemacs)) (event-point event) (posn-point (event-end event)))) (window (if (featurep (quote xemacs)) (event-window event) (caadr event)))) (with-current-buffer (window-buffer window) (multiple-value-bind (presentation from to) (slime-presentation-around-point point) (unless presentation (error "No presentation at event position")) (let ((menu (slime-menu-choices-for-presentation presentation from to))) (let ((choice (x-popup-menu event menu))) (when choice (call-interactively choice))))))) slime-presentation-menu(#<buttondown-event button3>) call-interactively(slime-presentation-menu)

1 0

[slime-devel] slime with clisp 2.35 on win xp startup problems
by David 12 Sep '05

12 Sep '05

Hi all, I get the following error when starting slime. [1]> ;; Loading file C:\slime\swank-loader.lisp ... ;; Loading file C:\.slime\fasl\clisp-2.35-win32-pc386\swank-backend.fas ... ;; Loaded file C:\.slime\fasl\clisp-2.35-win32-pc386\swank-backend.fas ;; Loading file C:\.slime\fasl\clisp-2.35-win32-pc386\nregex.fas ... ;; Loaded file C:\.slime\fasl\clisp-2.35-win32-pc386\nregex.fas ;; Loading file C:\.slime\fasl\clisp-2.35-win32-pc386\xref.fas ... ;; Loaded file C:\.slime\fasl\clisp-2.35-win32-pc386\xref.fas ;; Loading file C:\.slime\fasl\clisp-2.35-win32-pc386\metering.fas ... ;; Loaded file C:\.slime\fasl\clisp-2.35-win32-pc386\metering.fas ;; Loading file C:\.slime\fasl\clisp-2.35-win32-pc386\swank-clisp.fas ... WARNING: Replacing method #<STANDARD-METHOD (#<BUILT-IN-CLASS T>)> in #<STANDARD-GENERIC-FUNCTION CALL-WITHOUT-INTERRUPTS> WARNING: Replacing method #<STANDARD-METHOD NIL> in #<STANDARD-GENERIC-FUNCTION LISP-IMPLEMENTATION-TYPE-NAME> WARNING: Replacing method #<STANDARD-METHOD (#<BUILT-IN-CLASS T>)> in #<STANDARD-GENERIC-FUNCTION SET-DEFAULT-DIRECTORY> WARNING: Replacing method #<STANDARD-METHOD (#<BUILT-IN-CLASS T>)> in #<STANDARD-GENERIC-FUNCTION ARGLIST> ** - Continuable Error INTERN("*DOCUMENTATION*"): #<PACKAGE SYSTEM> is locked If you continue (by typing 'continue'): Ignore the lock and proceed The following restarts are also available: SKIP :R1 skip (COMPILE-FILES-IF-NEEDED-SERIALLY #) STOP :R2 stop loading file C:\slime\swank-loader.lisp ABORT :R3 ABORT Break 1 SWANK-BACKEND[2]> Continuing from this point results in more warnings: continue WARNING: Replacing method #<STANDARD-METHOD NIL> in #<STANDARD-GENERIC-FUNCTION UNPROFILE-ALL> WARNING: DEFUN/DEFMACRO: redefining function BREAK in C:\.slime\fasl\clisp-2.35-win32-pc386\swank-clisp.fas, was defined in D:\gnu\clisp\current\build-O-mingw\condition.fas ;; Loaded file C:\.slime\fasl\clisp-2.35-win32-pc386\swank-clisp.fas ;; Loading file C:\.slime\fasl\clisp-2.35-win32-pc386\swank-gray.fas ... WARNING: The generic function #<STANDARD-GENERIC-FUNCTION STREAM-LINE-COLUMN> is being modified, but has already been called. WARNING: The generic function #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT> is being modified, but has already been called. WARNING: The generic function #<STANDARD-GENERIC-FUNCTION STREAM-LINE-COLUMN> is being modified, but has already been called. ;; Loaded file C:\.slime\fasl\clisp-2.35-win32-pc386\swank-gray.fas ;; Loading file C:\.slime\fasl\clisp-2.35-win32-pc386\swank.fas ... ;; Loaded file C:\.slime\fasl\clisp-2.35-win32-pc386\swank.fas 0 errors, 0 warnings WARNING: These Swank interfaces are unimplemented: (ACTIVATE-STEPPING ADD-FD-HANDLER ADD-SIGIO-HANDLER ALL-THREADS CALLS-WHO DISASSEMBLE-FRAME FIND-THREAD GETPID INSPECT-FOR-EMACS INTERRUPT-THREAD RECEIVE REMOVE-FD-HANDLERS REMOVE-SIGIO-HANDLERS SEND SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN SPAWN THREAD-ID TOGGLE-TRACE WHO-MACROEXPANDS WHO-SPECIALIZES) ;; Loaded file C:\slime\swank-loader.lisp T At this point the message Polling "c:/DOCUME~1/David/LOCALS~1/Temp/slime.7108" blinks on and off in the minibuffer until cancelled with slime-abort-connection. Any hints as to how I can resolve this? Thanks, Dave

2 1

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 10 Sep '05

10 Sep '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.773 slime/ChangeLog:1.774 --- slime/ChangeLog:1.773 Fri Sep 9 19:10:18 2005 +++ slime/ChangeLog Sat Sep 10 20:28:32 2005 @@ -1,3 +1,9 @@ +2005-09-10 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * slime.el (slime-enable-evaluate-in-emacs): Resurrected. + (slime-dispatch-event): Respect slime-enable-evaluate-in-emacs for + messages :eval-no-wait and :eval. + 2005-09-09 Alan Ruttenberg <alanr-l(a)mumble.net> * slime.el (slime-choose-overlay-region). Don't try to overlay a note if location is nil.

1 0

[slime-devel] security and presentations
by Alan Ruttenberg 10 Sep '05

10 Sep '05

I'd like to reinstate the ability have the lisp side be able to evaluate arbitrary forms from presentation menus. If there is a security issue for some I think it would be better handled by having a switch to disable evaluation of these forms, with the default being that they are evaluated. And to be honest, I can't see how disabling presentation menus from evaluating forms in emacs enhances security when one is already sitting in a repl talking to the lisp. Also, the recent move of the inspect, describe, and copy to input functions to the emacs side removes the ability to specialize the method on the lisp side to not offer those choices. If there is good reason to move them over, which I'm not convinced of, then it would be better to still return a value, say a keyword, to represent these actions so that they can be overidden. -Alan

3 5

[slime-devel] Re: [slime-cvs] CVS update: slime/ChangeLog slime/slime.el
by Helmut Eller 10 Sep '05

10 Sep '05

* Alan Ruttenberg [2005-09-09 19:10+0200] writes: > +2005-09-09 Alan Ruttenberg <alanr-l(a)mumble.net> > + * slime.el (slime-choose-overlay-region). Don't try to overlay a > + note if location is nil. > + But the location should never be nil. Please undo the change and fix the callers or swank instead. Helmut.

2 1

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 09 Sep '05

09 Sep '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.769 slime/ChangeLog:1.773 --- slime/ChangeLog:1.769 Wed Sep 7 20:44:51 2005 +++ slime/ChangeLog Fri Sep 9 19:10:18 2005 @@ -1,3 +1,27 @@ +2005-09-09 Alan Ruttenberg <alanr-l(a)mumble.net> + * slime.el (slime-choose-overlay-region). Don't try to overlay a + note if location is nil. + +2005-09-08 Alan Ruttenberg <alanr-l(a)mumble.net> + + * bridge.el Fix bug in bridge filter where a bridge message which + straddled a packet would be mishandled. Sometimes this would + result in spurious bridge message text being inserted with the + presentation and the presentation not being sensitive. In other + cases there would be an actual error. Introduce bridge-leftovers + to save the last, unfinished bit for the next call, and prepend it + before processing a chuunk. Also, fix the parentheses so that the + unwind protect cleanup forms are actually in the cleanup section. + In openmcl, where apparently communication with slime is done in + 2k chunks, you can trigger the bug with something like this: + (swank::presenting-object 'foo t + (dotimes (i 2040) (write-char #\:))) + + * swank-openmcl.lisp (handle-compiler-warning). Don't create a + location if the condition doesn't have a filename. If it does, + make sure you pass a string rather than a pathname object + otherwise you get a net-read error + 2005-09-07 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * present.lisp (menu-choices-for-presentation): The

1 0

[slime-devel] trouble with connection being broken after loading an asdf system
by Alan Ruttenberg 09 Sep '05

09 Sep '05

This has been happening for a while - don't remember how long but it's not something that has arisen in the last few days. I don't travel in this are of slime so perhaps one of you might give me some hints on how to debug it. The symptom is a slime panic, followed by me having to control-g interrupt. Then I need to do M-x slime to get it going again. I've including the *messages* buffer, the *slime-events* buffer, and the emacs debugger stack trace below. Thanks, -Alan *messages* Polling "/tmp/slime.623".. (Abort with `M-x slime-abort-connection'.) [22 times] Connecting to Swank on port 49856.. Process bridge is installed Connected. Hack and be merry! (No files need saving) Performing ASDF "LOAD-OP" on system "kb" net-read error: (invalid-read-syntax "#") Lisp connection closed unexpectedly: deleted error in process filter: byte-code: PANIC! error in process filter: PANIC! Loading debug...done Entering debugger.. Hangs, I hit control g - debugger buffer ---Debugger entered--Lisp error: (quit) accept-process-output(nil 0 10000) (while t (accept-process-output nil 0 10000)) (let ((debug-on-quit t) (inhibit-quit nil)) (while t (accept- process-output nil 0 10000))) (catch tag (slime-rex (tag sexp) (sexp package) (... ... ...) (... ...)) (let (... ...) (while t ...))) (apply (function funcall) (catch tag (slime-rex ... ... ... ...) (let ... ...))) (let* ((tag ...) (slime-stack-eval-tags ...)) (apply (function funcall) (catch tag ... ...))) slime-eval((swank:compiler-notes-for-emacs)) slime-compiler-notes() (let ((notes ...)) (with-current-buffer buffer (multiple-value- bind ... result ... ...)) (run-hook-with-args (quote slime- compilation-finished-hook) notes)) slime-compilation-finished(("NIL" "14.73") #<buffer *slime-repl openmcl*>) (lambda (G93794 result) (slime-compilation-finished result (symbol- value G93794)))(--buffer-- ("NIL" "14.73")) apply((lambda (G93794 result) (slime-compilation-finished result (symbol-value G93794))) --buffer-- ("NIL" "14.73")) (lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote -- buffer--) --cl-rest--))(("NIL" "14.73")) funcall((lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote --buffer--) --cl-rest--)) ("NIL" "14.73")) (if (symbol-value G93806) (funcall (symbol-value G93806) result)) (let* ((--rest--93804 rand-93802) (result ...)) (if (symbol-value G93806) (funcall ... result))) (cond ((eql op-93801 ...) (let* ... ...)) ((eql op-93801 ...) (let* ... ... ...)) (t (error "destructure-case failed: %S" tmp-93803))) (let* ((tmp-93803 G93797) (op-93801 ...) (rand-93802 ...)) (cond (... ...) (... ...) (t ...))) (lambda (G93806 G93797) (let* (... ... ...) (cond ... ... ...)))(-- cont-- (:ok ("NIL" "14.73"))) apply((lambda (G93806 G93797) (let* (... ... ...) (cond ... ... ...))) --cont-- (:ok ("NIL" "14.73"))) (lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote -- cont--) --cl-rest--))((:ok ("NIL" "14.73"))) slime-dispatch-event((:return (:ok ("NIL" "14.73")) 3) #<process SLIME Lisp>) slime-process-available-input() slime-net-filter(#<process SLIME Lisp> " . 1) (\"defppclapmacro \" . 2) (\"with-nx-declarations\" . 1) (\"do-present-symbols\" . 1) (\"numeric-dispatch\" . 1) (\"defnx1\" . 3) (\"defnx2\" . 3) (\"pprint-logical-block+\" . 1) (\"with-self-bound-io-control-vars \" . 0) (\"with-ioblock-lock-grabbed-maybe\" . 1) (\"using-resource \" . 1) (\"with-ioblock-output-locked\" . 1) (\"with-periodic-task- mask\" . 1) (\"with-ppc-p2-declarations\" . 1) (\"defppc2\" . 3) (\"with-ioblock-lock-grabbed\" . 1) (\"defnxdecl\" . 2) (\"with- package-lock\" . 1) (\"with-locked-dll-header\" . 1) (\"rlet\" . 1) (\"define-declaration\" . 2) (\"catch-cancel\" . 0) (\"with-pointer- to-ivector\" . 1) (\"with-cstrs\" . 1) (\"with-terminal-input\" . 0) (\"def-load-pointers\" . 2) (\"with-read-lock\" . 1) (\"with-write- lock\" . 1) (\"define-setf-method\" . 2) (\"defcallback\" . 2) (\"% vstack-block\" . 1) (\"with-string-vector\" . 1) (\"with-lock-grabbed \" . 1) (\"dovector\" . 1) (\"%stack-block\" . 1) (\"let-globally\" . 1) (\"rletz\" . 1) (\"with-loop-list-collection-head\" . 1) (\"with- minimax-value\" . 1) (\"with-errorfree-printing\" . 0) (\"with-open- socket\" . 1) (\"with-stack-short-floats\" . 1) (\"defppcmacro\" . 2) (\"defsystem\" . 1) (\"with-xref\" . 0) (\"rebinding\" . 1) (\"with- unique-names\" . 1) (\"regex-apropos-aux\" . 1) (\"insert-char-class- tester\" . 1) (\"with-struct\" . 2) (\"defimplementation\" . 2) (\"with-compilation-hooks\" . 1) (\"with-time/cons\" . 2) (\"with- monitoring\" . 2) (\"presenting-object-if\" . 3) (\"with-describe- settings\" . 1) (\"with-connection\" . 1) (\"with-temp-package\" . 1) (\"presenting-object\" . 2) (\"with-bindings\" . 1) (\"with-io- redirection\" . 1) (\"with-reader-error-handler\" . 1) (\"defslimefun \" . 2) (\"without-interrupts\" . 0) (\"with-buffer-syntax\" . 1) (\"without-package-locks\" . 0) (\"atomically\" . 0) (\"fast\" . 0) (\"with-process-lock\" . 1) (\"without-scheduling\" . 0) (\"without- interrupts\" . 0) (\"with-timeout\" . 1) (\"with-stream-output-buffer \" . 2) (\"with-stream-input-buffer\" . 2) (\"with-unhex-cvt-buffer \" . 1) (\"with-tohex-cvt-buffer\" . 1) (\"define-some-element- constructors\" . 0) (\"define-element-constructors\" . 1) (\"defaskmacro\" . 2) (\"with-ask-vars\" . 1) (\">>\" . 1) (\"do- register-groups\" . 2) (\"<<\" . 1) (\"do-scans\" . 1) (\"presenting- object\" . 2) (\"with-ask-var\" . 1) (\"with-fast-string-functions \" . 0) (\"ask-lambda\" . 1) (\"do-matches-as-strings\" . 1) (\"register-groups-bind\" . 2) (\"do-matches\" . 1) (\"defask\" . 2) (\"&\" . 0) (\"with-augmented-environment\" . 1) (\"walker- environment-bind\" . 1) (\"with-new-definition-in-environment\" . 1))) \n0001AC(:new-features (:aserve :htmlgen :acl-compat :md5-small- length :cl-ppcre :asdf-install :split-sequence :asdf :primary- classes :ccl :ccl-2 :ccl-3 :ccl-4 :coral :common- lisp :mcl :openmcl :ansi-cl :processes :unix :openmcl-native- threads :openmcl-partial-mop :mcl-common-mop-subset :openmcl- mop-2 :interfaces-2 :powerpc :ppc-target :ppc-clos :ppc32- target :ppc32-host :darwinppc-target :darwinppc- host :darwin :poweropen-target))\n000022(:return (:ok (\"NIL\" \"14.73 \")) 3)\n") --- *slime-events* (:emacs-rex (swank:connection-info) nil t 1) (:open-dedicated-output-stream 49858) (:indentation-update (("with-lock-grabbed-maybe" . 1) ("with-ioblock-input-locked" . 1) ("with-package-write-lock" . 1) ("with-slot-values" . 2) ("with-eagain" . 2) ("with-declarations" . 1) ("without-gcing" . 0) ("with-restart" . 1) ("with-auxiliary-foreign-types" . 0) ("with-ppc-local-vinsn-macros" . 1) ("with-package-read-lock" . 1) ("while" . 1) ("%ilogior" . 1) ("with-call-method-context" . 1) ("with-dll-node-freelist" . 1) ("with-open-dir" . 1) ("collecting" . 0) ("ignoring-without-interrupts" . 0) ("with-area-macptr" . 1) ("with-standard-abort-handling" . 1) ...)) (:return (:ok (624 "OpenMCL" "openmcl" (:cl-ppcre :asdf-install :split-sequence :asdf :primary- classes :ccl :ccl-2 :ccl-3 :ccl-4 :coral :common- lisp :mcl :openmcl :ansi-cl :processes :unix :openmcl-native- threads :openmcl-partial-mop :mcl-common-mop-subset :openmcl-mop-2 ...) :spawn "Version (Beta: Darwin) 0.14.3" "Alan-Ruttenbergs- Laptop.local")) 1) (:emacs-rex (swank:list-all-systems-in-central-registry) "COMMON-LISP-USER" :repl-thread 2) (:return (:ok ("iterate.asd")) 2) (:emacs-rex (swank:operate-on-system-for-emacs "kb" "LOAD-OP") "COMMON-LISP-USER" :repl-thread 3) (:indentation-update (("with-lock-grabbed-maybe" . 1) ("with-ioblock-input-locked" . 1) ("with-package-write-lock" . 1) ("with-slot-values" . 2) ("with-eagain" . 2) ("with-declarations" . 1) ("without-gcing" . 0) ("with-restart" . 1) ("with-auxiliary-foreign-types" . 0) ("with-ppc-local-vinsn-macros" . 1) ("with-package-read-lock" . 1) ("while" . 1) ("%ilogior" . 1) ("with-call-method-context" . 1) ("with-dll-node-freelist" . 1) ("with-open-dir" . 1) ("collecting" . 0) ("ignoring-without-interrupts" . 0) ("with-area-macptr" . 1) ("with-standard-abort-handling" . 1) ...)) (:new-features (:aserve :htmlgen :acl-compat :md5-small-length :cl-ppcre :asdf- install :split-sequence :asdf :primary- classes :ccl :ccl-2 :ccl-3 :ccl-4 :coral :common- lisp :mcl :openmcl :ansi-cl :processes :unix ...)) (:return (:ok ("NIL" "14.73")) 3) (:emacs-rex (swank:compiler-notes-for-emacs) nil t 4)

1 1

[slime-devel] "Unbalanced parentheses"
by Edi Weitz 08 Sep '05

08 Sep '05

CMUCL "CVS 19b 19b-release-20050628-3 + minimal debian patches (19B)" from Debian testing SLIME from CVS today GNU Emacs 21.4.1 from Debian testing When loading a larger system I'm currently working on I always get "Unbalanced parentheses" errors. This is most likely due to this message that I see when doing the same on the console: ; In: LAMBDA (#:G2286 #:G2287 #:G2288) ; (LET (#) ; (DECLARE #) ; (LET # ; #)) ; Note: Deleting unreachable code. ; ; (FUNCALL (THE FUNCTION #'#) ; (PCL::FAST-METHOD-CALL-PV-CELL PCL::.CALL.) ; (PCL::FAST-METHOD-CALL-NEXT-METHOD-CALL PCL::.CALL.) ; PCL::.ARG0.) ; Note: Deleting unreachable code. ; Nice message, but I don't know where it comes from, i.e. which part of my code it refers to. SLIME isn't very helpful either in this case because, as I said, I get Emacs errors, probably because Emacs sexp parsing fails here. Any idea for a workaround? FWIW, the *SLIME Source Form* buffer looks like this: ; (LET (#) ; (DECLARE #) ; (LET # ; #)) And the last form in *slime-events* looks like this: (:return (:ok ((:message "Deleting unreachable code." :severity :note :location (:location (:source-form "; (LET (#)\n; (DECLARE #)\n; (LET #\n; #))\n") (:position 1) nil) :references nil :short-message "Deleting unreachable code.") (:message "Deleting unreachable code." :severity :note :location (:location (:source-form "; (FUNCALL (THE FUNCTION #'#)\n; (PCL::FAST-METHOD-CALL-PV-CELL PCL::.CALL.)\n; (PCL::FAST-METHOD-CALL-NEXT-METHOD-CALL PCL::.CALL.)\n; PCL::.ARG0.)\n") (:position 1) nil) :references nil :short-message "Deleting unreachable code."))) 4) And finally this is the Emacs backtrace: Debugger entered--Lisp error: (scan-error "Unbalanced parentheses" 5 57) scan-sexps(2 1) forward-sexp(1) (or (forward-sexp 1) (point)) (progn (goto-char (1+ start)) (or (forward-sexp 1) (point))) (values (1+ start) (progn (goto-char ...) (or ... ...))) (if (slime-same-line-p start (point)) (values start (point)) (values (1+ start) (progn ... ...))) (let ((start ...)) (ignore-errors (slime-forward-sexp)) (if (slime-same-line-p start ...) (values start ...) (values ... ...))) slime-choose-overlay-for-sexp((:location (:source-form "; (LET (#)\n; (DECLARE #)\n; (LET #\n; #))\n") (:position 1) nil)) (if (eq (slime-note\.severity note) :read-error) (values pos (1+ pos)) (slime-choose-overlay-for-sexp location)) (let* ((--rest--24678 rand-24676) (pos ...) (alignp ...)) (if --rest--24678 (signal ... ...)) (if (eq ... :read-error) (values pos ...) (slime-choose-overlay-for-sexp location))) (progn (let* (... ... ...) (if --rest--24678 ...) (if ... ... ...))) (destructuring-bind (pos &optional alignp) rand-24676 (if (eq ... :read-error) (values pos ...) (slime-choose-overlay-for-sexp location))) (cond ((eql op-24675 ...) (destructuring-bind ... rand-24676 ...)) (t (slime-choose-overlay-for-sexp location))) (case op-24675 (:position (destructuring-bind ... rand-24676 ...)) (t (slime-choose-overlay-for-sexp location))) (let* ((tmp-24677 pos) (op-24675 ...) (rand-24676 ...)) (case op-24675 (:position ...) (t ...))) (destructure-case pos ((:position pos &optional alignp) (if ... ... ...)) (t (slime-choose-overlay-for-sexp location))) (let* ((--rest--24674 rand-24672) (_file ...) (pos ...) (_hints ...)) (destructure-case pos (... ...) (t ...))) (progn (let* (... ... ... ...) (destructure-case pos ... ...))) (destructuring-bind (_file pos _hints) rand-24672 (destructure-case pos (... ...) (t ...))) (cond ((eql op-24671 ...) (destructuring-bind ... rand-24672)) ((eql op-24671 ...) (destructuring-bind ... rand-24672 ...)) (t (error "destructure-case failed: %S" tmp-24673))) (case op-24671 (:error (destructuring-bind ... rand-24672)) (:location (destructuring-bind ... rand-24672 ...)) (t (error "destructure-case failed: %S" tmp-24673))) (let* ((tmp-24673 location) (op-24671 ...) (rand-24672 ...)) (case op-24671 (:error ...) (:location ...) (t ...))) (destructure-case location ((:error msg)) ((:location _file pos _hints) (destructure-case pos ... ...))) (let ((location ...)) (destructure-case location (...) (... ...))) slime-choose-overlay-region((:message "Deleting unreachable code." :severity :note :location (:location (:source-form "; (LET (#)\n; (DECLARE #)\n; (LET #\n; #))\n") (:position 1) nil) :references nil :short-message "Deleting unreachable code.")) (let* ((G24670 ...) (start ...) (end ...)) (when start (goto-char start) (let ... ...))) (multiple-value-bind (start end) (slime-choose-overlay-region note) (when start (goto-char start) (let ... ...))) slime-overlay-note((:message "Deleting unreachable code." :severity :note :location (:location (:source-form "; (LET (#)\n; (DECLARE #)\n; (LET #\n; #))\n") (:position 1) nil) :references nil :short-message "Deleting unreachable code.")) mapc(slime-overlay-note ((:message "Deleting unreachable code." :severity :note :location (:location ... ... nil) :references nil :short-message "Deleting unreachable code.") (:message "Deleting unreachable code." :severity :note :location (:location ... ... nil) :references nil :short-message "Deleting unreachable code."))) (save-excursion (slime-remove-old-overlays) (mapc (function slime-overlay-note) (slime-merge-notes-for-display notes))) slime-highlight-notes(((:message "Deleting unreachable code." :severity :note :location (:location ... ... nil) :references nil :short-message "Deleting unreachable code.") (:message "Deleting unreachable code." :severity :note :location (:location ... ... nil) :references nil :short-message "Deleting unreachable code."))) (let* ((G24635 result) (result ...) (secs ...)) (slime-show-note-counts notes secs) (slime-highlight-notes notes)) (multiple-value-bind (result secs) result (slime-show-note-counts notes secs) (slime-highlight-notes notes)) (save-current-buffer (set-buffer buffer) (multiple-value-bind (result secs) result (slime-show-note-counts notes secs) (slime-highlight-notes notes))) (with-current-buffer buffer (multiple-value-bind (result secs) result (slime-show-note-counts notes secs) (slime-highlight-notes notes))) (let ((notes ...)) (with-current-buffer buffer (multiple-value-bind ... result ... ...)) (run-hook-with-args (quote slime-compilation-finished-hook) notes)) slime-compilation-finished(("NIL" "6.08") #<buffer *slime-repl cmucl*>) (lambda (G23990 result) (slime-compilation-finished result (symbol-value G23990)))(--buffer-- ("NIL" "6.08")) apply((lambda (G23990 result) (slime-compilation-finished result (symbol-value G23990))) --buffer-- ("NIL" "6.08")) (lambda (&rest --cl-rest--) (apply (quote ...) (quote --buffer--) --cl-rest--))(("NIL" "6.08")) funcall((lambda (&rest --cl-rest--) (apply (quote ...) (quote --buffer--) --cl-rest--)) ("NIL" "6.08")) (if (symbol-value G24002) (funcall (symbol-value G24002) result)) (let* ((--rest--24000 rand-23998) (result ...)) (if (symbol-value G24002) (funcall ... result))) (cond ((eql op-23997 ...) (let* ... ...)) ((eql op-23997 ...) (let* ... ... ...)) (t (error "destructure-case failed: %S" tmp-23999))) (let* ((tmp-23999 G23993) (op-23997 ...) (rand-23998 ...)) (cond (... ...) (... ...) (t ...))) (lambda (G24002 G23993) (let* (... ... ...) (cond ... ... ...)))(--cont-- (:ok ("NIL" "6.08"))) apply((lambda (G24002 G23993) (let* (... ... ...) (cond ... ... ...))) --cont-- (:ok ("NIL" "6.08"))) (lambda (&rest --cl-rest--) (apply (quote ...) (quote --cont--) --cl-rest--))((:ok ("NIL" "6.08"))) slime-dispatch-event((:return (:ok ("NIL" "6.08")) 3) #<process SLIME Lisp>) slime-process-available-input() slime-net-filter(#<process SLIME Lisp> "000021(:return (:ok (\"NIL\" \"6.08\")) 3)\n") Thanks, Edi.

5 8

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 07 Sep '05

07 Sep '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.768 slime/ChangeLog:1.769 --- slime/ChangeLog:1.768 Mon Sep 5 16:00:20 2005 +++ slime/ChangeLog Wed Sep 7 20:44:51 2005 @@ -1,3 +1,18 @@ +2005-09-07 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * present.lisp (menu-choices-for-presentation): The + Inspect/Describe/Copy items are now provided from the Emacs side. + Implement all pathname menu items without having Emacs evaluate a + form. Fix for Lisps where ".lisp" is parsed as :name ".lisp". + + * slime.el (slime-menu-choices-for-presentation): New function, + return a menu with Inspect/Describe/Copy plus the items that come + from the menu protocol. + (slime-presentation-menu): Security improvement for the + presentation menu protocol: Don't eval arbitrary forms coming from + the Lisp. Minor cleanup: Use x-popup-menu in the normal Emacs way, + associating a command with each menu item. + 2005-09-05 Helmut Eller <heller(a)common-lisp.net> * swank-cmucl.lisp (background-message): New function. Forward the

1 0

[slime-devel] presentations and xemacs very slow?
by Todd Sabin 07 Sep '05

07 Sep '05

Hi, I decided to try out slime (been using ilisp), and found what seems to be a bug, or at least a poor default. I checked out the current CVS, and tried it in XEmacs 21.4.15 on an amd64 machine, with a semi-old cmucl snapshot (2005-01-04). Slime connected to cmucl just fine, but I didn't get too much further than that. Running buffer-menu made emacs hang for a second or more. After a little experimentation, I found that it hangs an amount proportional to the number of buffers I have. Once you get over 10 or so, you notice the delay, and when you get up around 50 buffers or more, it's really awful. I tried a bunch of stuff and found that this doesn't affect GNU-Emacs, and setting slime-repl-enable-presentations to nil is an effective workaround. I also tried the FAIRLY-STABLE branch, and it didn't seem to have the problem, but I couldn't get a connection to either cmucl or sbcl, so I'm not sure if that was a valid test. Anyway, does anyone have an idea what causes this, or if there's a better fix than disabling presentations? Thanks, Todd -- Todd Sabin <tsabin(a)optonline.net>

1 0