From 9604c7393be9e63f6dd40345b54d8995a8eb21ac Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 10 Jul 2024 20:17:05 -0400 Subject: [PATCH] fixed doc look up --- tools/clog-builder-ace.lisp | 33 +++++++++++++++------------------ 1 file changed, 15 insertions(+), 18 deletions(-) diff --git a/tools/clog-builder-ace.lisp b/tools/clog-builder-ace.lisp index 49ff3b2..7d608e6 100644 --- a/tools/clog-builder-ace.lisp +++ b/tools/clog-builder-ace.lisp @@ -321,25 +321,22 @@ var endRange = ~:*~A.session.doc.indexToPosition(endIndex); (clog-ace::js-ace obj) (clog-ace::js-ace obj))))) (unless (equal s "") - (with-input-from-string (i s) - (ignore-errors - (let* ((p (when (current-control app) - (attribute (get-placer (current-control app)) "data-panel-id"))) - (pac (if (eq (current-editor-is-lisp app) t) - (if (current-control app) - (string-upcase (attribute (attach-as-child (current-control app) p) - "data-in-package")) - package) - (current-editor-is-lisp app))) - (m (read i)) - (ms (format nil "~A" m)) - r) - (setf r (swank:operator-arglist ms pac)) + (ignore-errors + (let* ((p (when (current-control app) + (attribute (get-placer (current-control app)) "data-panel-id"))) + (pac (string-upcase (if (eq (current-editor-is-lisp app) t) + (if (current-control app) + (string-upcase (attribute (attach-as-child (current-control app) p) + "data-in-package")) + package) + (current-editor-is-lisp app)))) + (*package* (find-package pac)) + r) + (setf r (swank:operator-arglist s pac)) + (when r (when status - (setf (advisory-title status) (documentation (find-symbol ms) 'function))) - (when r - (when status - (setf (text status) (string-downcase r))))))))))) + (setf (advisory-title status) (documentation (read-from-string s) 'function)) + (setf (text status) (string-downcase r)))))))))) (clog-ace:set-auto-completion editor t) (setf (clog-ace:theme editor) *editor-theme*) (setf (clog-ace:tab-size editor) *editor-tab-size*)