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

[slime-devel] Patch for CLISP with `readtable-case' set to :invert.
by Lars Rune Nøstdal 26 Nov '06

26 Nov '06

Ok, I'm probably the only one using `readtable-case' set to :invert .. but just in case, here is a patch with changes I had to do to get latest Slime and CLISP-2.41 to start Slime. It's tested with SBCL-0.9.18.43 also: cvs diff: Diffing . Index: metering.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/metering.lisp,v retrieving revision 1.4 diff -u -r1.4 metering.lisp --- metering.lisp 1 Apr 2005 20:16:35 -0000 1.4 +++ metering.lisp 26 Nov 2006 17:13:54 -0000 @@ -359,17 +359,17 @@ ;;; For CLtL2 compatible lisps -(defpackage "MONITOR" (:nicknames "MON") (:use "COMMON-LISP") - (:export "*MONITORED-FUNCTIONS*" - "MONITOR" "MONITOR-ALL" "UNMONITOR" "MONITOR-FORM" - "WITH-MONITORING" - "RESET-MONITORING-INFO" "RESET-ALL-MONITORING" - "MONITORED" - "REPORT-MONITORING" - "DISPLAY-MONITORING-RESULTS" - "MONITORING-ENCAPSULATE" "MONITORING-UNENCAPSULATE" - "REPORT")) -(in-package "MONITOR") +(defpackage :monitor (:nicknames :mon) (:use :cl) + (:export :*monitored-functions* + :monitor :monitor-all :unmonitor :monitor-form + :with-monitoring + :reset-monitoring-info :reset-all-monitoring + :monitored + :report-monitoring + :display-monitoring-results + :monitoring-encapsulate :monitoring-unencapsulate + :report)) +(in-package :monitor) ;;; Warn user if they're loading the source instead of compiling it first. (eval-when (eval) @@ -594,16 +594,16 @@ ;;; ******************************** ;;; Global Variables *************** ;;; ******************************** -(defvar *MONITOR-TIME-OVERHEAD* nil +(defvar *monitor-time-overhead* nil "The amount of time an empty monitored function costs.") -(defvar *MONITOR-CONS-OVERHEAD* nil +(defvar *monitor-cons-overhead* nil "The amount of cons an empty monitored function costs.") -(defvar *TOTAL-TIME* 0 +(defvar *total-time* 0 "Total amount of time monitored so far.") -(defvar *TOTAL-CONS* 0 +(defvar *total-cons* 0 "Total amount of consing monitored so far.") -(defvar *TOTAL-CALLS* 0 +(defvar *total-calls* 0 "Total number of calls monitored so far.") (proclaim '(type time-type *total-time*)) (proclaim '(type consing-type *total-cons*)) @@ -614,7 +614,7 @@ ;;; ******************************** ;;; Perhaps the SYMBOLP should be FBOUNDP? I.e., what about variables ;;; containing closures. -(defmacro PLACE-FUNCTION (function-place) +(defmacro place-function (function-place) "Return the function found at FUNCTION-PLACE. Evals FUNCTION-PLACE if it isn't a symbol, to allow monitoring of closures located in variables/arrays/structures." @@ -628,7 +628,7 @@ (symbol-function ,function-place) (eval ,function-place)))) -(defsetf PLACE-FUNCTION (function-place) (function) +(defsetf place-function (function-place) (function) "Set the function in FUNCTION-PLACE to FUNCTION." (if (fboundp 'fdefinition) ;; If we're conforming to CLtL2, use fdefinition here. @@ -656,7 +656,7 @@ (eval '(setf ,function-place ',function)))) |# -(defun PLACE-FBOUNDP (function-place) +(defun place-fboundp (function-place) "Test to see if FUNCTION-PLACE is a function." ;; probably should be #|(or (and (symbolp function-place)(fboundp function-place)) @@ -665,7 +665,7 @@ (fboundp function-place) (functionp (place-function function-place)))) -(defun PLACE-MACROP (function-place) +(defun place-macrop (function-place) "Test to see if FUNCTION-PLACE is a macro." (when (symbolp function-place) (macro-function function-place))) @@ -705,7 +705,7 @@ (defsetf get-monitor-info (name) (info) `(setf (gethash ,name *monitor*) ,info)) -(defun MONITORED (function-place) +(defun monitored (function-place) "Test to see if a FUNCTION-PLACE is monitored." (and (place-fboundp function-place) ; this line necessary? (get-monitor-info function-place))) @@ -933,7 +933,7 @@ ;;; ******************************** ;;; Main Monitoring Functions ****** ;;; ******************************** -(defmacro MONITOR (&rest names) +(defmacro monitor (&rest names) "Monitor the named functions. As in TRACE, the names are not evaluated. If a function is already monitored, then unmonitor and remonitor (useful to notice function redefinition). If a name is undefined, give a warning @@ -943,13 +943,13 @@ ,@(mapcar #'(lambda (name) `(monitoring-encapsulate ',name)) names) *monitored-functions*)) -(defmacro UNMONITOR (&rest names) +(defmacro unmonitor (&rest names) "Remove the monitoring on the named functions. Names defaults to the list of all currently monitored functions." `(dolist (name ,(if names `',names '*monitored-functions*) (values)) (monitoring-unencapsulate name))) -(defun MONITOR-ALL (&optional (package *package*)) +(defun monitor-all (&optional (package *package*)) "Monitor all functions in the specified package." (let ((package (if (packagep package) package @@ -958,7 +958,7 @@ (when (eq (symbol-package symbol) package) (monitoring-encapsulate symbol))))) -(defmacro MONITOR-FORM (form +(defmacro monitor-form (form &optional (nested :exclusive) (threshold 0.01) (key :percent-time)) "Monitor the execution of all functions in the current package @@ -973,7 +973,7 @@ (report-monitoring :all ,nested ,threshold ,key :ignore-no-calls))) (unmonitor))) -(defmacro WITH-MONITORING ((&rest functions) +(defmacro with-monitoring ((&rest functions) (&optional (nested :exclusive) (threshold 0.01) (key :percent-time)) @@ -995,12 +995,12 @@ "Number of iterations over which the timing overhead is averaged.") ;;; Perhaps this should return something to frustrate clever compilers. -(defun STUB-FUNCTION (x) +(defun stub-function (x) (declare (ignore x)) nil) (proclaim '(notinline stub-function)) -(defun SET-MONITOR-OVERHEAD () +(defun set-monitor-overhead () "Determines the average overhead of monitoring by monitoring the execution of an empty function many times." (setq *monitor-time-overhead* 0 cvs diff: Diffing doc -- Lars Rune Nøstdal http://lars.nostdal.org/

1 0

[slime-devel] New bug in M-. ?
by Jeffrey Cunningham 25 Nov '06

25 Nov '06

I don't know when this crept in, but currently whenever I press M-. on a function which is part of CL (e.g. 'file-size 'rename-file) slime and emacs crash. Emacs won't even refresh its windows and I have to kill its process and restart. But it works just fine on local package functions. I'm running CMUCL 19d with slime out CVS yesterday on a Gentoo box. --Jeff

2 1

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

25 Nov '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1006 slime/ChangeLog:1.1007 --- slime/ChangeLog:1.1006 Thu Nov 23 18:14:37 2006 +++ slime/ChangeLog Fri Nov 24 18:34:58 2006 @@ -1,3 +1,9 @@ +2006-11-25 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-repl-read-break): Use a :emacs-interrupt message + instead of a RPC to swank:simple-break. Suggested by Taylor R + Campbell. + 2006-11-24 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-search-buffer-package): Prettify the package

1 0

[slime-devel] interrupt vs simple-break
by Taylor R Campbell 25 Nov '06

25 Nov '06

Can someone explain to me the purpose of distinguishing the :EMACS-INTERRUPT wire message from the SWANK:SIMPLE-BREAK RPC, or why `slime-repl-read-break' on the Emacs side sends an :EMACS-REX of the latter rather than just sending an :EMACS-INTERRUPT message?

2 4

Re: [slime-devel] Re: SLIME Committers
by Edi Weitz 24 Nov '06

24 Nov '06

On Tue, 21 Nov 2006 08:36:53 -0800, Jeffrey Cunningham <jeffrey(a)cunningham.net> wrote: > On Tue Nov 21, 2006 at 08:12:44AM +0100, Edi Weitz wrote: >> >> Does usage of plain old CVS hold back SLIME development in any way? >> > Many big companies have their firewalls set up to block the port CVS > uses - I've been told the MSEE training their IT people get tells > them to do this. That means you can't grab CVS versions of Slime > behind these firewalls. If you just want the current CVS version to /use/ SLIME, you can get it through http, of course: http://common-lisp.net/cgi-bin/viewcvs.cgi/root.tar.gz?root=slime&view=tar But, yes, if you actually want to work on SLIME and submit code, this might be a problem. Does anyone know how many active developers we have who are paid by their big company employers to hack SLIME during their working hours? :) But wait, project members use CVS via ssh, don't they? So, if the CVS port is blocked, that shouldn't be problem. > I assume I'm not alone with this problem. > > Darcs just works. For some people... :)

10 11

[slime-devel] open parenthesis in the documentation string confuses slime-compile-defun
by Anton Vodonosov 24 Nov '06

24 Nov '06

Open parenthesis in the documentation string confuses slime-compile-defun. Exmaple: (defun f2 () " ( ... ) " ) Note, open parenthesis shuld be the first character of the line. Trying to compile this with slime-compile-defun signals the following: READ from #1=#<INPUT STRING-INPUT-STREAM>: a token consisting only of dots cannot be meaningfully read in [Condition of type SYSTEM::SIMPLE-READER-ERROR] Looks like on the emacs side slime takes this open parenthesis into account when picking out parentheses-balanced portion of text. Regards, -Anton

2 1

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 24 Nov '06

24 Nov '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1005 slime/ChangeLog:1.1006 --- slime/ChangeLog:1.1005 Wed Nov 22 10:29:23 2006 +++ slime/ChangeLog Thu Nov 23 18:14:37 2006 @@ -1,3 +1,18 @@ +2006-11-24 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-search-buffer-package): Prettify the package + name if it is written as string or keyword. + +2006-11-23 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-in-expression-p): Use `read' and `eq' to test + the first element of the list. Previuosly, the pattern (foo) + wrongly matched (foobar) because we used (looking-at <symbol>). + + * swank-cmucl.lisp (setf-definitions): Also include defs which + were created with (defun (setf NAME) ...). Previously we only + found definitions created with defsetf or define-setf-expander. + 2006-11-22 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-edit-definition): Don't hide error messages.

1 0

[slime-devel] Small fixes
by Antonio Menezes Leitao 23 Nov '06

23 Nov '06

Hi, I would like to propose an small improvement to slime-edit-definition so that it correctly identifies setf forms (which it doesn't, at the moment). The change is limited to the interactive pseudo-call. Instead of (defun slime-edit-definition (name &optional where) "Lookup the definition of the name at point. If there's no name at point, or a prefix argument is given, then the function name is prompted." (interactive (list (slime-read-symbol-name "Name: "))) ...) use (defun slime-edit-definition (name &optional where) "Lookup the definition of the name at point. If there's no name at point, or a prefix argument is given, then the function name is prompted." (interactive (list (slime-edit-definition-query (slime-extract-context)))) ...) The function slime-edit-definition-query is just a stripped down version of slime-trace-query: (defun slime-edit-definition-query (spec) "Ask the user which function to edit; SPEC is the default. The result is a string." (cond ((null spec) (slime-read-from-minibuffer "Name: ")) ((symbolp spec) (symbol-name spec)) (t (destructure-case spec ((setf n) (prin1-to-string spec)) (((:defun :defmacro :defgeneric) n) (prin1-to-string n)) ((:defmethod n &rest _) (prin1-to-string n)) ((:call caller callee) (prin1-to-string callee)) (((:labels :flet) &rest _) (slime-read-from-minibuffer "Name: ")))))) That would be enough, if it were not for the fact that, in some cases, Slime is not correctly identifying the relevant context information. One reason seems to be the slime-in-expression-p function. Here are a few examples (the . is the cursor): (defun zdzz () (setfabble-p fo.o)) -> (:defun (setf foo)) (defun zdzz () (setfab.ble-p foo)) -> (:defun (setf setfabble-p)) (defmacro-transform bla () (bo.o)) -> (:call (:defmacro bla) boo) (defmacro-transform b.la () (boo)) -> (:defmacro bla) (defmacro-tran.sform bla () (boo)) -> (:defmacro defmacro-transform) (defunia (bsd.o)) -> (:call (:defun (bsdo)) bsdo) (defun.ia (bsdo)) -> (:defun defunia) One problem is the (looking-at (symbol-name p)) form in slime-in-expression-p that, obviously, is happy even if the symbol being searched only _partially_ matches the actual text. So either we replace it with something similar to (looking-at (concat (symbol-name p) "\\S_")) or, in order to deal with end-of-buffer limits, with something similar to (let ((symbol (buffer-substring-no-properties (point) (save-excursion (forward-sexp 1) (point))))) (string= symbol (symbol-name p))) With this change, the examples now produce: (defun zdzz () (setfabble-p fo.o)) -> foo (defun zdzz () (setfab.ble-p foo)) -> (:call (:defun zdzz) setfabble-p) (defmacro-transform bla () (bo.o)) -> (:call bla boo) (defmacro-transform b.la () (boo)) -> bla (defmacro-tran.sform bla () (boo)) -> (:call bla defmacro-transform) (defunia (bsd.o)) -> (:call (bsdo) bsdo) (defun.ia (bsdo)) -> (:call (bsdo) defunia) It's better but there are still some problems, visible in the last three examples. Fortunately, they don't severely affect what I want to do and, besides, I'm not sure about the inner workings of the slime-in-expression-p function (it seems incomplete, imho), so I'll leave it that way for now. BTW, this was only superficially tested, but it seems to work. Best regards, António Leitão.

4 8

[slime-devel] Parsing the in-package form
by Antonio Menezes Leitao 23 Nov '06

23 Nov '06

Hi, If I'm not mistaken, the current Slime version doesn't correctly parse in-package forms when the package name is a string or a keyword. This can be easily seen by writing in an edit buffer (in-package :foo) or (in-package "FOO") and then pressing C-c M-p (slime-repl-set-package) The following replacement correct this behaviour. (defun slime-search-buffer-package () (save-excursion (when (let ((case-fold-search t) (regexp "^(\\(cl:\\|common-lisp:\\)?in-package\\>[ \n\t\r':\"]*")) (or (re-search-backward regexp nil t) (re-search-forward regexp nil t))) (goto-char (match-end 0)) (let ((start (point))) (let ((pkg (ignore-errors (read (current-buffer))))) (and pkg (format "%S" pkg))))))) Best regards, António Leitão.

2 1

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

23 Nov '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1004 slime/ChangeLog:1.1005 --- slime/ChangeLog:1.1004 Tue Nov 21 17:00:22 2006 +++ slime/ChangeLog Wed Nov 22 10:29:23 2006 @@ -1,3 +1,7 @@ +2006-11-22 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-edit-definition): Don't hide error messages. + 2006-11-21 Helmut Eller <heller(a)common-lisp.net> * swank.lisp (*coding-system*): "Coding systems" are now strings

1 0