sbcl stuff

sbcl/.quicklisp/dists/quicklisp/software/slime-v2.24/contrib/test/slime-mdot-fu-tests.el

@@ -0,0 +1,43 @@
+(require 'slime-mdot-fu)
+(require 'slime-tests)
+
+(def-slime-test find-local-definitions.1
+    (buffer-sexpr definition target-regexp)
+    "Check that finding local definitions work."
+    '(((defun foo (x)
+	  (let ((y (+ x 1)))
+	    (- x y *HERE*)))
+       y
+       "(y (+ x 1))")
+
+      ((defun bar (x)
+	 (flet ((foo (z) (+ x z)))
+	   (* x (foo *HERE*))))
+       foo
+       "(foo (z) (+ x z))")
+
+      ((defun quux (x)
+	 (flet ((foo (z) (+ x z)))
+	   (let ((foo (- 1 x)))
+	     (+ x foo *HERE*))))
+       foo
+       "(foo (- 1 x)")
+
+      ((defun zurp (x)
+	 (macrolet ((frob (x y) `(quux ,x ,y)))
+	   (frob x *HERE*)))
+       frob
+       "(frob (x y)"))
+  (slime-check-top-level)
+  (with-temp-buffer
+    (let ((tmpbuf (current-buffer)))
+      (insert (prin1-to-string buffer-sexpr))
+      (search-backward "*HERE*")
+      (slime-edit-local-definition (prin1-to-string definition))
+      (slime-sync)
+      (slime-check "Check that we didnt leave the temp buffer."
+	(eq (current-buffer) tmpbuf))
+      (slime-check "Check that we are at the local definition."
+	(looking-at (regexp-quote target-regexp))))))
+
+(provide 'slime-mdot-fu-tests)