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

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 28 Oct '04

28 Oct '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.559 slime/ChangeLog:1.560 --- slime/ChangeLog:1.559 Wed Oct 27 12:59:06 2004 +++ slime/ChangeLog Thu Oct 28 23:41:38 2004 @@ -1,3 +1,45 @@ +2004-10-28 Helmut Eller <heller(a)common-lisp.net> + + * swank-clisp.lisp: Add workaround for CLISP's broken control + string parser. + + * swank-cmucl.lisp (set-step-breakpoints): Handle breakpoints at + single-return points in escaped frames better. Previously we + tried to set a breakpoint at the current position and consequently + was only hit during the next call. + (inspect-for-emacs)[function]: Call the next method only for + funcallable instances. + (profile-report, profile-reset, unprofile-all): We have to use + eval because the macro expansion depends on the value of + *timed-functions*. Reported by Chisheng Huang. + + * slime.el (slime-space): Call slime-message in the right buffer, + so that after-command hooks are added in the right buffer. + Reported by Juho Snellman. + (slime-dispatch-event): Accept stepping flag. + (sldb-setup): Don't query when entering a recursive edit. + (sldb-exit): Don't kill the buffer if we are in stepping mode. + (slime-inspector-insert-ispec): New function. + (slime-open-inspector): Use it. + (slime-inspector-operate-on-point): Simplified. + (test interactive-eval): Fix test case. + (slime-kill-all-buffers): More regexp kludges. From Bill Clementson. + + * swank-backend.lisp (activate-stepping): New function. + + * swank.lisp (*sldb-stepping-p*): New variable. Used to tell + emacs that the debugger buffer should not be closed even if we + unwind. + (debug-in-emacs): Use it. + (sldb-step): Moved to the front end. + (inspector-princ, method-specializers-for-inspect): Simplified. + (methods-by-applicability): Use a simpler algorithm. I doubt there + is much difference in practice. + (inspect-for-emacs)[symbol, function, standard-generic-function] + [standard-method]: Use less than 80 columns. + (inspector-call-nth-action): Don't accept &rest args. Was never + used. + 2004-10-27 Helmut Eller <heller(a)common-lisp.net> * swank-sbcl.lisp (signal-compiler-condition): Actually delete one

1 0

Re: [slime-devel] Sayoonara command doesn't close repl buffer
by Bill_Clementson＠peoplesoft.com 28 Oct '04

28 Oct '04

This patch I sent doesn't appear to have been put into CVS. - Bill Bill_Clementson@peopleso ft.com To: slime-devel(a)common-lisp.net Sent by: cc: (bcc: Bill Clementson/PeopleSoft) slime-devel-bounces@comm Subject: [slime-devel] Sayoonara command doesn't close repl buffer on-lisp.net 10/26/2004 07:04 PM I just upgraded from a late-September SLIME (yes, I know that's pretty slack :) ) to CVS and noticed something different. The Sayoonara REPL command (when you type ",s<enter>" in the repl buffer) closes the CL implementation but not the slime repl buffer. I did notice that the repl buffer now no longer has a numeric sufffix - instead it's If it's suffixed with the CL implementatin name. Since I haven't been following the mailing list very closely lately, I'm not sure whether this behaviour is intentional or not. If it is not intentional, the following patch should fix the problem: *** c:/DOCUME~1/BC1886~1/LOCALS~1/Temp/slime-orig.el Tue Oct 26 19:02:52 2004 --- c:/DOCUME~1/BC1886~1/LOCALS~1/Temp/slime.el Tue Oct 26 19:02:52 2004 *************** *** 3108,3113 **** --- 3108,3114 ---- (when (or (string= (buffer-name buf) slime-event-buffer-name) (string-match "^\\*inferior-lisp*" (buffer-name buf)) (string-match "^\\*slime-repl\\[[0-9]+\\]\\*$" (buffer-name buf)) + (string-match (concat "^\\"(format "*slime-repl %s*" (slime-connection-name))) (buffer-name buf)) (string-match "^\\*sldb .*\\*$" (buffer-name buf))) (kill-buffer buf)))) -- Bill Clementson _______________________________________________ slime-devel site list slime-devel(a)common-lisp.net http://common-lisp.net/mailman/listinfo/slime-devel

2 1

[slime-devel] multi-line slime-space windows not closed
by Juho Snellman 28 Oct '04

28 Oct '04

The arglist window that slime-space displays isn't automatically closed on Xemacs 21.4 and CVS slime (2004-10-27). The problem seems to be that slime-message is called from a slime-eval-async callback, where the current buffer is " *cl-connection*". This means that the window-closing lambda is pushed into the buffer-local slime-pre-command-actions of the wrong buffer, and thus never gets called. -- Juho Snellman

2 1

[slime-devel] openmcl defclass documentation workaroud
by Marco Baringer 28 Oct '04

28 Oct '04

the following code, put in openmcl-init.lisp, fixes a bug in openmcl's defclass macro and should allow the inspector to work properly. it's just a dirty hack till the next official release of openmcl. ;;;; defclass work around (defclass common-lisp-user::!@$% () () (:documentation "x")) (when (consp (documentation (find-class 'common-lisp-user::!@$%) t)) (handler-bind ((error (lambda (c) (declare (ignore c)) (invoke-restart 'continue)))) (defmacro defclass (class-name superclasses slots &rest class-options &environment env) (flet ((duplicate-options (where) (signal-program-error "Duplicate options in ~S" where)) (illegal-option (option) (signal-program-error "Illegal option ~s" option)) (make-initfunction (form) (cond ((or (eq form 't) (equal form ''t)) '(function true)) ((or (eq form 'nil) (equal form ''nil)) '(function false)) (t `(function (lambda () ,form)))))) (setq class-name (require-type class-name '(and symbol (not null)))) (setq superclasses (mapcar #'(lambda (s) (require-type s 'symbol)) superclasses)) (let* ((options-seen ()) (signatures ()) (slot-names)) (flet ((canonicalize-defclass-option (option) (let* ((option-name (car option))) (if (member option-name options-seen :test #'eq) (duplicate-options class-options) (push option-name options-seen)) (case option-name (:default-initargs (let ((canonical ())) (let (key val (tail (cdr option))) (loop (when (null tail) (return nil)) (setq key (pop tail) val (pop tail)) (push ``(,',key ,',val ,,(make-initfunction val)) canonical)) `(':direct-default-initargs (list ,@(nreverse canonical)))))) (:metaclass (unless (and (cadr option) (typep (cadr option) 'symbol)) (illegal-option option)) `(:metaclass ',(cadr option))) (:documentation (let* ((doc (cadr option))) (if (and doc (not (typep doc 'string))) (illegal-option option)) `(:documentation ',doc))) (t (list `',option-name `',(cdr option)))))) (canonicalize-slot-spec (slot) (if (null slot) (signal-program-error "Illegal slot NIL")) (if (not (listp slot)) (setq slot (list slot))) (let* ((slot-name (require-type (car slot) 'symbol)) (initargs nil) (other-options ()) (initform nil) (initform-p nil) (initfunction nil) (type nil) (type-p nil) (allocation nil) (allocation-p nil) (documentation nil) (documentation-p nil) (readers nil) (writers nil)) (when (memq slot-name slot-names) (SIGNAL-PROGRAM-error "Duplicate slot name ~S" slot-name)) (push slot-name slot-names) (do ((options (cdr slot) (cddr options)) name) ((null options)) (when (null (cdr options)) (signal-program-error "Illegal slot spec ~S" slot)) (case (car options) (:reader (setq name (cadr options)) (push name signatures) (push name readers)) (:writer (setq name (cadr options)) (push name signatures) (push name writers)) (:accessor (setq name (cadr options)) (push name signatures) (push name readers) (push `(setf ,name) signatures) (push `(setf ,name) writers)) (:initarg (push (require-type (cadr options) 'symbol) initargs)) (:type (if type-p (duplicate-options slot) (setq type-p t)) ;(when (null (cadr options)) (signal-program-error "Illegal options ~S" options)) (setq type (cadr options))) (:initform (if initform-p (duplicate-options slot) (setq initform-p t)) (let ((option (cadr options))) (setq initform `',option initfunction (if (constantp option) `(constantly ,option) `#'(lambda () ,option))))) (:allocation (if allocation-p (duplicate-options slot) (setq allocation-p t)) (setq allocation (cadr options))) (:documentation (if documentation-p (duplicate-options slot) (setq documentation-p t)) (setq documentation (cadr options))) (t (let* ((pair (or (assq (car options) other-options) (car (push (list (car options)) other-options))))) (push (cadr options) (cdr pair)))))) `(list :name ',slot-name ,@(when allocation `(:allocation ',allocation)) ,@(when initform-p `(:initform ,initform :initfunction ,initfunction)) ,@(when initargs `(:initargs ',initargs)) ,@(when readers `(:readers ',readers)) ,@(when writers `(:writers ',writers)) ,@(when type-p `(:type ',type)) ,@(when documentation-p `(:documentation ,documentation)) ,@(mapcan #'(lambda (opt) `(',(car opt) ',(cdr opt))) other-options))))) (let* ((direct-superclasses (or superclasses '(standard-object))) (direct-slot-specs (mapcar #'canonicalize-slot-spec slots)) (other-options (apply #'append (mapcar #'canonicalize-defclass-option class-options )))) `(progn (eval-when (:compile-toplevel) (%compile-time-defclass ',class-name ,env) (progn ,@(mapcar #'(lambda (s) `(note-function-info ',s nil ,env)) signatures))) (ensure-class-for-defclass ',class-name :direct-superclasses ',direct-superclasses :direct-slots ,`(list ,@direct-slot-specs) ,@other-options))))))))) hth. -- -Marco Ring the bells that still can ring. Forget your perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen

1 0

[slime-devel] SLIME + ACL7
by Julian Stecklina 27 Oct '04

27 Oct '04

Hello, with ACL 7.0 out in the open now I would like to ask, if anyone can comment on how well it works with slime. Can Slime still be configured to act as (X)Eli replacement? If so, does the procedure differ from 6.2? Regards, -- ____________________________ Julian Stecklina / _________________________/ ________________/ / \_________________/ LISP - truly beautiful

1 0

[slime-devel] suggestion for ~/.slime/fasl/*
by Pascal J.Bourguignon 27 Oct '04

27 Oct '04

Some lisp implementation can be run on different architectures. If users keep the same home on different computers this will lead to collision in ~/.slime/fasl/* directories. To generate the directory name for fasl files, I use the following function, adding the machine type: (defun first-word (text) (let ((pos (position (character " ") text))) (if pos (subseq text 0 pos) text))) (defun implementation-id () (format nil "~A-~A-~A" (first-word (lisp-implementation-type)) (first-word (lisp-implementation-version)) (first-word (machine-type))));;implementation-id -- __Pascal Bourguignon__ http://www.informatimago.com/ Voting Democrat or Republican is like choosing a cabin in the Titanic.

5 11

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 27 Oct '04

27 Oct '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.558 slime/ChangeLog:1.559 --- slime/ChangeLog:1.558 Tue Oct 26 02:45:35 2004 +++ slime/ChangeLog Wed Oct 27 12:59:06 2004 @@ -1,3 +1,8 @@ +2004-10-27 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (signal-compiler-condition): Actually delete one + of the reader-conditionalized forms. + 2004-10-26 Helmut Eller <heller(a)common-lisp.net> * cl-indent.el: Add indentation specs for some missing CL symbols.

1 0

[slime-devel] Sayoonara command doesn't close repl buffer
by Bill_Clementson＠peoplesoft.com 27 Oct '04

27 Oct '04

I just upgraded from a late-September SLIME (yes, I know that's pretty slack :) ) to CVS and noticed something different. The Sayoonara REPL command (when you type ",s<enter>" in the repl buffer) closes the CL implementation but not the slime repl buffer. I did notice that the repl buffer now no longer has a numeric sufffix - instead it's If it's suffixed with the CL implementatin name. Since I haven't been following the mailing list very closely lately, I'm not sure whether this behaviour is intentional or not. If it is not intentional, the following patch should fix the problem: *** c:/DOCUME~1/BC1886~1/LOCALS~1/Temp/slime-orig.el Tue Oct 26 19:02:52 2004 --- c:/DOCUME~1/BC1886~1/LOCALS~1/Temp/slime.el Tue Oct 26 19:02:52 2004 *************** *** 3108,3113 **** --- 3108,3114 ---- (when (or (string= (buffer-name buf) slime-event-buffer-name) (string-match "^\\*inferior-lisp*" (buffer-name buf)) (string-match "^\\*slime-repl\\[[0-9]+\\]\\*$" (buffer-name buf)) + (string-match (concat "^\\"(format "*slime-repl %s*" (slime-connection-name))) (buffer-name buf)) (string-match "^\\*sldb .*\\*$" (buffer-name buf))) (kill-buffer buf)))) -- Bill Clementson

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 26 Oct '04

26 Oct '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.556 slime/ChangeLog:1.558 --- slime/ChangeLog:1.556 Mon Oct 25 18:20:43 2004 +++ slime/ChangeLog Tue Oct 26 02:45:35 2004 @@ -1,3 +1,35 @@ +2004-10-26 Helmut Eller <heller(a)common-lisp.net> + + * cl-indent.el: Add indentation specs for some missing CL symbols. + (lisp-prefix-match-indentation): Change default to + nil to avoid confusion for people who don't care about the issue. + + * swank-sbcl.lisp (signal-compiler-condition): Remove reader + conditionals as the current code doesn't work in any SBCL before + 0.8.13 anyway. + + * swank-source-path-parser.lisp: Remove workarounds for SBCL bugs. + The bugs are fixed in the versions we support. + + * swank-cmucl.lisp (read-error-location) + (signal-compiler-condition): Handle read-errors. + (swank-compile-file): Don't load the fasl file if there was an + error. + + * swank.lisp (define-printer-variables): Handle doc strings + properly. + (*sldb-pprint-dispatch*): Initialize it with the default dispatch + table. + + * slime.el (slime-init-command): New function to send the command + to load swank. Having a separate function for the task should + make it easier to start a Lips with a preloaded swank. + (slime-maybe-start-lisp): Use it. + (slime-maybe-start-multiprocessing): Deleted. + (slime-repl-buffer): Include the name of the implementation. + (slime-set-default-directory) + (slime-sync-package-and-default-directory): Translate filenames. + 2004-10-25 Marco Baringer <mb(a)bese.it> * swank.lisp (inspect-for-emacs array): Properly deal with arrays

1 0

[slime-devel] slime-inspect woes (openmcl)
by R. Mattes 26 Oct '04

26 Oct '04

When i try to run slime-inspect (find-class 'araneida:request) slime drops me into the debugger with the following message: destructure-case failed: ("This is instantiated when a client makes a request to the http server") [Condition of type SIMPLE-ERROR] The backtrace is here: Backtrace: 0: (SWANK::INSPECTOR-CONTENT-FOR-EMACS '("Name: " (:VALUE REQUEST) (:NEWLINE) "Super classes: " (:VALUE #<STANDARD-CLASS STANDARD-OBJECT>) (:NEWLINE) "Direct Slots: " (:VALUE #<STANDARD-DIRECT-SLOT-DEFINITION for instance slot URL #x35449AC6> "URL") ", " (:VALUE #<STANDARD-DIRECT-SLOT-DEFINITION for instance slot HTTP-VERSION #x35449A7E> "HTTP-VERSION") ...)) 1: (SWANK::INSPECT-OBJECT #<STANDARD-CLASS REQUEST>) 2: (SWANK:INIT-INSPECTOR "(find-class 'request)") 3: (CCL::CALL-CHECK-REGS 'SWANK:INIT-INSPECTOR) 4: (SWANK::EVAL-FOR-EMACS '(SWANK:INIT-INSPECTOR "(find-class 'request)") "ARANEIDA" 70) 5: (FUNCALL 'SWANK::EVAL-FOR-EMACS) 6: (#<Anonymous Function #x353DE5C6>) 7: (SWANK::CALL-WITH-REDIRECTED-IO #<Anonymous Function #x353DE5C6> #<CONNECTION #x35415FBE>) 8: (SWANK::HANDLE-REQUEST #<CONNECTION #x35415FBE>) 9: (#<Anonymous Function #x353DBB86> #<CONNECTION #x35415FBE>) 10: (SWANK::CALL-WITH-REDIRECTED-IO #<CCL:COMPILED-LEXICAL-CLOSURE #x35417246> '(#<RESTART CCL:ABORT-BREAK #x711B1DF6> #<RESTART ABORT #x711B1E1E>)) 11: (SWANK::REPL-LOOP #<CONNECTION #x35415FBE>) 12: (CCL::RUN-PROCESS-INITIAL-FORM '(#<CCL:COMPILED-LEXICAL-CLOSURE #x3541538E>) #<PROCESS repl-thread(6) [Active] #x354153C6>) 13: (#<Anonymous Function #x3510043E> '(#<CCL:COMPILED-LEXICAL-CLOSURE #x3541538E>) 0) 14: (#<Anonymous Function #x350F34CE> 66926 #<LISP-THREAD repl-thread [tcr @ #x415B8] #x354154B6>) A "normal" (inspect (find-class 'araneida:request)) works without any problems. TIA Ralf Mattes

2 1