Нарисовать треугольник на AutoLISP

[qazpos]

Написал код, который рисует равнобедренный прямоугольный треугольник от вершины прямого угла. Координаты точки и длина катета вводятся извне. Препод сказал все норм, но при попытке запуска выводит ошибку:
; ошибка: неверный тип аргумента: numberp: (1.0 0.0)
Точку ввожу в поле рисования, просто указав координаты 1.0,1.0 , длину катета ввожу 50.0. Вот весь код:

(defun C:TRIANGLE ()
(InitGet 9 "Invalid input\n\r")
(setq T1(GetPoint T1 "\n\r Input first point"))
(InitGet 3 "Invalid input \n\r")
(setq H(GetDist T1 "\n\rInputheight"))
(setq X(car T1) Y(CDR T1))
(setq T2(list (+ X H) Y)
	  T3(list X (+ Y H))
)
(command "PLINE" T1
	"W" 0 0 T2
	"W" 0 0 T3
	"W" 0 0 T1 ""
)
(command "ZOOM" "all")
(PRINC)
)