Begin multitasking refactor to support ring-3 TSS
diff --git a/src/lisp/quicksort.lisp b/src/lisp/quicksort.lisp
new file mode 100644
index 0000000..b622ec9
--- /dev/null
+++ b/src/lisp/quicksort.lisp
@@ -0,0 +1,23 @@
+;;; Quicksort
+
+(defun quicksort (l)
+ (if (not l)
+ l
+ (let1 (rest (cdr l))
+ (append
+ (quicksort (remove-if-not
+ (lambda (x)
+ (< x (car l)))
+ rest))
+
+ (list (car l))
+
+ (quicksort (remove-if-not
+ (lambda (x)
+ (> x (car l)))
+ rest))))))
+
+(defun main ()
+ (print
+ (quicksort
+ (list 12 3 4 1 6 8 10 5 14))))