March 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] Error handling missed in favor of next swank request
by Samium Gromoff 08 Apr '07

08 Apr '07

What i see here looks like a swank request which results in a lisp error signalled, does not cause entrance into the debugger in the context of that request, but rather causes a next request to be served, for some obscure reason. the .emacs snippet i invoke looks like that: (defun foo () (interactive) (slime-start :program "sbcl" :init-function (lambda () (cd "/some/where/") (slime-load-file "package.lisp") (slime-repl-set-package ":lispdb")))) I.e, we're talking about two swank requests here -- load-file, and then, once that completes, repl-set-package. when i run it, the following might or might not happen, due to circumstances i still did not have figured out: (note that the error appearing in frame 11 is expected -- it is not that error which is the problem -- the problem is that swank silently skips processing that request, and goes on with the next one (which causes another error)) The assertion (PACKAGEP SWANK::P) failed. [Condition of type SIMPLE-ERROR] Restarts: 0: [CONTINUE] Retry assertion. 1: [ABORT] Return to sldb level 1. 2: [ABORT] Return to SLIME's top level. 3: [ABORT] Exit debugger, returning to top level. Backtrace: 0: (SB-KERNEL:ASSERT-ERROR (PACKAGEP SWANK::P) NIL NIL) 1: (SWANK:SET-PACKAGE ":lispdb") 2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:SET-PACKAGE ":lispdb") #<NULL-LEXENV>) 3: ((LAMBDA ())) 4: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {A6AD52D}>) 5: (SWANK::SLDB-LOOP 1) 6: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) (*PRINT-PPRINT-DISPATCH* . #<SB-PRETTY:PPRINT-DISPATCH-TABLE {A7B9999}>) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #<FUNCTION (LAMBDA #) {ADFC5A5}>) 7: ((LAMBDA (SWANK-BACKEND::DEBUGGER-LOOP-FN)) #<FUNCTION (LAMBDA #) {ADFC555}>) 8: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR {B2EBAC9}>) 9: (INVOKE-DEBUGGER #<SIMPLE-ERROR {B2EBAC9}>) 10: (INVOKE-DEBUGGER #<SIMPLE-ERROR {B2EBAC9}>) 11: (ERROR "ASDF_ROOT is not set: where are the ASDF modules to be found?") 12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ERROR "ASDF_ROOT is not set: where are the ASDF modules to be found?") #<NULL-LEXENV>) 13: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN NIL (ERROR "ASDF_ROOT is not set: where are the ASDF modules to be found?")) #<NULL-LEXENV>) 14: (SB-INT:SIMPLE-EVAL-IN-LEXENV (UNLESS *ASDFROOT* (ERROR "ASDF_ROOT is not set: where are the ASDF modules to be found?")) #<NULL-LEXENV>) 15: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /home/deepfire/source/lispdb/package.lisp" {B2E98A1}> NIL NIL) 16: (SB-FASL::INTERNAL-LOAD #P"/home/deepfire/source/lispdb/package.lisp" #P"/home/deepfire/source/lispdb/package.lisp" :ERROR NIL NIL :SOURCE :DEFAULT) 17: (SB-FASL::INTERNAL-LOAD #P"/home/deepfire/source/lispdb/package.lisp" #P"/home/deepfire/source/lispdb/package.lisp" :ERROR NIL NIL NIL :DEFAULT) 18: (LOAD "/home/deepfire/source/lispdb/package.lisp") 19: (SWANK:LOAD-FILE "/home/deepfire/source/lispdb/package.lisp") SLIME is about two weeks old, or so. regards, Samium Gromoff

2 1

[slime-devel] [PATCH] remove CLISP's infamous ABORT restart from SLDB's restart list
by Luis Oliveira 08 Apr '07

08 Apr '07

Hello, I usually type 'a' when I want to pick the "Return to SLIME's top level." restart. On the rare occasions I use CLISP, it annoys me a lot that 'a' picks CLISP's ABORT request which returns to the REPL and kills SWANK. The attached patch should fix that. -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

2 1

[slime-devel] small patch for more mouse-face highlighting in Backtrace
by Neil Van Dyke 06 Apr '07

06 Apr '07

Hi. This is one small bit of user interface feedback that I really like to have in the Backtrace. Thanks, Neil cvs diff -u ChangeLog slime.el 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 1 Mar 2007 09:17:08 -0000 @@ -1,3 +1,10 @@ +2007-03-01 Neil Van Dyke <neil(a)neilvandyke.org> + + * slime.el (sldb-insert-frame): Added mouse-face to frame label + and expression in Backtrace. + (sldb-insert-frames): Added mouse-face to "--more--" label in + Backtrace. + 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 1 Mar 2007 09:17:19 -0000 @@ -8303,7 +8303,8 @@ sldb-previous-frame-number ,num point-entered sldb-fetch-more-frames start-open t - face sldb-section-face) + face sldb-section-face + mouse-face highlight) " --more--") (insert "\n")))) @@ -8313,10 +8314,11 @@ (destructuring-bind (number string) frame (let ((props `(frame ,frame sldb-default-action sldb-toggle-details))) (slime-propertize-region props - (insert " " (in-sldb-face frame-label (format "%2d:" number)) " ") - (slime-insert-possibly-as-rectangle - (slime-add-face (or face 'sldb-frame-line-face) - string)) + (slime-propertize-region '(mouse-face highlight) + (insert " " (in-sldb-face frame-label (format "%2d:" number)) " ") + (slime-insert-possibly-as-rectangle + (slime-add-face (or face 'sldb-frame-line-face) + string))) (insert "\n"))))) (defun sldb-fetch-more-frames (&rest ignore)

2 1

[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] starting slime
by David Fisher 31 Mar '07

31 Mar '07

Hi i am trying to install slime and am having problems specified below (seems to be in swank-loader.lisp and accessing a file it has created ?). I am using emacs 22.0.96.1 , slime from the cvs snapshot on the project page and clisp 2.41 on windowsxp. Any help would be greatly appreciated. David Fisher from *messages* (C:\bin\emacs-22.0\bin\emacs.exe) Loading encoded-kb...done Loading cl-macs...done Loading cl-seq...done Loading easy-mmode...done Loading edmacro...done Loading derived...done Loading byte-opt...done Loading cl-extra...done For information about the GNU Project and its goals, type C-h C-p. [2 times] Polling "c:/DOCUME~1/DAVID~2.DF-/LOCALS~1/Temp/slime.3412".. (Abort with `M-x slime-abort-connection'.) [158 times] from *inferior lisp* (load "c:/home/site/slime/swank-loader.lisp" :verbose t) (swank:start-server "c:/DOCUME~1/DAVID~2.DF-/LOCALS~1/Temp/slime.3412" :external-format :iso-latin-1-unix) module 'syscalls' requires package OS. Process inferior-lisp exited abnormally with code 1 my .emacs file (add-to-list 'load-path "c:/home/site/slime") (require 'slime) (add-hook 'lisp-mode-hook (lambda () (slime-mode t))) (add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t))) ;; Optionally, specify the lisp program you are using. Default is "lisp" (setq inferior-lisp-program "c:/bin/clisp-2.41/full/lisp.exe")

3 2

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

30 Mar '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1086 slime/ChangeLog:1.1088 --- slime/ChangeLog:1.1086 Sat Mar 24 19:10:50 2007 +++ slime/ChangeLog Thu Mar 29 12:12:38 2007 @@ -1,3 +1,17 @@ +2007-03-29 Nikodemus Siivola <nikodemus(a)random-state.net> + + * swank-sbcl.lisp (swank-compile-string): save the original + directory into the source plist as :emacs-directory. + (make-definition-source-location): use the :emacs-directory from + the source plist and guess-readtable-for-filename to determine the + correct readtable for string-compiled definitions. + +2007-03-29 Nikodemus Siivola <nikodemus(a)random-state.net> + + * swank.lisp (*macroexpand-printer-bindings*): add *print-lines* + to defaults (NIL). + (find-definitions-for-emacs): use unless instead of cond. + 2007-03-25 Douglas Crosher <dcrosher(a)common-lisp.net> * slime.el (with-selected-window): define for compatibility with

1 0

[slime-devel] ILC 2007
by Christian Lynbech 26 Mar '07

26 Mar '07

Are any "slimers" going to the ILC? I was wondering if we should meet up for a kind of a mini-pub-BOF? ------------------------+----------------------------------------------------- Christian Lynbech | christian #\@ defun #\. dk ------------------------+----------------------------------------------------- Hit the philistines three times over the head with the Elisp reference manual. - petonic(a)hal.com (Michael A. Petonic)

2 1

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

25 Mar '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1083 slime/ChangeLog:1.1086 --- slime/ChangeLog:1.1083 Thu Mar 22 08:35:57 2007 +++ slime/ChangeLog Sat Mar 24 19:10:50 2007 @@ -1,3 +1,30 @@ +2007-03-25 Douglas Crosher <dcrosher(a)common-lisp.net> + + * slime.el (with-selected-window): define for compatibility with + Emacs 21. + +2007-03-24 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * swank.lisp (menu-choices-for-presentation): Offer a + "disassemble" menu item for functions. + +2007-03-24 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-read-port-and-connect): Fix race condition: + retry one more time if the port file is empty. Pop up the debugger + on other errors. + (slime-attempt-connection): Moved to toplevel. + (slime-timer-call): New. Used by slime-attempt-connection. + (slime-cancel-connect-retry-timer): New. + (slime-abort-connection): Use it. + (slime-repl-insert-prompt): Use insert-before-markers. This fixes + some redisplay problems, but I don't know why. Also: remove the + timer for async output. + (slime-repl-move-output-mark-before-prompt): Removed. + (slime-repl-save-merged-history): Use with-temp-message. + (slime-goto-location-buffer): Support Zip files. + (sldb-quit): Don't print "Evaluation aborted". + 2007-03-22 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * slime.el (slime-scratch-buffer): Respect the syntax text @@ -55,6 +82,12 @@ * swank-backend.lisp (inspect-for-emacs): Remove reference to inexistent argument from docstring. +2007-02-25 Harald Hanche-Olsen <hanche(a)math.ntnu.no> + + * slime.el (slime-init-keymaps): Use vectors when defining keys, + because e.g. (define-key (string ?\C-c) ...) doesn't work in the + emacs-unicode-2 branch. Some strings are still there. + 2007-02-25 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-delete-swank-port-file): Don't use

1 0

[slime-devel] some minor problems...
by Timofei Shatrov 23 Mar '07

23 Mar '07

I'm using SLIME 2.0 so these may already be fixed, but maybe not. The Lisp is CLISP 2.41. 1. The syntax for complex numbers (like that: #C(1 1)) seems to mess with the feature that displays function arguments in minibuffer. It thinks that #C and (1 1) are actually two different arguments, which is annoying. 2. I wrote a function: (defun fast-orient (start end point) (declare (optimize (speed 3) (safety 0))) (declare (number start end point)) (> (anti-product (- point start) (- end start)) 0)) When I C-c C-c it, SLIME displays the following error: "FORMAT: The control-string must be a string, not WARN" [Condition of type SIMPLE-TYPE-ERROR] Restarts: 0: [ABORT] Abort SLIME compilation. 1: [ABORT-REQUEST] Abort handling SLIME request. 0: #<COMPILED-FUNCTION SWANK-BACKEND::SIGNAL-COMPILER-WARNING> 1: #<COMPILED-FUNCTION SWANK-BACKEND::C-WARN> 2: #<COMPILED-FUNCTION SYSTEM::PARSE-OPTIMIZE-QUALITY> 3: #<COMPILED-FUNCTION SYSTEM::PROCESS-DECLARATIONS> 4: #<COMPILED-FUNCTION SYSTEM::C-LAMBDABODY> 5: #<COMPILED-FUNCTION SYSTEM::C-FUNCTION> 6: #<COMPILED-FUNCTION SYSTEM::C-FORM> 7: #<COMPILED-FUNCTION SYSTEM::C-DIRECT-FUNCTION-CALL> 8: #<COMPILED-FUNCTION SYSTEM::C-GLOBAL-FUNCTION-CALL> 9: #<COMPILED-FUNCTION SYSTEM::C-FORM> 10: #<COMPILED-FUNCTION SYSTEM::C-PROGN> 11: #<COMPILED-FUNCTION SYSTEM::C-FORM> 12: #<COMPILED-FUNCTION SYSTEM::C-LET/LET*> 13: #<COMPILED-FUNCTION #:|2104 2258 (DEFCONSTANT C-FORM-TABLE (LET # # ...))-169-1|> 14: #<COMPILED-FUNCTION SYSTEM::C-FORM> 15: #<COMPILED-FUNCTION SYSTEM::C-FORM> 16: #<COMPILED-FUNCTION SYSTEM::C-PROGN> 17: #<COMPILED-FUNCTION SYSTEM::C-FORM> 18: #<COMPILED-FUNCTION SYSTEM::C-LAMBDABODY> and so on... 3. The indentation of loop macro is strange and annoying. I can never figure out the principle behind it. Maybe some Python-style indentation mechanism could be used? -- Best regards, Timofei Shatrov mailto:grue@mail.ru

1 1

[slime-devel] Lisp interaction with editors other than emacs?
by Duncan Domingue 23 Mar '07

23 Mar '07

I'm looking for information regarding interaction between a running lisp instance and text editors other than emacs. I'm not a huge fan of emacs, joe being my editor of choice, and I haven't been able to find something similar to slime for joe or any other text editor. I was wondering if anyone on the list knows of any project similar in scope and approach as slime for other text editors. Any information would be very helpful, even if it doesn't involve the editor joe. Thanks in advance.

2 2

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

23 Mar '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1082 slime/ChangeLog:1.1083 --- slime/ChangeLog:1.1082 Wed Mar 21 10:56:49 2007 +++ slime/ChangeLog Thu Mar 22 08:35:57 2007 @@ -1,3 +1,8 @@ +2007-03-22 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * slime.el (slime-scratch-buffer): Respect the syntax text + properties of presentations. + 2007-03-21 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * swank.lisp (lookup-presented-object): The presentation id of

1 0

Re: [slime-devel] Re: Lisp interaction with editors other than emacs?
by Bill Clementson 22 Mar '07

22 Mar '07

On 22 Mar 2007 12:04:23 +0100, Andras Simon <andras(a)renyi.hu> wrote: > "Duncan Domingue" <duncanbojangles(a)gmail.com> writes: > > > I'm looking for information regarding interaction between a running lisp > > instance and text editors other than emacs. I'm not a huge fan of emacs, joe > > being my editor of choice, and I haven't been able to find something similar > > to slime for joe or any other text editor. I was wondering if anyone on the > > list knows of any project similar in scope and approach as slime for other > > text editors. Any information would be very helpful, even if it doesn't > > involve the editor joe. Thanks in advance. > > There's slime for J (http://armedbear-j.sourceforge.net/); AFAIK its author > uses it for interaction with ABCL, SBCL (and probably XCL). I'm not sure it's > documented anywhere, but you can always ask on one of the mailing lists here: > http://sourceforge.net/mail/?group_id=55057. Another option (although I haven't tried it so can't comment on how well it might work) is cusp (slime-devel(a)common-lisp.net) - a SWANK-based plugin for Eclipse. -- Bill Clementson

5 4

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

22 Mar '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1080 slime/ChangeLog:1.1082 --- slime/ChangeLog:1.1080 Tue Mar 20 17:18:05 2007 +++ slime/ChangeLog Wed Mar 21 10:56:49 2007 @@ -1,3 +1,23 @@ +2007-03-21 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * swank.lisp (lookup-presented-object): The presentation id of + frame locals now includes the thread id; ignore it for now. + + * slime.el (slime-copy-presentation-at-mouse-to-point): Manually + invoke the after-change function, so that the presentation overlay + is created even if we paste to non-REPL buffers. + (slime-menu-choices-for-presentation): Evaluate + menu-choices-for-presentation-id in the right buffer, thus in the + right Lisp thread. Reported by Attila Lendvai. + (slime-menu-choices-for-presentation): Show the id of the presentation. + (sldb-insert-locals): Include the thread id in the presentation id. + +2007-03-21 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-repl-eval-string, slime-repl-insert-result): + Support the presentation-less old protocol. + (slime-goto-location-position): Use column number if available. + 2007-03-20 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * swank.lisp (completion-output-symbol-converter): Fix completion

1 0

[slime-devel] typo in swank-openmcl
by Takehiko Abe 21 Mar '07

21 Mar '07

hash-table-weakness: ht --> hashtable Index: swank-openmcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-openmcl.lisp,v retrieving revision 1.114 diff -u -r1.114 swank-openmcl.lisp --- swank-openmcl.lisp 19 Dec 2006 10:47:36 -0000 1.114 +++ swank-openmcl.lisp 16 Mar 2007 05:16:12 -0000 @@ -931,4 +931,4 @@ (apply #'make-hash-table :weak :value args)) (defimplementation hash-table-weakness (hashtable) - (ccl::hash-table-weak-p ht)) + (ccl::hash-table-weak-p hashtable))

2 2

[slime-devel] Re: LispNYC has been accepted as a mentoring organization for Google's Summer of Code
by Tobias C. Rittweiler 21 Mar '07

21 Mar '07

Heow Eide-Goodman <lists(a)alphageeksinc.com> writes: > ...which means you can submit Slime-related projects! How about the fancy SLDB debugger REPL so many people have been craving for so long? If that is considered not to be enough, there'd also be Zach Beane's christmas wish of a symbol conflict manager.[1] Is actually any of the senior hackers willing to mentor any such a Slime project? Anything else you have been dreaming of all nights? -T. [1] http://xach.livejournal.com/96625.html

3 2

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

21 Mar '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1077 slime/ChangeLog:1.1080 --- slime/ChangeLog:1.1077 Wed Mar 14 04:49:00 2007 +++ slime/ChangeLog Tue Mar 20 17:18:05 2007 @@ -1,3 +1,20 @@ +2007-03-20 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * swank.lisp (completion-output-symbol-converter): Fix completion + for mixed-case symbols that need escaping in readtable-case + :upcase or :downcase. + + * slime.el (slime-copy-presentation-at-mouse-to-point) + (slime-copy-presentation-at-mouse-to-kill-ring): New commands. + (slime-menu-choices-for-presentation): Change interface. New + menu options, Copy to kill-ring, Copy to point. + (slime-presentation-menu): Change call to + slime-menu-choices-for-presentation. + +2007-03-20 Takehiko Abe <keke(a)gol.com> + + * swank-openmcl.lisp (hash-table-weakness): fix typo + 2007-03-14 Christophe Rhodes <csr21(a)cantab.net> * slime.el (slime-search-suppressed-forms): handle multiple

1 0

[slime-devel] what does SWANK compile??
by Alex Mizrahi 16 Mar '07

16 Mar '07

Hello, All! i'm trying to debug SLIME for ABCL implementation -- it appears that SLIME causes some compiler error with it.. i've noticed that defect happens in functions that are generated on-fly by SLIME. this looks like for each form in REPL (or so) SLIME do (compile nil [something]) several of times.. ABCL produces a temp file for each form compiled this way, so i see this temp files being created. i thought maybe it compiles forms from REPL -- but no, stuff from REPL is running in interpreted mode.. so this is weird.. does anyone have an idea what does it compile and why? it's possible that it's caused not by SLIME but by ABCL itself. anyway i'd like to know what SLIME does. i would also appreciate any tips on investigating this. With best regards, Alex Mizrahi.

2 3

[slime-devel] prob with emacs+slime+macos
by Pedro 16 Mar '07

16 Mar '07

Hi, I'm using MacOS 10.4, and I'm trying to setup Aquamacs+slime+cmucl to get lisp working. Aquamacs is in my Applications folder. slime and cmucl are inside /usr/local/ This is what my ~/.emacs file has: (setq inferior-lisp-program "/usr/local/cmucl/bin/lisp") (add-to-list 'load-path "/usr/local/slime/") (require 'slime) (slime-setup :autodoc t) however, when I start Aquamacs, do M-x and type slime I get this message: "Process inferior-lisp bus error" why? Thanks

2 1

[slime-devel] who-calls for openmcl
by Takehiko Abe 16 Mar '07

16 Mar '07

I noticed that who-calls doesn't work for methods in openmcl. Here is a quick hack. It appears to work for me. ;; xref-locations from swank-openmcl.lisp (defun xref-locations (relation name &optional (inverse nil)) (flet ((function-source-location (entry) (multiple-value-bind (info name) (ccl::edit-definition-p (ccl::%db-key-from-xref-entry entry) (if (eql (ccl::xref-entry-type entry) 'macro) 'function (ccl::xref-entry-type entry))) (cond ((not info) (list :error (format nil "No source info available for ~A" (ccl::xref-entry-name entry)))) ((typep (caar info) 'ccl::method) `(:location (:file ,(remove-filename-quoting (namestring (translate-logical-pathname (cdr (car info)))))) (:method ,(princ-to-string (ccl::method-name (caar info))) ,(mapcar 'princ-to-string (mapcar #'specializer-name (ccl::method-specializers (caar info)))) ,@(mapcar 'princ-to-string (ccl::method-qualifiers (caar info)))) nil)) (t (canonicalize-location (cdr (first info)) name)))))) (declare (dynamic-extent #'function-source-location)) (loop for xref in (if inverse (ccl::get-relation relation name :wild :exhaustive t) (ccl::get-relation relation :wild name :exhaustive t)) for function = (ccl::xref-entry-name xref) collect `((function ,function) ,(function-source-location xref)))))

1 0

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

15 Mar '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1076 slime/ChangeLog:1.1077 --- slime/ChangeLog:1.1076 Mon Feb 26 04:56:06 2007 +++ slime/ChangeLog Wed Mar 14 04:49:00 2007 @@ -1,3 +1,8 @@ +2007-03-14 Christophe Rhodes <csr21(a)cantab.net> + + * slime.el (slime-search-suppressed-forms): handle multiple + conditionals on the same line. + 2007-02-26 Nikodemus Siivola <nikodemus(a)random-state.net> * swank.lisp (inspect-for-emacs): Add support for inspecting

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel March 2007