Vim window logic, slimv

sbcl/.quicklisp/dists/quicklisp/software/cl-ansi-text-20150804-git/run-tests.lisp

@@ -0,0 +1,29 @@
+#-quicklisp
+(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
+                                       (user-homedir-pathname))))
+  (when (probe-file quicklisp-init)
+    (load quicklisp-init)))
+
+#+sbcl(require "sb-posix")
+
+(defparameter *pwd*
+  (concatenate 'string
+               (progn #+sbcl(sb-posix:getcwd)
+                      #+ccl(ccl::current-directory-name))
+               "/"))
+
+(push *pwd* asdf:*central-registry*)
+
+
+(ql:quickload '(:cl-colors
+                :alexandria
+                :fiveam
+
+                :cl-ansi-text
+                :cl-ansi-text-test))
+
+(let ((result-status (cl-ansi-text-test::ci-run)))
+  (let ((posix-status
+          (if result-status 0 1)))
+    #+sbcl(sb-posix:exit posix-status)
+    #+ccl (quit posix-status)))