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

RE: [slime-devel] Re: SBCL restart-frame
by Mészáros Levente 20 Jan '06

20 Jan '06

> > Is it really this simple? > > Not quite. The restarted function will be run in the wrong dynamic > environment. For example: > > (declaim (optimize (debug 2))) > > (defvar *a* 0) > > (defun foo (a) > (let ((*a* (1+ *a*))) > (/ 2 a))) > > (defun bar () > (print *a*) > (foo 0)) > > When you call BAR, it'll print 0 and then call FOO, which will signal > an error. If we now restart BAR, the dynamic binding for *A* that FOO > established will still be visibile, and it'll print 1 instead. On the other hand return from frame is already supported for SBCL in SLIME. And if I got it right the above statement also means that return from frame works the same "somewhat bad" way. I mean returning from the frame of bar (in the debugger) the value of *a* will return 1 instead of 0. Am I right? levy ________________________________________________________________________ Képkidolgozás már bruttó 25,- Ft-tól! FotoMarket Online Fotóáruház - már 5 éve az Ön fotószolgálatában: www.fotomarket.hu

2 1

[slime-devel] clisp without unicode patch
by Hoehle, Joerg-Cyril 19 Jan '06

19 Jan '06

Hi, I thought about alternatives and rejected them. Probably this patch is just fine as is and it should not raise an error when Emacs uses UTF-8 or anything and clisp was only built with 8bit strings --without-unicode. 2006-01-14 Joerg Hoehle <hoehle(a)users.sourceforge.net> * swank-clisp (find-encoding): work in a 8bit clisp w/o #-UNICODE. --- swank-clisp.lisp.orig 2005-11-12 00:43:43.000000000 +0100 +++ swank-clisp.lisp 2006-01-14 13:17:08.000000000 +0100 @@ -122,7 +122,9 @@ (:iso-latin-1-unix "iso-8859-1") (:utf-8-unix "utf-8") (:euc-jp-unix "euc-jp")))) - (ext:make-encoding :charset charset :line-terminator :unix))) + (ext:make-encoding :charset (if (member :unicode *features*) + charset :default) + :line-terminator :unix))) (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) The idea in the present patch is that (untested) the same set of slime.fas files might possibly work in both builds of clisp: with and without unicode. But you'd need to compile from the 8bit version. Regards, Jorg Hohle.

2 1

Re: [slime-devel] [patch] Make it possible to keep FASL files in source directory
by Nathan Bird 19 Jan '06

19 Jan '06

This makes swank no longer asdf loadable. E.g. http://paste.lisp.org/display/15792 The problem is that UCW depends upon swank, but just stating that dependency in the asd is no longer good enough. All the swank packages aren't there until the load-swank function is called, and since files in UCW reference the swank package we get a reader error. The name "SWANK-BACKEND" does not designate any package. Can we please make swank continue to be fully loaded by default? Maybe make several ASD files, one similar to the current swank.asd that just makes swank-loader available, and another that also loads a file that does (swank-loader:load-swank) ? Any thoughts? Nathan Bird

2 1

[slime-devel] How to cleanly update from CVS
by Jonathon McKitrick 19 Jan '06

19 Jan '06

Hi all, I was bitten earlier this week when I updated and found that swank no longer started and required changed to .sbclrc to fix. Is there a recommended procedure to follow when I cvs up to make sure an update goes cleanly? -Jonathon -- "I am sure that Jesus would use a command prompt. Hello? Ten Commandments??"

3 2

[slime-devel] How should I test multithreaded SBCL code using SLIME?
by Glenn Ehrlich 18 Jan '06

18 Jan '06

All, I'm experimenting moving over a body of code from LispWorks to SBCL and I've got some multithreaded code. When using LW, I'd just start up a LW core image on a command line, manually start up swank, then do slime-connect a couple of times, and use the 2 repls to experiment / debug the multithreaded code. Specifically, I've got a shared queue that waits when empty; I'd call the dequeue in repl 1, see that it properly waits, then enqueue in repl 2 and ideally see the enqueue return in repl 1; crude, but simple. I try doing the same thing in SBCL. I start up SBCL in a shell, start up swank, and I can start up the 1st repl with slime-connect. When I attempt a 2nd slime-connect, emacs loses the connection to SBCL and I get this in the shell running SBCL: WRITE: (:return (:ok (:pid 6102 :style :spawn :lisp-implementation (:type "SBCL" :name "sbcl" :version "0.9.8") :machine (:instance "localhost.localdomain" :type "X86" :version "Intel(R) Pentium(R) 4 CPU 2.80GHz") :features (:acl-compat :cl-ppcre it.bese.arnesi.mopp::have-mop :split-sequence :asdf :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-package-locks :sb-unicode :sb-source-locations :ieee-floating-point :x86 :elf :linux :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack :stack-allocatable-closures :linkage-table :os-provides-dlopen :os-provides-dladdr :os-provides-putwc) :package (:name "COMMON-LISP-USER" :prompt "CL-USER"))) 1) WRITE: (:open-dedicated-output-stream 32783) READ: "(:emacs-rex (swank:connection-info) \"COMMON-LISP-USER\" :repl-thread 1) " DISPATCHING: (:EMACS-REX (SWANK:CONNECTION-INFO) "COMMON-LISP-USER" :REPL-THREAD 1) ;; Event history end. ;; Connection to Emacs lost. [ ;; condition: The value NIL is not of type SB-THREAD:THREAD. ;; type: TYPE-ERROR ;; encoding: :ISO-LATIN-1-UNIX style: :SPAWN dedicated: T] <sbcl is locked, so I hit control-c and get this:> debugger invoked on a SIMPLE-CONDITION in thread #<THREAD "initial thread" {A66D379}>: interrupted at #XB7FFF402 Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [CONTINUE] Return from SB-UNIX:SIGINT. 1: [ABORT ] Exit debugger, returning to top level. (SB-UNIX::SIGINT-HANDLER #<unavailable argument> #<unavailable argument> #.(SB-SYS:INT-SAP #XB7B9C5FC)) 0] I'm running SBCL 0.9.8, slime from cvs of 12/27/2005, and Fedora Core 4. I've got a function for starting up swank: (defun start-swank (&key (port swank::default-server-port) (style swank:*communication-style*) (dont-close t)) "Start the SLIME swank server, listening on PORT. Multiple connections are allowed." (swank:create-server :port port :style style :dont-close dont-close)) and I call it with default arguments, (start-swank). Is it possible to drive SBCL like I mentioned at the top with LispWorks and if so, how do I do it? Thanks! Glenn Ehrlich

2 3

[slime-devel] [patch] Make it possible to keep FASL files in source directory
by Maciek Pasternacki 18 Jan '06

18 Jan '06

Hello. I use SLIME with SBCL; I have two instances of SBCL in my system (sometimes more); one is system-wide installation, second is project-local, both are of the same version, but with possibly different features. Both use SLIME (project-local version loads swank by hand). Problem is that system-wide SBCL is threaded, and project-local one is not; thus, .fasl files generated by one are unreadable to other. I don't want project-local SBCL and SLIME to mess with my system-wide settings and I'd prefer to have it leave any files outside project dir alone. I made a small patch against current CVS to swank to make it possible to keep FASL files in source directory; now it is turned on by pushing :SWANK-FASL-IN-PLACE to *FEATURES*; I couldn't think of better way of signalling swank-loader.lisp that we want to have FASL with sources before loading it (i.e. before (DEFPACKAGE)s and (DEFVAR)s). If this way is ok, please apply this patch; I don't insist on this particular way of communicationg with loader (it seems kludgy), if there is better one, please treat this post as yet another feature request. -- __ Maciek Pasternacki <maciekp(a)japhy.fnord.org> [ http://japhy.fnord.org/ ] `| _ |_\ / { ...I choose to live and to grow, take and give and to ,|{-}|}| }\/ move, learn and love and to be paranoid and to lie, hate and fear \/ |____/ and to do what it takes to move through.. } ( M. J. Keenan ) -><-

2 2

[slime-devel] Beginning of defun should work for compile defun?
by Liam M. Healy 17 Jan '06

17 Jan '06

If I do C-M-a to go to beginning of defun, then do C-c C-c to compile the defun, it compiles the previous defun. Shouldn't the "beginning of defun" be the current defun? See also discussion: http://meme.b9.com/cview.html?channel=lisp&start=3346261896 Liam

2 1

[slime-devel] slime-selector r should start slime with default args
by Andreas Fuchs 17 Jan '06

17 Jan '06

Hi all, With the inferior-lisp-program variable bound to any value but a non-nil slime-lisp-implementations variable, the slime-selector r shortcut will start slime with inferior-lisp-program. This is a bit inconsistent with the behavior of M-x slime. which starts the first entry in slime-lisp-implementations (or the default entry etc.). The following patch fixes this: Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.575 diff -u -r1.575 slime.el --- slime.el 31 Dec 2005 15:06:09 -0000 1.575 +++ slime.el 8 Jan 2006 10:18:12 -0000 @@ -8573,7 +8573,7 @@ (cond ((slime-current-connection) (slime-output-buffer)) ((y-or-n-p "No connection: start Slime? ") - (slime-start)))) + (apply #'slime-start (slime-read-interactive-args))))) (def-slime-selector-method ?s "*slime-scratch* buffer." Alternatively, I could see it invoke `slime' interactively. I'm not sure what the preferred coding style is here. Have fun, -- Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs

2 1

[slime-devel] slime-edit-definition error
by Jonathon McKitrick 17 Jan '06

17 Jan '06

I am trying to jump to the definition of a function, and got this running SBCL. Any idea what this could be? #<SB-SYS:FD-STREAM for "file /home/jonathon/.sbcl/site/cl-pdf/pdf-geom.lisp" {B799D51}> is closed. [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "worker" {B78D109}>) Backtrace: 0: (SB-KERNEL:CLOSED-FLAME #<SB-SYS:FD-STREAM for "file /home/jonathon/.sbcl/site/cl-pdf/pdf-geom.lisp" {B799D51}>) 1: ((LAMBDA (CONDITION STREAM)) #<SB-INT:STREAM-DECODING-ERROR {B79A7A9}> #<SB-PRETTY:PRETTY-STREAM {B79AB79}>) 2: (SB-PRETTY:OUTPUT-PRETTY-OBJECT #<SB-INT:STREAM-DECODING-ERROR {B79A7A9}> #<SB-IMPL::STRING-OUTPUT-STREAM {B79AAB9}>) 3: (PRINC #<SB-INT:STREAM-DECODING-ERROR {B79A7A9}> #<SB-IMPL::STRING-OUTPUT-STREAM {B79AAB9}>) 4: (SB-FORMAT::A-FORMAT-DIRECTIVE-INTERPRETER #<SB-IMPL::STRING-OUTPUT-STREAM {B79AAB9}> #<~A> NIL #<unavailable argument> (#<SB-INT:STREAM-DECODING-ERROR {B79A7A9}>)) 5: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST #<SB-IMPL::STRING-OUTPUT-STREAM {B79AAB9}> (#<~A>) (#<SB-INT:STREAM-DECODING-ERROR {B79A7A9}>) (#<SB-INT:STREAM-DECODING-ERROR {B79A7A9}>)) 6: (SB-FORMAT::%FORMAT #<SB-IMPL::STRING-OUTPUT-STREAM {B79AAB9}> "Error: ~A" (#<SB-INT:STREAM-DECODING-ERROR {B79A7A9}>) (#<SB-INT:STREAM-DECODING-ERROR {B79A7A9}>)) 7: (FORMAT NIL "Error: ~A") -Jonathon -- "I am sure that Jesus would use a command prompt. Hello? Ten Commandments??"

2 2

[slime-devel] SBCL restart-frame
by Mészáros Levente 17 Jan '06

17 Jan '06

Hi, I am relatively new to SBCL and SLIME, so maybe I'm wrong about this. I did not find restart-frame support for SBCL, so I did this patch and it seems to work for me. RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v retrieving revision 1.151 diff -r1.151 swank-sbcl.lisp 929c929,933 < --- > > (defimplementation restart-frame (index) > (let ((frame (nth-frame index))) > (return-from-frame index (sb-debug::frame-call-as-list frame)))) > levy ________________________________________________________________________ Nézze meg az Üvegtigrist INGYEN! T-Online Téka kódolatlan hétvége január 13-15. www.t-online.hu

3 2

[slime-devel] Debugging without stepping
by Jonathon McKitrick 14 Jan '06

14 Jan '06

I'm new to SLIME, and trying to figure out some practical debugging strategies since I'm so used to single-stepping and breakpoints, and we don't have those facilities (IIRC) under Lisp/SLIME. What are some ways to accomplish the same thing? Or do we just use C-c C-t and debug that way, reading return values from traced functions? -Jonathon -- "I am sure that Jesus would use a command prompt. Hello? Ten Commandments??"

8 10

RE: [slime-devel] invoke-debugger
by Mészáros Levente 13 Jan '06

13 Jan '06

Meanwhile I figured out that I was wrong about this, sorry. > -----Original Message----- > From: slime-devel-bounces(a)common-lisp.net [mailto:slime-devel- > bounces(a)common-lisp.net] On Behalf Of Mészáros Levente > Sent: Tuesday, January 10, 2006 10:09 AM > To: slime-devel(a)common-lisp.net > Subject: [slime-devel] invoke-debugger > > Hi, > > I'm using SBCL 0.9.7 with SLIME and have the following issue: > > (defun foo () > (error "Foo error")) > > (defun bar () > (handler-case > (foo) > (error (e) > (print "Got error") > (invoke-debugger e)))) > > (bar) > > Calling bar directly in an SBCL repl causes the "Got error" message to > appear and the debugger shows up having bar in the stack trace > correctly. > > Doing the same thing from a SLIME repl also displays the message but > the debugger shows a weird stack trace without bar. > > It's not very important to me because I have a workaround for it. I just > wanted to note it (maybe someone wants to fix this). > > Levy ________________________________________________________________________ Hideg van. Licitáljon otthonról! HunBook online könyvárverés január 20. 18:30. www.hunbook.hu

1 0

[slime-devel] Connecting to running image versus starting from emacs
by Jonathon McKitrick 12 Jan '06

12 Jan '06

Hi all, I have a question about running a Lisp app. Right now, I'm starting a repl, loading an asdf-system, and starting a swank server. Then I connect from emacs/slime. Is there a way to start emacs and load/run the app from there? -Jonathon -- "I am sure that Jesus would use a command prompt. Hello? Ten Commandments??"

3 3

[slime-devel] 2 slime inspector buffers around at the same time?
by Chisheng Huang 12 Jan '06

12 Jan '06

Hi, Is it possible to have 2 slime inspector buffers around at the same time? This can be very handy for side-by-side comparison. Best wishes, -cph

2 1

[slime-devel] unexpected behaviour of C-c C-c
by Chisheng Huang 12 Jan '06

12 Jan '06

Hi, Save the following into a file: (progn (print :aaaaaaaaaa) (finish-output)) (progn ;; C-c C-c while your cursor is at the left parenthesis on this line (print :bbbbbbbbbb) (finish-output)) Fire up Lisp and Slime. Move your cursor to the position specified in the above comment and you'll see :AAAAAAAAAA printed out in Slime's REPL. I believe doing the same thing a few weeks ago would print out :BBBBBBBBBB. I have to say I like the old way much more than the new one. A bit more info: Slime: the latest from CVS Gnu Emacs 21.4.1 CMUCL: 2005-09 snapshot Best wishes, -cph

1 0

[slime-devel] Installing slime for clisp 2.35 - Error
by Surendra Singhi 10 Jan '06

10 Jan '06

Hello, I recently upgraded to clisp 2.35 and now when I try to start slime on a lisp file, slime gets stuck. The *inferior-lisp* buffer shows me the following restart. ** - Continuable Error INTERN("*DOCUMENTATION*"): #<PACKAGE SYSTEM> is locked If you continue (by typing 'continue'): Ignore the lock and proceed The following restarts are also available: SKIP :R1 skip (COMPILE-FILES-IF-NEEDED-SERIALLY #) STOP :R2 stop loading file C:\Program Files\XEmacs\xemacs-packages\lisp\slime-1.2.1\swank-loader.lisp ABORT :R3 ABORT Doing 'continue', doesn't starts the slime repl, nor does selecting any of the restarts help. But, the inferior lisp buffer shows a lisp prompt, which can be used. What should I do to get over this problem? The slime related contents of my init file are: (load-library "inf-lisp") (setq inferior-lisp-program "C:\\clisp-2.35\\clisp.exe -I -m 256mb") (add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t))) (require 'timer) (require 'slime) (slime-setup) Thanks. -- Surendra Singhi http://www.public.asu.edu/~sksinghi/index.html "All animals are equal, but some animals are more equal than others." - Orwell, Animal Farm, 1945

5 8

[slime-devel] invoke-debugger
by Mészáros Levente 10 Jan '06

10 Jan '06

Hi, I'm using SBCL 0.9.7 with SLIME and have the following issue: (defun foo () (error "Foo error")) (defun bar () (handler-case (foo) (error (e) (print "Got error") (invoke-debugger e)))) (bar) Calling bar directly in an SBCL repl causes the "Got error" message to appear and the debugger shows up having bar in the stack trace correctly. Doing the same thing from a SLIME repl also displays the message but the debugger shows a weird stack trace without bar. It's not very important to me because I have a workaround for it. I just wanted to note it (maybe someone wants to fix this). Levy ________________________________________________________________________ A hat lúzer újra együtt! Üvegtigris 2: január 19-től a mozikban! http://www.uvegtigris.hu

1 0

[slime-devel] newbie question regarding slime and xemacs and cygwin - slime loading fails
by Sean McGrath 09 Jan '06

09 Jan '06

when loading slime (1.2.1) with xemacs (21.4 - patch 13) (on a winxp box with the latest cygwin setup) i get the following error: WARNING: DEFMETHOD: redefining method (LISP-IMPLEMENTATION-TYPE-NAME NIL) i checked the archives and came across a similar question from justinhj, but never found the answer: > From justinhj at gmail.com Thu Sep 29 15:55:54 2005 From: justinhj at gmail.com (Justin Heyes-Jones) Date: Thu Sep 29 16:24:16 2005 Subject: [slime-devel] Slime not working with latest Cygwin update? Message-ID: <ee5546040509290655647f6c6e(a)mail.gmail.com> here's my entire *inferior-lisp* buffer: (load "/usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/swank-loader.lisp" :verbose t) 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-2005 [1]> ;; Loading file /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/swank-loader.lisp ... ;; Compiling file /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/swank-backend.lisp ... ;; Wrote file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/swank-backend.fas ;; Loading file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/swank-backend.fas ... ;; Loaded file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/swank-backend.fas ;; Compiling file /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/nregex.lisp ... ;; Wrote file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/nregex.fas ;; Loading file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/nregex.fas ... ;; Loaded file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/nregex.fas ;; Compiling file /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/xref.lisp ... ;; Wrote file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/xref.fas ;; Loading file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/xref.fas ... ;; Loaded file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/xref.fas ;; Compiling file /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/metering.lisp ... ;; Wrote file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/metering.fas ;; Loading file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/metering.fas ... ;; Loaded file /cygdrive/c/home/sean/.slime/fasl/clisp-2.35-unix-pc386/metering.fas ;; Compiling file /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/swank-clisp.lisp ... WARNING: DEFMETHOD: redefining method (LISP-IMPLEMENTATION-TYPE-NAME NIL) in /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/swank-clisp.lisp, was defined in /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/swank-backend.lisp ** - Continuable Error INTERN("*DOCUMENTATION*"): #<PACKAGE SYSTEM> is locked If you continue (by typing 'continue'): Ignore the lock and proceed The following restarts are also available: SKIP :R1 skip (COMPILE-FILES-IF-NEEDED-SERIALLY #) STOP :R2 stop loading file /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/swank-loader.lisp ABORT :R3 ABORT *** - UNIX error 13 (EACCES): Permission denied The following restarts are available: SKIP :R1 skip (COMPILE-FILES-IF-NEEDED-SERIALLY #) STOP :R2 stop loading file /usr/local/lib/xemacs/xemacs-packages/lisp/slime-1.2.1/swank-loader.lisp ABORT :R3 ABORT Break 1 SWANK-BACKEND[2]> any thoughts? btw, i've gotten this to work on a different box with an older version of xemacs and cygwin. thanks!

2 1

[slime-devel] Slime, SBCL and add-fd-handler
by Dmitri Hrapof 08 Jan '06

08 Jan '06

Hello! I'm using add-fd-handler in my server, and everything works in raw terminal. However, when I start server from Slime, I have to call (SB-IMPL::SERVE-EVENT) manually to get my callbacks called and client's request answered. Is this expected behaviour? What is idiomatic solution? It seems to me I've done everything as Araneida does: (defun make-repl-friendly (s) (when *repl-friendly* (%SYSDEP "adds callbacks for socket" #+sbcl (sb-sys:add-fd-handler (sb-bsd-sockets:socket-file-descriptor s) :input #'(lambda (fd) (declare (ignore fd)) (loop while (op:work_pending *the-orb*) do (op:perform_work *the-orb*))))))) Where should I dig? Thanks, Dmitri

3 4

Re: [slime-devel] not connected problem
by Davidlohr Bueso A. 07 Jan '06

07 Jan '06

2 1

[slime-devel] Connection broken (sbcl 0.9.7 & slime-cvs)
by Evrim ULU 06 Jan '06

06 Jan '06

Hi, I'm new to lis[t,p] :) I'm looking for help with slime/sbcl. Slime says: Lisp connection closed unexpectedly; * ;; Connection to Emacs lost. ;; [ debugger invoked on a SIMPLE-ERROR in thread #<THREAD "control-thread" {9B9D269}>: #<SB-SYS:FD-STREAM for "a constant string" {9A593C9}> is closed. debugger invoked on a SIMPLE-ERROR in thread #<THREAD "auto-flush-thread" {9B92CA1}>: #<SB-SYS:FD-STREAM for "a constant string" {9A593C9}> is closed. when i try to compile and load my lisp examples file (see attachments). I've seen a similar bug with cmucl on the list but i'm not sure if it is the same. It was about long files, this file is 307 lines long. I'm using slime-cvs along with emacs 22.0.50.1 on linux with nptl-only glibc. thnx in advance. evrim. (in-package :cl-user) (defun fun (x) (list 3 (expt (car x) 2))) (defmacro nil! (var) (list 'setq var nil)) (defun longer-than (x y) (> (length x) (length y))) (defun addlength (x) (cons (length x) x)) ;;(defun crank-call (caller callee) ;; '(hello callee this is caller calling)) (defun double (n) (* n 2)) (defun quad (n) (double (double n))) (defun stooge (larry moe curly) (list larry (list moe curly) curly 'larry)) (defun ms (x) (list (second x) (first x))) (defun if-test (x) (if (symbolp x) (list '(what the fuck?)) (list '(fuck the world!)))) (defun cond-test (x) (cond ((> x 0) x) ((< x 0) (- x)))) (defun variable-scope-test (x) (setf x (+ x 2))) (defun intersect2 (x y) (intersection x y)) (defun union2 (x y) (union x y)) (defun diff2 (x y) (set-difference x y)) (defun export_list () (setf *assoc-list1* '((key1 . val1) (key2 . val2) (key3 . val3)))) (defun assoc1 (x) (cdr (assoc x *assoc-list1*))) (defun rassoc1 (x) (car (rassoc x *assoc-list1*))) (defun export_list2 () (setf *list2* '((key1 valX val10 val11) (key2 valX val20 val21)))) (defun set-xor (x y) (set-exclusive-or (rest (assoc x *list2*)) (rest (assoc y *list2*)))) ;;; (remove-dups '(a a b c)) (defun remove-dups (x) (remove-duplicates x)) (defun substt (F G) (let ((y '(a b c))) (subst G F y))) (defun let-test (x y) (let ((a 1) (b 2)) (+ a b x y))) ;;; CL-USER> (subliss '(A . X) '(B . Y)) ;;; (X Y C) (defun subliss (F G) (let ((y '(A B C)) (final-list (cons F (list G))) ) ;; (sublis '((A . X) (B . Y) (C . Z)) y))) (sublis final-list y))) ;; (listp final-list))) ;;;· EQ is the fastest equality test: It compares addresses. Experts use ;;;it to compare symbols quickly, and to test whether two cons cells ;;;are physically the same object. It should not be used to compare ;;;numbers. ;;;· EQL is like EQ except it can safely compare numbers of the same ;;;type, such as two integers or two floating point numbers. It is the ;;;default equality test in Common Lisp. ;;;· EQUAL is the predicate beginners should use. It compares lists ;;;element by element; otherwise it works like EQL. ;;;· EQUALP is more liberal than EQUAL: It ignores case distinctions ;;;in strings, among other things. ;;;· = is the most efficient way to compare numbers, and the only way ;;;to compare numbers of disparate types, such as 3 and 3.0. It only ;;;accepts numbers. (defun member-equal (x) (let ((l '((3 kupa) (5 karo) (as maca)))) (member x l :test #'equal))) (defun remove-equal (x) (let ((l '((3 kupa) (5 karo) (as maca)))) (remove x l :test #'equal))) (defun squ (x) (* x x)) ;; (mapcar-test #'squ) ;; (1 4 9) (defun mapcar-test (x) (let ((y '(1 2 3))) (mapcar x y))) (defun mapcar-test2 () (mapcar #'(lambda (n) (* n n)) '(1 2 3))) ;; also, (setf fn #'cons) etc. ;; CL-USER> (my-assoc 'A) ;; (A 1) (defun my-assoc (key) (let ((y '((A 1) (B 2) (C 3)))) (find-if #'(lambda (entry) (equal key (first entry))) y))) ;;CL-USER> (my-assoc-remove-if 'A) ;;((B 2) (C 3)) ;; see also remove-if-not (defun my-assoc-remove-if (key) (let ((y '((A 1) (B 2) (C 3)))) (remove-if #'(lambda (entry) (equal key (first entry))) y))) ;; CL-USER> (reducee) ;; 6 (defun reducee () (let ((y '(1 2 3))) (reduce #'+ y))) ;; CL-USER> (everyy) ;; T (defun everyy () (let ((y '(1 2 3 4 5))) (every #'numberp y))) ;; CL-USER> (everyyy) ;; NIL ;; also, (every #'> '(10 20 30 40) '(1 2 3 4)) (defun everyyy () (let ((y '(1 2 3 4 5))) (every #'oddp y))) ;; (trace everyyy), (untrace everyyy) ;; CL-USER> (map-car2) ;; (11 22 33) (defun map-car2 () (let ((y '(1 2 3)) (x '(10 20 30))) (mapcar #'+ y x))) ;; (setf pred (make-greater-than-predicate 3)) ;; (funcall pred 2) => nil ;; (funcall pred 4) => t (defun make-greater-than-predicate (n) #'(lambda (x) (> x n))) ;; RECURSION ;; compares first if its odd, returns. ;; double-test tail recursion (defun anyoddp (x) (cond ((null x) nil) ((oddp (first x)) t) (t (anyoddp (rest x))))) ;; augmented tail recursion ;; means accumulation of recursive data ;; CL-USER> (count-slices '(A B C)) ;; 3 (defun count-slices (x) (cond ((null x) 0) (t (+ 1 (count-slices (rest x)))))) ;; list-consing recursion ;; constructs(cons) list every time (defun laugh (n) (cond ((zerop n) nil) (t (cons ’ha (laugh (- n 1)))))) ;; binary tree gezelim ;; CL-USER> (atoms-to-q '(A B (C D (E)))) ;; (Q Q (Q Q (Q))) (defun atoms-to-q (x) (cond ((null x) nil) ((atom x) 'q) (t (cons (atoms-to-q (car x)) (atoms-to-q (cdr x)))))) ;; loop-infinitely for (rest equals nil) (defun any-7-p (x) (cond ((equal (first x) 7) t) (t (any-7-p (rest x))))) (defun flattenn (x result) (cond ((null x) nil) ((atom x) (list x)) (t (append (flattenn (car x) result) (flattenn (cdr x) result))))) ;; INPUT/OUTPUT (defun 0utput () (progn (format t "xxx newline~&this is newline") (format t "this is a S-exp: ~S" 'cemisgezek))) ;; > (test "Hi, mom") ;; With escape characters: "Hi, mom" ;; Without escape characters: Hi, mom ;; NIL (defun 0utput2 (x) (format t "~&With escape characters: ~S" x) (format t "~&Without escape characters: ~A" x)) (defun draw-line () (format t "~&---------------------")) (defun draw-three (x) (format t "~& ~A | ~A | ~A~%" (filter (first x)) (filter (second x)) (filter (third x)))) (defun filter (x) (cond ((equal x nil) " ") (t x))) (defun draw-three2 (x) (format t "~& ~A | ~A | ~A~%" (first (filter2 x)) (second (filter2 x)) (filter2 (third x)))) (defun filter2 (x) (sublis '((nil . "")) x)) ;; CL-USER> (draw-board '(X 0 NIL X 0 NIL X 0 NIL)) ;; X | 0 | ;;--------------------- ;; X | 0 | ;;--------------------- ;; X | 0 | (defun draw-board (x) (draw-three2 x) (draw-line) (draw-three (nthcdr 3 x)) (draw-line) (draw-three (nthcdr 6 x))) ;; read input (defun what-da () (format t "~&enter number:") (let ((x (read))) (format t "~&entered: ~A" x))) (defun hashh() (let ((gee (make-hash-table))) ; (setf gee (make-hash-table)) (setf (gethash 'evrim gee) "i am your worst nightmare!") (format t "HASH VALUE: ~A~%" (gethash 'evrim gee)) (describe gee))) (defmacro simple-incf (var) (list 'setq var (list '+ var 1))) (defmacro set-zero (&rest variables) `(progn ,@(mapcar #'(lambda (var) (list 'setf var 0)) variables) '(zeroed ,@variables))) ;; DECLARE special ;; (setf x 2) ;; declaretest => 2 (defun declaretest () (let ((x 1)) (locally (declare (special x)) x)))

2 2

[slime-devel] not connected problem
by Davidlohr Bueso A. 06 Jan '06

06 Jan '06

3 2

[slime-devel] getting no slime repl prompt
by Friedrich Dominicus 05 Jan '06

05 Jan '06

I'm not getting it, I run into the following trouble System Debian 2.6.x, SBCL 0.9.7.x 0.9.8.x the actual source from the slime cvs repository. Xemacs 21.4.18. Now if I'm staring slime for this SBCL it loads fine till I got the *inferior-lisp* buffer. The last message I see is Process bridge is installed. And that's it I got not repl and therefor no connection to the running SBCL. What am I missing? Regards Friedrich

1 1

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

03 Jan '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.826 slime/ChangeLog:1.827 --- slime/ChangeLog:1.826 Sat Dec 31 16:08:22 2005 +++ slime/ChangeLog Tue Jan 3 04:58:39 2006 @@ -1,3 +1,11 @@ +2005-12-27 Alan Ruttenberg <alanr-l(a)mumble.net> + + * swank-abcl. (backtrace-as-list-ignoring-swank-calls): remove the + swank calls from the backtrace to make it easier to use. + (frame-locals): Fix a typo that caused entry into the debugger if you tried to + look at frame locals. Now you don't error out, but you still don't see frame locals + because I don't know how to get them :( + 2005-12-31 Harald Hanche-Olsen <hanche(a)math.ntnu.no> * slime.el (slime-open-stream-to-lisp): Inherit the

1 0

[slime-devel] slime + allegrocl and multiple lisps
by Surendra Singhi 03 Jan '06

03 Jan '06

Hi, Happy New Year. I have two questions about slime. First, I am trying to connect allegrocl and slime. My environment is Windows XP and XEmacs 21.5.23. My init file contains the following code: (global-set-key [(f7)] '(lambda () (interactive) (shell-command "alisp.exe +B +cm -L ~/.slime.lisp&") (while (not (ignore-errors (progn (slime-connect "localhost" 4005) t))) (sit-for 0.2)) (delete-other-windows) (slime-connect "localhost" 4005))) Initially I was just using the Bill Clementson's code, but I was getting "program actively refused connection error" so I tried adding (while (not .....)) mentioned at http://common-lisp.net/pipermail/slime-devel/2005-February/003088.html But now I get an error message "(error "Keyword argument 2932 not one of (:pid :style :lisp-implementation :machine :features :package)")" What am I doing wrong or missing, and how can I use allegro and slime? Btw, my .slime.lisp file contains (load "C:/Program Files/XEmacs/xemacs-packages/lisp/slime/swank-loader.lisp") (swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t) The contents of *slime-events* buffer are below. The second question is about using multiple lisp connections simultaneously. Based on Helmut's code I added the following to my init file. http://article.gmane.org/gmane.lisp.slime.devel/4268 (setq slime-lisp-implementations '((clisp ("clisp.exe -I -m 256mb")) (acl7 ("alisp +B +cm")))) (load-library "inf-lisp") (setq inferior-lisp-program "clisp.exe -I -m 256mb") (add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t))) The problem is that when I do M-x slime, it gives me a "Process Error: Searching for Program". But earlier when I didn't have any values assigned to slime-lisp-implementation, things used to work fine. Also, C-u M-x slime, shows me `Run lisp:clisp.exe -I -m 256mb' and then when I press enter clisp starts properly. Thanks for the help. -- Surendra Singhi http://www.public.asu.edu/~sksinghi/index.html ,---- | "All animals are equal, but some animals are more equal than others." | -- Orwell, Animal Farm, 1945 `---- Contents of *slime-events* buffer: (:emacs-rex (swank:connection-info) nil t 1) (:emacs-rex (swank:connection-info) nil t 1) (:open-dedicated-output-stream 2122) (:open-dedicated-output-stream 2124) (:indentation-update (("record-strings" . 1) ("record-code-vectors" . 1) ("with-scheduling-allowed" . 0) ("with-host-as-target" . 0) ("with-struct" . 2) ("defimplementation" . 2) ("with-compilation-hooks" . 1) ("with-temp-package" . 1) ("with-reader-error-handler" . 1) ("with-describe-settings" . 1) ("with-bindings" . 1) ("defslimefun" . 2) ("without-interrupts" . 0) ("with-io-redirection" . 1) ("with-connection" . 1) ("with-buffer-syntax" . 1) ("with-sampling" . 1) ("with-profiling" . 1) ("preparing-analysis" . 1) ("preparing-profile-analysis" . 1) ("with-process-lock" . 1) ...)) (:return (:ok (2932 "International Allegro CL Enterprise Edition" "allegro" (:asdf-install :split-sequence :asdf :allegro-cl-enterprise :acl-socket :hiper-socket :profiler :multiprocessing :flavors :little-endian :gsgc :compiler :use-structs-in-compiler :clos :verify-car-cdr :dynload :dlwin :x86 :mswindows :microsoft :microsoft-32 ...) :spawn "7.0 [Windows] (Dec 20, 2005 19:16)" "THAR")) 1) (:indentation-update (("record-strings" . 1) ("record-code-vectors" . 1) ("with-scheduling-allowed" . 0) ("with-host-as-target" . 0) ("with-struct" . 2) ("defimplementation" . 2) ("with-compilation-hooks" . 1) ("with-temp-package" . 1) ("with-reader-error-handler" . 1) ("with-describe-settings" . 1) ("with-bindings" . 1) ("defslimefun" . 2) ("without-interrupts" . 0) ("with-io-redirection" . 1) ("with-connection" . 1) ("with-buffer-syntax" . 1) ("with-sampling" . 1) ("with-profiling" . 1) ("preparing-analysis" . 1) ("preparing-profile-analysis" . 1) ("with-process-lock" . 1) ...)) (:return (:ok (2932 "International Allegro CL Enterprise Edition" "allegro" (:asdf-install :split-sequence :asdf :allegro-cl-enterprise :acl-socket :hiper-socket :profiler :multiprocessing :flavors :little-endian :gsgc :compiler :use-structs-in-compiler :clos :verify-car-cdr :dynload :dlwin :x86 :mswindows :microsoft :microsoft-32 ...) :spawn "7.0 [Windows] (Dec 20, 2005 19:16)" "THAR")) 1)

2 1