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

[slime-devel] PATCH: EUC-JP support
by NIIMI Satoshi 12 Sep '05

12 Sep '05

Hi, Attached is a patch to add EUC-JP as coding system. This patch eliminates the requirement of Mule-UCS to use Japanese characters on SLIME. Thanks, -- NIIMI Satoshi Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.539 diff -u -r1.539 slime.el --- slime.el 9 Sep 2005 17:10:18 -0000 1.539 +++ slime.el 10 Sep 2005 03:30:52 -0000 @@ -1552,7 +1552,8 @@ (iso-8859-1-unix nil :iso-latin-1-unix) (binary nil :iso-latin-1-unix) (utf-8-unix t :utf-8-unix) - (emacs-mule-unix t :emacs-mule-unix)) + (emacs-mule-unix t :emacs-mule-unix) + (euc-jp-unix t :euc-jp-unix)) "A list of valid coding systems. Each element is of the form: (NAME MULTIBYTEP CL-NAME)") Index: swank-clisp.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-clisp.lisp,v retrieving revision 1.54 diff -u -r1.54 swank-clisp.lisp --- swank-clisp.lisp 22 Aug 2005 04:30:30 -0000 1.54 +++ swank-clisp.lisp 10 Sep 2005 03:30:52 -0000 @@ -122,6 +122,8 @@ (:iso-latin-1-unix (ext:make-encoding :charset 'charset:iso-8859-1 :line-terminator :unix)) (:utf-8-unix (ext:make-encoding :charset 'charset:utf-8 + :line-terminator :unix)) + (:euc-jp-unix (ext:make-encoding :charset 'charset:euc-jp :line-terminator :unix)))) (defimplementation accept-connection (socket Index: swank-sbcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v retrieving revision 1.143 diff -u -r1.143 swank-sbcl.lisp --- swank-sbcl.lisp 29 Aug 2005 11:23:55 -0000 1.143 +++ swank-sbcl.lisp 10 Sep 2005 03:30:52 -0000 @@ -123,7 +123,9 @@ (ecase coding-system (:iso-latin-1-unix :iso-8859-1) #+sb-unicode - (:utf-8-unix :utf-8))) + (:utf-8-unix :utf-8) + #+sb-unicode + (:euc-jp-unix :euc-jp))) (defun make-socket-io-stream (socket external-format) (let ((ef (find-external-format external-format))) Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.330 diff -u -r1.330 swank.lisp --- swank.lisp 5 Sep 2005 13:54:02 -0000 1.330 +++ swank.lisp 10 Sep 2005 03:30:53 -0000 @@ -220,7 +220,8 @@ ;; The coding system for network streams. (external-format *coding-system* :type (member :iso-latin-1-unix :emacs-mule-unix - :utf-8-unix))) + :utf-8-unix + :euc-jp-unix))) (defun print-connection (conn stream depth) (declare (ignore depth))

2 1

[slime-devel] reverting to previous version helps w/ my previous note re. present.lisp / slime.el interaction
by Sundar Narasimhan 12 Sep '05

12 Sep '05

Hi, If I revert to what appears to be the previous version.. of present.lisp (defmethod menu-choices-for-presentation (ob) (declare (ignore ob)) (list (list "Inspect" (lambda(choice object id) (declare (ignore choice object)) `(slime-inspect-presented-object ',id))) (list "Describe" (lambda(choice object id) (declare (ignore id choice)) (describe object) nil)) (list "Copy to input" (lambda(choice object id) (declare (ignore choice object id)) `(slime-copy-presentation-at-point event))))) along with a version of slime.el that does not define this on the (x)emacs side, seems to fix the problem I mentioned in my last message. If you have tracing on etc, clicking right still scrolls the window in a somewhat counter-intuitive way, but .. at least it does the right thing as one would expect. -Sundar

1 0

[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