From msimmons at common-lisp.net  Thu Dec  2 16:39:00 2010
From: msimmons at common-lisp.net (CVS User msimmons)
Date: Thu, 02 Dec 2010 11:39:00 -0500
Subject: [slime-cvs] CVS slime
Message-ID: <E1POCBQ-000833-LD@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv30926

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
(frame-actual-args): Reimplement to include
only the values like on other platforms and deal with, optional
key and rest args.
(print-frame): Format the frame as a call like in other backends.


--- /project/slime/cvsroot/slime/ChangeLog	2010/11/13 11:18:03	1.2165
+++ /project/slime/cvsroot/slime/ChangeLog	2010/12/02 16:39:00	1.2166
@@ -1,3 +1,10 @@
+2010-12-02  Martin Simmons  <martin at lispworks.com>
+
+	* swank-lispworks.lisp (frame-actual-args): Reimplement to include
+	only the values like on other platforms and deal with, optional
+	key and rest args.
+	(print-frame): Format the frame as a call like in other backends.
+
 2010-11-13  Helmut Eller  <heller at common-lisp.net>
 
 	Improve source locations for compiler messages in Lispworks.
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2010/11/13 11:18:03	1.140
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2010/12/02 16:39:00	1.141
@@ -365,20 +365,39 @@
 	(push frame backtrace)))))
 
 (defun frame-actual-args (frame)
-  (let ((*break-on-signals* nil))
-    (mapcar (lambda (arg)
-              (case arg
-                ((&rest &optional &key) arg)
-                (t
-                 (handler-case (dbg::dbg-eval arg frame)
-                   (error (e) (format nil "<~A>" arg))))))
-            (dbg::call-frame-arglist frame))))
+  (let ((*break-on-signals* nil)
+        (kind nil))
+    (loop for arg in (dbg::call-frame-arglist frame)
+          if (eq kind '&rest)
+          nconc (handler-case
+                    (dbg::dbg-eval arg frame)
+                  (error (e) (list (format nil "<~A>" arg))))
+          and do (loop-finish)
+          else
+          if (member arg '(&rest &optional &key))
+          do (setq kind arg)
+          else
+          nconc
+          (handler-case
+              (nconc (and (eq kind '&key)
+                          (list (cond ((symbolp arg)
+                                       (intern (symbol-name arg) :keyword))
+                                      ((and (consp arg) (symbolp (car arg)))
+                                       (intern (symbol-name (car arg)) :keyword))
+                                      (t (caar arg)))))
+                     (list (dbg::dbg-eval
+                            (cond ((symbolp arg) arg)
+                                  ((and (consp arg) (symbolp (car arg)))
+                                   (car arg))
+                                  (t (cadar arg)))
+                            frame)))
+            (error (e) (list (format nil "<~A>" arg)))))))
 
 (defimplementation print-frame (frame stream)
   (cond ((dbg::call-frame-p frame)
-         (format stream "~S ~S"
-                 (dbg::call-frame-function-name frame)
-                 (frame-actual-args frame)))
+         (prin1 (cons (dbg::call-frame-function-name frame)
+                      (frame-actual-args frame))
+                stream))
         (t (princ frame stream))))
 
 (defun frame-vars (frame)




From heller at common-lisp.net  Thu Dec  9 18:51:18 2010
From: heller at common-lisp.net (CVS User heller)
Date: Thu, 09 Dec 2010 13:51:18 -0500
Subject: [slime-cvs] CVS slime
Message-ID: <E1PQlaI-0007IT-1k@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv28050

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
* slime.el (slime-toggle-break-on-signals): New command.
* swank.lisp (toggle-break-on-signals): The corresponding Lisp code.

--- /project/slime/cvsroot/slime/ChangeLog	2010/12/02 16:39:00	1.2166
+++ /project/slime/cvsroot/slime/ChangeLog	2010/12/09 18:51:17	1.2167
@@ -1,3 +1,8 @@
+2010-12-09  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-toggle-break-on-signals): New command.
+	* swank.lisp (toggle-break-on-signals): The corresponding Lisp code.
+
 2010-12-02  Martin Simmons  <martin at lispworks.com>
 
 	* swank-lispworks.lisp (frame-actual-args): Reimplement to include
--- /project/slime/cvsroot/slime/slime.el	2010/11/12 19:42:51	1.1350
+++ /project/slime/cvsroot/slime/slime.el	2010/12/09 18:51:17	1.1351
@@ -2668,7 +2668,8 @@
   (with-struct (slime-compilation-result. notes duration successp
                                           loadp faslfile) result
     (setf slime-last-compilation-result result)
-    (slime-show-note-counts notes duration successp)
+    (slime-show-note-counts notes duration (cond ((not loadp) successp)
+                                                 (t (and faslfile successp))))
     (when slime-highlight-compiler-notes
       (slime-highlight-notes notes))
     (run-hook-with-args 'slime-compilation-finished-hook notes)
@@ -6064,6 +6065,12 @@
       ((:ok value) (message "%s" value))
       ((:abort _)))))
 
+(defun slime-toggle-break-on-signals ()
+  "Toggle the value of *break-on-signals*."
+  (interactive)
+  (slime-eval-async `(swank:toggle-break-on-signals)
+    (lambda (msg) (message "%s" msg))))
+
 
 ;;;;;; SLDB recompilation commands
 
--- /project/slime/cvsroot/slime/swank.lisp	2010/10/19 16:57:32	1.733
+++ /project/slime/cvsroot/slime/swank.lisp	2010/12/09 18:51:17	1.734
@@ -2759,6 +2759,10 @@
 (define-stepper-function sldb-next sldb-step-next)
 (define-stepper-function sldb-out  sldb-step-out)
 
+(defslimefun toggle-break-on-signals ()
+  (setq *break-on-signals* (not *break-on-signals*))
+  (format nil "*break-on-signals* = ~a" *break-on-signals*))
+
 
 ;;;; Compilation Commands.
 




From sboukarev at common-lisp.net  Thu Dec  9 19:55:57 2010
From: sboukarev at common-lisp.net (CVS User sboukarev)
Date: Thu, 09 Dec 2010 14:55:57 -0500
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <E1PQmar-0003DG-Mm@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv12349

Modified Files:
	ChangeLog swank-fancy-inspector.lisp 
Log Message:
* swank-fancy-inspector.lisp (emacs-inspect): Work on methods
without associated generic function.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/10/28 13:30:31	1.425
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/12/09 19:55:57	1.426
@@ -1,3 +1,8 @@
+2010-12-09  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-fancy-inspector.lisp (emacs-inspect): Work on methods
+	without associated generic function.
+
 2010-10-28  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-package-fu.lisp (list-structure-symbols): Include the name
--- /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2010/07/02 11:44:15	1.29
+++ /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2010/12/09 19:55:57	1.30
@@ -412,23 +412,25 @@
       (all-slots-for-inspector gf))))
 
 (defmethod emacs-inspect ((method standard-method))
+  `(,@(if (swank-mop:method-generic-function method)
           `("Method defined on the generic function " 
-	    (:value ,(swank-mop:method-generic-function method)
-		    ,(inspector-princ
-		      (swank-mop:generic-function-name
-		       (swank-mop:method-generic-function method))))
-            (:newline)
-	    ,@(docstring-ispec "Documentation" method t)
-            "Lambda List: " (:value ,(swank-mop:method-lambda-list method))
-            (:newline)
-            "Specializers: " (:value ,(swank-mop:method-specializers method)
-                                     ,(inspector-princ (method-specializers-for-inspect method)))
-            (:newline)
-            "Qualifiers: " (:value ,(swank-mop:method-qualifiers method))
-            (:newline)
-            "Method function: " (:value ,(swank-mop:method-function method))
-            (:newline)
-            ,@(all-slots-for-inspector method)))
+            (:value ,(swank-mop:method-generic-function method)
+                    ,(inspector-princ
+                      (swank-mop:generic-function-name
+                       (swank-mop:method-generic-function method)))))
+          '("Method without a generic function"))
+      (:newline)
+      ,@(docstring-ispec "Documentation" method t)
+      "Lambda List: " (:value ,(swank-mop:method-lambda-list method))
+      (:newline)
+      "Specializers: " (:value ,(swank-mop:method-specializers method)
+                               ,(inspector-princ (method-specializers-for-inspect method)))
+      (:newline)
+      "Qualifiers: " (:value ,(swank-mop:method-qualifiers method))
+      (:newline)
+      "Method function: " (:value ,(swank-mop:method-function method))
+      (:newline)
+      ,@(all-slots-for-inspector method)))
 
 (defmethod emacs-inspect ((class standard-class))
           `("Name: " (:value ,(class-name class))




From sboukarev at common-lisp.net  Fri Dec 10 15:05:05 2010
From: sboukarev at common-lisp.net (CVS User sboukarev)
Date: Fri, 10 Dec 2010 10:05:05 -0500
Subject: [slime-cvs] CVS slime
Message-ID: <E1PR4Wv-0007K3-R6@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv28131

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-with-popup-buffer): Correct the docstring.

* contrib/slime-sprof.el (slime-sprof-browser): Rename to
`slime-sprof-report', leave `slime-sprof-browser' as an alias.


--- /project/slime/cvsroot/slime/ChangeLog	2010/12/09 18:51:17	1.2167
+++ /project/slime/cvsroot/slime/ChangeLog	2010/12/10 15:05:05	1.2168
@@ -1,3 +1,7 @@
+2010-12-10  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-with-popup-buffer): Correct the docstring.
+
 2010-12-09  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-toggle-break-on-signals): New command.
--- /project/slime/cvsroot/slime/slime.el	2010/12/09 18:51:17	1.1351
+++ /project/slime/cvsroot/slime/slime.el	2010/12/10 15:05:05	1.1352
@@ -895,10 +895,10 @@
 
 NAME is the name of the buffer to be created.
 PACKAGE is the value `slime-buffer-package'.
-CONNECTION is the value for `slime-buffer-connection'.
+CONNECTION is the value for `slime-buffer-connection',
+ if nil, no explicit connection is associated with
+ the buffer.  If t, the current connection is taken.
 MODE is the name of a major mode which will be enabled.
-If nil, no explicit connection is associated with
-the buffer.  If t, the current connection is taken.
 "
   `(let* ((vars% (list ,(if (eq package t) '(slime-current-package) package)
                        ,(if (eq connection t) '(slime-connection) connection)))




From sboukarev at common-lisp.net  Fri Dec 10 15:05:06 2010
From: sboukarev at common-lisp.net (CVS User sboukarev)
Date: Fri, 10 Dec 2010 10:05:06 -0500
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <E1PR4Ww-0007KJ-4J@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv28131/contrib

Modified Files:
	ChangeLog slime-sprof.el 
Log Message:
* slime.el (slime-with-popup-buffer): Correct the docstring.

* contrib/slime-sprof.el (slime-sprof-browser): Rename to
`slime-sprof-report', leave `slime-sprof-browser' as an alias.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/12/09 19:55:57	1.426
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/12/10 15:05:06	1.427
@@ -1,3 +1,8 @@
+2010-12-10  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-sprof.el (slime-sprof-browser): Rename to
+	`slime-sprof-report', leave `slime-sprof-browser' as an alias.
+
 2010-12-09  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-fancy-inspector.lisp (emacs-inspect): Work on methods
--- /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/07/27 05:10:03	1.13
+++ /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/12/10 15:05:06	1.14
@@ -12,7 +12,7 @@
            `("--"
              [ "Start sb-sprof"  slime-sprof-start ,C ]
              [ "Stop sb-sprof"   slime-sprof-stop ,C ]
-             [ "Report sb-sprof" slime-sprof-browser ,C ])))))
+             [ "Report sb-sprof" slime-sprof-report ,C ])))))
 
 (defvar slime-sprof-exclude-swank nil
   "*Display swank functions in the report.")
@@ -74,7 +74,9 @@
                       :exclude-swank ,exclude-swank)
                     'slime-sprof-format))
 
-(defun slime-sprof-browser ()
+(defalias 'slime-sprof-browser 'slime-sprof-report)
+
+(defun slime-sprof-report ()
   (interactive)
   (slime-with-popup-buffer ((slime-buffer-name :sprof)
                             :connection t




From sboukarev at common-lisp.net  Fri Dec 10 15:05:06 2010
From: sboukarev at common-lisp.net (CVS User sboukarev)
Date: Fri, 10 Dec 2010 10:05:06 -0500
Subject: [slime-cvs] CVS slime/doc
Message-ID: <E1PR4Ww-0007Kb-B1@common-lisp.net>

Update of /project/slime/cvsroot/slime/doc
In directory cl-net:/tmp/cvs-serv28131/doc

Modified Files:
	slime.texi 
Log Message:
* slime.el (slime-with-popup-buffer): Correct the docstring.

* contrib/slime-sprof.el (slime-sprof-browser): Rename to
`slime-sprof-report', leave `slime-sprof-browser' as an alias.


--- /project/slime/cvsroot/slime/doc/slime.texi	2010/04/05 18:56:13	1.100
+++ /project/slime/cvsroot/slime/doc/slime.texi	2010/12/10 15:05:06	1.101
@@ -12,7 +12,7 @@
 @set EDITION 3.0-alpha
 @set SLIMEVER 3.0-alpha
 @c @set UPDATED @today{}
- at set UPDATED @code{$Date: 2010/04/05 18:56:13 $}
+ at set UPDATED @code{$Date: 2010/12/10 15:05:06 $}
 @set TITLE SLIME User Manual
 @settitle @value{TITLE}, version @value{EDITION}
 
@@ -2958,7 +2958,7 @@
 
 @cmditem{slime-sprof-stop}
 Stop profiling.
- at cmditem{slime-sprof-browser}
+ at cmditem{slime-sprof-report}
 Report results of the profiling.
 @end table