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

[slime-devel] Patch: ISO 8601 Date format for SLIME inspector
by Tom Pierce 24 Jul '05

24 Jul '05

Hi, I was playing around with the SLIME inspector and I happened to inspect a slot in a class where I'm storing a universal date. I thought it was nifty that the inspector tried to show me the date in ISO 8601 format. However, I noticed that the date was wrong. Instead of displaying time at "Zulu" as indicated by the Z at the end, it was displaying the time with respect to my current timezone. I did some digging and noticed that the Z was hard coded! Uh oh! I decided to try to "fix" this problem and make the inspector display the proper ISO 8601 time and include the correct timezone. Thanks to Nikolai Sandved's ISO 8601 page (http://www.pvv.ntnu.no/~nsaa/ISO8601.html) this was easy. I took his format-iso8601-time and included it in swank.lisp. Then, I modified the inspect-for-emacs method that takes an integer to call his format-iso8601-time function. VOILA! Proper dates. Tom Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.309 diff -u -r1.309 swank.lisp --- swank.lisp 21 Jun 2005 18:28:58 -0000 1.309 +++ swank.lisp 23 Jul 2005 21:37:04 -0000 @@ -3659,6 +3659,27 @@ (declare (ignore inspector)) (values "A number." `("Value: " ,(princ-to-string n)))) +(defun format-iso8601-time (time-value &optional include-timezone-p) + "Formats a universal time TIME-VALUE in ISO 8601 format, with the time zone included if INCLUDE-TIMEZONE-P is non-NIL" + + ;; Taken from http://www.pvv.ntnu.no/~nsaa/ISO8601.html + ;; Thanks, Nikolai Sandved and Thomas Russ! + + (flet ((format-iso8601-timezone (zone) + (if (zerop zone) + "Z" + (multiple-value-bind (h m) (truncate (abs zone) 1.0) + ;; Tricky. Sign of time zone is reversed in ISO 8601 + ;; relative to Common Lisp convention! + (format nil "~:[+~;-~]~2,'0D:~2,'0D" + (> zone 0) h (round m)))))) + (multiple-value-bind (second minute hour day month year dow dst zone) + (decode-universal-time time-value) + (declare (ignore dow dst)) + (format nil "~4,'0D-~2,'0D-~2,'0DT~2,'0D:~2,'0D:~2,'0D~:[~*~;~A~]" + year month day hour minute second + include-timezone-p (format-iso8601-timezone zone))))) + (defmethod inspect-for-emacs ((i integer) inspector) (declare (ignore inspector)) (values "A number." @@ -3671,10 +3692,7 @@ (label-value-line "Length" (integer-length i)) (ignore-errors (list "As time: " - (multiple-value-bind (sec min hour date month year) - (decode-universal-time i) - (format nil "~4,'0D-~2,'0D-~2,'0DT~2,'0D:~2,'0D:~2,'0DZ" - year month date hour min sec))))))) + (format-iso8601-time i t)))))) (defmethod inspect-for-emacs ((c complex) inspector) (declare (ignore inspector))

2 1

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

22 Jul '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.723 slime/ChangeLog:1.724 --- slime/ChangeLog:1.723 Thu Jul 14 11:15:46 2005 +++ slime/ChangeLog Fri Jul 22 12:53:11 2005 @@ -1,3 +1,12 @@ +2005-07-22 Marco Baringer <mb(a)bese.it> + + * swank-openmcl.lisp (frame-catch-tags): Remove some debugging + forms which were "polluting" the repl buffer when viewing an sldb + buffer. + (function-source-location): Make :error messages have the proper + form (exactly one string argument). This fix also removes the + issues with sending unreadble lists (containing #<...> to emacs). + 2005-07-14 Helmut Eller <heller(a)common-lisp.net> * swank-allegro.lisp (find-external-format): Fix typo.

1 0

[slime-devel] Documentation string formatting bug
by Iain Little 20 Jul '05

20 Jul '05

I haven't been keeping my version of slime current (dates from 2005-02-02), so apologies if this has already been fixed. For the following example (and others constructed in a similar way), the C-u M-q formatting doesn't always work, namely when the curser is on the second line of the documentation string. (defun foo () "Start with a newline. Then add some random filler text. Next comes a semi-colon; and something else.") That is, instead of producing: (defun foo () "Start with a newline. Then add some random filler text. Next comes a semi-colon; and something else.") we instead get (defun foo () "Start with a newline. Then add some random filler text. Next comes a semi-colon; and ; something ; else.") Experimenting a little, the formatting seems to work correctly when it is the first line of the documentation string that is over-long, and will otherwise screw up when the cursor is on the same line as an over-long one that also has a semi-colon. Cheers, Iain

1 0

[slime-devel] Slime gets disconected
by Pupeno 17 Jul '05

17 Jul '05

Hello, I am having some problems with Slime, whenever I get an error (be it a typo, a missing package, whatever) it gets disconected. For example: ; SLIME 2005-07-14 CL-USER> a And there I get "Lisp connection closed unexpectedly: connection broken by remote peer" on the minibuffer. *Messages* says: Polling "/tmp/slime.25354".. (Abort with `M-x slime-abort-connection'.) [6 times] Connecting to Swank on port 32774.. Process bridge is installed Loading animate...done Connected. Pupeno, this could be the start of a beautiful program. Lisp connection closed unexpectedly: connection broken by remote peer *slime-events* says: (:emacs-rex (swank:connection-info) nil t 1) (:open-dedicated-output-stream 32775) (:indentation-update (("with-unlocked-packages" . 1) ("with-timeout" . 1) ("without-package-locks" . 0) ("define-source-context" . 2) ("with-single-package-locked-error" . 1) ("with-circularity-detection" . 1) ("descend-into" . 1) ("number-dispatch" . 1) ("do-debug-fun-blocks" . 1) ("do-debug-block-locations" . 1) ("do-debug-fun-vars" . 1) ("with-recursive-lock" . 1) ("with-new-session" . 1) ("with-mutex" . 1) ("with-spinlock" . 1) ("with-fixed-allocation" . 1) ("with-tn@fp-top" . 1) ("maybe-pseudo-atomic" . 1) ("with-empty-tn@fp-top" . 1) ("bind-fast-lexical-method-macros" . 1) ...)) (:return (:ok (27426 "SBCL" "sbcl" (swank-backend::source-plist :asdf :sb-futex :sb-ldb :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-package-locks :sb-unicode :ieee-floating-point :x86 :elf :linux :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack :stack-allocatable-closures ...) :spawn "0.9.2" "lab")) 1) (:emacs-rex (swank:listener-eval "a\n") "COMMON-LISP-USER" :repl-thread 2) *inferior-lisp* says: This is SBCL 0.9.2, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * ; loading #P"/home/pupeno/src/slime/swank-loader.lisp" ;; loading #P"/home/pupeno/.slime/fasl/sbcl-0.9.2-linux-x86/swank-backend.fasl" ;; loading #P"/home/pupeno/.slime/fasl/sbcl-0.9.2-linux-x86/nregex.fasl" ;; loading #P"/home/pupeno/.slime/fasl/sbcl-0.9.2-linux-x86/swank-sbcl.fasl" STYLE-WARNING: redefining PREFERRED-COMMUNICATION-STYLE NIL in DEFMETHOD STYLE-WARNING: redefining CALL-WITHOUT-INTERRUPTS (T) in DEFMETHOD STYLE-WARNING: redefining LISP-IMPLEMENTATION-TYPE-NAME NIL in DEFMETHOD STYLE-WARNING: redefining CALL-WITH-SYNTAX-HOOKS (T) in DEFMETHOD STYLE-WARNING: redefining DEFAULT-READTABLE-ALIST NIL in DEFMETHOD STYLE-WARNING: redefining ARGLIST (T) in DEFMETHOD STYLE-WARNING: redefining CALL-WITH-DEBUGGER-HOOK (T T) in DEFMETHOD STYLE-WARNING: redefining FORMAT-SLDB-CONDITION (T) in DEFMETHOD STYLE-WARNING: redefining CONDITION-REFERENCES (T) in DEFMETHOD STYLE-WARNING: redefining UNPROFILE-ALL NIL in DEFMETHOD STYLE-WARNING: redefining STARTUP-MULTIPROCESSING NIL in DEFMETHOD STYLE-WARNING: redefining THREAD-NAME (T) in DEFMETHOD STYLE-WARNING: redefining THREAD-STATUS (T) in DEFMETHOD STYLE-WARNING: redefining MAKE-LOCK NIL in DEFMETHOD STYLE-WARNING: redefining CALL-WITH-LOCK-HELD (T T) in DEFMETHOD STYLE-WARNING: redefining CURRENT-THREAD NIL in DEFMETHOD STYLE-WARNING: redefining KILL-THREAD (T) in DEFMETHOD STYLE-WARNING: redefining THREAD-ALIVE-P (T) in DEFMETHOD ;; loading #P"/home/pupeno/.slime/fasl/sbcl-0.9.2-linux-x86/swank-source-path-parser.fasl" ;; loading #P"/home/pupeno/.slime/fasl/sbcl-0.9.2-linux-x86/swank-source-file-cache.fasl" STYLE-WARNING: redefining BUFFER-FIRST-CHANGE (T) in DEFMETHOD ;; loading #P"/home/pupeno/.slime/fasl/sbcl-0.9.2-linux-x86/swank-gray.fasl" STYLE-WARNING: implicitly creating new generic function STREAM-READ-CHAR-NO-HANG STYLE-WARNING: implicitly creating new generic function STREAM-READ-CHAR-WILL-HANG-P ;; loading #P"/home/pupeno/.slime/fasl/sbcl-0.9.2-linux-x86/swank.fasl" WARNING: These Swank interfaces are unimplemented: (ACTIVATE-STEPPING CALLS-WHO DISASSEMBLE-FRAME INSPECT-FOR-EMACS RESTART-FRAME SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN WHO-BINDS WHO-CALLS WHO-MACROEXPANDS WHO-REFERENCES WHO-SETS WHO-SPECIALIZES) T * ;; Swank started at port: 32774. 32774 * ;; Connection to Emacs lost. ;; [The assertion (EQL (ASH (ASH SWANK-BACKEND::THREAD -5) 5) SWANK-BACKEND::THREAD) failed.] fatal error encountered in SBCL pid 27425(tid 65541): %PRIMITIVE HALT called; the party is over. LDB monitor ldb> What am I doing wrong ? Some kind of incompatibility with SBCL 0.9.2 ? Thank you. -- Pupeno <pupeno(a)pupeno.com> (http://pupeno.com) Reading ? Science Fiction ? http://sfreaders.com.ar

1 0

[slime-devel] Patch: Put "SLIME Source Form" buffer into Lisp mode
by Matthias Koeppe 17 Jul '05

17 Jul '05

Another trivial patch. 2005-07-17 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * slime.el (slime-goto-location-buffer): Put "SLIME Source Form" buffer into Lisp mode. --- slime.el.~1.511.~ 2005-07-05 21:53:21.000000000 +0200 +++ slime.el 2005-07-17 17:25:03.000000000 +0200 @@ -4383,6 +4458,7 @@ ((:source-form string) (set-buffer (get-buffer-create "*SLIME Source Form*")) (erase-buffer) + (lisp-mode) (insert string) (goto-char (point-min))))) -- Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe

1 0

[slime-devel] Handling ^M and ^H characters output from ext:run-program?
by Jeff Cunningham 17 Jul '05

17 Jul '05

I posted the following question on comp.lang.lisp: I have this code embedded in a process I'm running: (ext:process-exit-code (ext:run-program "cdrecord" args :output *standard-output*))) and it works fine, except that the cdrecord utility (and many others) uses both backspace ^H and carriage return ^M to write updates to the screen. This makes a big mess in the slime-repl window ,as they aren't properly interpreted and so stuff spews out for miles before it finishes. Is there a way to capture these characters before they hit *standard-output* and interpete them so they either work correctly or are at least benign (i.e. convert carriage return to a linefeed, and any sequence of backspaces ^H^H^H^H^H^H^H with a linefeed)? One of the respondents pointed out that: "*STANDARD-OUTPUT* is bound to some Lisp stream maintained by SLIME, attached to an Emacs buffer. cdrecord was not designed to attach to an Emacs buffer, or to anything other than a terminal (or some program which emulates a terminal by understandin the control codes for moving your cursor around" Is there a way to still embed this program call within my lisp project so I can still run it in slime without this behavior? Thanks --Jeff Cunningham

3 8

Re: [slime-devel] Re: Handling ^M and ^H characters output from ext:run-program?
by Jeff Cunningham 17 Jul '05

17 Jul '05

On Sat Jul 16, 2005 at 01:15:03AM +0200, Edi Weitz wrote: > > That doesn't work without Lisp either: > > edi@miles:/tmp$ bash echo "Hello World" > tmp > /bin/echo: /bin/echo: cannot execute binary file > > Try this instead: > > (ext:run-program "bash" '("-c" "echo \"Hello World\" > tmp") :output *standard-output*) > > Actually, I was rather thinking about invoking a shell script: > > edi@miles:/tmp$ rm foo > edi@miles:/tmp$ cat foo.sh > echo "Hello World" > /tmp/foo > edi@miles:/tmp$ cmucl > * (ext:run-program "sh" '("foo.sh") :output *standard-output*) > > #<process 4501 :EXITED> > * (quit) > edi@miles:/tmp$ cat foo > Hello World > That works. Thanks! --Jeff

2 2

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

14 Jul '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.722 slime/ChangeLog:1.723 --- slime/ChangeLog:1.722 Wed Jul 6 18:31:56 2005 +++ slime/ChangeLog Thu Jul 14 11:15:46 2005 @@ -1,3 +1,7 @@ +2005-07-14 Helmut Eller <heller(a)common-lisp.net> + + * swank-allegro.lisp (find-external-format): Fix typo. + 2005-07-06 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-send-sigint): Use the symbol SIGINT stead of the

1 0

[slime-devel] Typo in swank-allegro.lisp
by shmargolis＠gmail.com 14 Jul '05

14 Jul '05

Hi. I am using Franz Allegro 7 on Mac OSX. The cvs source for swank-allegro.lisp has a mismatch between the argument name and the variable used in the body. I've appended a context diff that let me get past that point. Thanks for all the work that has gone into this. Steve - - - - - RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v retrieving revision 1.74 diff -c -r1.74 swank-allegro.lisp *** swank-allegro.lisp 5 Jul 2005 20:30:59 -0000 1.74 --- swank-allegro.lisp 13 Jul 2005 17:35:24 -0000 *************** *** 59,65 **** (defun find-external-format (coding-system) #-(version>= 6) :default #+(version>= 6) ! (let* ((name (ecase external-format (:iso-latin-1-unix :latin1) (:utf-8-unix :utf-8-unix) (:emacs-mule-unix :emacs-mule)))) --- 59,65 ---- (defun find-external-format (coding-system) #-(version>= 6) :default #+(version>= 6) ! (let* ((name (ecase coding-system (:iso-latin-1-unix :latin1) (:utf-8-unix :utf-8-unix) (:emacs-mule-unix :emacs-mule))))

2 1

[slime-devel] controlling indentation of let forms
by ramb＠sonic.net 12 Jul '05

12 Jul '05

Is it possible to change how slime (is slime controlling the ident process??) indents let forms? I prefer a let to look like this: (let (var1 var2 var3 var4 var5 var6) ...) but its currently indented like this: (let (var1 var2 var3 var4 var5 var6) ...) Can I change this? Or is slime the wrong place to look? Thanks for any info. -Ram

4 4