mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

fix regression

Browse source
This commit is contained in:
David Botton 2024-04-19 15:33:58 -04:00
parent 3c4647a746
commit 49d446fd88
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-ace.lisp
View file

@ -1,6 +1,6 @@
(in-package :clog-tools)
(defun setup-lisp-ace (editor status)
(defun setup-lisp-ace (editor status &key (package "CLOG-USER"))
(let ((app (connection-data-item editor "builder-app-data")))
;; currently there is only one auto complete event for page
(unless (auto-complete-configured app)
@ -259,7 +259,7 @@ var endRange = ~:*~A.session.doc.indexToPosition(endIndex);
(setf r (swank::autodoc `(,ms swank::%CURSOR-MARKER%))))
(if r
(setf r (car r))
(setf r (swank:operator-arglist ms *PACKAGE*)))
(setf r (swank:operator-arglist ms package)))
(when status
(setf (advisory-title status) (documentation (find-symbol ms) 'function)))
(when r