sbcl stuff

sbcl/.quicklisp/dists/quicklisp/software/slime-v2.24/contrib/test/slime-enclosing-context-tests.el

@@ -0,0 +1,46 @@
+(require 'slime-enclosing-context)
+(require 'slime-tests)
+(require 'cl-lib)
+
+(def-slime-test enclosing-context.1
+  (buffer-sexpr wished-bound-names wished-bound-functions)
+  "Check that finding local definitions work."
+  '(("(flet ((,nil ()))
+	 (let ((bar 13)
+	       (,foo 42))
+	   *HERE*))"
+     ;; We used to return ,foo here, but we do not anymore.  We
+     ;; still return ,nil for the `slime-enclosing-bound-functions',
+     ;; though. The first one is used for local M-., whereas the
+     ;; latter is used for local autodoc. It does not seem too
+     ;; important for local M-. to work on such names. \(The reason
+     ;; that it does not work anymore, is that
+     ;; `slime-symbol-at-point' now does TRT and does not return a
+     ;; leading comma anymore.\)
+     ("bar" nil nil)
+     ((",nil" "()")))
+    ("(flet ((foo ()))
+         (quux)
+         (bar *HERE*))"
+     ("foo")
+     (("foo" "()"))))
+  (slime-check-top-level)
+  (with-temp-buffer
+    (let ((tmpbuf (current-buffer)))
+      (lisp-mode)
+      (insert buffer-sexpr)
+      (search-backward "*HERE*")
+      (cl-multiple-value-bind (bound-names points)
+	  (slime-enclosing-bound-names)
+	(slime-check "Check enclosing bound names"
+                     (cl-loop for name in wished-bound-names
+                              always (member name bound-names))))
+      (cl-multiple-value-bind (fn-names fn-arglists points)
+	  (slime-enclosing-bound-functions)
+	(slime-check "Check enclosing bound functions"
+                     (cl-loop for (name arglist) in wished-bound-functions
+                              always (and (member name fn-names)
+                                          (member arglist fn-arglists)))))
+      )))
+
+(provide 'slime-enclosing-context-tests)