383 |
(cond |
(cond |
384 |
((memq 'sqmatrix (nth 1 decl)) |
((memq 'sqmatrix (nth 1 decl)) |
385 |
t) |
t) |
|
((memq 'matrix (nth 1 decl)) |
|
|
nil) |
|
386 |
((and (eq (car a) 'var) |
((and (eq (car a) 'var) |
387 |
(boundp (nth 2 a)) |
(boundp (nth 2 a)) |
388 |
(setq val (symbol-value (nth 2 a)))) |
(setq val (symbol-value (nth 2 a)))) |
392 |
(eq calc-matrix-mode 'sqmatrix)) |
(eq calc-matrix-mode 'sqmatrix)) |
393 |
(eq (car-safe a) 'var)) |
(eq (car-safe a) 'var)) |
394 |
t) |
t) |
395 |
|
((memq 'matrix (nth 1 decl)) |
396 |
|
nil) |
397 |
(t |
(t |
398 |
nil)))))) |
nil)))))) |
399 |
|
|