Merge pull request #3 from 40ants/fix-unused-import-when-symbol-is-ba…

…ckquoted

Fixed issue when package was mentioned as unused whereas it was used inside a backquoted part of the macro.

.gitignore

@@ -4,3 +4,4 @@ docs/build/
 .#*
 .*.~undo-tree~
 .DS_Store
+*.fasl

docs/changelog.lisp

@@ -9,6 +9,8 @@
                               "ASDF"
                               "REPL"
                               "HTTP"))
+  (0.3.0 2023-12-01
+         "* Fixed issue when package was mentioned as unused whereas it was used inside a backquoted part of the macro.")
   (0.2.0 2023-11-19
          "* Now imports linter can warn on packages mentioned in defpackage but missing.")
   (0.1.0 2021-04-06

src/imports.lisp

@@ -92,6 +92,12 @@
              (form-symbols (cdr form))))
     (symbol
      (list form))
+    #+sbcl
+    (sb-impl::comma
+     (alexandria:mappend
+      #'form-symbols
+      (uiop:ensure-list
+       (slot-value form 'sb-impl::expr))))
     (t
      nil)))
 

t/core.lisp

@@ -3,9 +3,12 @@
   (:import-from #:rove
                 #:deftest
                 #:ok
-                #:testing))
+                #:testing)
+  (:import-from #:40ants-linter/imports
+                #:used-symbols))
 (in-package #:40ants-linter-tests/core)
 
 
-(deftest test-example ()
-  (ok t "Replace this test with something useful."))
+(deftest test-symbol-forms-extractor ()
+  (let ((symbols (used-symbols '`,bar)))
+    (ok (member 'bar symbols))))