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

[slime-devel] slime apparently mis-reporting closed connection
by Samium Gromoff 26 Oct '07

26 Oct '07

After well into the second decade of slime-disconnect/slime-connect loop iteration (interweaved with normal operation) the emacs side of slime stopped recognising connection status. I`m doing a slime-disconnect, restarting swank and slime-connect, however immediately after this either a slime-load-file or a (load ...) in slime repl result in a message "Connection closed." i have some time before i will have to reboot the machine, and until then i can provide various forensics upon request... regards, Samium Gromoff

5 5

[slime-devel] repl history navigation and M-r
by Attila Lendvai 13 Jul '07

13 Jul '07

a recent checkin to cvs eliminated a very useful (ymmv) feature: M-r and M-s behaved just like C-s when it was sequently pressed more then once. i use that feature more than anything in the repl navigation. was it intentional? -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronstället)

3 11

[slime-devel] REPL results and output
by Madhu 22 Apr '07

22 Apr '07

The printing of repl results seems to have changed recently: CL-USER> (format *standard-output* "foo") NIL CL-USER> foo CL-USER> (format *standard-output* "foo~%") NIL CL-USER> foo i.e. The result is printed and the prompt is printed before the command's output. Do other people get this same behaviour? Is this backend/interaction mode specific? (I'm using cmucl). -- Madhu

4 6

[slime-devel] slime-apropos-package now sorts correctly
by Hoehle, Joerg-Cyril 20 Apr '07

20 Apr '07

Hi, slime-apropos-package now conforms to its specification and also sorts symbols printed with package prefix. I supply the patches as attachments in the hope that MS-Windows nor MS-Outlook will break the TAB and LF characters of the original diff. I hope this is fine. Regards, Jörg Höhle.

3 3

[slime-devel] [PATCH] Fuzzy Completion cleanup
by Tobias C. Rittweiler 11 Apr '07

11 Apr '07

Hi, the attached patch cleans up parts of the relevant code for fuzzy completion in swank.lisp. There are two user visible changes: i) The flags in the *Fuzzy Completions* buffer (indicating if the respective symbol is boundp, fboundp, represeting a class, macro &c) are now extended by the "p" flag indicating the there exists a package accessible via that symbol. ii) the symbols in the *Fuzzy Completions* are now sorted alphabetically before sorted by their score. From my ChangeLog entry: Affects especially the list of all possible completions when the user hits fuzzy-completion on an empty string within Emacs; also makes the potential limitness of the listed completions clearer to the end user of SLIME. Stay tuned, -T. Index: ChangeLog =================================================================== RCS file: /project/slime/cvsroot/slime/ChangeLog,v retrieving revision 1.1076 diff -u -r1.1076 ChangeLog --- ChangeLog 26 Feb 2007 09:56:06 -0000 1.1076 +++ ChangeLog 26 Feb 2007 19:58:56 -0000 @@ -1,3 +1,53 @@ +2007-02-26 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank.lisp: Cleanup of parts of the fuzzy completion code. + Additionally a couple of enhancements. As follows: + + (fuzzy-completions, fuzzy-completion-selected): Minor + stylistic and clarifying modifications of the docstrings. + + (fuzzy-find-matching-symbols): Huge code reorganization. + Organizing relevant code into local function TIME-EXHAUSTED-P, + renaming local function SYMBOL-MATCH to PERFORM-FUZZY-MATCH, + making previously required argument EXTERNAL to new &key + argument :EXTERNAL-ONLY, clarifying docstring. + + (fuzzy-find-matching-packages): Making its return value + conformant to that of FUZZY-FIND-MATCHING-SYMBOLS, i.e. + instead of returning, among others, a package's name as + string, it now returns a symbol representing the package. + Accomodates the docstring accordingly. + + (fuzzy-completion-set): Minor typographical fix in docstring. + Changing local function CONVERT to use MAP-INTO instead of + doing it essentially manually. Accomodating to changes of + FUZZY-FIND-MATCHING-SYMBOLS, resp. -PACKAGES. + + (fuzzy-completion-set): Additional new feature: + The returned completions are sorted alphabetically by the + matched completion string before sorted by its score. + Affects especially the list of all possible completions when + the user hits fuzzy-completion on an empty string within Emacs; + also makes the potential limitness of the listed completions + clearer to the end user of SLIME. + + (classify-symbol): New function. Returns a list with keywords + that classifies a given symbol. (E.g. :BOUNDP, :MACRO &c) + Supersedes parts of CONVERT-FUZZY-COMPLETION-RESULT, + implementing them in a more straightforward and proper way; + removes prior KLUDGE in that part of the original function. + + (convert-fuzzy-completion-result): The above changes made + it possible to simplify this function drastically. Now uses + the newly introduced function CLASSIFY-SYMBOL. + + * slime.el: Minor stylistic changes. Additionally: + (slime-fuzzy-insert-completion-choice): + (slime-fuzzy-fill-completions-buffer) : Adding use of the + :PACKAGE classification flag returned by SWANK:FUZZY-COMPLETIONS. + This flag is called "p". + + 2007-02-26 Nikodemus Siivola <nikodemus(a)random-state.net> * swank.lisp (inspect-for-emacs): Add support for inspecting Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.766 diff -u -r1.766 slime.el --- slime.el 25 Feb 2007 15:59:34 -0000 1.766 +++ slime.el 26 Feb 2007 19:58:57 -0000 @@ -6412,7 +6412,7 @@ (slime-fuzzy-done)) (goto-char end) (cond ((= (length completion-set) 1) - (insert-and-inherit (caar completion-set)) + (insert-and-inherit (caar completion-set)) ; insert completed string (delete-region beg end) (goto-char (+ beg (length (caar completion-set)))) (slime-minibuffer-respecting-message "Sole completion") @@ -6430,7 +6430,7 @@ "Click <mouse-2> on a completion to select it. In this buffer, type n and p to navigate between completions. Type RET to select the completion near point. Type q to abort. -Flags: boundp fboundp generic-function class macro special-operator +Flags: boundp fboundp generic-function class macro special-operator package \n" "The explanation that gets inserted at the beginning of the *Fuzzy Completions* buffer.") @@ -6440,11 +6440,11 @@ completion choice into the current buffer, and mark it with the proper text properties." (let ((start (point)) - (symbol (first completion)) + (symbol-name (first completion)) (score (second completion)) (chunks (third completion)) (flags (fourth completion))) - (insert symbol) + (insert symbol-name) (let ((end (point))) (dolist (chunk chunks) (put-text-property (+ start (first chunk)) @@ -6454,13 +6454,14 @@ (put-text-property start (point) 'mouse-face 'highlight) (dotimes (i (- max-length (- end start))) (insert " ")) - (insert (format " %s%s%s%s%s%s %8.2f" + (insert (format " %s%s%s%s%s%s%s %8.2f" (if (member :boundp flags) "b" "-") (if (member :fboundp flags) "f" "-") (if (member :generic-function flags) "g" "-") (if (member :class flags) "c" "-") (if (member :macro flags) "m" "-") (if (member :special-operator flags) "s" "-") + (if (member :package flags) "p" "-") score)) (insert "\n") (put-text-property start (point) 'completion completion)))) @@ -6522,9 +6523,12 @@ (setf max-length (max max-length (length (first completion))))) (insert "Completion:") (dotimes (i (- max-length 10)) (insert " ")) - (insert "Flags: Score:\n") + ;; Flags: Score: + ;; ... ------- -------- + ;; bfgcmsp + (insert "Flags: Score:\n") (dotimes (i max-length) (insert "-")) - (insert " ------ --------\n") + (insert " ------- --------\n") (setq slime-fuzzy-first (point)) (dolist (completion completions) (slime-fuzzy-insert-completion-choice completion max-length)) Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.460 diff -u -r1.460 swank.lisp --- swank.lisp 26 Feb 2007 09:56:06 -0000 1.460 +++ swank.lisp 26 Feb 2007 19:58:57 -0000 @@ -3455,6 +3455,9 @@ ;;;; Fuzzy completion +;;; For nomenclature of the fuzzy completion section, please read +;;; through the following docstring. + (defslimefun fuzzy-completions (string default-package-name &key limit time-limit-in-msec) "Return an (optionally limited to LIMIT best results) list of fuzzy completions for a symbol designator STRING. The list will @@ -3463,13 +3466,17 @@ The result is a list of completion objects, where a completion object is: (COMPLETED-STRING SCORE (&rest CHUNKS) FLAGS) -where a CHUNK is a description of a matched string of characters: - (OFFSET STRING) -and FLAGS is a list of keywords describing properties of the symbol. -For example, the top result for completing \"mvb\" in a package -that uses COMMON-LISP would be something like: - (\"multiple-value-bind\" 42.391666 ((0 \"mul\") (9 \"v\") (15 \"b\")) +where a CHUNK is a description of a matched substring: + (OFFSET SUBSTRING) +and FLAGS is a list of keywords describing properties of the +symbol (see CLASSIFY-SYMBOL). + +E.g., completing \"mvb\" in a package that uses COMMON-LISP would +return something like: + + ((\"multiple-value-bind\" 26.588236 ((0 \"m\") (9 \"v\") (15 \"b\")) (:FBOUNDP :MACRO)) + ...) If STRING is package qualified the result list will also be qualified. If string is non-qualified the result strings are @@ -3489,57 +3496,50 @@ :limit limit :time-limit-in-msec time-limit-in-msec) 'list)) -(defun convert-fuzzy-completion-result (result converter + +(defun convert-fuzzy-completion-result (fuzzy-matching converter internal-p package-name) "Converts a result from the fuzzy completion core into something that emacs is expecting. Converts symbols to strings, fixes case issues, and adds information describing if the symbol is :bound, :fbound, a :class, a :macro, a :generic-function, a :special-operator, or a :package." - (destructuring-bind (symbol-or-name score chunks) result + (destructuring-bind (symbol score chunks) fuzzy-matching (multiple-value-bind (name added-length) (format-completion-result - (if converter - (funcall converter - (if (symbolp symbol-or-name) - (symbol-name symbol-or-name) - symbol-or-name)) - symbol-or-name) - internal-p package-name) - (list name score - (mapcar - #'(lambda (chunk) - ;; fix up chunk positions to account for possible - ;; added package identifier - (list (+ added-length (first chunk)) - (second chunk))) - chunks) - (loop for flag in '(:boundp :fboundp :generic-function - :class :macro :special-operator - :package) - if (if (symbolp symbol-or-name) - (case flag - (:boundp (boundp symbol-or-name)) - (:fboundp (fboundp symbol-or-name)) - (:class (find-class symbol-or-name nil)) - (:macro (macro-function symbol-or-name)) - (:special-operator - (special-operator-p symbol-or-name)) - (:generic-function - (typep (ignore-errors (fdefinition symbol-or-name)) - 'generic-function))) - (case flag - (:package (stringp symbol-or-name) - ;; KLUDGE: depends on internal - ;; knowledge that packages are - ;; brought up from the bowels of - ;; the completion algorithm as - ;; strings! - ))) - collect flag))))) + (funcall (or converter #'identity) (symbol-name symbol)) + internal-p package-name) + (list name + score + (mapcar #'(lambda (chunk) + ;; fix up chunk positions to account for possible + ;; added package identifier + (list (+ added-length (first chunk)) + (second chunk))) + chunks) + (classify-symbol symbol))))) + +(defun classify-symbol (symbol) + "Returns a list of classifiers that classify SYMBOL according +to its underneath objects (e.g. :BOUNDP if SYMBOL constitutes a +special variable.) The list may contain the following classification +keywords: :BOUNDP, :FBOUNDP, :GENERIC-FUNCTION, :CLASS, :MACRO, +:SPECIAL-OPERATOR, and/or :PACKAGE" + (check-type symbol symbol) + (let (result) + (when (boundp symbol) (push :boundp result)) + (when (fboundp symbol) (push :fboundp result)) + (when (find-class symbol nil) (push :class result)) + (when (macro-function symbol) (push :macro result)) + (when (special-operator-p symbol) (push :special-operator result)) + (when (find-package symbol) (push :package result)) + (when (typep (ignore-errors (fdefinition symbol)) + 'generic-function) + (push :generic-function result)) + result)) (defun fuzzy-completion-set (string default-package-name &key limit time-limit-in-msec) - "Prepares list of completion obajects, sorted by SCORE, of fuzzy + "Prepares list of completion objects, sorted by SCORE, of fuzzy completions of STRING in DEFAULT-PACKAGE-NAME. If LIMIT is set, only the top LIMIT results will be returned." (declare (type (or null (integer 0 #.(1- most-positive-fixnum))) limit time-limit-in-msec)) @@ -3547,23 +3547,28 @@ (parse-completion-arguments string default-package-name) (flet ((convert (vector &optional converter) (when vector - (loop for idx below (length vector) - for el = (aref vector idx) - do (setf (aref vector idx) (convert-fuzzy-completion-result - el converter internal-p package-name)))))) + (map-into vector + #'(lambda (fuzzy-matching) + (convert-fuzzy-completion-result fuzzy-matching converter + internal-p package-name)) + vector)))) (let* ((symbols (and package - (fuzzy-find-matching-symbols name - package - (and (not internal-p) - package-name) + (fuzzy-find-matching-symbols name package :time-limit-in-msec time-limit-in-msec - :return-converted-p nil))) - (packs (and (not package-name) + :external-only (and (not internal-p) + package-name)))) + (packages (and (not package-name) (fuzzy-find-matching-packages name))) (results)) - (convert symbols (completion-output-symbol-converter string)) - (convert packs) - (setf results (sort (concatenate 'vector symbols packs) #'> :key #'second)) + (convert symbols (completion-output-symbol-converter string)) + (convert packages #'(lambda (package-name) + (let ((converter (completion-output-package-converter string))) + ;; Present packages with a trailing colon for maximum convenience! + (concatenate 'string (funcall converter package-name) ":")))) + ;; Sort alphabetically before sorting by score. (Especially useful when + ;; STRING is empty, and SYMBOLS is a list of all possible completions.) + (setf results (sort (concatenate 'vector symbols packages) #'string-lessp :key #'first)) + (setf results (stable-sort results #'> :key #'second)) (when (and limit (> limit 0) (< limit (length results))) @@ -3572,59 +3577,62 @@ (setf results (make-array limit :displaced-to results)))) results)))) -(defun fuzzy-find-matching-symbols (string package external &key time-limit-in-msec return-converted-p) - "Return a list of symbols in PACKAGE matching STRING using the -fuzzy completion algorithm. If EXTERNAL is true, only external -symbols are returned." +(defun fuzzy-find-matching-symbols (string package &key external-only time-limit-in-msec) + "Returns a vector of fuzzy matchings (that is a list of the symbol in +PACKAGE that's matching STRING, its score, and a list of its completion +chunks), using the fuzzy completion algorithm. If EXTERNAL-ONLY is true, +only external symbols are considered." (let ((completions (make-array 256 :adjustable t :fill-pointer 0)) + (converter (completion-output-symbol-converter string)) (time-limit (if time-limit-in-msec (ceiling (/ time-limit-in-msec 1000)) 0)) (utime-at-start (get-universal-time)) - (count 0) - (converter (completion-output-symbol-converter string))) - (declare (type (integer 0 #.(1- most-positive-fixnum)) count time-limit) - (type function converter)) - (flet ((symbol-match (symbol converted) - (and (or (not external) - (symbol-external-p symbol package)) - (compute-highest-scoring-completion - string converted)))) - (block loop - (do-symbols* (symbol package) - (incf count) - (when (and (not (zerop time-limit)) - (zerop (mod count 256)) ; ease up on calling get-universal-time like crazy - (>= (- (get-universal-time) utime-at-start) time-limit)) - (return-from loop)) - (let* ((converted (funcall converter (symbol-name symbol))) - (result (if return-converted-p converted symbol))) - (if (string= "" string) - (when (or (and external (symbol-external-p symbol package)) - (not external)) - (vector-push-extend (list result 0.0 (list (list 0 ""))) completions)) - (multiple-value-bind (match-result score) (symbol-match symbol converted) - (when match-result - (vector-push-extend (list result score match-result) completions))))))) - completions))) + (count 0)) + (declare (type (integer 0 #.(1- most-positive-fixnum)) count time-limit)) + (declare (type function converter)) + (flet ((time-exhausted-p () + (and (not (zerop time-limit)) + (zerop (mod count 256)) ; ease up on calling get-universal-time like crazy + (incf count) + (>= (- (get-universal-time) utime-at-start) time-limit))) + (perform-fuzzy-match (string symbol-name) + (let ((converted-symbol-name (funcall converter symbol-name))) + (compute-highest-scoring-completion string converted-symbol-name)))) + (prog1 completions + (block loop + (do-symbols* (symbol package) + (when (time-exhausted-p) (return-from loop)) + (when (or (not external-only) (symbol-external-p symbol package)) + (if (string= "" string) + (vector-push-extend (list symbol 0.0 (list (list 0 ""))) completions) + (multiple-value-bind (match-result score) + (perform-fuzzy-match string (symbol-name symbol)) + (when match-result + (vector-push-extend (list symbol score match-result) completions))))))))))) (defun fuzzy-find-matching-packages (name) - "Return a list of package names matching NAME using the fuzzy -completion algorithm." + "Returns a vector of relevant fuzzy matchings (that is a list +consisting of a symbol representing the package that matches NAME, +its score, and its completions chunks.)" (let ((converter (completion-output-package-converter name)) (completions (make-array 32 :adjustable t :fill-pointer 0))) (declare ;;(optimize (speed 3)) (type function converter)) (loop for package in (list-all-packages) - for package-name = (concatenate 'string - (funcall converter - (package-name package)) - ":") - for (result score) = (multiple-value-list + for package-name = (package-name package) + for converted-name = (funcall converter package-name) + for package-symbol = (or (find-symbol package-name) + (make-symbol package-name)) ; INTERN'd be + for (result score) = (multiple-value-list ; too invasive. (compute-highest-scoring-completion - name package-name)) + name converted-name)) + ;; We return a symbol that represents the package, a) to make + ;; the type of the returned value consistent with the one of + ;; FUZZY-FIND-MATCHING-SYMBOLS, and b) to be able to call + ;; CLASSIFY-SYMBOL upon it later on. when result do - (vector-push-extend (list package-name score result) completions)) + (vector-push-extend (list package-symbol score result) completions)) completions)) (defslimefun fuzzy-completion-selected (original-string completion) @@ -3657,7 +3665,7 @@ "Finds the highest scoring way to complete the abbreviation SHORT onto the string FULL, using CHAR= as a equality function for letters. Returns two values: The first being the completion -chunks of the high scorer, and the second being the score." +chunks of the highest scorer, and the second being the score." (let* ((scored-results (mapcar #'(lambda (result) (cons (score-completion result short full) result))

4 8

[slime-devel] (no subject)
by Michael Weber 06 Apr '07

06 Apr '07

Hi, attached is a tiny patch which inserts balanced parentheses for slime- call-defun (C-c C-y), to make it play better with paredit. Cheers, Michael

2 1

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 27 Feb '07

27 Feb '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1075 slime/ChangeLog:1.1076 --- slime/ChangeLog:1.1075 Sun Feb 25 13:22:42 2007 +++ slime/ChangeLog Mon Feb 26 04:56:06 2007 @@ -1,3 +1,8 @@ +2007-02-26 Nikodemus Siivola <nikodemus(a)random-state.net> + + * swank.lisp (inspect-for-emacs): Add support for inspecting + non-decodable float entities like NaNs and infinities. + 2007-02-25 Tobias C. Rittweiler <tcr(a)freebits.de> * swank-backend.lisp (inspect-for-emacs): Remove reference to

1 0

[slime-devel] Really an emacs question : forward/backward sexp
by Gary King 27 Feb '07

27 Feb '07

My apologies since this may be the wrong list... but my emacs foo is very weak... In GNU Emacs [1] with slime, I can move forwards and backwards an sexp using C M left-arrow and C M right-arrow. In Aquamacs Emacs, these keys are bound to resizing the window. How can I: * change the key-bindings * determine what to change them to (if possible, please teach me how to fish so I don't have to bother anyone with silly questions like this in the future...) [1] I have version: 22.0.50.1 (powerpc-apple-darwin8.2.0) of 2005-09-30 on smedja.local thanks, -- Gary Warren King, metabang.com Cell: (413) 885 9127 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM

3 3

[slime-devel] Bug: mouse-1 doesn't select choices
by David Reitter 27 Feb '07

27 Feb '07

During an exception, I get a menu with different restart options. Hovering with the mouse over these options, they change their background color, suggesting that they are clickable links. However, mouse-1 doesn't do anything. I've got `mouse-1-click-follows-link' set to 450 (Aquamacs), so I expect to be able to click on these links with the [left or only] mouse button. This is Slime 2.0 on a CVS Aquamacs Emacs. Thanks David

2 3

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 26 Feb '07

26 Feb '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1072 slime/ChangeLog:1.1075 --- slime/ChangeLog:1.1072 Thu Feb 22 09:10:06 2007 +++ slime/ChangeLog Sun Feb 25 13:22:42 2007 @@ -1,3 +1,25 @@ +2007-02-25 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank-backend.lisp (inspect-for-emacs): Remove reference to + inexistent argument from docstring. + +2007-02-25 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-delete-swank-port-file): Don't use + display-warning; that's not available everywhere. + (slime-repl-update-banner): Insert the date only if the buffer is + empty. + (slime-list-compiler-notes): Fetch the notes only if called + interactively. + (slime-set-query-on-exit-flag): New function, to avoid compiler + warnings about obsolete function process-kill-without-query. + (slime-defun-if-undefined): Perform the test at runtime not at + compile time. Reported by Lennart Staflin. + + * swank.lisp (guess-package): Renamed from + guess-package-from-string. + (set-package): Use it. + 2007-02-22 Juho Snellman <jsnell(a)iki.fi> * slime.el (slime-start-lisp): Don't cd if no directory was specified.

1 0

[slime-devel] Installation question
by Ian Larsen 26 Feb '07

26 Feb '07

I'm having trouble getting slime working properly under FreeBSD 6.1 and emacs. Using either clisp or sbcl, slime compiles and loads properly, I get a slime repl which works fine. Lisp files load in slime mode, as expected, but evaluation seems to take place in elisp, instead of the loaded clisp or sbcl environment. For example, evaluating global-font-lock-mode with C-x C-e returns t. In the slime repl buffer, the same results in an undefined symbol, as expected. Is there something I'm missing that would connect the lisp program buffer to the correct Lisp? The following is from my .emacs file: (add-to-list 'load-path "~/slime/slime") (setq inferior-lisp-program "/usr/local/bin/sbcl") (require 'slime) (slime-setup) Thanks, Ian

4 5

[slime-devel] How to comment/uncomment multiple lines using Xemacs+slime?
by Lei Tang 25 Feb '07

25 Feb '07

Hi, I use Xemacs+slime to edit lisp files. I want to comment multiple lines to debug different part of the lisp file. Is there any shortcut (or function) to comment/uncomment a selected region(multiple lines) in a lisp file? Thanks a lot! -Lei

2 2

[slime-devel] defclass form indentation
by Zach Beane 24 Feb '07

24 Feb '07

I've run into some problems with indentation for defclass forms. Here's an example: (defclass field () ((name :initarg :name :accessor name) (default-value :initarg :default-value :accessor default-value)) (:default-initargs :name nil :default-value nil)) This seems to be caused by the sexp starting with symbols that start with the letters "def"; I don't have a problem if the slot is named "dfault-value", for example. I'm using the bundled cl-indent from: GNU Emacs 21.4.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 2006-09-15 on rothera, modified by Debian How can I get the indentation to align properly? Zach

3 3

[slime-devel] Font locking in the macroexpansion buffer
by Ariel Badichi 23 Feb '07

23 Feb '07

Hello, When macroexpanding to a buffer, I had the same problem as the one described in the following message (I use Emacs 21.3.1): http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/94879 The workaround proposed there seems to do the trick. (The function to modify is `slime-eval-macroexpand'.) Ariel

2 3

RE: [slime-devel] Re: Appeal from luserland
by Bradford W Miller 23 Feb '07

23 Feb '07

I suspect the difference expected between downloading what happens to be in the CVS and a formal version number is the quality and quantity of testing. Automated regression tests, for instance, if they don't already exist, would make sense for version releases that perhaps are a bit heavyweight for every check in (though the more automated it is, the less painful it would be). Brad Miller -----Original Message----- From: slime-devel-bounces(a)common-lisp.net [mailto:slime-devel-bounces@common-lisp.net] On Behalf Of mb(a)bese.it Sent: Friday, February 23, 2007 1:27 PM To: slime-devel(a)common-lisp.net Subject: [slime-devel] Re: Appeal from luserland Fred Gilham <gilham(a)csl.sri.com> writes: > As a long time Slime fan, I am wondering if it would be possible to get > the slime developers to start making releases? Right now the operating > model seems to be to grab the head of CVS and go with that, but I'm > never sure if such grabbing will create problems for me. Even more, > slime is now a component of McCLIM and (I think) other software packages > that I've been using. It would be nice if people could say, "McCLIM > requires Slime 4.7". who's to say upgrading from version 2.0 to 2.1 (or whatever) wouldn't create problems for you? i'm not trying to be a smart ass here, i'm just saying that it'd be no less painful to update from one version to another than it is to do a cvs up every now and then. that said if some one has the time to test and package slime i have nothing against putting up said tarballs on the web page (though there will always be the note that if you run into problems with those tarballs the first thing to be will be to grab cvs and see if the problem remains). -- -Marco Ring the bells that still can ring. Forget your perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen _______________________________________________ slime-devel site list slime-devel(a)common-lisp.net http://common-lisp.net/mailman/listinfo/slime-devel

1 0

[slime-devel] Appeal from luserland
by Fred Gilham 23 Feb '07

23 Feb '07

As a long time Slime fan, I am wondering if it would be possible to get the slime developers to start making releases? Right now the operating model seems to be to grab the head of CVS and go with that, but I'm never sure if such grabbing will create problems for me. Even more, slime is now a component of McCLIM and (I think) other software packages that I've been using. It would be nice if people could say, "McCLIM requires Slime 4.7". I have to admit that in my old age I'm becoming less and less of a hacker and more and more of a user.... :-) or maybe :-( -- Fred Gilham gilham(a)csl.sri.com linus doesnt have what they call a GUI which means that you cant use a mouse and click on things you have to type in words in a different language probably finnish I dont know but it wont work unless you speak at least 10 different languages and one of those languages has to be a slavic language and you have a phd in 10 different languages and also can do math real real good - From geraldholmes.freeyellow.com

5 4

[slime-devel] small patch
by kroegerlistas＠pedrokroeger.net 23 Feb '07

23 Feb '07

Hi, the attached patch fixes a couple of small things: - expand-file-name in slime-start-lisp gives an error if directory is nill. I changed it to use default-directory if it's nill - update the places where slime-start-lisp is called since it has 4 arguments now. this is my first patch to slime, please be nice ;-) Pedro Kroger

4 3

[slime-devel] Slime broken for me with last patch to slime.el
by Johan Ur Riise 23 Feb '07

23 Feb '07

Sorry if this is a dupe, I just joined the list. It seems I now have to evaluate (setq slime-lisp-implementations '((sbcl ("/usr/local/bin/sbcl" "--dynamic-space-size 1000") :directory "~/prg"))) to be able to start slime. This is probably non-sensical, but anyway, it works. Is the directory supposed to be the directory of the current buffer, and is slime supposed to find it out by itself? -- Hilsen Johan Ur Riise

2 1

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 23 Feb '07

23 Feb '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1070 slime/ChangeLog:1.1072 --- slime/ChangeLog:1.1070 Wed Feb 21 07:06:46 2007 +++ slime/ChangeLog Thu Feb 22 09:10:06 2007 @@ -1,3 +1,10 @@ +2007-02-22 Juho Snellman <jsnell(a)iki.fi> + + * slime.el (slime-start-lisp): Don't cd if no directory was specified. + (slime-maybe-start-lisp): Pass directory argument to slime-start-lisp + also in other cond branch. + (slime-restart-sentinel): Pass a NIL directory to slime-start-lisp. + 2007-02-21 Marco Baringer <mb(a)bese.it> * slime.el (slime-start): Added :directory argument and pass it to

1 0

[slime-devel] Two more small patches
by Harald Hanche-Olsen 22 Feb '07

22 Feb '07

While we're on the subject of small patches, I have two files in my slime directory giving me an "M" whenever I update from cvs. Both were reported to the list, and both were ignored (or just forgotten perhaps), so I'll try again: The first is for slime.el (function slime-init-keymaps), and is needed for the development version of emacs. The problem seems to be that keys with modifiers can produce bigger numbers that will fit into the slots of a string, so one needs to use a vector instead. Replacing string with vector seems harmless on earlier emacsen (but I haven't tested it on xemacs). The second is for swank.lisp (function set-package), and fixes the name returned to obey the case conventions of the user. (Not blaming anybody for ignoring these: I suspect they just fell through the cracks of a busy schedule.) - Harald Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.764 diff -u -r1.764 slime.el --- slime.el 22 Feb 2007 14:10:06 -0000 1.764 +++ slime.el 22 Feb 2007 20:04:24 -0000 @@ -786,7 +786,7 @@ (loop for (key command) in slime-doc-bindings do (progn ;; We bind both unmodified and with control. - (define-key slime-doc-map (string key) command) + (define-key slime-doc-map (vector key) command) (unless (equal key ?h) ; But don't bind C-h (let ((modified (slime-control-modified-char key))) (define-key slime-doc-map (vector modified) command))))) @@ -797,7 +797,7 @@ (loop for (key command) in slime-who-bindings do (progn ;; We bind both unmodified and with control. - (define-key slime-who-map (string key) command) + (define-key slime-who-map (vector key) command) (let ((modified (slime-control-modified-char key))) (define-key slime-who-map (vector modified) command)))) ;; C-c C-w is the prefix for the who-xref map. Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.458 diff -u -r1.458 swank.lisp --- swank.lisp 24 Jan 2007 22:54:08 -0000 1.458 +++ swank.lisp 22 Feb 2007 20:04:27 -0000 @@ -2669,7 +2669,7 @@ Return its name and the string to use in the prompt." (let ((p (parse-package package))) (setq *package* p) - (list (package-name p) (package-string-for-prompt p)))) + (list (unparse-name (package-name p)) (package-string-for-prompt p)))) (defun send-repl-results-to-emacs (values) (flet ((send (value)

1 1

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 22 Feb '07

22 Feb '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1068 slime/ChangeLog:1.1070 --- slime/ChangeLog:1.1068 Sat Feb 17 13:17:41 2007 +++ slime/ChangeLog Wed Feb 21 07:06:46 2007 @@ -1,3 +1,12 @@ +2007-02-21 Marco Baringer <mb(a)bese.it> + + * slime.el (slime-start): Added :directory argument and pass it to + slime-maybe-start-lisp. + (slime-maybe-start-lisp): Added directory argument and pass it to + slime-start-lisp (but not slime-reinitialize-inferior-lisp-p) + (slime-start-lisp): Added directory argument. Used to set buffer's + directory before starting the inferior lisp. + 2007-02-17 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * slime.el (slime-find-tag-if-tags-table-visited): New function. @@ -29,7 +38,7 @@ 2007-02-02 Marco Baringer <mb(a)bese.it> - Warn, as oposed to bailing out with an error, when deleting the + Warn, as opposed to bailing out with an error, when deleting the port file fails. Patch by: Samium Gromoff <_deepfire(a)feelingofgreen.ru>

1 0

Re: [slime-devel] Daily ChangeLog diff - NO MORE SLIME STARTUP ANIMATION!!
by Bill Clementson 20 Feb '07

20 Feb '07

On 1/30/07, Marco Baringer <mbaringer(a)common-lisp.net> wrote: > Index: slime/ChangeLog > diff -u slime/ChangeLog:1.1059 slime/ChangeLog:1.1061 > --- slime/ChangeLog:1.1059 Mon Jan 29 18:43:17 2007 > +++ slime/ChangeLog Tue Jan 30 17:23:39 2007 > @@ -1,3 +1,14 @@ > +2007-01-30 Helmut Eller <heller(a)common-lisp.net> > + > + * slime.el (slime-complete-symbol-function): Restore old default. > + (set-keymap-parents): Deleted. > + (slime-startup-animation): Deleted. What, the slime startup animation has been removed? First appendices are added to the manual, now the startup animation goes. Are we to retain no traditions? :-( -- Bill

14 16

[slime-devel] Re: ASDF-Binary-Locations and SLIME's source information
by Gary King 19 Feb '07

19 Feb '07

Hi Edgar, I know Clisp hardly at all but most lisps have a non-portable facility to save cross reference information (here, for example, is the documentation on Allegro's http://www.allegrocache.net/support/ documentation/6.1/doc/cross-reference.htm). SLIME uses this to work with who-calls, callers, etc. I'm not sure, but I think it also uses it for meta-point (anyone else care to comment?) In any case, I think that this might help in tracking down the problem. The location of the fasl's really shouldn't matter (at least, it shouldn't need to matter). HTH, On Feb 16, 2007, at 2:01 PM, Edgar Gonçalves wrote: > On 2/16/07, Gary King <gwking(a)metabang.com> wrote: >> Hi Edgar, >> >> I've not noticed this behavior but will look into it later today. I'm >> also forwarding your question to the SLIME list. BTW, what Lisp are >> you using? > > Clisp v. 2.41 (2006-10-13), with readline support > > Thanks! > > -- > Edgar Gonçalves > Instituto Superior Técnico, > INESC-ID - Software Engineering Group, > Portugal -- Gary Warren King, metabang.com Cell: (413) 885 9127 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM

1 0

[slime-devel] Repeatable SLIME crash
by Jonathon McKitrick 18 Feb '07

18 Feb '07

I finally put together a test case: http://paste.lisp.org/display/37027 http://paste.lisp.org/display/37029 Details on how to reproduce the crash are in the annotations for the first paste. -- Jonathon McKitrick jmckitrick(a)reedlarkeygroup.com

1 0

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 18 Feb '07

18 Feb '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1067 slime/ChangeLog:1.1068 --- slime/ChangeLog:1.1067 Mon Feb 5 11:25:46 2007 +++ slime/ChangeLog Sat Feb 17 13:17:41 2007 @@ -1,3 +1,9 @@ +2007-02-17 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * slime.el (slime-find-tag-if-tags-table-visited): New function. + (slime-edit-definition-fallback-function): Offer it as a value + for customization. + 2007-02-05 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * slime.el (sldb-insert-locals): Repair presentation markup of

1 0