Implemented improved Python indent function.

The new indent function for Python mimics the behaviour of indent function
as seen in Emacs, where hiting tab key will cycle through the following
positions:

- Same indent level as last line.
- +1 indent level relative to last line.
- -1 indent level relative to last line.

There're still a flaw in this function, that I currently have no idea
how to fix:

```python
foo = bar|
```

after `newline-and-indent`:

```python
foo = bar
    |
    ^ it should not have indented, since it's just a top-level
      assignment, not a `def` or `class`.
```

Author: funk443

extensions/python-mode/python-mode.lisp

@@ -81,10 +81,25 @@
 
 #| link : https://www.python.org/dev/peps/pep-0008/ |#
 (defun python-calc-indent (point)
-  (with-point ((point point))
-    (let ((tab-width (variable-value 'tab-width :default point))
-          (column (point-column point)))
-      (+ column (- tab-width (rem column tab-width))))))
+  (with-point ((point point) (last-line-point point))
+    (let* ((tab-width (variable-value 'tab-width :default point))
+           (last-line-indent-column
+             (progn
+               (line-offset last-line-point -1)
+               (back-to-indentation last-line-point)
+               (point-column last-line-point)))
+           (column (point-column (back-to-indentation point)))
+           (next-indent-column (+ last-line-indent-column tab-width))
+           (previous-indent-column
+             (max (- last-line-indent-column tab-width) 0)))
+      (cond
+        ((and (>= column last-line-indent-column)
+              (< column next-indent-column))
+         next-indent-column)
+        ((>= column next-indent-column)
+         previous-indent-column)
+        (t
+         last-line-indent-column)))))
 
 (defun beginning-of-defun (point n)
   (loop :repeat n :do (search-backward-regexp point "^\\w")))