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

[slime-devel] Supporting the Abstract Namespace in Unix Domain Sockets
by Matthew D.Swank 27 Jun '08

27 Jun '08

There is a problem in trying to use the abstract namespace for AF_LOCAL. Address in the abstract namespace are _not_ C strings. >From man 7 unix (domain sockets): Address Format A Unix address is defined as a filename in the filesystem or as a unique string in the abstract namespace. ... *If sun_path starts with a null byte (’’ ’), then it refers to the abstract namespace maintained by the Unix protocol module. The socket’s address in this namespace is given by the rest of the bytes in sun_path. Note that names in the abstract namespace are not zero-terminated.* Would it be possible to pass a byte array as an address, or support a subtype of LOCAL-SOCKET that requires #\Nul characters to be specified explicitly? Matt

1 1

[slime-devel] slime.mov seems to be missing
by Gregg Williams 21 Jun '08

21 Jun '08

Hi--I'm sort of new to Lisp (last time I tried programming Lisp was about 18 years ago), so I decided to watch the famous SLIME video. Various sites point to it as being at http://common-lisp.net/movies/slime.mov , but it isn't there, and my Web searches out and found a copy of it anywhere else. If somebody from common-lisp.net can investigate this and repair this link, I would appreciate it. Thanks.

2 1

[slime-devel] fancy inspector problems
by Knut Olav Bøhmer 18 Jun '08

18 Jun '08

When I inspect the object from lispworks it works ------------------ CL-USER> (inspect <http://www.lispworks.com/reference/HyperSpec/Body/f_inspec.htm> k2::*current-hushe* ) #<HUSHE-CLIENT:HUSHE-CLIENT 118742AB> is a HUSHE-CLIENT:HUSHE-CLIENT TIMESTAMP 3398596745 TIMEOUT 1200 I/O-PACKAGE #<The HUSHE-CLIENT package, 135/256 internal, 101/256 external> LOCK #<MP:LOCK "Hushe-client serializer" Unlocked NIL 0 118742DF> TCPCLIENT-STREAM #<COMM:SOCKET-STREAM 11875E87> HOST "localhost" PORT 11116 ERROR-FORMAT "GENERIC-TCP-CLIENT ERROR: ~a" ---------------- But when I inspect with slime I get this: (note I use all contib mocules, and <http://www.lispworks.com/reference/HyperSpec/Body/a_and.htm> it is latest cvs) ---------------------- The slot #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> is missing from #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> (of class <http://www.lispworks.com/reference/HyperSpec/Body/t_class.htm> #<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB>), when reading the value. [Condition of type CONDITIONS::SLOT-MISSING-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [ABORT] Quit process. Backtrace: 0: CONDITIONS::CONDITIONS-ERROR (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> CONDITIONS::SLOT-MISSING-ERROR (:NAME #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> :INSTANCE #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> :CLASS #<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> :OPERATION ..)) 1: ERROR (CONDITIONS::SLOT-MISSING-ERROR &REST (:NAME #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> :INSTANCE #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> :CLASS #<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> :OPERATION SLOT-BOUNDP <http://www.lispworks.com/reference/HyperSpec/Body/f_slt_bo.htm> ..)) 2: (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> SLOT-MISSING <http://www.lispworks.com/reference/HyperSpec/Body/f_slt_mi.htm> (T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm>)) (#<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> SLOT-BOUNDP <http://www.lispworks.com/reference/HyperSpec/Body/f_slt_bo.htm> &OPTIONAL NIL <http://www.lispworks.com/reference/HyperSpec/Body/a_nil.htm>) 3: CLOS::GENERIC-FUNCTION-NON-DISCRIMINATOR NIL 4: CLOS::SLOT-BOUNDP-MISSING (#(1571 (GENERIC-TCPCLIENT::TCPCLIENT-STREAM GENERIC-TCPCLIENT::HOST GENERIC-TCPCLIENT::PORT GENERIC-TCPCLIENT::TIMEOUT GENERIC-TCPCLIENT::I/O-PACKAGE GENERIC-TCPCLIENT::ERROR-FORMAT HUSHE-CLIENT::TIMESTAMP HUSHE-CLIENT::LOCK) NIL <http://www.lispworks.com/reference/HyperSpec/Body/a_nil.htm> ..)) 5: (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> SWANK:INSPECT-SLOT-FOR-EMACS (T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm>)) (#<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>) 6: (SUBFUNCTION 1 (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ge.htm>))) (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>)) 7: (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> SWANK::ALL-SLOTS-FOR-INSPECTOR (STANDARD-OBJECT <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ob.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm>)) (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> :DONT-KNOW) 8: CLOS::CACHE-MISS-FUNCTION (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>)) 9: (SUBFUNCTION 1 (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ge.htm>))) (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>)) 10: (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> SWANK-BACKEND:INSPECT-FOR-EMACS (STANDARD-OBJECT <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ob.htm> SWANK::FANCY-INSPECTOR)) (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>) 11: CLOS::CACHE-MISS-FUNCTION (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>)) 12: (SUBFUNCTION 1 (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ge.htm>))) (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>)) 13: SWANK::INSPECT-OBJECT (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> &OPTIONAL "<(INSPECTOR *DEFAULT-INSPECTOR*)>") 14: (SUBFUNCTION 1 SWANK:INIT-INSPECTOR) NIL 15: SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (#<Closure 1 subfunction of SWANK:INIT-INSPECTOR>) 16: SWANK::CALL-WITH-BUFFER-SYNTAX (#<Closure 1 subfunction of SWANK:INIT-INSPECTOR>) 17: SYSTEM::%INVOKE (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm>) 18: SYSTEM::%EVAL ((SWANK:INIT-INSPECTOR "k2::*current-hushe*")) 19: EVAL ((SWANK:INIT-INSPECTOR "k2::*current-hushe*")) 20: (SUBFUNCTION 1 SWANK::EVAL-FOR-EMACS) NIL 21: (SUBFUNCTION 1 (TOP-LEVEL-FORM 52)) (#</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> SWANK:SWANK-DEBUGGER-HOOK> #<Closure 1 subfunction of SWANK::EVAL-FOR-EMACS>) 22: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (#</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> SWANK:SWANK-DEBUGGER-HOOK> #<Closure 1 subfunction of SWANK::EVAL-FOR-EMACS>) 23: FUNCALL (SWANK::EVAL-FOR-EMACS &REST ((SWANK:INIT-INSPECTOR "k2::*current-hushe*") "COMMON-LISP-USER" 13)) 24: SWANK::READ-FROM-EMACS NIL 25: (SUBFUNCTION 1 SWANK::HANDLE-REQUEST) NIL 26: (SUBFUNCTION 1 (TOP-LEVEL-FORM 52)) (#</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> SWANK:SWANK-DEBUGGER-HOOK> #</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> 1 subfunction of SWANK::HANDLE-REQUEST>) 27: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (#</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> SWANK:SWANK-DEBUGGER-HOOK> #</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> 1 subfunction of SWANK::HANDLE-REQUEST>) 28: (SUBFUNCTION 1 SWANK::CALL-WITH-CONNECTION) NIL 29: SWANK::CALL-WITH-REDIRECTED-IO (#<SWANK::CONNECTION 1192C3E7> #<Closure 1 subfunction of SWANK::CALL-WITH-CONNECTION>) 30: SWANK::CALL-WITH-CONNECTION (#<SWANK::CONNECTION 1192C3E7> #</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> 1 subfunction of SWANK::HANDLE-REQUEST>) 31: SWANK::HANDLE-REQUEST (#<SWANK::CONNECTION 1192C3E7>) 32: SWANK::REPL-LOOP (#<SWANK::CONNECTION 1192C3E7>) 33: (SUBFUNCTION 1 SWANK::SPAWN-REPL-THREAD) NIL 34: SWANK::CALL-WITH-BINDINGS (NIL <http://www.lispworks.com/reference/HyperSpec/Body/a_nil.htm> #<Closure 1 subfunction of SWANK::SPAWN-REPL-THREAD>) 35: (SUBFUNCTION 1 SWANK::SPAWN-REPL-THREAD) NIL 36: (SUBFUNCTION MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-STACK) (:DONT-KNOW) 37: SYSTEM::%%FIRST-CALL-TO-STACK NIL 38: SYSTEM::%%FIRST-CALL-TO-STACK NIL -- Free Software Consultant Cell: +47 - 47 34 40 08 Phone: +47 - 21 53 69 00, Fax: +47 - 21 53 69 09 Addr: Slemdalsveien 70, PB 1 Vinderen, 0319 Oslo <http://www.freecode.no/>

4 11

[slime-devel] Patch: suppress duplicated frame variables (Allegro)
by Willem Broekema 11 Jun '08

11 Jun '08

The Allegro debugger sometimes includes a local variable more than once as a variable in a frame. E.g. (defun f (x y) (declare (optimize debug)) (zut (bar x) y)) Allegro itself lists the frame variables as: Compiled lexical environment: 0(required): x: 1 1(required): y: 2 2(local): y: 2 This patch suppresses the duplicates as shown by Slime (which does not show the "required" / "local" labels). - Willem --- swank-allegro.lisp 10 Jun 2008 19:55:30 +0200 1.102 +++ swank-allegro.lisp 10 Jun 2008 22:16:09 +0200 @@ -173,11 +173,16 @@ (debugger:output-frame stream frame :moderate)) (defimplementation frame-locals (index) - (let ((frame (nth-frame index))) - (loop for i from 0 below (debugger:frame-number-vars frame) - collect (list :name (debugger:frame-var-name frame i) - :id 0 - :value (debugger:frame-var-value frame i))))) + (let* ((frame (nth-frame index)) + (locals (loop for i from 0 below (debugger:frame-number-vars frame) + collect (cons (debugger:frame-var-name frame i) + (debugger:frame-var-value frame i))))) + ;; Remove e.g. function arguments duplicated as local variables. + (setq locals (delete-duplicates locals :test (lambda (x y) + (and (eq (car x) (car y)) + (eq (cdr x) (cdr y)))))) + (loop for (name . val) in locals + collect (list :name name :id 0 :value val)))) (defimplementation frame-var-value (frame var) (let ((frame (nth-frame frame)))

3 4

[slime-devel] Loading slime and swank with clisp doesn't work.
by Patrick Pippen 08 Jun '08

08 Jun '08

Excuse the the line noise... But I can't seem to get clisp 2.44.1 to load swank. my .clisprc: (load #p"/usr/local/clisp/asdf/") (push #p"/usr/local/clisp/systems/" asdf:*central-registry*) #-:asdf-install (asdf:operate 'asdf:load-op :asdf-install) #-:mk-defsystem (load "/usr/local/clisp/defsystem.lisp") (mk:add-registry-location "/usr/local/clisp/systems/") (load "/usr/local/clisp/systems/cl-ppcre-1.3.2/load.lisp") $clisp 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 Welcome to GNU CLISP 2.44.1 (2008-02-23) <http://clisp.cons.org/> 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-2008 Type :h and hit Enter for context help. ;; Loading file /usr/home/phax/.clisprc ... ;; Loading file /usr/local/clisp/asdf/asdf.lisp ... ;; Loaded file /usr/local/clisp/asdf/asdf.lisp ; loading system definition from /usr/local/clisp/systems/asdf-install.asd into #<PACKAGE ASDF0> ;; Loading file /usr/local/clisp/systems/asdf-install.asd ... ; registering #<SYSTEM ASDF-INSTALL #x203DECC5> as ASDF-INSTALL ;; Loaded file /usr/local/clisp/systems/asdf-install.asd ;; Loading file /usr/local/clisp/asdf-install/asdf-install/defpackage.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/defpackage.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/split-sequence.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/split-sequence.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/port.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/port.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/variables.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/variables.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/conditions.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/conditions.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/installer.fas ... WARNING: The generic function #<STANDARD-GENERIC-FUNCTION ASDF:FIND-COMPONENT> is being modified, but has already been called. ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/installer.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/deprecated.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/deprecated.fas ;;; ASDF-Install version 0.6.10 0 errors, 0 warnings ;; Loading file /usr/local/clisp/defsystem.lisp ... ;; Loaded file /usr/local/clisp/defsystem.lisp ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/load.lisp ... ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/packages.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/packages.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/specials.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/specials.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/util.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/util.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/errors.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/errors.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/lexer.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/lexer.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/parser.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/parser.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/regex-class.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/regex-class.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/convert.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/convert.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/optimize.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/optimize.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/closures.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/closures.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/repetition-closures.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/repetition-closures.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/scanner.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/scanner.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/api.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/api.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/ppcre-tests.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/ppcre-tests.fas 0 errors, 0 warnings ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/load.lisp ;; Loaded file /usr/home/phax/.clisprc [1]> (load "/usr/local/slime/slime/swank-loader.lisp") ;; Loading file /usr/local/slime/slime/swank-loader.lisp ... ;; Loading file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/swank-backend.fas ... ;; Loaded file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/swank-backend.fas ;; Loading file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/xref.fas ... ;; Loaded file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/xref.fas ;; Loading file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/metering.fas ... ;; Loaded file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/metering.fas ;; Compiling file /usr/local/slime/slime/swank-clisp.lisp ... The following functions were used but not defined: SWANK-BACKEND::SLDB-BACKTRACE 0 errors, 0 warnings ;; ;; Error while loading: /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/swank-clisp.fas ;; Condition: INTERN("FRAME-UP-1"): #<PACKAGE SYSTEM> is locked ;; Aborting. ;; [2]> -- you must know the ledge of wise and dome to understand your culture of freedom! http://pxpippen.blogspot.com/ http://groups.google.com/group/lispstl Powerfull Allah

3 3

Re[2]: [slime-devel] Re: Loading slime and swank with clisp doesn't work.
by Anton Vodonosov 08 Jun '08

08 Jun '08

on Sunday, June 8, 2008, 9:01:56 PM Eric wrote: > Thanks Anton > I updated to the latest slime and now it works. > I updated using the following file : > http://common-lisp.net/cgi-bin/viewcvs.cgi/root.tar.gz?root=slime&view=tar > However, it didn't work when I updated with the following command : > cvs -d > :pserver:anonymous:anonymous@common-lisp.net:/project/slime/cvsroot co -rFAIRLY-STABLE slime It's OK. The FAIRLY-STABLE tag was made when clisp version was <= 2.43 and supports only this version. Best regards, -Anton > Anton Vodonosov <avodonosov(a)yandex.ru> wrote: Hello, Eric. Update to the latest slime. > Best regards, > -Anton > on Saturday, June 7, 2008, 2:08:59 PM Eric wrote: >> Hello, >> I have the same behaviour with clisp 2.45. >> I also need to abort the connection to the swank server. >> See below. >> My .clisprc file only contains the following line. >> (in-package :common-lisp-user) >> How should this be fixed ? >> Cordially, >> Eric >> (progn (load "e:/MyRoot/home/elisp/slime/swank-loader.lisp" :verbose >> t) >> (funcall (read-from-string "swank:start-server") >> "c:/DOCUME~1/GCVD3476/LOCALS~1/Temp/slime.2460" >> :coding-system "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 >> Welcome to GNU CLISP 2.45 (2008-05-15) >> 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-2008 >> Type :h and hit Enter for context help. >> ;; Loading file E:\h\.clisprc ... >> ;; Loaded file E:\h\.clisprc [1]>>> >> ;; Loading file E:\h\elisp\slime\swank-loader.lisp ... >> ;; Loading file >> >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\swank-backend.fas ... >> ;; Loaded file >> >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\swank-backend.fas >> ;; Loading file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\nregex.fas . >> ;; Loaded file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\nregex.fas >> ;; Loading file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\xref.fas ... >> ;; Loaded file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\xref.fas >> ;; Loading file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\metering.fas >> ;; Loaded file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\metering.fas >> ;; Compiling file E:\h\elisp\slime\swank-clisp.lisp ... >> The following functions were used but not defined: >> SWANK-BACKEND::SLDB-BACKTRACE >> 0 errors, 0 warnings >> ;; >> ;; Error while loading: >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\swank-clisp.fas >> ;; Condition: INTERN("FRAME-UP-1"): # is locked >> ;; Aborting. >> ;; [2]>>> >> Polling "c:/DOCUME~1/GCVD3476/LOCALS~1/Temp/slime.2460".. >> (Abort with `M-x slime-abort-connection'.) [61 times] >> Cancelled connection attempt. >> _______________________________________________ >> slime-devel site list >> slime-devel(a)common-lisp.net >> http://common-lisp.net/mailman/listinfo/slime-devel > Eric Belpaire > --------------

1 0

[slime-devel] #line
by Helmut Eller 08 Jun '08

08 Jun '08

C supports a #line directive which tells the compiler that the source location isn't in the file that compiler reads but somewhere else. Tools like Yacc use this to instruct the C compiler to generate error messages for the yacc source file rather than the intermediate C file. Is/was there a Lisp or Scheme compiler that supports something similar?

2 4

[slime-devel] can't start slime-scratch buffer
by allenjwd 08 Jun '08

08 Jun '08

hello, i follow Peter's post :Installing CLISP, Emacs, and SLIME on Windows XP(http://www.pchristensen.com/blog/articles/installing-clisp-emacs-and-sli… and it works.But when i enter M-x slime-scratch ,emacs says no match key,and nothing happens.Is there anybody who ever got this problem? Thank you!

2 1

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

08 Jun '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1357 slime/ChangeLog:1.1359 --- slime/ChangeLog:1.1357 Mon Jun 2 14:11:15 2008 +++ slime/ChangeLog Sat Jun 7 07:50:24 2008 @@ -1,3 +1,23 @@ +2008-06-07 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime.el (def-slime-test find-definition.2, arglist): + SWANK:COMPILE-STRING-FOR-EMACS since recently takes 5 instead of 4 + parameters. Fix that. + +2008-06-07 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime.el (slime-extract-context, slime-parse-context): Recognize + more toplevel forms, e.g. DEFINE-COMPILER-MACRO &c. Such that + `slime-parse-toplevel-form' will also recognize these. + (slime-trace-query): Adapted to above changes. Errors if spec is + untraceable. + (slime-call-defun): Adapted to also support the new toplevel forms. + + (slime-cl-symbol-name), + (slime-cl-symbol-package), + (slime-qualify-cl-symbol-name): Resurrected from the `slime-parse' + contrib, as they've been used by `slime-call-defun'. + 2008-06-02 Raymond Toy <toy.raymond(a)gmail.com> Unicode support for CMUCL. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.106 slime/contrib/ChangeLog:1.107 --- slime/contrib/ChangeLog:1.106 Thu Apr 17 11:21:51 2008 +++ slime/contrib/ChangeLog Sat Jun 7 07:46:15 2008 @@ -1,3 +1,10 @@ +2008-06-07 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime-parse.el (slime-cl-symbol-name), + (slime-cl-symbol-package), + (slime-qualify-cl-symbol-name): Moved back to `slime.el' as + they're still used there. + 2008-04-17 Gábor Melis <mega(a)retes.hu> * swank-fancy-inspector.lisp (inspect-slot-for-emacs):

1 0

[slime-devel] Temporary maximum debug for compiling defuns
by Zach Beane 07 Jun '08

07 Jun '08

I don't want to run my whole system with (DEBUG 3), but sometimes I want to compile an individual function with (DEBUG 3) to e.g. get more precise source locations in the debugger. The following is a patch that introduces this to slime, with an implementation for SBCL: if slime-compile-defun is given a prefix argument, it passes a request to the backend that the defun be compiled with maximum debug. The option is ignored on other backends. Zach Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.913 diff -u -r1.913 slime.el --- slime.el 24 Feb 2008 16:50:48 -0000 1.913 +++ slime.el 3 Apr 2008 15:16:40 -0000 @@ -3821,6 +3821,9 @@ ;;;; Compilation and the creation of compiler-note annotations +(defvar slime-compile-with-maximum-debug nil + "When non-nil compile defuns with maximum debug optimization.") + (defvar slime-highlight-compiler-notes t "*When non-nil annotate buffers with compilation notes etc.") @@ -3881,10 +3884,11 @@ (slime-rcurry #'slime-compilation-finished (current-buffer))) (message "Compiling %s..." file))) -(defun slime-compile-defun () +(defun slime-compile-defun (&optional maximum-debug-p) "Compile the current toplevel form." - (interactive) - (apply #'slime-compile-region (slime-region-for-defun-at-point))) + (interactive "P") + (let ((slime-compile-with-maximum-debug maximum-debug-p)) + (apply #'slime-compile-region (slime-region-for-defun-at-point)))) (defun slime-compile-region (start end) "Compile the region." @@ -3898,7 +3902,8 @@ ,string ,(buffer-name) ,start-offset - ,(if (buffer-file-name) (file-name-directory (buffer-file-name)))) + ,(if (buffer-file-name) (file-name-directory (buffer-file-name))) + ',slime-compile-with-maximum-debug) (slime-make-compilation-finished-continuation (current-buffer)))) (defun slime-note-count-string (severity count &optional suppress-if-zero) Index: swank-abcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-abcl.lisp,v retrieving revision 1.48 diff -u -r1.48 swank-abcl.lisp --- swank-abcl.lisp 22 Feb 2008 14:38:39 -0000 1.48 +++ swank-abcl.lisp 3 Apr 2008 15:16:40 -0000 @@ -341,8 +341,9 @@ (when (and load-p (not fail)) (load fn))))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (let ((jvm::*resignal-compiler-warnings* t) (*abcl-signaled-conditions* nil)) (handler-bind ((warning #'handle-compiler-warning)) Index: swank-allegro.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v retrieving revision 1.101 diff -u -r1.101 swank-allegro.lisp --- swank-allegro.lisp 9 Feb 2008 18:47:05 -0000 1.101 +++ swank-allegro.lisp 3 Apr 2008 15:16:40 -0000 @@ -314,7 +314,9 @@ (when binary-filename (delete-file binary-filename)))))) -(defimplementation swank-compile-string (string &key buffer position directory) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore debug)) ;; We store the source buffer in excl::*source-pathname* as a string ;; of the form <buffername>;<start-offset>. Quite ugly encoding, but ;; the fasl file is corrupted if we use some other datatype. Index: swank-backend.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-backend.lisp,v retrieving revision 1.129 diff -u -r1.129 swank-backend.lisp --- swank-backend.lisp 9 Feb 2008 18:47:05 -0000 1.129 +++ swank-backend.lisp 3 Apr 2008 15:16:41 -0000 @@ -333,7 +333,7 @@ (declare (ignore ignore)) `(call-with-compilation-hooks (lambda () (progn ,@body)))) -(definterface swank-compile-string (string &key buffer position directory) +(definterface swank-compile-string (string &key buffer position directory debug) "Compile source from STRING. During compilation, compiler conditions must be trapped and resignalled as COMPILER-CONDITIONs. @@ -344,7 +344,11 @@ If DIRECTORY is specified it may be used by certain implementations to rebind *DEFAULT-PATHNAME-DEFAULTS* which may improve the recording of -source information.") +source information. + +If DEBUG is supplied, it may be used by certain implementations to +compile with maximum debugging information. +") (definterface swank-compile-file (filename load-p external-format) "Compile FILENAME signalling COMPILE-CONDITIONs. Index: swank-clisp.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-clisp.lisp,v retrieving revision 1.68 diff -u -r1.68 swank-clisp.lisp --- swank-clisp.lisp 22 Feb 2008 14:11:52 -0000 1.68 +++ swank-clisp.lisp 3 Apr 2008 15:16:41 -0000 @@ -573,8 +573,9 @@ (load fasl-file)) nil)))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-offset* position)) Index: swank-cmucl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-cmucl.lisp,v retrieving revision 1.178 diff -u -r1.178 swank-cmucl.lisp --- swank-cmucl.lisp 9 Feb 2008 18:47:05 -0000 1.178 +++ swank-cmucl.lisp 3 Apr 2008 15:16:41 -0000 @@ -347,8 +347,9 @@ (when load-p (load output-file))) (values output-file warnings-p failure-p))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-start-position* position) Index: swank-corman.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-corman.lisp,v retrieving revision 1.15 diff -u -r1.15 swank-corman.lisp --- swank-corman.lisp 9 Feb 2008 18:47:05 -0000 1.15 +++ swank-corman.lisp 3 Apr 2008 15:16:41 -0000 @@ -373,8 +373,9 @@ (when load-p (load (compile-file-pathname *compile-filename*)))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-position* position) Index: swank-ecl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-ecl.lisp,v retrieving revision 1.14 diff -u -r1.14 swank-ecl.lisp --- swank-ecl.lisp 9 Feb 2008 18:47:05 -0000 1.14 +++ swank-ecl.lisp 3 Apr 2008 15:16:41 -0000 @@ -129,8 +129,9 @@ (compile-file *compile-filename*) (when load-p (unless fail (load fn))))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-start-position* position) Index: swank-lispworks.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-lispworks.lisp,v retrieving revision 1.97 diff -u -r1.97 swank-lispworks.lisp --- swank-lispworks.lisp 10 Feb 2008 08:32:04 -0000 1.97 +++ swank-lispworks.lisp 3 Apr 2008 15:16:41 -0000 @@ -558,8 +558,9 @@ nil))) htab)) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (assert buffer) (assert position) (let* ((location (list :emacs-buffer buffer position string)) Index: swank-openmcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-openmcl.lisp,v retrieving revision 1.124 diff -u -r1.124 swank-openmcl.lisp --- swank-openmcl.lisp 9 Feb 2008 18:47:05 -0000 1.124 +++ swank-openmcl.lisp 3 Apr 2008 15:16:41 -0000 @@ -426,8 +426,9 @@ (mapcan 'who-specializes (ccl::%class-direct-subclasses class))) :test 'equal)) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-offset* position) Index: swank-sbcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v retrieving revision 1.191 diff -u -r1.191 swank-sbcl.lisp --- swank-sbcl.lisp 9 Feb 2008 18:47:05 -0000 1.191 +++ swank-sbcl.lisp 3 Apr 2008 15:16:41 -0000 @@ -435,11 +435,15 @@ "Return a temporary file name to compile strings into." (concatenate 'string (tmpnam nil) ".lisp")) -(defimplementation swank-compile-string (string &key buffer position directory) +(defimplementation swank-compile-string (string &key buffer position directory + debug) (let ((*buffer-name* buffer) (*buffer-offset* position) (*buffer-substring* string) - (filename (temp-file-name))) + (filename (temp-file-name)) + (old-min-debug (assoc 'debug (sb-ext:restrict-compiler-policy)))) + (when debug + (sb-ext:restrict-compiler-policy 'debug 3)) (flet ((compile-it (fn) (with-compilation-hooks () (with-compilation-unit @@ -455,6 +459,7 @@ (compile-it #'load) (load (compile-it #'identity))) (ignore-errors + (sb-ext:restrict-compiler-policy 'debug (or old-min-debug 0)) (delete-file filename) (delete-file (compile-file-pathname filename))))))) Index: swank-scl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-scl.lisp,v retrieving revision 1.18 diff -u -r1.18 swank-scl.lisp --- swank-scl.lisp 10 Feb 2008 08:32:04 -0000 1.18 +++ swank-scl.lisp 3 Apr 2008 15:16:41 -0000 @@ -391,8 +391,9 @@ (when load-p (load output-file))) (values output-file warnings-p failure-p))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-start-position* position) Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.537 diff -u -r1.537 swank.lisp --- swank.lisp 25 Feb 2008 17:17:56 -0000 1.537 +++ swank.lisp 3 Apr 2008 15:16:41 -0000 @@ -2222,7 +2222,7 @@ (or (guess-external-format filename) :default))))))) -(defslimefun compile-string-for-emacs (string buffer position directory) +(defslimefun compile-string-for-emacs (string buffer position directory debug) "Compile STRING (exerpted from BUFFER at POSITION). Record compiler notes signalled as `compiler-condition's." (with-buffer-syntax () @@ -2230,7 +2230,8 @@ (lambda () (let ((*compile-print* nil) (*compile-verbose* t)) (swank-compile-string string :buffer buffer :position position - :directory directory)))))) + :directory directory + :debug debug)))))) (defun file-newer-p (new-file old-file) "Returns true if NEW-FILE is newer than OLD-FILE."

3 4