From trittweiler at common-lisp.net  Mon Oct  1 11:50:06 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon,  1 Oct 2007 07:50:06 -0400 (EDT)
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <20071001115006.774132019@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv27218/contrib

Modified Files:
	slime-typeout-frame.el 
Log Message:

* slime-typeout-frame.el: Messages in the typeout frame were too
  easily overwritten by `slime-autodoc'. Fix that.
  Reported by Geoff Wozniak.
	
  (slime-typeout-message-aux): Split out from `slime-typeout-message'.
  (slime-typeout-message): Wrapper around it. Additionally disable
  the autodoc timer temporarily.


--- /project/slime/cvsroot/slime/contrib/slime-typeout-frame.el	2007/09/30 22:41:44	1.4
+++ /project/slime/cvsroot/slime/contrib/slime-typeout-frame.el	2007/10/01 11:50:06	1.5
@@ -28,11 +28,21 @@
   (and slime-typeout-window
        (window-live-p slime-typeout-window)))
 
-(defun slime-typeout-message (format-string &rest format-args)
+(defun slime-typeout-message-aux (format-string &rest format-args)
   (slime-ensure-typeout-frame)
   (with-current-buffer (window-buffer slime-typeout-window)
-    (erase-buffer)
-    (insert (apply #'format format-string format-args))))
+    (let ((msg (apply #'format format-string format-args)))
+      (unless (string= msg "")
+	(erase-buffer)
+	(insert msg)))))
+
+(defun slime-typeout-message (format-string &rest format-args)
+  (apply #'slime-typeout-message-aux format-string format-args)
+  ;; Disable the timer for autodoc temporarily, as it would overwrite
+  ;; the current typeout message otherwise.
+  (when (and (featurep 'slime-autodoc) slime-autodoc-mode)
+    (slime-autodoc-stop-timer)
+    (add-hook 'pre-command-hook #'slime-autodoc-start-timer)))
 
 (defun slime-make-typeout-frame ()
   "Create a frame for displaying messages (e.g. arglists)."
@@ -50,8 +60,9 @@
     (slime-make-typeout-frame)))
 
 (defun slime-typeout-autodoc-message (doc)
-  (setq slime-autodoc-last-message "") ; no need for refreshing
-  (slime-typeout-message "%s" doc))
+  ;; No need for refreshing per `slime-autodoc-pre-command-refresh-echo-area'.
+  (setq slime-autodoc-last-message "")
+  (slime-typeout-message-aux "%s" doc))
 
 
 ;;; Initialization



From trittweiler at common-lisp.net  Mon Oct  1 11:50:17 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon,  1 Oct 2007 07:50:17 -0400 (EDT)
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <20071001115017.AE3BC72C1@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv27269/contrib

Modified Files:
	ChangeLog 
Log Message:

* slime-typeout-frame.el: Messages in the typeout frame were too
  easily overwritten by `slime-autodoc'. Fix that.
  Reported by Geoff Wozniak.
	
  (slime-typeout-message-aux): Split out from `slime-typeout-message'.
  (slime-typeout-message): Wrapper around it. Additionally disable
  the autodoc timer temporarily.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2007/09/30 22:41:56	1.60
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2007/10/01 11:50:17	1.61
@@ -1,3 +1,13 @@
+2007-10-01  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-typeout-frame.el: Messages in the typeout frame were too
+	easily overwritten by `slime-autodoc'. Fix that.
+	Reported by Geoff Wozniak.
+	
+	(slime-typeout-message-aux): Split out from `slime-typeout-message'.
+	(slime-typeout-message): Wrapper around it. Additionally disable
+	the autodoc timer temporarily.
+
 2007-09-30  Geoff Wozniak  <geoff at wozniak.ca>
 
 	* slime-typeout-frame.el (slime-typeout-frame-init): Fix quoted



From trittweiler at common-lisp.net  Mon Oct  1 13:37:10 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon,  1 Oct 2007 09:37:10 -0400 (EDT)
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <20071001133710.83057554B9@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv19938/contrib

Modified Files:
	slime-autodoc.el 
Log Message:

* slime-autdoc.el (slime-autodoc-message-ok-p): Don't display an
  arglist when the minibuffer is active.


--- /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2007/09/20 14:55:53	1.4
+++ /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2007/10/01 13:37:10	1.5
@@ -244,6 +244,7 @@
        (not executing-kbd-macro)
        (not (and (boundp 'edebug-active) (symbol-value 'edebug-active)))
        (not cursor-in-echo-area)
+       (not (active-minibuffer-window))
        (not (eq (selected-window) (minibuffer-window)))
        (slime-background-activities-enabled-p)))
 



From trittweiler at common-lisp.net  Mon Oct  1 13:37:22 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon,  1 Oct 2007 09:37:22 -0400 (EDT)
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <20071001133722.24EF7586E8@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv20033/contrib

Modified Files:
	ChangeLog 
Log Message:

* slime-autdoc.el (slime-autodoc-message-ok-p): Don't display an
  arglist when the minibuffer is active.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2007/10/01 11:50:17	1.61
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2007/10/01 13:37:22	1.62
@@ -1,5 +1,10 @@
 2007-10-01  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime-autdoc.el (slime-autodoc-message-ok-p): Don't display an
+	arglist when the minibuffer is active.
+
+2007-10-01  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime-typeout-frame.el: Messages in the typeout frame were too
 	easily overwritten by `slime-autodoc'. Fix that.
 	Reported by Geoff Wozniak.



From trittweiler at common-lisp.net  Mon Oct 22 08:19:59 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 04:19:59 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022081959.952B01B018@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11706

Modified Files:
	swank-openmcl.lisp 
Log Message:

* swank-openmcl.lisp (closure-closed-over-values): Use
  CCL::NTH-IMMEDIATE instead of CCL::%SVREF.  This makes it work on
  x86-64 OpenMCL. (The %SVREF worked on PPC, but this will work on
  both.)


--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2007/08/23 19:03:37	1.119
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2007/10/22 08:19:58	1.120
@@ -849,7 +849,7 @@
   (let ((howmany (nth-value 8 (ccl::function-args (ccl::closure-function closure)))))
     (loop for n below howmany
 	 collect
-	 (let* ((value (ccl::%svref closure (+ 1 (- howmany n))))
+	 (let* ((value (ccl::nth-immediate closure (+ 1 (- howmany n))))
 		(map (car (ccl::function-symbol-map (ccl::closure-function closure))))
 		(label (or (and map (svref map n)) n))
 		(cellp (ccl::closed-over-value-p value)))



From trittweiler at common-lisp.net  Mon Oct 22 08:20:16 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 04:20:16 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022082016.40E624405F@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11780

Modified Files:
	ChangeLog 
Log Message:

* swank-openmcl.lisp (closure-closed-over-values): Use
  CCL::NTH-IMMEDIATE instead of CCL::%SVREF.  This makes it work on
  x86-64 OpenMCL. (The %SVREF worked on PPC, but this will work on
  both.)


--- /project/slime/cvsroot/slime/ChangeLog	2007/09/27 12:56:13	1.1234
+++ /project/slime/cvsroot/slime/ChangeLog	2007/10/22 08:20:11	1.1235
@@ -1,3 +1,10 @@
+2007-09-27  R. Matthew Emerson  <rme at thoughtstuff.com>
+
+	* swank-openmcl.lisp (closure-closed-over-values): Use
+	CCL::NTH-IMMEDIATE instead of CCL::%SVREF.  This makes it work on
+	x86-64 OpenMCL. (The %SVREF worked on PPC, but this will work on
+	both.)
+
 2007-09-27  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-filesystem-toplevel-directory): New function.



From trittweiler at common-lisp.net  Mon Oct 22 08:27:32 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 04:27:32 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022082732.36FC54405F@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv13530

Modified Files:
	ChangeLog 
Log Message:

* swank-openmcl.lisp (closure-closed-over-values): Use
  CCL::NTH-IMMEDIATE instead of CCL::%SVREF.  This makes it work on
  x86-64 OpenMCL. (The %SVREF worked on PPC, but this will work on
  both.)


(fix date in changelog)


--- /project/slime/cvsroot/slime/ChangeLog	2007/10/22 08:20:11	1.1235
+++ /project/slime/cvsroot/slime/ChangeLog	2007/10/22 08:27:28	1.1236
@@ -1,4 +1,4 @@
-2007-09-27  R. Matthew Emerson  <rme at thoughtstuff.com>
+2007-10-22  R. Matthew Emerson  <rme at thoughtstuff.com>
 
 	* swank-openmcl.lisp (closure-closed-over-values): Use
 	CCL::NTH-IMMEDIATE instead of CCL::%SVREF.  This makes it work on



From trittweiler at common-lisp.net  Mon Oct 22 08:36:34 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 04:36:34 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022083634.86B6D2E1DA@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv16092

Modified Files:
	swank-abcl.lisp 
Log Message:

* swank-abcl.lisp (getpid): Implemented.


--- /project/slime/cvsroot/slime/swank-abcl.lisp	2007/09/04 15:45:19	1.43
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2007/10/22 08:36:32	1.44
@@ -142,9 +142,39 @@
 (defimplementation call-without-interrupts (fn)
   (funcall fn))
 
-;;there are too many to count
 (defimplementation getpid ()
-  0)
+  (if (not (find :unix *features*))
+      0
+      (let* ((runtime 
+              (java:jstatic "getRuntime" "java.lang.Runtime"))
+             (command
+              (java:jnew-array-from-array 
+               "java.lang.String" #("sh" "-c" "echo $PPID")))
+             (runtime-exec-jmethod 		
+              ;; Complicated because java.lang.Runtime.exec() is
+              ;; overloaded on a non-primitive type (array of
+              ;; java.lang.String), so we have to use the actual parameter
+              ;; instance to get java.lang.Class
+              (java:jmethod "java.lang.Runtime" "exec" 
+                            (java:jcall 
+                             (java:jmethod "java.lang.Object" "getClass")
+                             command)))
+             (process 
+              (java:jcall runtime-exec-jmethod runtime command))
+             (output 
+              (java:jcall (java:jmethod "java.lang.Process" "getInputStream") 
+                          process)))
+        (java:jcall (java:jmethod "java.lang.Process" "waitFor") process)
+        (loop 
+         :with b
+         :do (setq b 
+                   (java:jcall (java:jmethod "java.io.InputStream" "read")
+                               output))
+         :until (member b '(-1 #x0a))	; Either EOF or LF
+         :collecting (code-char b) :into result
+         :finally (return 
+                    (values 
+                     (parse-integer (coerce result 'string))))))))
 
 (defimplementation lisp-implementation-type-name ()
   "armedbear")



From trittweiler at common-lisp.net  Mon Oct 22 08:36:49 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 04:36:49 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022083649.C489044086@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv16229

Modified Files:
	ChangeLog 
Log Message:

* swank-abcl.lisp (getpid): Implemented.


--- /project/slime/cvsroot/slime/ChangeLog	2007/10/22 08:27:28	1.1236
+++ /project/slime/cvsroot/slime/ChangeLog	2007/10/22 08:36:45	1.1237
@@ -1,3 +1,7 @@
+2007-10-22  Mark Evenson  <mark.evenson at gmx.at>
+
+	* swank-abcl.lisp (getpid): Implemented.
+	
 2007-10-22  R. Matthew Emerson  <rme at thoughtstuff.com>
 
 	* swank-openmcl.lisp (closure-closed-over-values): Use



From trittweiler at common-lisp.net  Mon Oct 22 09:34:04 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 05:34:04 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022093404.C559F5D0E0@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv31749

Modified Files:
	swank-loader.lisp 
Log Message:

* swank-loader.lisp (compile-files-if-needed-serially): Added
  missing `load' argument to function definition on Corman Lisp /
  ECL.


--- /project/slime/cvsroot/slime/swank-loader.lisp	2007/09/14 12:41:28	1.73
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2007/10/22 09:34:04	1.74
@@ -166,12 +166,13 @@
             (handle-loadtime-error c binary-pathname)))))))
 
 #+(or cormanlisp ecl)
-(defun compile-files-if-needed-serially (files fasl-directory)
+(defun compile-files-if-needed-serially (files fasl-directory load)
   "Corman Lisp and ECL have trouble with compiled files."
   (declare (ignore fasl-directory))
-  (dolist (file files)
-    (load file :verbose t)
-    (force-output)))
+  (when load
+    (dolist (file files)
+      (load file :verbose t)
+      (force-output))))
 
 (defun load-user-init-file ()
   "Load the user init file, return NIL if it does not exist."



From trittweiler at common-lisp.net  Mon Oct 22 09:34:21 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 05:34:21 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022093421.77AF55E0FE@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv31794

Modified Files:
	ChangeLog 
Log Message:

* swank-loader.lisp (compile-files-if-needed-serially): Added
  missing `load' argument to function definition on Corman Lisp /
  ECL.


--- /project/slime/cvsroot/slime/ChangeLog	2007/10/22 08:36:45	1.1237
+++ /project/slime/cvsroot/slime/ChangeLog	2007/10/22 09:34:21	1.1238
@@ -1,3 +1,9 @@
+2007-10-22  Steve Smith  <tarkasteve at gmail.com>
+
+	* swank-loader.lisp (compile-files-if-needed-serially): Added
+	missing `load' argument to function definition on Corman Lisp /
+	ECL.
+
 2007-10-22  Mark Evenson  <mark.evenson at gmx.at>
 
 	* swank-abcl.lisp (getpid): Implemented.



From trittweiler at common-lisp.net  Mon Oct 22 11:30:54 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 07:30:54 -0400 (EDT)
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <20071022113054.564686F23D@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv21932/contrib

Modified Files:
	swank-arglists.lisp 
Log Message:

* swank-arglist.lisp (read-softly): Renamed to
  READ-SOFTLY-FROM-STRING and moved to `swank.lisp'.
  (unintern-in-home-package): Moved to `swank.lisp'.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/09/11 12:33:00	1.10
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/10/22 11:30:54	1.11
@@ -199,8 +199,8 @@
 the returned datum is a symbol and has been newly interned in
 some package.
 
-If READER is not explicitly given, the function READ-SOFTLY is
-used instead."
+If READER is not explicitly given, the function 
+READ-SOFTLY-FROM-STRING* is used instead."
   (when spec
     (with-buffer-syntax ()
       (call-with-ignored-reader-errors
@@ -211,13 +211,13 @@
                     (etypecase element
                       (string
                        (multiple-value-bind (sexp newly-interned?)
-                           (funcall (or reader 'read-softly) element)
+                           (funcall (or reader 'read-softly-from-string*) element)
                          (push sexp result)
                          (when newly-interned?
                            (push sexp newly-interned-symbols))))
                       (cons
                        (multiple-value-bind (read-spec interned-symbols)
-                           (read-form-spec element)
+                           (read-form-spec element reader)
                          (push read-spec result)
                          (setf newly-interned-symbols
                                (append interned-symbols
@@ -227,27 +227,13 @@
              (values (nreverse result)
                      (nreverse newly-interned-symbols))))))))
 
-(defun unintern-in-home-package (symbol)
-  (unintern symbol (symbol-package symbol)))
-
-(defun read-softly (string)
-  "Returns two values:
-
-     1. the object resulting from READing STRING.
-
-     2. T if the object is a symbol that had to be newly interned
-        in some package. (This does not work for symbols in
-        compound forms like lists or vectors.)"
-  (multiple-value-bind (symbol found? symbol-name package) (parse-symbol string)
-    (if found?
-        (values symbol nil)
-        (let ((sexp (read-from-string string)))
-          (values sexp
-                  (when (symbolp sexp)
-                    (prog1 t
-                      ;; assert that PARSE-SYMBOL didn't parse incorrectly.
-                      (assert (and (equal symbol-name (symbol-name sexp))
-                                   (eq package (symbol-package sexp)))))))))))
+(defun read-softly-from-string* (string)
+  "Like READ-SOFTLY-FROM-STRING, but only returns the sexp and
+the flag if a symbol had to be interned."
+  (multiple-value-bind (sexp pos interned?)
+      (read-softly-from-string string)
+    (declare (ignore pos))
+    (values sexp interned?)))
 
 
 (defstruct (arglist (:conc-name arglist.) (:predicate arglist-p))



From trittweiler at common-lisp.net  Mon Oct 22 11:31:02 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 07:31:02 -0400 (EDT)
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <20071022113102.5D1B270C1@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv21968/contrib

Modified Files:
	ChangeLog 
Log Message:

* swank-arglist.lisp (read-softly): Renamed to
  READ-SOFTLY-FROM-STRING and moved to `swank.lisp'.
  (unintern-in-home-package): Moved to `swank.lisp'.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2007/10/01 13:37:22	1.62
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2007/10/22 11:31:01	1.63
@@ -1,3 +1,9 @@
+2007-10-22  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank-arglist.lisp (read-softly): Renamed to
+	READ-SOFTLY-FROM-STRING and moved to `swank.lisp'.
+	(unintern-in-home-package): Moved to `swank.lisp'.
+
 2007-10-01  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-autdoc.el (slime-autodoc-message-ok-p): Don't display an



From trittweiler at common-lisp.net  Mon Oct 22 11:33:55 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 07:33:55 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022113355.2BB2DA15E@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv22152

Modified Files:
	swank.lisp 
Log Message:

* swank.lisp (read-softly-from-string, unintern-in-home-package):
  Moved from `contrib/swank-arglist.lisp'.
  (parse-package): Use them. (Removes FIXME about interning
  symbols.)  Also changed the logic somewhat to avoid passing :|| to
  FIND-PACKAGE as ECL chokes on that.


--- /project/slime/cvsroot/slime/swank.lisp	2007/09/19 11:12:07	1.511
+++ /project/slime/cvsroot/slime/swank.lisp	2007/10/22 11:33:54	1.512
@@ -1517,6 +1517,30 @@
     (let ((*read-suppress* nil))
       (read-from-string string))))
 
+(defun read-softly-from-string (string)
+  "Returns three values:
+
+     1. the object resulting from READing STRING.
+
+     2. The index of the first character in STRING that was not read.
+
+     3. T if the object is a symbol that had to be newly interned
+        in some package. (This does not work for symbols in
+        compound forms like lists or vectors.)"
+  (multiple-value-bind (symbol found? symbol-name package) (parse-symbol string)
+    (if found?
+        (values symbol nil)
+        (multiple-value-bind (sexp pos) (read-from-string string)
+          (values sexp pos
+                  (when (symbolp sexp)
+                    (prog1 t
+                      ;; assert that PARSE-SYMBOL didn't parse incorrectly.
+                      (assert (and (equal symbol-name (symbol-name sexp))
+                                   (eq package (symbol-package sexp)))))))))))
+
+(defun unintern-in-home-package (symbol)
+  (unintern symbol (symbol-package symbol)))
+
 ;; FIXME: deal with #\| etc.  hard to do portably.
 (defun tokenize-symbol (string)
   "STRING is interpreted as the string representation of a symbol
@@ -1602,20 +1626,23 @@
         (values symbol status)
         (error "Unknown symbol: ~A [in ~A]" string package))))
 
-;; FIXME: interns the name
 (defun parse-package (string)
   "Find the package named STRING.
 Return the package or nil."
-  (multiple-value-bind (name pos) 
-      (if (zerop (length string))
-          (values :|| 0)
+  (check-type string (or string null))
+  (if (zerop (length string))
+      nil
+      (multiple-value-bind (name pos interned?) 
           (let ((*package* *swank-io-package*))
-            (ignore-errors (read-from-string string))))
-    (and name
-         (or (symbolp name) 
-             (stringp name))
-         (= (length string) pos)
-         (find-package name))))
+            (ignore-errors (read-softly-from-string string)))
+        (unwind-protect
+             (and name
+                  (or (symbolp name) 
+                      (stringp name))
+                  (= (length string) pos)
+                  (find-package name))
+          (when interned?
+            (unintern-in-home-package name))))))
 
 (defun unparse-name (string)
   "Print the name STRING according to the current printer settings."



From trittweiler at common-lisp.net  Mon Oct 22 11:34:04 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Mon, 22 Oct 2007 07:34:04 -0400 (EDT)
Subject: [slime-cvs] CVS slime
Message-ID: <20071022113404.CAD371E0A4@common-lisp.net>

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv22190

Modified Files:
	ChangeLog 
Log Message:

* swank.lisp (read-softly-from-string, unintern-in-home-package):
  Moved from `contrib/swank-arglist.lisp'.
  (parse-package): Use them. (Removes FIXME about interning
  symbols.)  Also changed the logic somewhat to avoid passing :|| to
  FIND-PACKAGE as ECL chokes on that.


--- /project/slime/cvsroot/slime/ChangeLog	2007/10/22 09:34:21	1.1238
+++ /project/slime/cvsroot/slime/ChangeLog	2007/10/22 11:34:04	1.1239
@@ -1,3 +1,11 @@
+2007-10-22  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank.lisp (read-softly-from-string, unintern-in-home-package):
+	Moved from `contrib/swank-arglist.lisp'.
+	(parse-package): Use them. (Removes FIXME about interning
+	symbols.)  Also changed the logic somewhat to avoid passing :|| to
+	FIND-PACKAGE as ECL chokes on that.
+
 2007-10-22  Steve Smith  <tarkasteve at gmail.com>
 
 	* swank-loader.lisp (compile-files-if-needed-serially): Added



From trittweiler at common-lisp.net  Wed Oct 24 20:03:14 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Wed, 24 Oct 2007 16:03:14 -0400 (EDT)
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <20071024200314.97B7244055@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv24842

Modified Files:
	swank-arglists.lisp 
Log Message:

* swank-arglist.lisp (decode-arglist): Fix incompatibility with
  ACL's modern reader mode. Thanks to Andreas Fuchs for stumbling
  over this.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/10/22 11:30:54	1.11
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/10/24 20:03:14	1.12
@@ -527,7 +527,7 @@
          (setq mode arg)
          (push arg (arglist.known-junk result)))
         ((and (symbolp arg)
-              (string= (symbol-name arg) (string '#:&ANY))) ; may be interned
+              (string= (symbol-name arg) (string '#:&any))) ; may be interned
          (setf (arglist.any-p result) t)                    ;  in any *package*.
          (setq mode '&any))
         ((member arg lambda-list-keywords)



From trittweiler at common-lisp.net  Wed Oct 24 20:03:22 2007
From: trittweiler at common-lisp.net (trittweiler)
Date: Wed, 24 Oct 2007 16:03:22 -0400 (EDT)
Subject: [slime-cvs] CVS slime/contrib
Message-ID: <20071024200322.D30FF5C4F0@common-lisp.net>

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv24881

Modified Files:
	ChangeLog 
Log Message:

* swank-arglist.lisp (decode-arglist): Fix incompatibility with
  ACL's modern reader mode. Thanks to Andreas Fuchs for stumbling
  over this.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2007/10/22 11:31:01	1.63
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2007/10/24 20:03:22	1.64
@@ -1,3 +1,9 @@
+2007-10-24  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank-arglist.lisp (decode-arglist): Fix incompatibility with
+	ACL's modern reader mode. Thanks to Andreas Fuchs for stumbling
+	over this.
+
 2007-10-22  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank-arglist.lisp (read-softly): Renamed to