Macro doesn't work in the function.
- by avp
I have problems with following code: http://lisper.ru/apps/format/96
The problem is in "normalize" function, which does not work.
It fails on the fifth line: (zero-p a indexes i)
(defun normalize (a &optional indexes i)
"Returns normalized A."
(pragma
(format t "Data=~A ~A ~A" a indexes i)
(if (zero-p a indexes i)
a ;; cannot…