[nongnu] elpa/slime 80ab72dcba 2/2: Implement structure-accessor-p for CCL and CLISP.

[ELPA Syncer]

branch: elpa/slime
commit 80ab72dcbafba421b98d4ba5646c0197d885ae1a
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    Implement structure-accessor-p for CCL and CLISP.
---
 swank/ccl.lisp   | 5 +++++
 swank/clisp.lisp | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/swank/ccl.lisp b/swank/ccl.lisp
index ee978e9254..d29f2ac03a 100644
--- a/swank/ccl.lisp
+++ b/swank/ccl.lisp
@@ -872,3 +872,8 @@
   (ccl:hash-table-weak-p hashtable))
 
 (pushnew 'deinit-log-output ccl:*save-exit-functions*)
+
+(defimplementation structure-accessor-p (symbol)
+  (find-if (lambda (def)
+             (typep def 'ccl::structure-accessor-definition-type))
+           (ccl:find-definition-sources symbol) :key #'caar))
diff --git a/swank/clisp.lisp b/swank/clisp.lisp
index f53b40eb6d..1c1be007d9 100644
--- a/swank/clisp.lisp
+++ b/swank/clisp.lisp
@@ -940,3 +940,7 @@ Execute BODY with NAME's function slot set to FUNCTION."
              (setf *log-output* nil))
            (swank::init-log-output))
          custom:*init-hooks*)
+
+(defimplementation structure-accessor-p (symbol)
+  (and (get symbol 'system::defstruct-reader)
+       t))