[nongnu] elpa/sly c61b9e9aa6 1/2: Per #596: Activate package-local nicknames for Lispworks

[ELPA Syncer]

branch: elpa/sly
commit c61b9e9aa66fed6a238ca86fc1e011e80828c278
Author: Kamil Shakirov <kamils80@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Per #596: Activate package-local nicknames for Lispworks
    
    * slynk/backend/lispworks.lisp (package-local-nicknames): New impl.
---
 slynk/backend/lispworks.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/slynk/backend/lispworks.lisp b/slynk/backend/lispworks.lisp
index c76b2c20a6..5c6013bc54 100644
--- a/slynk/backend/lispworks.lisp
+++ b/slynk/backend/lispworks.lisp
@@ -1025,3 +1025,9 @@ function names like \(SETF GET)."
 
 (defimplementation make-weak-value-hash-table (&rest args)
   (apply #'make-hash-table :weak-kind :value args))
+
+;;;; Packages
+
+#+#.(slynk-backend:with-symbol 'package-local-nicknames 'hcl)
+(defimplementation package-local-nicknames (package)
+  (hcl:package-local-nicknames package))