slime-devel

slime-devel@common-lisp.net

4231 discussions

Start a nNew thread

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

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

31 Dec '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.825 slime/ChangeLog:1.826 --- slime/ChangeLog:1.825 Tue Dec 27 16:14:44 2005 +++ slime/ChangeLog Sat Dec 31 16:08:22 2005 @@ -1,3 +1,8 @@ +2005-12-31 Harald Hanche-Olsen <hanche(a)math.ntnu.no> + + * slime.el (slime-open-stream-to-lisp): Inherit the + process-coding-system from the current connection. + 2005-12-27 Helmut Eller <heller(a)common-lisp.net> Keep a history of protocol events for better bug reports.

1 0

[slime-devel] Coding systems: suggested change to slime-open-stream-to-lisp
by Harald Hanche-Olsen 31 Dec '05

31 Dec '05

May I suggest the following patch to slime-open-stream-to-lisp: --- slime.el 30 Dec 2005 19:26:22 +0100 1.574 +++ slime.el 30 Dec 2005 22:58:49 +0100 @@ -2775,9 +2775,8 @@ (list* '("<" . slime-mark-presentation-start-handler) '(">" . slime-mark-presentation-end-handler) bridge-handlers))) - (set-process-coding-system stream - slime-net-coding-system - slime-net-coding-system) + (let ((pcs (process-coding-system (slime-current-connection)))) + (set-process-coding-system stream (car pcs) (cdr pcs))) (when-let (secret (slime-secret)) (slime-net-send secret stream)) stream)) It appears to solve the following problem. I have not changed slime-net-coding-system from its default value, but I have (setf slime-lisp-implementations '((sbcl ("sbcl") :coding-system utf-8-unix) (cmucl ("cmucl") :coding-system iso-latin-1-unix))) So when I run sbcl, coding systems on the emacs and sbcl sides match for input and printing of values, but there is a mismatch on printing from lisp code: The sbcl side uses utf-8, while the emacs side assumes latin-1. Quick demo (first good, second bad): cl-user> #\å #\å cl-user> (format t "~C" #\å) Ã¥ nil - Harald

2 1

[slime-devel] Re: Putting REPL prompt on the mode line?
by bdowning＠lavos.net 30 Dec '05

30 Dec '05

On Wed, Dec 21, 2005 at 07:54:10PM -0800, Derek Peschel wrote: > >More importantly to me, the prompt tells me "this is what *PACKAGE* was > >when I ran this command n {minutes,hours,days} ago." I'd be very > >unhappy for that information to go away. > > I wodnered if that issue would come up. If the information was stored > as a property of the text region that contains the command, and displayed > on the mode line or something, would that work for you? My gut feeling is that putting more distance between the expression and the package it was run in is not a win for me. Plus you'd have to put point on it to determine it that way which is quite inconvenient. > Do you want to see that kind of prompt in an editor buffer or let the > editor take care of it? In a normal Lisp buffer I agree - its primary purpose is editing the file, and interaction with the Lisp is secondary. Having a buffer-package shown on the mode-line works well in that case. However, I think the REPL buffer is a different story - interaction is primary there, so I think the prompt works well (for me). > I'm going a step further and changing the way the package and evaluation > state are shown. It's purely for appearance. Would a REPL buffer be nicer > if the left margins of all lines of input and output were aligned? IMHO, no. I like having the input indented by the prompt because it helps delimit what exactly is input without relying on font faces. Please experiment, though. Just make the end product be a customize option and everyone will be happy. :-) -bcd

3 2

[slime-devel] XEmacs-nomule, slime cvs 20051202, sbcl 0.9.7
by Adam Fabian 30 Dec '05

30 Dec '05

Hi. I'm having trouble with the above configuration. I saw this thread: http://article.gmane.org/gmane.lisp.slime.devel/4367 http://article.gmane.org/gmane.lisp.slime.devel/4368 that looks like it might be the same or a related problem. I'm not really sure. Looked around the mailing list, did some web searching, I don't think this is a duplicate report. Anyway, if I try to M-x slime with XEmacs-nomule (which is what I normally use) I get: Invalid slime-net-coding-system: nil. (iso-latin-1-unix iso-8859-1-unix bina (cuts off, I don't know how to read more of the minibuffer) as an error. If I try the mule version, which my distribution packages, I get a segmentation fault from XEmacs (this, of course, is probably better reported as an XEmacs bug, which I'm planning on doing.) This is XEmacs 21.4.17 with slime cvs 20051202 and sbcl 0.9.7. This is my first time trying to start things up. (That is to say, I had no working previous configuration.) I really don't know what to make of this, but here's what I get if I try it after setting debug-on-error to t: Debugger entered--Lisp error: (error "Invalid slime-net-coding-system: nil. (iso-latin-1-unix iso-8859-1-unix binary utf-8-unix emacs-mule-unix euc-jp-unix)") signal(error ("Invalid slime-net-coding-system: nil. (iso-latin-1-unix iso-8859-1-unix binary utf-8-unix emacs-mule-unix euc-jp-unix)")) cerror("Invalid slime-net-coding-system: %s. %s" nil (iso-latin-1-unix iso-8859-1-unix binary utf-8-unix emacs-mule-unix euc-jp-unix)) apply(cerror "Invalid slime-net-coding-system: %s. %s" (nil (iso-latin-1-unix iso-8859-1-unix binary utf-8-unix emacs-mule-unix euc-jp-unix))) error("Invalid slime-net-coding-system: %s. %s" nil (iso-latin-1-unix iso-8859-1-unix binary utf-8-unix emacs-mule-unix euc-jp-unix)) (if props nil (error "Invalid slime-net-coding-system: %s. %s" coding-system (mapcar ... slime-net-valid-coding-systems))) (unless props (error "Invalid slime-net-coding-system: %s. %s" coding-system (mapcar ... slime-net-valid-coding-systems))) (let ((props ...)) (unless props (error "Invalid slime-net-coding-system: %s. %s" coding-system ...)) (when (and ... ...) (assert default-enable-multibyte-characters)) t) slime-check-coding-system(nil) (let ((args ...)) (slime-check-coding-system coding-system) (when (or ... ...) (let ... ... ...))) (catch (quote --cl-block-slime-start--) (let (...) (slime-check-coding-system coding-system) (when ... ...))) (cl-block-wrapper (catch (quote --cl-block-slime-start--) (let ... ... ...))) (block slime-start (let (...) (slime-check-coding-system coding-system) (when ... ...))) (let* ((program ...) (program-args ...) (coding-system ...) (init ...) (name ...) (buffer ...)) (let (...) (while --keys--102022 ...)) (block slime-start (let ... ... ...))) slime-start(:program "/usr/local/bin/sbcl" :program-args nil) apply(slime-start (:program "/usr/local/bin/sbcl" :program-args nil)) (lambda (&optional command coding-system) "Start an inferior^_superior Lisp and connect to its Swank server." (interactive) (apply (function slime-start) (slime-read-interactive-args)))() call-interactively(slime) command-execute(slime t) execute-extended-command(nil) call-interactively(execute-extended-command)

3 2

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