sbcl stuff

2020-01-20 14:13:08 -05:00 · 2020-01-20 14:13:08 -05:00 · 5d91dbb667
commit 5d91dbb667
parent 1d1dbc34df
335 changed files with 119806 additions and 1 deletions
--- a/sbcl/.quicklisp/dists/quicklisp/software/slime-v2.24/contrib/test/slime-parse-tests.el
+++ b/sbcl/.quicklisp/dists/quicklisp/software/slime-v2.24/contrib/test/slime-parse-tests.el
@ -0,0 +1,63 @@
+(require 'slime-parse)
+(require 'slime-tests)
+
+(defun slime-check-buffer-form (result-form)
+  (slime-test-expect
+   (format "Buffer form correct in `%s' (at %d)" (buffer-string) (point))
+   result-form
+   (slime-parse-form-upto-point 10)))
+
+(def-slime-test form-up-to-point.1
+    (buffer-sexpr result-form &optional skip-trailing-test-p)
+    ""
+    `(("(char= #\\(*HERE*"
+       ("char=" "#\\(" ,slime-cursor-marker))
+      ("(char= #\\( *HERE*"
+       ("char=" "#\\(" "" ,slime-cursor-marker))
+      ("(char= #\\) *HERE*"
+       ("char=" "#\\)" "" ,slime-cursor-marker))
+      ("(char= #\\*HERE*"
+       ("char=" "#\\" ,slime-cursor-marker) t)
+      ("(defun*HERE*"
+       ("defun" ,slime-cursor-marker))
+      ("(defun foo*HERE*"
+       ("defun" "foo" ,slime-cursor-marker))
+      ("(defun foo (x y)*HERE*"
+       ("defun" "foo"
+	("x" "y") ,slime-cursor-marker))
+      ("(defun foo (x y*HERE*"
+       ("defun" "foo"
+	("x" "y" ,slime-cursor-marker)))
+      ("(apply 'foo*HERE*"
+       ("apply" "'foo" ,slime-cursor-marker))
+      ("(apply #'foo*HERE*"
+       ("apply" "#'foo" ,slime-cursor-marker))
+      ("(declare ((vector bit *HERE*"
+       ("declare" (("vector" "bit" "" ,slime-cursor-marker))))
+      ("(with-open-file (*HERE*"
+       ("with-open-file" ("" ,slime-cursor-marker)))
+      ("(((*HERE*"
+       ((("" ,slime-cursor-marker))))
+      ("(defun #| foo #| *HERE*"
+       ("defun" "" ,slime-cursor-marker))
+      ("(defun #-(and) (bar) f*HERE*"
+       ("defun" "f" ,slime-cursor-marker))
+      ("(remove-if #'(lambda (x)*HERE*"
+       ("remove-if" ("lambda" ("x") ,slime-cursor-marker)))
+      ("`(remove-if ,(lambda (x)*HERE*"
+       ("remove-if" ("lambda" ("x") ,slime-cursor-marker)))
+      ("`(remove-if ,@(lambda (x)*HERE*"
+       ("remove-if" ("lambda" ("x") ,slime-cursor-marker))))
+  (slime-check-top-level)
+  (with-temp-buffer
+    (lisp-mode)
+    (insert buffer-sexpr)
+    (search-backward "*HERE*")
+    (delete-region (match-beginning 0) (match-end 0))
+    (slime-check-buffer-form result-form)
+    (unless skip-trailing-test-p
+      (insert ")") (backward-char)
+      (slime-check-buffer-form result-form))
+    ))
+
+(provide 'slime-parse-tests)