Error

[jinkinglee]

The following is displayed. How do I find and fix it? Attached CoatMuller.lsp

[CHECKING TEXT CoatMuller.lsp loading ...]
.................................................. ..................
; Warning: redefinition of built-in symbol: T
..
; Warning: too few arguments: (* ERROR *)
.
; Check done.
Thank you.
Jin

[Ranjit_Singh]

Right here you are binding in-built symbol T to some reas number. Nothing wrong with it, but it could screw up your LISP environment. Review and fix it.

(setq T (polar Ad_1 (angle Ad_1 F_D) (cm_inch 3.5)))

Secondly, *error* needs an argument at the very end here

   (*error*); change this to (*error* "end")
) ;_ end of defun

you also need to fix your error trap to ignore reporting error when message is "end'. Search forums for error trap.