branch: elpa/sly
commit c61b9e9aa66fed6a238ca86fc1e011e80828c278
Author: Kamil Shakirov <kamil...@gmail.com>
Commit: João Távora <joaotav...@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))
