Cond.. code is not working

[bijoyvm]

hi friends please help me to correct this code...

;;;;;;; if a is integer

(defun C:test()
(setq a 01)

(cond
((= (type a) STR) (alert "\nIT IS STRING"))
((= (type a) int) (alert "\nIT IS INTEGER"))
)
(princ)
)

;;;;;;;;;; if a is string

(defun C:test()
(setq a "PLOT-01")

(cond
((= (type a) STR) (alert "\nIT IS STRING"))
((= (type a) int) (alert "\nIT IS INTEGER"))
)
(princ)
)

[pBe]

 
(cond
((= (type a) 'STR) (alert "\nIT IS STRING")) 
((= (type a) 'int) (alert "\nIT IS INTEGER")) 
)

Did you not read the other replies on your post a while back? --- > Convert Real to String

BTW: ADD CODE TAGS ---> Code Posting Guidelines

[bijoyvm]

thank you so much pBe
yes i read that .. actually I 'm trying to create a lisp and i need to add this condition but it was not working.. no its working perfectly.

thanks and regards
bijoy

[pBe]

thank you so much pBe
yes i read that .. actually I 'm trying to create a lisp and i need to add this condition but it was not working.. no its working perfectly.

thanks and regards
bijoy

Glad to be of service.

BUT you still need to ADD CODE TAGS ---> Code Posting Guidelines <--- read this