lisp강좌보며 한자한자했는데 이런되지않네요^^

사각형강좌^^를 보며 땀흘리며 적었는데 아무리 찾아도
틀린곳이 없는데 에러가 나요^^봐주세요^^당연appload사용법은 압니다^하하하
그럼 수고하세요..
(defun c:makerec()
(setq pt1 (getpoint “first point”))
(setq pt2 (getcorner pt1 “second point”))
(setq x1 (min (car pt1) (car pt2)))
(setq x2 (max (car pt1) (car pt2)))
(setq y1 (min (cadr pt1) (cadr pt2)))
(setq y2 (max (cadr pt1) (cadr pt2)))
(setq p1 (list x1 y1) p2 (list x2 y1) p3 (list x2 y2) p4 (list(x1 y2))
(command “line” p1 p2 p3 p4 “c”)
(princ)
)