slime-devel December 2007

slime-devel@common-lisp.net

20 participants
31 discussions

[slime-devel] win32 SLIME : long time and huge buffer to generate 100, 000 data items
by Terrence Brannon 04 Dec '07

04 Dec '07

I'm wondering if there is some way to tell SLIME to not try to report all output from the inferior lisp? My emacs buffer-menu shows the slime-repl as huge and ever-growing: * *slime-repl sbc: 123816001 REPL I'm building a huge data structure and need some way of SLIME sending the command but turning off output from SBCL. Here is the code that is taking a long time to run: (defvar *datasize* 100000 "size of dataset") (defun gendata () (dotimes (i *datasize*) (let* ( (m (random (1+ i))) (n (random (1+ m))) (text (write (generate 'sentence))) ) (list :text text :m m :n n))) ) (setf *d* (gendata)) -- http://www.aliveandwell.org/ | http://www.SlowChess.com | http://mostholy.wholefoodfarmacy.com

3 3

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

03 Dec '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1253 slime/ChangeLog:1.1254 --- slime/ChangeLog:1.1253 Fri Nov 30 08:10:40 2007 +++ slime/ChangeLog Sun Dec 2 03:44:33 2007 @@ -1,3 +1,19 @@ +2007-12-02 Alan Caulkins <fatman(a)maxint.net> + + Make it possible to close listening sockets. + + * swank.lisp (stop-server, restart-server): New functions. + (*listener-sockets*): New variable. + (setup-server): Store open sockets in *listener-sockets*. + +2007-12-02 Helmut Eller <heller(a)common-lisp.net> + + Add hook to customize the region used by C-c C-c. + Useful to recognize block declarations in CMUCL sources. + + * slime.el (slime-region-for-defun-function): New variable. + (slime-region-for-defun-at-point): Use it. + 2007-11-30 Helmut Eller <heller(a)common-lisp.net> Handle byte-functions without debug-info.

1 0

[slime-devel] (1) archives (2) *** - invalid byte #x90 in CHARSET:CP1252 conversion
by Terrence Brannon 02 Dec '07

02 Dec '07

(1) the archives of this list are not searchable, perhap we should archive via google groups? (2) When starting SLIME under clisp on Cygwin, I get the error: *** - invalid byte #x90 in CHARSET:CP1252 conversion Startup transcript follows: (load "/home/Administrator/mydocs/dl/slime-2.0/swank-loader.lisp" :verbose t) (swank:start-server "/cygdrive/c/DOCUME~1/ADMINI~1/LOCALS~1/Temp/slime.4924" :external-format :iso-latin-1-unix) i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2006 *** - invalid byte #x90 in CHARSET:CP1252 conversion The following restarts are available: ABORT :R1 ABORT ABORT :R2 ABORT Break 1 [3]> -- http://www.aliveandwell.org/ | http://www.SlowChess.com | http://mostholy.wholefoodfarmacy.com

3 2

[slime-devel] Swank restart-server Patch
by Alan Caulkins 02 Dec '07

02 Dec '07

I run a long-lived lisp image that I access remotely, and I'd like to be able to update slime dynamically without stopping and restarting the whole image. The catch is that after the re-load, I need to restart the Swank listener thread in case the code for its function has changed. Although the current CVS version of Slime can stop a running Swank server by using kill-nth-thread, it doesn't expose the socket that the thread was listening to. Subsequent threads can't bind to the port number because there is already a socket using it, and without a reference to the socket object, it can't be closed. The attached patch provides this access by defining a new package variable, *listener-sockets*. There are also two new functions: stop-server and restart-server. I'm using SBCL 2.6.18, and I have only tested this code with :spawn style servers, but even though I don't use :fd-handler or :sigio, I have provided code for them if anyone is interested in trying it out. With these changes, an online update to a remote lisp should be possible from the Slime REPL as follows: <cvs update slime> (load ".../swank.asd") (asdf:oos 'asdf:load-op 'swank) (swank:restart-server :port 4005 :style :spawn :dont-close t) <slime-disconnect and restart emacs> This code works well for me, but I'm not very familiar with Slime implementation details, so it would not surprise me if I've missed something important in my patch. I hope it proves useful to others. Thanks, -A -- Linux: The ultimate video game.

2 1

[slime-devel] A little swank.asd/swank-loader.lisp rectification.
by Samium Gromoff 02 Dec '07

02 Dec '07

Good day folks, The patch below rectifies the swank.asd, making the ASDF load flow more natural. The per-implementation file constellation definition is moved into a separate file, used by both the ASDF and slime-loader methods. Tested both ways on SBCL with CVSly fresh Swank. regards, Samium Gromoff diff a/file-constellation.lisp-expr b/file-constellation.lisp-expr --- /dev/null +++ b/file-constellation.lisp-expr @@ -0,0 +1,10 @@ +#+cmu ("swank-source-path-parser" "swank-source-file-cache" "swank-cmucl") +#+scl ("swank-source-path-parser" "swank-source-file-cache" "swank-scl") +#+sbcl ("swank-source-path-parser" "swank-source-file-cache" "swank-sbcl" "swank-gray") +#+openmcl ("metering" "swank-openmcl" "swank-gray") +#+lispworks ("swank-lispworks" "swank-gray") +#+allegro ("swank-allegro" "swank-gray") +#+clisp ("xref" "metering" "swank-clisp" "swank-gray") +#+armedbear ("swank-abcl") +#+cormanlisp ("swank-corman" "swank-gray") +#+ecl ("swank-ecl" "swank-gray") diff a/swank-loader.lisp b/swank-loader.lisp --- a/swank-loader.lisp +++ b/swank-loader.lisp @@ -32,20 +32,10 @@ "The directory where to look for the source.") (defparameter *sysdep-files* - (append - '() - #+cmu '("swank-source-path-parser" "swank-source-file-cache" "swank-cmucl") - #+scl '("swank-source-path-parser" "swank-source-file-cache" "swank-scl") - #+sbcl '("swank-source-path-parser" "swank-source-file-cache" - "swank-sbcl" "swank-gray") - #+openmcl '("metering" "swank-openmcl" "swank-gray") - #+lispworks '("swank-lispworks" "swank-gray") - #+allegro '("swank-allegro" "swank-gray") - #+clisp '("xref" "metering" "swank-clisp" "swank-gray") - #+armedbear '("swank-abcl") - #+cormanlisp '("swank-corman" "swank-gray") - #+ecl '("swank-ecl" "swank-gray") - )) + '#.(with-open-file (s (make-pathname :directory (pathname-directory *load-truename*) + :name "file-constellation" :type "lisp-expr") + :direction :input) + (read s))) (defparameter *implementation-features* '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :cormanlisp diff a/swank-sbcl.lisp b/swank-sbcl.lisp --- a/swank-sbcl.lisp +++ b/swank-sbcl.lisp @@ -22,7 +22,8 @@ (declaim (optimize (debug 2) (sb-c:insert-step-conditions 0))) -(import-from :sb-gray *gray-stream-symbols* :swank-backend) +(unless (find-symbol (symbol-name (first *gray-stream-symbols*)) :swank-backend) + (import-from :sb-gray *gray-stream-symbols* :swank-backend)) ;;; backwards compability tests diff a/swank.asd b/swank.asd --- a/swank.asd +++ b/swank.asd @@ -24,24 +24,16 @@ (in-package :swank-loader) -(defclass cl-script-file (asdf:source-file) ()) - -(defmethod asdf:perform ((o asdf:compile-op) (f cl-script-file)) - t) -(defmethod asdf:perform ((o asdf:load-op) (f cl-script-file)) - (mapcar #'load (asdf:input-files o f))) -(defmethod asdf:output-files ((o asdf:compile-op) (f cl-script-file)) - nil) -(defmethod asdf:input-files ((o asdf:load-op) (c cl-script-file)) - (list (asdf:component-pathname c))) -(defmethod asdf:operation-done-p ((o asdf:compile-op) (c cl-script-file)) - t) -(defmethod asdf:source-file-type ((c cl-script-file) (s asdf:module)) - "lisp") - (asdf:defsystem :swank - :default-component-class cl-script-file - :components ((:file "swank-loader"))) + :serial t + :components #.(append + '((:file "swank-backend")) + (mapcar (lambda (file) `(:file ,file)) + (with-open-file (s (make-pathname :directory (pathname-directory *load-truename*) + :name "file-constellation" :type "lisp-expr") + :direction :input) + (read s))) + '((:file "swank")))) (defparameter *source-directory* (asdf:component-pathname (asdf:find-system :swank)))

3 4

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

01 Dec '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1252 slime/ChangeLog:1.1253 --- slime/ChangeLog:1.1252 Thu Nov 29 07:36:06 2007 +++ slime/ChangeLog Fri Nov 30 08:10:40 2007 @@ -1,7 +1,22 @@ +2007-11-30 Helmut Eller <heller(a)common-lisp.net> + + Handle byte-functions without debug-info. + + * swank-cmucl.lisp (byte-function-location): Return an error + if the component has no debug-info. + +2007-11-30 Helmut Eller <heller(a)common-lisp.net> + + Disable the pretty-printer for backtraces. + Would be nice if we could print newlines in strings as \n. + + * swank.lisp (*backtrace-printer-bindings*): New varaible. + (backtrace, frame-locals-for-emacs): Use it. + 2007-11-29 Tobias C. Rittweiler <tcr(a)freebits.de> * swank.lisp (valid-function-name-p): Fixed wrt. setf functions. - + 2007-11-29 Helmut Eller <heller(a)common-lisp.net> Prettify package names for slime-repl-set-package.

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 December 2007