Search for special forms in analyzer.

src/fennel-ls/analyzer.fnl

@@ -157,9 +157,10 @@ find the definition `10`, but if `opts.stop-early?` is set, it would find
                        (or (sym? head :fn)
                            (sym? head :lambda)
                            (sym? head :λ))))
-
               (search-multival server file (. definition (length definition)) stack multival opts)
-              result result))))))
+              result result
+              _ (case (docs.get-builtin server (tostring (. call 1)))
+                  {:metadata metadata_} {:indeterminate true})))))))
 
 (set search-multival
   (λ [server file ?ast stack multival opts]

test/lint.fnl

@@ -111,6 +111,12 @@
                      field.unknown"}
          []
          [{:code 302}])
+  ;; specials are OK too
+  (check {:unpacker.fnl "(local unpack (or table.unpack _G.unpack)) {: unpack}"
+          :main.fnl "(local u (require :unpacker))
+                     (print (u.unpack [:haha :lol]))"}
+         []
+         [{:code 302}])
   (check "package.loaded.mymodule io.stderr.write"
          []
          [{:code 302}])