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

[slime-devel] disconnect after errors with openmcl
by Otto Diesenbacher 14 Sep '05

14 Sep '05

Hi, I have an error, when trying to evaluate any non-existent or wrong expression in the slime-repl running openmcl 14.3. After quiting the error-message I lose the connection and have to restart slime. The last lines in the *Message* buffer: error in process filter: slime-process-available-input: Wrong type argument: listp, S error in process filter: Wrong type argument: listp, S net-read error: (cl-assertion-failed (plusp length)) Lisp connection closed unexpectedly: deleted my emacs: (version) "GNU Emacs 22.0.50.1 (powerpc-apple-darwin8.2.0) of 2005-08-06 on quartet.local" slime is the last CVS-version btw.: with sbcl and clisp I haven't any problem. As I just startet learning lisp - I hope my descriptions are specific enough :) Thanks for any help in advance! otto

1 0

[slime-devel] Lisp connection closed unexpectedly: connection broken by remote peer
by martin 14 Sep '05

14 Sep '05

Dear all, Sorry for bothering you, but I have no idea how to fix a problem that I have with slime. I'm working on MacOsX 10.3 and I'm trying to switch from MCL to Emacs (22.0.50.1 powerpc-apple-darwin7.9.0) + Slime (1.2.1) + CMUCL (cmucl-darwin-exp-2004-02-03-010-ppc-darwin). It works and I'm really enthusiastic about it. But there is one problem. If I try to evaluate a s-expression that has more than 4040 characters, the lisp connection breaks with this message: Lisp connection closed unexpectedly: connection broken by remote peer In the *inferior-lisp* buffer, I get this: * ;; Connection to Emacs lost. ;; [ Error in function LISP::ASSERT-ERROR: Short read: length=4091 pos=4090] I attached a lisp file with two defuns. I can evaluate "test1", but not "test2" (test1 has 4040 characters, test2 has 4041 characters). Does anybody have an idea how to fix this? Thanks a lot, Martin

2 2

[slime-devel] clisp problems
by Rahul Garg 14 Sep '05

14 Sep '05

Hi. I am using CLISP 2.34 + slime 1.2.1 stable release (not cvs) version. Whenever i type out a function name slime is supposed to display the name and parameters in the mini-buffer. For example typing (gethash <space> will start displaying (gethash arg0 arg1) etc. Can i do something so that it displays the name of the arguments instead of arg0 and arg1. the names are displayed if i use cmucl but not if i use clisp. Any solutions? I also tried with Lisp In a Box using clisp 2.33 on winxp but it seems its a problem with clisp everywhere. sincerely, rahul

3 2

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

13 Sep '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.774 slime/ChangeLog:1.777 --- slime/ChangeLog:1.774 Sat Sep 10 20:28:32 2005 +++ slime/ChangeLog Tue Sep 13 07:37:16 2005 @@ -1,3 +1,80 @@ +2005-09-13 Alan Ruttenberg <alanr-l(a)mumble.net> + + * slime.el (defcustom slime-ed-use-dedicated-frame ... vs defvar + + (defcustom slime-when-complete-filename-expand: Use + comint-replace-by-expanded-filename instead of + comint-dynamic-complete-as-filename to complete file names + + * swank.lisp (run-repl-eval-hooks .. finally (return vs no return + + inspector-call-nth-action Allow second value :replace for inspector actions + + (defvar *slime-inspect-contents-limit* default nil. How many elements of + a hash table or array to show by default. If table has more than + this then offer actions to view more. Set to nil for no limit. Probably should + set default to reasonable value - I like 200. + + (inspect-for-emacs ((ht hash-table) inspector)) - banner line is hash table object. + Respect *slime-inspect-contents-limit* + + (defmethod inspect-for-emacs ((array array) inspector) + Respect *slime-inspect-contents-limit* + + * swank-openmcl.lisp inspector for closures shows closed-over + values. To be fixed: inspector-princ needs to be loaded earlier + since swank package not available when compiling + +2005-09-13 Helmut Eller <heller(a)common-lisp.net> + + * present.lisp (menu-choices-for-presentation-id): Use + lookup-presented-object secondary return value instead of + *not-present*. + (execute-menu-choice-for-presentation-id, presenting-object-1): + Remove references to *can-print-presentation*. + + * slime.el (slime-current-output-id): Remove this ugly klugde. + (slime-repl-insert-result): New function. Handle the presentations + and other special cases cleaner. + (slime-repl-insert-prompt): Use it. The `result' arg is now a + structured list; update callers accordingly. + (slime-repl-return): Make the prefix arg work again. + (package-updating): The result of swank::listener-eval changed a + bit. Update the test. + + Remove some unnecessary uses of `defun*' and reindent it to 80 + columns. + + * swank.lisp: Simplify the object <-> presentation-id mapping. + (save-presented-object): Remove the optional `id' arg. + (lookup-presented-object): Id's should be fixnums not some cons + with fuzzy/non-documented meaning. Use the secondary return value + to test for absence of the id. Update callers accordingly. + (*not-present*): Deleted. + + Remove the repl result special cases, let the general presentation + machinery handle it. + (*last-repl-result-id*, add-repl-result, *current-id*) + (clear-last-repl-result): Deleted. + (listener-eval): Don't *current-id* to tag result values. + + (*can-print-presentation*): Deleted. Nobody quite knows whether + it's still needed so let just try without it. Updated referrers + accordingly. + + (eval-region, run-repl-eval-hooks): Move the eval hook stuff to + a separate function. + + * swank-loader.lisp (lisp-version-string)[cmu]: Replace spaces + with underscores. + +2005-09-12 NIIMI Satoshi <sa2c(a)sa2c.net> + + * swank.lisp, slime.el, swank-clisp.lisp, swank-sbcl.lisp: add + EUC-JP as coding system. This patch eliminates the requirement of + Mule-UCS to use Japanese characters. (Nice for pre-22 Emacs + users.) + 2005-09-10 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * slime.el (slime-enable-evaluate-in-emacs): Resurrected. @@ -69,7 +146,7 @@ (slime-choose-overlay-for-sexp): Ignore errors when stepping over forms. (slime-search-method-location, slime-goto-location-position): Move - all this regexpery to it's own function. + all this regexpery to its own function. (slime-recenter-if-needed, slime-repl-return): Factor some duplicated code into its own function. (slime-presentation-bounds, slime-presentation-around-point) @@ -121,6 +198,7 @@ (slime-y-or-n-p): New. 2005-08-29 Alan Ruttenberg <alanr-l(a)mumble.net> + * slime.el (sldb-insert-condition) - Add tooltip for long condition string which otherwise falls off the right of the screen * swank.lisp (list-threads) - thread name might be a symbol - pass

1 0

[slime-devel] [PATCH] add optimization settings menu
by Klaus Weidner 13 Sep '05

13 Sep '05

Hello, this patch adds menu options for changing the optimization settings in the lisp global environment. This way, you can recompile things for improved debuggability or speed without having to put declaims or declares in your source file. At least with sbcl, the proclaim call affects following compilations, but the compiled code can still override the global settings with decaim/declare. I know that this is just a quick hack, and I'm sure there's a more elegant way to configure global properties for the lisp environment, so please consider this as a proof of concept and not necessarily something for applying... -Klaus =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.544 diff -u -r1.544 slime.el --- slime.el 13 Sep 2005 05:37:16 -0000 1.544 +++ slime.el 13 Sep 2005 20:46:52 -0000 @@ -780,6 +780,10 @@ [ "Check Parens" check-parens t] [ "Update Indentation" slime-update-indentation ,C] [ "Select Buffer" slime-selector t]) + ("Optimization" + [ "Max Debug" slime-optimize-max-debug ,C ] + [ "High Speed" slime-optimize-high-speed ,C ] + [ "Unsafe Speed" slime-optimize-unsafe-speed ,C ]) ("Profiling" [ "Toggle Profiling..." slime-toggle-profile-fdefinition ,C ] [ "Profile Package" slime-profile-package ,C] @@ -6304,6 +6308,21 @@ (buffer-file-name))))))) (let ((lisp-filename (slime-to-lisp-filename (expand-file-name filename)))) (slime-eval-with-transcript `(swank:load-file ,lisp-filename)))) + + +;;;; Optimization + +(defun slime-optimize-max-debug () + (interactive) + (slime-eval-async '(cl:proclaim '(cl:optimize (cl:debug 3) (cl:speed 0) (cl:safety 3))))) + +(defun slime-optimize-high-speed () + (interactive) + (slime-eval-async '(cl:proclaim '(cl:optimize (cl:debug 0) (cl:speed 3) (cl:safety 3))))) + +(defun slime-optimize-unsafe-speed () + (interactive) + (slime-eval-async '(cl:proclaim '(cl:optimize (cl:debug 0) (cl:speed 3) (cl:safety 0))))) ;;;; Profiling

1 0

[slime-devel] bug in timezone formatting
by Vincent Arkesteijn 13 Sep '05

13 Sep '05

Hi, When inspecting an integer, one of its interpretations is as a universal time, which is decoded and printed in iso 8601 format. For example, C-c I (get-universal-time) showed: As time: 2005-09-13T00:43:42+01:00 Unfortunately, the indicated number of minutes in the timezone is always 00 or 01, which is problematic when the timezone offset from UTC is not an integer number of hours. Also, the dst return value from decode-universal-time is ignored, leading to a one-hour error when DST is in effect. Fix attached. Vincent.

1 0

[slime-devel] function names that start with "@"
by Alan Ruttenberg 13 Sep '05

13 Sep '05

I can't meta-point or get the arglist on space for a function that starts with an "@". Could someone suggest a way to fix this? Thanks, Alan

2 3

[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