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

[slime-devel] swank-clisp, bug report, stream encoding proposal, and a few bugfixes
by sedachv 03 Jan '04

03 Jan '04

Hello, I sent mail to Luke about this a few days ago, but I guess he's busy partying like it's 2003 :) (if not, then please check your common-lisp.net mailbox and disregard it!). Anyway, I've gotten the swank backend mostly working on CLISP. The file is attached. On the way, I've also discovered that the slime state machine generates an error on :read-string (and gives the "you've encountered an error in SLIME" message). This should probably be fixed (and I'm not man enough to do it), as it means that interactive restarts (and probably anything else that does query-io) doesn't work. I also have a proposal stemming from potential problems with the current message-length and character encoding schemes. The stream character encoding should be specified by a slime variable (which defaults to something like "iso-8859-1"), whose value gets passed to a swank function on initialization, which then converts it to internal representation and binds it to a special variable, which is used when opening slime sockets. The message length should then be represented by arabic numerals - the first character in a message is 0-9 and indicated how many (1+) subsequent chars to read to get the message length (giving maximum message length of 10 9s). This is a lot less efficient than the current method, but it'll work with any character encoding scheme supporting arabic numerals (which the ANSI spec says are part of standard characters and so must be provided by every conforming implementation). I propose character encoding should be specified by ASCII strings like "UTF-8", with standard names used so you can just run find-symbol or equivalent on them to get at the encoding object in Lisp and Emacs. Also, here are some patches for things I've changed along the way: In slime.el (the RE doesn't work for CLISP's output, and I belive this type of formatting should be done in swank): *************** *** 3689,3697 **** for (number string) = frame do (let (label framestring) ! (setq label (format "%s" number) ! framestring string) ! (slime-insert-propertized `(frame ,frame) " " (in-sldb-face frame-label label) " " (in-sldb-face frame-line framestring) "\n"))) (let ((number (sldb-previous-frame-number))) --- 3689,3699 ---- for (number string) = frame do (let (label framestring) ! (if (string-match "\\([0-9]*:\\)?\\s *\\(.*\\)" string) ! (setq label (match-string 1 string) ! framestring (match-string 2 string)) ! (setq label "" framestring string)) ! (slime-insert-propertized `(frame ,frame) " " (in-sldb-face frame-label label) " " (in-sldb-face frame-line framestring) "\n"))) (let ((number (sldb-previous-frame-number))) In swank-backend.lisp: *************** *** 134,141 **** (defgeneric call-with-compilation-hooks (func) (:documentation "Call FUNC with hooks to trigger SLDB on compiler errors.")) ! (defmacro with-compilation-hooks ((&rest ignore) &body body) ! (declare (ignore ignore)) `(call-with-compilation-hooks (lambda () (progn ,@body)))) (defgeneric compile-string-for-emacs (string &key buffer position) --- 134,140 ---- (defgeneric call-with-compilation-hooks (func) (:documentation "Call FUNC with hooks to trigger SLDB on compiler errors.")) ! (defmacro with-compilation-hooks (() &body body) `(call-with-compilation-hooks (lambda () (progn ,@body)))) (defgeneric compile-string-for-emacs (string &key buffer position) In swank.lisp (CLISP didn't like the for loop, and neither did I :) *************** *** 434,455 **** (defun eval-region (string &optional package-update-p) "Evaluate STRING and return the result. ! If PACKAGE-UPDATE-P is non-nil, and evaluation causes a package ! change, then send Emacs an update." ! (let ((*package* *buffer-package*) ! form ! (pos 0) ! return-values ! (end-symbol (gensym))) (unwind-protect ! (loop (multiple-value-setq (form pos) ! (read-from-string string nil end-symbol :start pos)) ! (if (eq form end-symbol) ! (return return-values) ! (setq return-values ! (multiple-value-list (eval form))))) (when (and package-update-p (not (eq *package* *buffer-package*))) ! (send-to-emacs (list :new-package (shortest-package-nickname *package*))))))) (defun shortest-package-nickname (package) "Return the shortest nickname (or canonical name) of PACKAGE." --- 434,452 ---- (defun eval-region (string &optional package-update-p) "Evaluate STRING and return the result. ! If PACKAGE-UPDATE-P is non-nil, and evaluation causes a package ! change, then send Emacs an update." ! (let ((*package* *buffer-package*)) (unwind-protect ! (with-input-from-string (stream string) ! (loop for form = (read stream nil stream) ! until (eq form stream) ! for - = form ! for values = (multiple-value-list (eval form)) ! do (force-output) ! finally (return (values values -)))) (when (and package-update-p (not (eq *package* *buffer-package*))) ! (send-to-emacs (list :new-package (shortest-package-nickname *package*))))))) (defun shortest-package-nickname (package) "Return the shortest nickname (or canonical name) of PACKAGE." Happy New Years! Vladimir

3 4

[slime-devel] hyperspec-lookup at blank prompt.
by bryan o'connor 02 Jan '04

02 Jan '04

hyperspec-lookup at a blank prompt in a *slime-repl* will set the read-only/intangible package prompt as the default for the completing-read in the minibuffer. the read-only bit should probably be stripped. that way the user can easily delete the text in one keystroke if it's an intangible package prompt or edit it if it was grabbed from a read-only lisp source buffer. i'm an elisp newbie, so i don't have a working patch yet. i imagine it involves either (remove-text-properties ...) or copying the text with no properties. someone want to point in the right direction? thanks, ...bryan

2 2

[slime-devel] sldb-list-locals bug
by Wolfgang Jenkner 29 Dec '03

29 Dec '03

Type, say, (let ((x 0)) (/ x)) in *slime-repl* and then `l' in *sldb* at the 0th frame of the backtrace. Emacs will say sldb-list-locals: Buffer is read-only: #<buffer *sldb*> The reason is that recently all occurrences of `princ' in sldb-princ-locals were changed to `insert' (in order to support faces), so with-output-to-string in sldb-list-locals has become the wrong thing to use. Here is a patch. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ cut ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.157 diff -u -r1.157 slime.el --- slime.el 21 Dec 2003 09:21:27 -0000 1.157 +++ slime.el 28 Dec 2003 20:10:28 -0000 @@ -3813,7 +3813,7 @@ (slime-propertize-region (plist-put props 'details-visible-p t) (insert " " (in-sldb-face detailed-frame-line (second frame)) "\n" indent1 (in-sldb-face section "Locals:") "\n") - (sldb-princ-locals frame-number indent2) + (sldb-insert-locals frame-number indent2) (when sldb-show-catch-tags (let ((catchers (sldb-catch-tags frame-number))) (cond ((null catchers) @@ -3910,7 +3910,7 @@ (defun sldb-frame-locals (frame) (slime-eval `(swank:frame-locals ,frame))) -(defun sldb-princ-locals (frame prefix) +(defun sldb-insert-locals (frame prefix) (dolist (l (sldb-frame-locals frame)) (insert prefix) (let ((symbol (plist-get l :symbol))) @@ -3924,9 +3924,10 @@ (defun sldb-list-locals () (interactive) - (let ((string (with-output-to-string - (sldb-princ-locals (sldb-frame-number-at-point) "")))) - (slime-message "%s" string))) + (let ((frame (sldb-frame-number-at-point))) + (slime-message "%s" (with-temp-buffer + (sldb-insert-locals frame "") + (buffer-string))))) (defun sldb-catch-tags (frame) (slime-eval `(swank:frame-catch-tags ,frame))) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ cut ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Wolfgang

1 0

[slime-devel] HACKING
by Luke Gorrie 22 Dec '03

22 Dec '03

Ahoy, I have added a file called HACKING that's supposed to explain how to hack the code for people joining the project. Corrections welcome!

2 4

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 22 Dec '03

22 Dec '03

Index: slime/ChangeLog diff -u slime/ChangeLog:1.179 slime/ChangeLog:1.180 --- slime/ChangeLog:1.179 Fri Dec 19 01:12:03 2003 +++ slime/ChangeLog Sun Dec 21 04:20:45 2003 @@ -1,4 +1,8 @@ 2003-12-19 Alan Ruttenberg <alanralanr(a)comcast.net> + * slime.el 1.157 + fix bug in sldb-princ-locals I introduced when adding fonts to sldb + +2003-12-19 Alan Ruttenberg <alanralanr(a)comcast.net> * swank-openmcl.lisp 1.42 in request-loop register output stream to be periodically slushed per Gary Byer's email. * slime.el 1.156

1 0

[slime-devel] A possible bug in slime
by Ignas Mikalajunas 22 Dec '03

22 Dec '03

If you start fiddling with *standard-input* in slime like (read *standard-input*) slime becomes unstable. I just tried reading from *standard-input* then my program started computations and i tried to do Ctrl+C in Eterm where cmucl was running. You can see the result. I have attached the log. Ignas Mikalajunas

2 1

[slime-devel] Good and bad things about SLIME
by Ignas Mikalajunas 19 Dec '03

19 Dec '03

Slime is a lot nicer than Ilisp, don't know why yet I like it much more, and the pace of developement is realy astonishing. Thank you. The bad things: (windows) Could not break ACL with C-c C-c or C-c C-b, nothing helped so the only way to exit an infinite loop is to restart ACL :( There is a bug in (defun user-init-file () "Return the name of the user init file or nil." (let ((home (user-homedir-pathname))) (and (probe-file home) (probe-file (format nil "~A/.swank.lisp" (namestring (truename home))))))) in windows if my home dir is "D:\home\qzma\" it tries to probe "D:\\home\\qzma\\/.swank.lisp" and of course fails miserably, yet i don't know how to fix it to fit both operating systems. (linux) comming as soon as I'll get home Ignas Mikalajunas

5 4

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 19 Dec '03

19 Dec '03

Index: slime/ChangeLog diff -u slime/ChangeLog:1.175 slime/ChangeLog:1.179 --- slime/ChangeLog:1.175 Thu Dec 18 01:55:34 2003 +++ slime/ChangeLog Fri Dec 19 01:12:03 2003 @@ -1,3 +1,20 @@ +2003-12-19 Alan Ruttenberg <alanralanr(a)comcast.net> + * swank-openmcl.lisp 1.42 + in request-loop register output stream to be periodically slushed per Gary Byer's email. + * slime.el 1.156 + slime-goto-source-location. Sometimes source information is recorded but it isn't a standard "def" + in that case, don't error out, just look for the most likely place for the definition. + +2003-12-19 Luke Gorrie <luke(a)bluetail.com> + + * null-swank-impl.lisp: Deleted this old file. See + swank-backend.lisp instead. + +2003-12-18 Alan Ruttenberg <alanralanr(a)comcast.net> + * swank-openmcl.lisp 1.41 + in openmcl (break) now goes into slime debugger. + (setq swank:*break-in-sldb* nil) to disable that. + 2003-12-17 Alan Ruttenberg <alanralanr(a)comcast.net> * slime.el 1.155 Allow font choices for backtrack. Add group for customizing them: sldb.

1 0

[slime-devel] sending form to *inferior-lisp* or *slime-repl*
by Nicolas Neuss 19 Dec '03

19 Dec '03

Hi, first thank you very much for Slime. I use it only for a short while now, but I already prefer it to Ilisp. Some questions, though. I have some longer calculations which give some status information during the run. I had a function which sent an S-expression to the *cmulisp* buffer (bringing it up if necessary) and which was defined as (defun copy-eval-last-sexp (arg) "Evaluate the last s-expression in the source buffer in the Lisp listener." (interactive "p") (let ((end (point)) (beg (save-excursion (backward-list 1) (point))) (edit-buffer (current-buffer))) (cmulisp) (end-of-buffer) (switch-to-buffer edit-buffer) (append-to-buffer ilisp-buffer beg end) (switch-to-buffer ilisp-buffer) (return-ilisp))) I have bound this to "C-x M-e" with (define-key lisp-mode-map "\C-x\M-e" 'copy-eval-last-sexp) Question: Is there something similar in Slime or how should I do it in Slime? Should it go to *inferior-lisp* or to *slime-repl*? I also noted that *inferior-lisp* pops up when information is displayed. I do not want this, actually, so how could I switch that off? Thanks, Nicolas.

5 8

[slime-devel] Re: Good and bad things about SLIME
by Luke Gorrie 19 Dec '03

19 Dec '03

Ignas Mikalajunas <voblia(a)centras.lt> writes: > Luke Gorrie <luke(a)bluetail.com> writes: > > > Helmut Eller <e9626484(a)stud3.tuwien.ac.at> writes: > > > > Just a note: I think this is the first time somebody has run SLIME on > > Windows. I'm amazed that it didn't have a bunch of little portability > > niggles preventing it from even starting up. Very good! > > > > I thought it was multiplatform ;) Apparently you thought more or less right :-) At least now I feel glad about changing "/tmp/" to this monstrosity: (cond ((fboundp 'temp-directory) (temp-directory)) ((boundp 'temporary-file-directory) temporary-file-directory) (t "/tmp/")) after Dan noticed it was a potential Win32-portability problem. > yet I am experiencing serious problems with running swank on gentoo by > using "asdf" ... gentoo puts files compiled by asdf into a temp dir > something like /usr/lib/common-lisp/cmucl/swank/ yet the sources are in > /usr/share/common-lisp/source/swank/ , so the swank-loader is trying to > find it's sources in the same dir the compiled file is ... Is the Gentoo maintainer someone reading this list? If so, any comments? > like /usr/lib/common-lisp/cmucl/swank/swank-backend.lisp . I managed to > track the problem to the place the pathnames are generated : > > (defun make-swank-pathname (name &optional (type "lisp")) > "Return a pathname with name component NAME in the Slime directory." > (merge-pathnames name > (make-pathname > :type type > :directory > (pathname-directory > (or *compile-file-pathname* *load-pathname* > *default-pathname-defaults*))))) > > *compile-file-pathname* on cmulisp is nil > *load-pathname* points to the directory the compiled files are stored in > > yet I am not a good lisp programmer so i don't know how to make it detect > the right path (like make swank get the path from asdf) > > Ignas Mikalajunas

1 0