Intern symbols on Common Lisp side

mmontone · Aug 1, 2021 · 4561f7d · 4561f7d · informatimago · Aug 1, 2021
1 parent 4c975fb
commit 4561f7d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/system-browser.el b/system-browser.el
@@ -326,7 +326,7 @@
            ((string= category "generic functions") 'def-properties:generic-function-properties)
            (t (error "Invalid category: %s" category))
            )))
-    (let* ((definition-properties (slime-eval `(esb:serialize-for-emacs (,definition-function ',(intern (concat package "::" definition)) t))))
+    (let* ((definition-properties (slime-eval `(esb:serialize-for-emacs (,definition-function (cl:intern ,definition ,package) t))))
            (source (find :source definition-properties :key 'car))
            (file (and source (or
                               (cadr (find :file (remove-if-not 'listp source) :key 'car))
@@ -365,7 +365,7 @@
            ((string= category "macros") 'def-properties:macro-properties)
            ((string= category "classes") 'def-properties:class-properties)
            ((string= category "generic functions") 'def-properties:generic-function-properties))))
-    (let* ((definition-properties (slime-eval `(esb::serialize-for-emacs (,definition-function ',(intern (concat package "::" definition)) t))))
+    (let* ((definition-properties (slime-eval `(esb::serialize-for-emacs (,definition-function (cl:intern ,definition ,package) t))))
            (documentation (cdr (assoc :documentation definition-properties)))
            (contents (or documentation "This definition is not documented.")))
       (when (eql definition-type :variable)