I don't see the "table" and it looks like you just scattered your code all across the page, as if it were scrambled. No wait.. it looks like a bad translation of the original lisp into formatted perl. It really does look like lisp indenting conventions were attempting to be followed in your example.
(if (= major-length 4800) 18
(if (= major-length 8552) (if (= val 4) 33
(if (= val 1) 18
(error "not handled")))
(error "not handled")))
Here's a nicer lisp version of the same thing. It's got more in common with what I originally suggested than does what you alleged TheDamian recommended. (cond ((= major-length 4800) 18)
((= major-length 8552) (cond ((= val 4) 33)
((= val 1) 18)
(error "not handled")))
(error "not handled"))
The above is just a more verbose version of the following. This is getting to be seriously terse to the point that there's almost not enough whitespace in there. I'm just following standard indenting rules so this is just stock lisp. (ecase major-length
(4800 18)
(8552 (ecase var
(4 33)
(1 18))))
|