slime-devel

slime-devel@common-lisp.net

4231 discussions

[slime-devel] CALL-WITH-COMPILATION-HOOKS for LW
by Edi Weitz 04 May '05

04 May '05

Hi! I've just committed an alternative implementation for CALL-WITH-COMPILATION-HOOKS for LispWorks. It's a bit kludgy but at least you now get annotated warnings after compiling a system with ASDF while the old implementation didn't do that. Cheers, Edi.

1 0

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

03 May '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.677 slime/ChangeLog:1.678 --- slime/ChangeLog:1.677 Mon May 2 20:58:53 2005 +++ slime/ChangeLog Tue May 3 20:59:56 2005 @@ -1,3 +1,8 @@ +2005-05-03 Luke Gorrie <luke(a)synap.se> + + * swank.lisp (slime-secret): Removed #+unix conditional, suggested + by Edi Weitz. + 2005-05-02 Mark Wooding <mdw(a)nsict.org> * swank.lisp: If ~/.slime-secret exists then insist that Emacs

1 0

[slime-devel] SLIME security patch
by mdw＠nsict.org 03 May '05

03 May '05

SLIME is very cool; thanks. It's a shame it's not very secure, though. Below is a patch which addresses the two problems I've found: * /tmp file vulnerability. In slime-swank-port-file, the code falls back to putting the temporary file used to communicate the port number in /tmp. The filename contains the pid of the running Emacs process which is easy to guess. In ANNOUNCE-SERVER-PORT, the server-port file is written :IF-EXISTS :OVERWRITE, which means that another user can put a symlink in /tmp/slime.PID pointing at one of your precious files and leave SLIME to trash it for you. Not good. I just made it be :IF-EXISTS :ERROR which seems fine given that slime-inferior-connect deleted it if it was an ordinary file. * Any local user can connect. I addressed this one quite simply. If there is a file .slime-secret in the user's home directory, then SWANK will reject an connection unless the first sexp read through it is a string matching the first line of that file. Similarly, the Emacs side will send the correct thing, if it can. This neatly sidesteps all of the hard and system-specific questions about generating random numbers and file permissions that more complex solutions would involve, largely by leaving them up to the user. The downside is that this leaves the system insecure by default, which is still bad, but I care less. This fix isn't ideal: I suspect there will be problems from a mismatch between Emacs's idea of home directory (usually the HOME environment variable) and the Common Lisp system's USER-HOMEDIR-PATHNAME. It seems right on Unix; I've no idea what it'll do on any other system. Besides, `.slime-secret' seems a poor filename for Windows, even though it will work. The difficulty here is making sure that Emacs and CL agree on which name to use. I decided that, at least for now, a reliable but ugly name was a better choice. My patch is against the code in the Debian 2:1.0.cvs-20050116 package; I hope that's vaguely useful. The change is quite simple, though. diff -ru slime-1.0.cvs/slime.el slime-1.0.cvs+mdw/slime.el --- slime-1.0.cvs/slime.el 2005-01-16 12:29:52.000000000 +0000 +++ slime-1.0.cvs+mdw/slime.el 2005-04-30 23:48:39.000000000 +0100 @@ -1480,6 +1480,21 @@ "A list of valid coding systems. Each element is of the form: (NAME MULTIBYTEP CL-NAME)") +(defun slime-secret () + "Finds the magic secret from the user's home directory. Returns nil +if the file doesn't exist or is empty; otherwise the first line of the +file." + (condition-case err + (with-temp-buffer + (insert-file-contents "~/.slime-secret") + (goto-char (point-min)) + (buffer-substring 1 + (let ((nl (search-forward "\n" nil t nil))) + (if nl + (- nl 1) + (point-max))))) + (file-error nil))) + ;;; Interface (defun slime-net-connect (host port) "Establish a connection with a CL." @@ -1496,6 +1511,8 @@ (set-process-coding-system proc slime-net-coding-system slime-net-coding-system)) + (when-let (secret (slime-secret)) + (slime-net-send secret proc)) proc)) (defun slime-make-net-buffer (name) @@ -2421,6 +2438,8 @@ (set-process-coding-system stream slime-net-coding-system slime-net-coding-system) + (when-let (secret (slime-secret)) + (slime-net-send secret stream)) stream)) (defun slime-output-string (string) diff -ru slime-1.0.cvs/swank.lisp slime-1.0.cvs+mdw/swank.lisp --- slime-1.0.cvs/swank.lisp 2005-01-16 12:29:53.000000000 +0000 +++ slime-1.0.cvs+mdw/swank.lisp 2005-05-01 00:32:01.000000000 +0100 @@ -294,6 +294,24 @@ (defvar *use-dedicated-output-stream* t) (defvar *communication-style* (preferred-communication-style)) +(defun slime-secret () + "Finds the magic secret from the user's home directory. Returns nil +if the file doesn't exist; otherwise the first line of the file." + (with-open-file (in + (merge-pathnames (user-homedir-pathname) + #+unix #p".slime-secret") + :if-does-not-exist nil) + (and in (read-line in nil "")))) + +(defun accept-authenticated-connection (&rest args) + (let ((new (apply #'accept-connection args)) + (secret (slime-secret))) + (when secret + (unless (string= (decode-message new) secret) + (close new) + (error "Incoming connection doesn't know the password."))) + new)) + (defun start-server (port-file &key (style *communication-style*) dont-close (external-format *coding-system*)) "Start the server and write the listen port number to PORT-FILE. @@ -337,7 +355,8 @@ port))) (defun serve-connection (socket style dont-close external-format) - (let ((client (accept-connection socket :external-format external-format))) + (let ((client (accept-authenticated-connection + socket :external-format external-format))) (unless dont-close (close-socket socket)) (let ((connection (create-connection client style external-format))) @@ -352,7 +371,7 @@ (defun announce-server-port (file port) (with-open-file (s file :direction :output - :if-exists :overwrite + :if-exists :error :if-does-not-exist :create) (format s "~S~%" port)) (simple-announce-function port)) @@ -406,7 +425,8 @@ (let* ((socket (create-socket *loopback-interface* 0)) (port (local-port socket))) (encode-message `(:open-dedicated-output-stream ,port) socket-io) - (accept-connection socket :external-format external-format))) + (accept-authenticated-connection + socket :external-format external-format))) (defun handle-request (connection) "Read and process one request. The processing is done in the extend -- [mdw]

3 4

[slime-devel] debian package uploaded
by Peter Van Eynde 03 May '05

03 May '05

|To: pvaneynd(a)debian.org |Subject: Processing of slime_cvs-20050429-1_i386.changes |From: Archive Administrator <katie(a)ftp-master.debian.org> |Date: Fri, 29 Apr 2005 03:12:48 -0400 | |slime_cvs-20050429-1_i386.changes uploaded successfully to localhost |along with the files: | slime_cvs-20050429-1.dsc | slime_cvs-20050429.orig.tar.gz | slime_cvs-20050429-1.diff.gz | slime_cvs-20050429-1_all.deb | |Greetings, | | Your Debian queue daemon The packages are based on the work on Sean Champ <schamp(a)commonwerx.org> that I modified to reflect the fact that the only place to be is HEAD. It will be for some time in the NEW queue and then will appear in debian unstable, until then people can download the packages from http://people.debian.org/~pvaneynd/slime/. If Sean wants to maintain it, he is welcome to do so, and I will gladly sponsor him. I regret having to kidnap the package, but people have been waiting for slime package far too long. Fire at will! Groetjes, Peter -- signature -at- pvaneynd.mailworks.org http://www.livejournal.com/users/pvaneynd/ "God, root, what is difference?" Pitr | "God is more forgiving." Dave Aronson|

2 1

[slime-devel] Where does run-program output go?
by Jeffrey Cunningham 02 May '05

02 May '05

Hi. I'm running SLIME 2005-04-18 with CMUCL. If I execute (run-program "ls" '("-la" "/bin") :output "lst") The output of the linux ls command shows up in the file lst as expected. But if I try to direct it to the LISP terminal: (run-program "ls" '("-la" "/bin") :output t) (as described in the CMUCL documentation) all I get is #<process 32578 :EXITED> On the other hand, if I run CMUCL outside of SLIME, it works as advertised. So, where is the output going? And how can I capture it in a local variable? Thanks. --Jeff

3 3

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

02 May '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.676 slime/ChangeLog:1.677 --- slime/ChangeLog:1.676 Sun May 1 12:47:12 2005 +++ slime/ChangeLog Mon May 2 20:58:53 2005 @@ -1,3 +1,13 @@ +2005-05-02 Mark Wooding <mdw(a)nsict.org> + + * swank.lisp: If ~/.slime-secret exists then insist that Emacs + sends the contents (as a password) during initial handshaking. + (announce-server-port): Use :IF-EXISTS :ERROR to prevent bad guys + from slipping a symlink into /tmp and reading what port Lisp is + listening on. + + * slime.el: If ~/.slime-secret exists then send it, as per above. + 2005-05-01 Marco Baringer <mb(a)bese.it> * slime.el (slime-inspector-reinspect): New function which

1 0

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

01 May '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.675 slime/ChangeLog:1.676 --- slime/ChangeLog:1.675 Fri Apr 29 01:32:29 2005 +++ slime/ChangeLog Sun May 1 12:47:12 2005 @@ -1,3 +1,9 @@ +2005-05-01 Marco Baringer <mb(a)bese.it> + + * slime.el (slime-inspector-reinspect): New function which + reinspects the current object. + (slime-inspector-mode-map): Bind slime-inspector-reinspect to g. + 2005-04-29 Dan Pierson <dlp(a)itasoftware.com> * slime.el (slime-parse-context): Fix method parsing so that

1 0

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

29 Apr '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.674 slime/ChangeLog:1.675 --- slime/ChangeLog:1.674 Wed Apr 27 16:54:41 2005 +++ slime/ChangeLog Fri Apr 29 01:32:29 2005 @@ -1,3 +1,25 @@ +2005-04-29 Dan Pierson <dlp(a)itasoftware.com> + + * slime.el (slime-parse-context): Fix method parsing so that + pressing, say, C-c C-t when point is on a '-' in a symbol name + won't break. + (slime-browser-map): New variable. Add support for the common 'q' + keystroke to quit out of the xref. + (slime-fetch-browsable-xrefs): New function. Remove the (FLET ...) + entries which appear on at least CMUCL. I don't believe you can + actually expand them on any current implementation and they just + mess up the browse tree. Use only the method name when looking + up (METHOD ...) entries on CMUCL. This really shouldn't be here, + but I can't see how to avoid the error thrown by swank:xref. + (slime-expand-xrefs): Use it. + (slime-call-with-browser-setup): Initialize slime-buffer-package + properly. Previously, lisp-mode was called after setting it, but + lisp-mode clears all local variables, use lisp-mode-variables + instead. + + * swank-cmucl.lisp (toggle-trace): Be more carefully when tracing + methods: try both (METHOD ...) and (PCL:FAST-METHOD ...). + 2005-04-27 Helmut Eller <heller(a)common-lisp.net> * swank-cmucl.lisp (+header-type-symbols+): Drop the third arg to

1 0

[slime-devel] Slime bug in macro handling
by Will M. Farr 29 Apr '05

29 Apr '05

Hello all, I have just encountered a bug while using SBCL 0.9.0.1 or OpenMCL 0.14.3 and the latest CVS slime (as of 10 minutes ago) on my PowerBook G4 with Mac OS 10.3.9. Evaluating the following commands using C-M-x (except for the in-package, which I have to type at the REPL) works fine: (defpackage :fast-math (:use :cl)) (in-package :fast-math) (defmacro f+ (&rest xs) `(the double-float (+ ,@(map 'list #'(lambda (x) `(the double-float ,x)) xs)))) (defmacro f- (&rest xs) `(the double-float (- ,@(map 'list #'(lambda (x) `(the double-float ,x)) xs)))) (defmacro f* (&rest xs) `(the double-float (* ,@(map 'list #'(lambda (x) `(the double-float ,x)) xs)))) (defmacro f/ (&rest xs) `(the double-float (/ ,@(map 'list #'(lambda (x) `(the double-float ,x)) xs)))) (f* 10.d0 30.d0) (f+ 10.d0 30.d0) (f- 10.d0 30.d0) (f/ 30.d0 10.d0) However, if I then type (f* 10.d0 30.d0) at the REPL, I get an error involving the "undefined function f*". Even after this, if I then evaluate (f* 10.d0 30.d0) using C-M-x it works fine! I notice that typing (f* ...) in the REPL doesn't bring up the autocomplete information from SLIME, while typing it in a different slime buffer does bring up the note (f* &rest xs). The problem doesn't occur if the macros are defined in the cl-user package. I don't really know anything about the internal workings of slime or I'd post a fix, too. Sorry. Let me know if there's more information I can offer about the problem. Thanks! Will Farr

3 3

[slime-devel] New trace fixes for CMUCL
by Dan Pierson 28 Apr '05

28 Apr '05

Here's a patch to more carefully try both (METHOD ...) and (PCL:FAST-METHOD ...) when tracing methods on CMUCL. Dan Pierson Index: swank-cmucl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-cmucl.lisp,v retrieving revision 1.143 diff -u -r1.143 swank-cmucl.lisp --- swank-cmucl.lisp 3 Apr 2005 23:27:41 -0000 1.143 +++ swank-cmucl.lisp 28 Apr 2005 15:11:12 -0000 @@ -2136,9 +2136,13 @@ (let ((name (second spec))) (toggle-trace-aux name :methods name))) ((:defmethod) - (toggle-trace-aux `(method ,(cdr spec))) - ;; Man, is this ugly - (toggle-trace-aux `(pcl::fast-method ,(cdr spec)))) + (cond ((fboundp `(method ,@(cdr spec))) + (toggle-trace-aux `(method ,(cdr spec)))) + ;; Man, is this ugly + ((fboundp `(pcl::fast-method ,@(cdr spec))) + (toggle-trace-aux `(pcl::fast-method ,@(cdr spec)))) + (t + (error 'undefined-function :name (cdr spec))))) ((:call) (destructuring-bind (caller callee) (cdr spec) (toggle-trace-aux (process-fspec callee)

2 1

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel