From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 25 Mar 2012 20:13:40 +0000 (-0700)
Subject: Handle non-string value of *buffer-pstring*.
X-Git-Tag: release-9.2.0~255
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b58e3def9d7bd3e468d504a349893356e48840d9;p=mit-scheme.git

Handle non-string value of *buffer-pstring*.
---

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index 5da20666d..e308ee88f 100644
--- a/src/runtime/swank.scm
+++ b/src/runtime/swank.scm
@@ -224,6 +224,7 @@ USA.
 
 (define (pstring->env pstring)
   (cond ((or (not (string? pstring))
+	     (not (string? *buffer-pstring*))
 	     (string-ci=? *buffer-pstring* "COMMON-LISP-USER"))
 	 (get-current-environment))
 	((string-prefix? anonymous-package-prefix pstring)