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

[slime-devel] mixed development environment
by Kamen TOMOV 12 Jul '06

12 Jul '06

I run Emacs on Windows and connect to a Linux CMU-CL. When I execute M-. (edit definition) in a lisp buffer SLIME looks for a non-existing file on the local (windows) machine that actually resides on the remote (Linux) machine. Is there a known solution to this problem, e.g. can SLIME fetch the remote file or my hopes for a mixed development environment are doomed? Thanks! -- Kamen TOMOV

5 6

[slime-devel] swank-loader compatibility with cl-launch (solved)
by Nathan Bird 05 Jul '06

05 Jul '06

This issue goes back a while with a few different proposed fixes. http://common-lisp.net/pipermail/slime-devel/2006-March/004679.html being where I first know about it. This solution is pretty simple, except that it uses functions from the asdf in swank-loader.lisp. Is there anyone using swank-loader directly that does not have asdf and swank properly setup? If asdf is setup properly you can still directly invoke swank-loader. (defvar *source-directory* - (make-pathname :name nil :type nil - :defaults (or *load-pathname* *default-pathname-defaults*)) + (asdf:component-pathname (asdf:find-system :swank)) The reason being that when cl-launch loads the system, it puts the swank-loader.fasl in its own cache, and then when it loads that, the *load-pathname* is apparently nil and it can't find the source files. Slime still puts the fasls in its own cache. With this the source files are always found relative to the location of the asd file, which should be pretty dependable right? I've tested this with ACL on windows loading swank directly. And on debian sbcl loading swank directly, and cl-launch loading swank. Nathan Bird

2 2

[slime-devel] Keyword argument 5836 not one of (:pid
by Kamen TOMOV 03 Jul '06

03 Jul '06

Hi all, I have trouble connecting to a machine running CMUCL from a Windows box, although I connect to CMUCL from a Linux box. I have CLISP 2.38 and Slime 2.0 and tried with different versions of Emacs, but without success. I verified that there is no problem conecting to a local SWANK server from Windows. The keyword argument the error is about is the Lisp process's pid on the remote machine. I would be grateful for your help. Here is the stack trace from the Emacs debugger: Debugger entered--Lisp error: (error "Keyword argument 5836 not one of (:pid :style :lisp-implementation :machine :features :package)") signal(error ("Keyword argument 5836 not one of (:pid :style :lisp-implementation :machine :features :package)")) error("Keyword argument %s not one of (:pid :style :lisp-implementation :machine :features :package)" 5836) (cond ((memq ... ...) (setq --keys--50817 ...)) ((car ...) (setq --keys--50817 nil)) (t (error "Keyword argument %s not one of (:pid :style :lisp-implementation :machine :features :package)" ...))) (while --keys--50817 (cond (... ...) (... ...) (t ...))) (let ((--keys--50817 --rest--50816)) (while --keys--50817 (cond ... ... ...))) (let* ((--rest--50816 info) (pid ...) (style ...) (lisp-implementation ...) (machine ...) (features ...) (package ...)) (let (...) (while --keys--50817 ...)) (setf (slime-pid) pid (slime-communication-style) style (slime-lisp-features) features) (destructuring-bind (&key name prompt) package (setf ... name ... prompt)) (destructuring-bind (&key type name version) lisp-implementation (setf ... type ... version ... name ... ...)) (destructuring-bind (&key instance type version) machine (setf ... instance))) (progn (let* (... ... ... ... ... ... ...) (let ... ...) (setf ... pid ... style ... features) (destructuring-bind ... package ...) (destructuring-bind ... lisp-implementation ...) (destructuring-bind ... machine ...))) (destructuring-bind (&key pid style lisp-implementation machine features package) info (setf (slime-pid) pid (slime-communication-style) style (slime-lisp-features) features) (destructuring-bind (&key name prompt) package (setf ... name ... prompt)) (destructuring-bind (&key type name version) lisp-implementation (setf ... type ... version ... name ... ...)) (destructuring-bind (&key instance type version) machine (setf ... instance))) (let ((slime-dispatching-connection connection)) (destructuring-bind (&key pid style lisp-implementation machine features package) info (setf ... pid ... style ... features) (destructuring-bind ... package ...) (destructuring-bind ... lisp-implementation ...) (destructuring-bind ... machine ...)) (setq slime-state-name "") (when-let (p ...) (when-let ... ...)) (slime-hide-inferior-lisp-buffer) (slime-init-output-buffer connection) (run-hooks (quote slime-connected-hook)) (message "Connected. %s" (slime-random-words-of-encouragement))) slime-set-connection-info(#<process SLIME Lisp> (5836 "CMU Common Lisp" "cmucl" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2")) (lambda (G50154 info) (slime-set-connection-info (symbol-value G50154) info))(--proc-- (5836 "CMU Common Lisp" "cmucl" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2")) apply((lambda (G50154 info) (slime-set-connection-info (symbol-value G50154) info)) --proc-- (5836 "CMU Common Lisp" "cmucl" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2")) (lambda (&rest --cl-rest--) (apply (quote ...) (quote --proc--) --cl-rest--))((5836 "CMU Common Lisp" "cmucl" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2")) funcall((lambda (&rest --cl-rest--) (apply (quote ...) (quote --proc--) --cl-rest--)) (5836 "CMU Common Lisp" "cmucl" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2")) (if (symbol-value G50166) (funcall (symbol-value G50166) result)) (let* ((--rest--50164 rand-50162) (result ...)) (if (symbol-value G50166) (funcall ... result))) (cond ((eql op-50161 ...) (let* ... ...)) ((eql op-50161 ...) (let* ... ... ...)) (t (error "destructure-case failed: %S" tmp-50163))) (let* ((tmp-50163 G50157) (op-50161 ...) (rand-50162 ...)) (cond (... ...) (... ...) (t ...))) (lambda (G50166 G50157) (let* (... ... ...) (cond ... ... ...)))(--cont-- (:ok (5836 "CMU Common Lisp" "cmucl" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2"))) apply((lambda (G50166 G50157) (let* (... ... ...) (cond ... ... ...))) --cont-- (:ok (5836 "CMU Common Lisp" "cmucl" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2"))) (lambda (&rest --cl-rest--) (apply (quote ...) (quote --cont--) --cl-rest--))((:ok (5836 "CMU Common Lisp" "cmucl" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2"))) slime-dispatch-event((:return (:ok (5836 "CMU Common Lisp" "cmucl" ... :sigio "CVS release-19a 19a-release-20040728 + minimal debian patches" "r2")) 1) #<process SLIME Lisp>) slime-process-available-input(#<process SLIME Lisp>) slime-net-filter(#<process SLIME Lisp> "es\" . 2) (\"with-elapsed-run-time\" . 1) (\"with-temp-file\" . 1) (\"with-transaction\" . 1) (\"without-sync\" . 1) (\"with-transaction-log\" . 1)))\n00026A(:return (:ok (5836 \"CMU Common Lisp\" \"cmucl\" (:mop-store :cl-interpol :rune-is-octet :aserve :htmlgen :acl-compat :cl-ppcre :gray-streams :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :cmucl-19a-patch-002 :cmucl-19a-patch-001 :cmucl-19a-patch-000 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu) :sigio \"CVS release-19a 19a-release-20040728 + minimal debian patches\" \"r2\")) 1)\n") -- Kamen TOMOV .: http://www.cybuild.com/ :.

2 2

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

02 Jul '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.915 slime/ChangeLog:1.916 --- slime/ChangeLog:1.915 Mon Jun 26 02:29:15 2006 +++ slime/ChangeLog Sat Jul 1 03:11:31 2006 @@ -1,3 +1,9 @@ +2006-07-01 Luís Oliveira <loliveira(a)common-lisp.net> + + * swank-sbcl.lisp (locate-compiler-note): Change first branch to + handle the changes introduced by the previous patch to + swank-compile-string. + 2006-06-26 Helmut Eller <heller(a)common-lisp.net> * swank-sbcl.lisp (find-definitions): Remove backward

1 0

[slime-devel] patch to destructure-case
by Matthew D Swank 01 Jul '06

01 Jul '06

Would it be possible to have destructure-case match against arbitrary, non-nil atoms (patch attached)? Matt -- "You do not really understand something unless you can explain it to your grandmother." — Albert Einstein. --- slime/swank.lisp.orig 2006-06-18 13:21:54.000000000 -0500 +++ slime/swank.lisp 2006-06-30 21:14:27.000000000 -0500 @@ -304,8 +304,8 @@ (,operands (cdr ,tmp))) (case ,operator ,@(loop for (pattern . body) in patterns collect - (if (eq pattern t) - `(t ,@body) + (if (and pattern (atom pattern)) + `(,pattern ,@body) (destructuring-bind (op &rest rands) pattern `(,op (destructuring-bind ,rands ,operands ,@body)))))

1 2

[slime-devel] swank-sbcl patch: make swank-compile-string use compile-file
by Luís Oliveira 01 Jul '06

01 Jul '06

Hello, The following patch changes SBCL's swank-backend:swank-compile-string to create a temporary file and invoke compile-file on that similarly to what other backends, e.g. OpenMCL and Allegro, do. Everything seems to work fine but I haven't tested it extensively. Hopefully, it's not a terrible idea either. 2006-06-26 Luís Oliveira <loliveira(a)common-lisp.net> * swank-sbcl.lisp (tmpnam, temp-file-name): New functions. (swank-compile-string): Create temporary file with the string and compile-file it instead of compiling an anonymous lambda, as before, in order to better handle eval-when forms. -- Luís Oliveira luismbo (@) gmail (.) com http://student.dei.uc.pt/~lmoliv/

2 2

Re: [slime-devel] abcl problems
by Andras Simon 29 Jun '06

29 Jun '06

[I'm resending this because it bounced on Tuesday, due to the recent c-l.net troubles. Apologies if you get it twice. In the meantime I committed Helmut's patch to abcl.] On Tue, 27 Jun 2006, Helmut Eller wrote: > * Andras Simon [2006-06-27 12:03+0200] writes: > > > Anyway, I'd be grateful for any hints on how to start debugging this. > > At the lisp side we create a thread which periodically flushes some > output streams. We do this so that any buffered output shows up on > the Emacs side only after a short delay. > > We could work around the problem with (:write-string "") in our code, > if we test for empty strings. But the real problem seems to be that > ABCL's SlimeOutputStream writes the buffered text, but doesn't clear > the buffer afterwards. The following patch might be more appropriate: > > --- SlimeOutputStream.java.orig 2006-06-27 18:47:43.000000000 +0200 > +++ SlimeOutputStream.java 2006-06-27 19:48:44.000000000 +0200 > @@ -105,11 +105,12 @@ > > public void _finishOutput() throws ConditionThrowable > { > - try { > - LispThread.currentThread().execute(f, new SimpleString(stringWriter.toString())); > + super._finishOutput (); > + if (stringWriter.getBuffer().length() > 0) { > + String s = stringWriter.toString(); > + stringWriter.getBuffer().setLength(0); > + LispThread.currentThread().execute(f, new SimpleString(s)); > } > - catch (Throwable t) {} > - super._finishOutput(); > } > > public String toString() > This does the trick! Thanks, Helmut! Andras

1 0

[slime-devel] How to wrap code typed at the REPL?
by Philippe-André Lorin 29 Jun '06

29 Jun '06

I would like every expression I type at the REPL to be surrounded by a wrapper before evaluation. For instance, when I type: (+ 2 3) I want it to become: (wrap (+ 2 3)) How can I do that?

3 2

[slime-devel] abcl problems
by Andras Simon 27 Jun '06

27 Jun '06

I see the following with cvs slime/emacs/abcl: - After starting up slime/abcl, *slime-events* is getting filled up with (:write-string "") for no obvious reason. - If I compile a file (it doesn't matter what's in it) I get an endless stream of (:write-string "; Compiling /tmp/proba.lisp ...\n; (IN-PACKAGE #:CL-USER)\n; Wrote /tmp/proba.abcl (0.044 seconds)\n") in the *slime-events* buffer, and ; Compiling /tmp/proba.lisp ... ; (IN-PACKAGE #:CL-USER) ; Wrote /tmp/proba.abcl (0.044 seconds) in the repl. (But the compilation happens only once.) At first I thought this was related to Alan's recent (06/09) changes to swank-abcl.lisp, and going back to the previous version seemed to confirm this. But now, even though I removed the compiled files under ~/.slime/, I get the same problem with both the new (1.37) and the old (1.36) version. Strange. Anyway, I'd be grateful for any hints on how to start debugging this. Andras

1 0

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

27 Jun '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.914 slime/ChangeLog:1.915 --- slime/ChangeLog:1.914 Sun Jun 25 04:45:43 2006 +++ slime/ChangeLog Mon Jun 26 02:29:15 2006 @@ -1,3 +1,15 @@ +2006-06-26 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (find-definitions): Remove backward + compatibility code. + +2006-06-26 Luís Oliveira <loliveira(a)common-lisp.net> + + * swank-sbcl.lisp (tmpnam, temp-file-name): New functions. + (swank-compile-string): Create temporary file with the string and + compile-file it instead of compiling an anonymous lambda, as + before, in order to better handle eval-when forms. + 2006-06-25 Helmut Eller <heller(a)common-lisp.net> * swank-source-path-parser.lisp (suppress-sharp-dot): Return a

1 0