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

[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