Changeset View
Changeset View
Standalone View
Standalone View
src/backends/maxima/cantor-initmaxima.lisp
| Show First 20 Lines • Show All 70 Lines • ▼ Show 20 Line(s) | 69 | (defun cantor-inspect (var) | |||
|---|---|---|---|---|---|
| 71 | (mapc #'(lambda (x) | 71 | (mapc #'(lambda (x) | ||
| 72 | ($disp (eval x)) | 72 | ($disp (eval x)) | ||
| 73 | ($disp "-cantor-value-separator-") | 73 | ($disp "-cantor-value-separator-") | ||
| 74 | ) | 74 | ) | ||
| 75 | (cdr var) | 75 | (cdr var) | ||
| 76 | ) | 76 | ) | ||
| 77 | ) | 77 | ) | ||
| 78 | 78 | | |||
| 79 | ;;Fix bug with old matrix tex output in maxima, until it is fixed | ||||
| 80 | (defun tex-matrix(x l r) | ||||
| 81 | (append l `("\\begin{pmatrix}") | ||||
| 82 | (mapcan #'(lambda(y) | ||||
| 83 | (tex-list (cdr y) nil (list "\\\\ ") "&")) | ||||
| 84 | (cdr x)) | ||||
| 85 | '("\\end{pmatrix}") r)) | ||||
| 79 | 86 | | |||
| 80 | #+clisp (setf custom:*suppress-check-redefinition* | 87 | #+clisp (setf custom:*suppress-check-redefinition* | ||
| 81 | *old-suppress-check-redefinition*) | 88 | *old-suppress-check-redefinition*) | ||