slime-devel February 2005

slime-devel@common-lisp.net

37 participants
38 discussions

[slime-devel] Don't know if this is SLIME or ASDF
by Peter Seibel 09 Feb '05

09 Feb '05

I get into this state fairly often after I try an (oos 'load-op :whatever) that goes south and then, after fixing whatever the problem is, try again: File #P"/tmp/packages.lisp" does not exist. [Condition of type FILE-ERROR] Restarts: 0: [NIL] Prompt for a different filename to compile 1: [RETRY] Retry performing #<COMPILE-OP NIL @ #x7174abea> on #<CL-SOURCE-FILE "packages" @ #x713d61da>. 2: [ACCEPT] Continue, treating #<COMPILE-OP NIL @ #x7174abea> on #<CL-SOURCE-FILE "packages" @ #x713d61da> as having been successful. 3: [ABORT] Abort handling SLIME request. 4: [ABORT] Abort entirely from this (lisp) process. Backtrace: 0: (SWANK::DEBUG-IN-EMACS #<FILE-ERROR @ #x7176ed2a>) 1: ((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT)) 2: (SWANK:SWANK-DEBUGGER-HOOK #<FILE-ERROR @ #x7176ed2a> #<Function SWANK-DEBUGGER-HOOK>) 3: (ERROR FILE-ERROR :PATHNAME #1=#P"/tmp/packages.lisp" :FORMAT-CONTROL "File ~S does not exist." :FORMAT-ARGUMENTS (#1#)) 4: ((METHOD EXCL:DEVICE-OPEN (EXCL:FILE-SIMPLE-STREAM T T)) #<EXCL:FILE-SIMPLE-STREAM "[not completely built]" closed @ #x7176ec12> T (:FILENAME #P"/tmp/packages.lisp" :EXTERNAL-FORMAT :DEFAULT)) 5: ((METHOD SHARED-INITIALIZE :AFTER (EXCL:SIMPLE-STREAM T)) #<EXCL:FILE-SIMPLE-STREAM "[not completely built]" closed @ #x7176ec12> T :FILENAME #P"/tmp/packages.lisp" :EXTERNAL-FORMAT :DEFAULT) 6: ((:INTERNAL (:EFFECTIVE-METHOD 2 T NIL NIL NIL) 0) #<EXCL:FILE-SIMPLE-STREAM "[not completely built]" closed @ #x7176ec12> T . #\null) 7: ((METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)) #<EXCL:FILE-SIMPLE-STREAM "[not completely built]" closed @ #x7176ec12> :FILENAME #P"/tmp/packages.lisp" :EXTERNAL-FORMAT :DEFAULT) 8: ((METHOD MAKE-INSTANCE (CLASS)) #<STANDARD-CLASS EXCL:FILE-SIMPLE-STREAM> :FILENAME #P"/tmp/packages.lisp" :EXTERNAL-FORMAT :DEFAULT) 9: ((METHOD MAKE-INSTANCE (SYMBOL)) EXCL:FILE-SIMPLE-STREAM :FILENAME #P"/tmp/packages.lisp" :EXTERNAL-FORMAT :DEFAULT) 10: (OPEN #P"/tmp/packages.lisp") 11: ((FLET COMPILE-FILE EXCL::CONTINUATION)) 12: (COMPILE-FILE #P"/tmp/packages.lisp" :OUTPUT-FILE #P"/tmp/packages.fasl") 13: ((METHOD PERFORM (COMPILE-OP CL-SOURCE-FILE)) #<COMPILE-OP NIL @ #x7174abea> #<CL-SOURCE-FILE "packages" @ #x713d61da>) 14: ((:INTERNAL (:EFFECTIVE-METHOD 2 NIL NIL NIL NIL) 0) #<COMPILE-OP NIL @ #x7174abea> #<CL-SOURCE-FILE "packages" @ #x713d61da>) 15: ((FLET OPERATE EXCL::CONTINUATION)) 16: (OPERATE LOAD-OP :SHOUTCAST) 17: (OOS LOAD-OP :SHOUTCAST) 18: (EVAL (OOS (QUOTE LOAD-OP) :SHOUTCAST)) 19: (SWANK::EVAL-REGION "(oos 'load-op :shoutcast) " T) --more-- Needless to say I don't keep my source code in /tmp so I'm not sure why its looking there. Anyway, this may just be as ASDF problem but I was wondering if this happens to anyone else? -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

1 0

[slime-devel] Random idea
by Peter Seibel 07 Feb '05

07 Feb '05

I'm cleaning up some code for my book and I noticed that I can probably get rid of the ";;; Local Variables:" section at the bottom of my files, at least so far as getting rid of thins like this: ;;; eval: (put 'walk-mp3s 'common-lisp-indent-function (get 'with-output-to-string 'common-lisp-indent-function)) However the other class of entries I have are things like this: ;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\$define-binary-type\$\\s +\$\\(\\w\\|\\s_\$+\\)" (1 font-lock-keyword-face) (2 font-lock-function-name-face)))) It occurs to me that there might be a way for SWANK to tell SLIME to tell Emacs that certain macros should be font-locked a particular way. I haven't thought through how exactly this would work but it'd be cool to have SLIME/Emacs just do the right thing without having to litter my code with weird stuff just to tell Emacs how to turn my code into appropriately colored fruit salad. Anyway, I may take a crack at implementing this in a couple weeks if it doesn't strike anyone else's fancy in the meantime. If you have suggestions/comments about how such a DWIM-font-locking ought to work, send 'em my way. -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

1 0

[slime-devel] Problem using a reader macro in SLIME REPL
by Damien Kick 04 Feb '05

04 Feb '05

With raw CMUCL, I am able to do the following: * (in-package #:pg-user) #<The PLAYGROUND-USER package, 0/9 internal, 0/2 external> * (in-syntax-kick-reader-macros) * !$( ls -F ) ; [... snip for brevity ...] #<process 523 :EXITED> * However, when I attempt the same thing in a SLIME REPL, I encounter the following blah stack: End-of-File on #<String-Input Stream> [Condition of type END-OF-FILE] Restarts: 0: [ABORT] Abort handling SLIME request. 1: [ABORT] Return to Top-Level. Backtrace: 0: (LISP::STRING-INCH #<String-Input Stream> T NIL) 1: (LISP::FLUSH-WHITESPACE #<String-Input Stream>) 2: (LISP::READ-LIST #<String-Input Stream> #<unused-arg>) 3: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<String-Input Stream> T NIL T) 4: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL 4 #<String-Input Stream> T NIL ...)[:EXTERNAL] 5: (LISP::READ-INTERNAL #<String-Input Stream> T NIL T) 6: (READ #<String-Input Stream> T NIL T) 7: (LISP::BACKQUOTE-MACRO #<String-Input Stream> #<unused-arg>) 8: (|!` READER| #<String-Input Stream> #<#1=unused-arg> #<#1#>) 9: (|!$ READER| #<String-Input Stream> #<unused-arg> NIL) 10: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #1=#<String-Input Stream> NIL #1# T) 11: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #1=#<String-Input Stream> NIL #1# NIL) 12: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL 4 #1=#<String-Input Stream> NIL #1# ...)[:EXTERNAL] 13: (LISP::READ-INTERNAL #1=#<String-Input Stream> NIL #1# NIL) 14: (READ #1=#<String-Input Stream> NIL #1# NIL) --more-- FWIW, here are the offending reader macros and relavent code, though I haven't included the code from _On Lisp_, e.g. AWHEN, AIF, etc. (defmacro in-syntax-kick-reader-macros () `(eval-when (:compile-toplevel :load-toplevel :execute) (setq *readtable* (copy-readtable nil)) (make-dispatch-macro-character #\!) (set-dispatch-macro-character #\! #$ #'|!( READER|) (set-dispatch-macro-character #\! #\' #'|!' READER|) (set-dispatch-macro-character #\! #\` #'|!` READER|) (set-dispatch-macro-character #\! #\$ #'|!$ READER|) (values))) (defun |!( READER| (stream char n-arg) (declare (ignore char n-arg)) (let ((*readtable* (copy-readtable *readtable*))) (setf (readtable-case *readtable*) :preserve) #-(and)(read-delimited-list #$ stream t) (funcall (get-macro-character #\() stream #\())) (defun |!' READER| (stream char n-arg) (declare (ignore char n-arg)) (let ((*readtable* (copy-readtable *readtable*))) (setf (readtable-case *readtable*) :preserve) (funcall (get-macro-character #\') stream #\'))) (defun |!` READER| (stream char n-arg) (declare (ignore char n-arg)) (let ((*readtable* (copy-readtable *readtable*))) (setf (readtable-case *readtable*) :preserve) (funcall (get-macro-character #\`) stream #\`))) (defun |!$ READER| (stream char n-arg) (declare (ignore char)) `(sh ,(|!` READER| stream #\` n-arg)))

2 1

[slime-devel] Patch to limit result lengths
by Svein Ove Aas 03 Feb '05

03 Feb '05

Here's something I put together after being sufficiently annoyed by the way Emacs would freeze for half a minute when I accidentally printed a 10KB string. It should be pretty much self-explanatory; hopefully someone will find a use for it.

1 0

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

02 Feb '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.607 slime/ChangeLog:1.610 --- slime/ChangeLog:1.607 Sun Jan 30 10:43:52 2005 +++ slime/ChangeLog Wed Feb 2 21:36:49 2005 @@ -1,3 +1,18 @@ +2005-02-02 Helmut Eller <heller(a)common-lisp.net> + + * slime.el: Require the timer package explicitly. + +2005-02-02 Luke Gorrie <luke(a)synap.se> + + * slime.el (slime-repl-send-input): Move some properties + of old REPL input (e.g. read-only) from text properties into an + overlay, so that kill/yank will leave them behind. Left + `slime-repl-old-input' as a text properties because it's more + convenient to lookup that way. + (slime-repl-return): Ignore `slime-repl-old-input' property if the + point is in front of the current REPL prompt, i.e. if the user has + copy&pasted some old REPL input into the current input area. + 2005-01-30 Bryan O'Connor <bryan-slime(a)lunch.org> * slime.el (slime-goto-location-position): Changed the regexp to

1 0

[slime-devel] some cancel-timer error
by Surendra Singhi 02 Feb '05

02 Feb '05

Hi, I am using Xemacs 21.4.13 and slime-1.0 with clisp 2.33.1 on window XP. When I try to start slime it says swank started at port 1071 but it doesn't connects to the clisp. And on doing debug on error I get the message below. Earlier everything use to work fine, but yesterday I was playing with my Xemacs setting and I landed up in this trouble. Is it some slime problem or clisp or xemacs problem? What is the solution for it? Thanks. Debugger entered--Lisp error: (void-function cancel-timer) (cancel-timer slime-connect-retry-timer) (if slime-connect-retry-timer (cancel-timer slime-connect-retry-timer)) (lambda (G81326 G81327 G81328) (if (active-minibuffer-window) nil (message "Polling %S.. (Abort with `M-x slime-abort-connection'.)" ...)) (slime-set-state (format "[polling:%S]" ...)) (if slime-connect-retry-timer (cancel-timer slime-connect-retry-timer)) (setq slime-connect-retry-timer nil) (cond (... ...) (... ...) (t ... ...)))(--G81320-- --attempt-- --retries--) apply((lambda (G81326 G81327 G81328) (if (active-minibuffer-window) nil (message "Polling %S.. (Abort with `M-x slime-abort-connection'.)" ...)) (slime-set-state (format "[polling:%S]" ...)) (if slime-connect-retry-timer (cancel-timer slime-connect-retry-timer)) (setq slime-connect-retry-timer nil) (cond (... ...) (... ...) (t ... ...))) --G81320-- --attempt-- --retries-- nil) (lambda (&rest --cl-rest--) "\nCommon Lisp lambda list:\n (cl-none . NIL)\n\n" (apply (quote ...) (quote --G81320--) (quote --attempt--) (quote --retries--) --cl-rest--))() funcall((lambda (&rest --cl-rest--) "\nCommon Lisp lambda list:\n (cl-none . NIL)\n\n" (apply (quote ...) (quote --G81320--) (quote --attempt--) (quote --retries--) --cl-rest--))) (progn (set --G81320--81321 (list ... ... ... ...)) (funcall (symbol-value --G81320--81321))) (let ((--G81320--81321 ...)) (set --G81320--81321 nil) (progn (set --G81320--81321 ...) (funcall ...))) (let ((--retries--81318 ...) (--attempt--81319 ...)) (setf (symbol-value --retries--81318) retries (symbol-value --attempt--81319) 0) (let (...) (set --G81320--81321 nil) (progn ... ...))) (lexical-let ((retries retries) (attempt 0)) (labels (...) (attempt-connection))) slime-read-port-and-connect(nil) slime-inferior-connect() (progn (cond (... ...) (t ...)) (slime-maybe-start-lisp) (slime-inferior-connect)) (if (or (not ...) (slime-urge-bytecode-recompile)) (progn (cond ... ...) (slime-maybe-start-lisp) (slime-inferior-connect))) (when (or (not ...) (slime-urge-bytecode-recompile)) (cond (... ...) (t ...)) (slime-maybe-start-lisp) (slime-inferior-connect)) (lambda nil "Start an inferior^_superior Lisp and connect to its Swank server." (interactive) (when (or ... ...) (cond ... ...) (slime-maybe-start-lisp) (slime-inferior-connect)))() call-interactively(slime) command-execute(slime t) execute-extended-command(nil) call-interactively(execute-extended-command) -- Surendra Singhi www.public.asu.edu/~sksinghi/

2 3

[slime-devel] Editing old inputs
by Raymond Toy 02 Feb '05

02 Feb '05

A few days ago, Luke fixed an issue I had with editing old inputs in the slime-repl. The problem was that if I cut and pasted an old input (like M-p, but manually) to the current prompt, I couldn't edit it. The issue was with xemacs and read-only regions or something like that. I've updated slime now, and this is fixed. (Thanks Luke!) However, the input is still bold, and when I press enter, slime appends a copy to the prompt. I have to press enter again to get the repl to see it. Oh, that only happens if I press enter in the middle of the form. If I place the cursor at the end, slime sends the form off with no duplicates displayed and no second enter needed. Just a note to point out the issue. :-) It works well enough not to bother me too much since I couldn't even edit it before. Especially annoying when you cut and paste the function into a file and can't edit it. :-( Ray

2 3

[slime-devel] Problem with slim on SunOS sparc
by Damien Cassou 01 Feb '05

01 Feb '05

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi, I have installed slime on my personnal computer with no problem but I can't made it run at school. I'm using slime from CVS on FAIRLY-STABLE branch. My problem is when I launch slime with 'M-x slime', the connection process never finish and the seconds scroll up in the mode line. I have tried with and without the following line in ~/.swank.lisp (setf swank::*communication-style* :fd-handler) Thanks Some version numbers and some debug messages follow : - ----------------------------------------------------- $ uname -a SunOS narrhavas 5.9 Generic_112233-11 sun4u sparc SUNW,Ultra-80 $ emacs --version GNU Emacs 21.3.1 $ lisp CMU Common Lisp 18c, Built 2000-11-28, running on narrhavas ~ Python 1.0, target SPARCstation/Solaris 2 ~ CLOS based on PCL version: September 16 92 PCL (f) ~ CLX X Library MIT R5.02 ~ Motif toolkit and graphical debugger 1.0 ~ Hemlock 3.5 $ tail -n 5 ~/.emacs ;; lisp (setq inferior-lisp-program "/net/hamilcar/s6/ens/david/bin/lisp") (add-to-list 'load-path "~/.emacs.d/slime-cvs") (require 'slime) (slime-setup) Here is what I can see when I launch slime with 'M-x slime' : - ------------------------------------------------------------- File: /a/tanit/home2/i1/cassou/.emacs.d/slime-cvs/swank-cmucl.lisp In: DEFIMPLEMENTATION PROFILE-PACKAGE ~ (PROFILE:PROFILE-ALL :PACKAGE PACKAGE :CALLERS-P CALLERS ...) Warning: :METHODS is not a known argument keyword. Converted |(PCL::FAST-METHOD PROFILE-PACKAGE (T T T))|. Compiling DEFIMPLEMENTATION PROFILE-PACKAGE: Byte Compiling Top-Level Form: home:.slime/fasl/cmu-18c, Built 2000-11-28/swank-cmucl.sparcf written. Compilation finished in 0:00:06. ;; Loading #p"/a/tanit/home2/i1/cassou/.slime/fasl/cmu-18c, Built 2000-11-28/swank-cmucl.sparcf". Invoking debugger... Starting server: ~ will_fork = False ~ will_trace = False ~ No Inet domain socket created. ~ path = /tmp/.motif_socket-p8093 Error in function XLIB::OPEN-X-STREAM: ~ Failed to connect to X11 server: cassy (display 1) Restarts: ~ 0: [CONTINUE] Return NIL from load of #p"home:.slime/fasl/cmu-18c, Built 2000-11-28/swank-cmucl.sparcf". ~ 1: Return NIL from load of "/net/i1/cassou/.emacs.d/slime-cvs/swank-loader.lisp". ~ 2: [ABORT ] Return to Top-Level. Debug (type H for help) (C::DO-CALL #<Code Object "Top-Level Form" {8062E3FF}> 58 59 46 ...) Source: Error finding source: Error in function COMMON-LISP::%ENUMERATE-SEARCH-LIST: ~ Undefined search list: trunk 0] Waiting for connection. Accepting client on Unix socket. Accepted client on fd 4 Server not forking. - -- Damien -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.5 (GNU/Linux) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFB/pFLyl2oT75/6woRAoI8AKCQt5RuNfAGxfqa0JxpvSDZYZm8kQCdEX4K BX04M+txgQZYa1s7cwuMG0g= =nT/F -----END PGP SIGNATURE-----

3 3

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel February 2005