Нахождение максимума из N чисел. LISP

[Чай_ник]

(defun maximum(a b)
(
/ (+ (+ a b) (abs (- a b))) 2
))

(defun max (n k x2)
(cond 
	((<  k n)
		(+ k 1)
		(write-string "Введите число: ")
		(setq x1 (read))
		(setq x2 (maximum x1 x2))
	)
	(t x2)
)
)

(write-string "Введите количество: ")
(setq x1 (read))

(write-line "")
(write-string "MAX: ")
(write (max n 0 0))
(write-line "")

(write-line "")
(write-line "Press ENTER")
(read-char)

здесь есть косяк, но я сам не силен в лиспе, не могу найти в чем дело. программа по сути должна находить масимум из введенных n чисел. посмотрите пожалуйста. добирается до вывода "MAX:" и всё(((

[netrino]

По соглашению, закрывающие скобки пишут на одной строке.
Что у вас не так не разбирался. Вот набросал пример:

(defun read-number (&optional (prompt "Введите число: "))
  (write-string prompt)
  (read))
 
(defun biggest (arg-1 arg-2)
  (if (> arg-1 arg-2) arg-1 arg-2))
 
(defun find-max (a-number)
  (if (yes-or-no-p "Продолжить?")
      (biggest a-number (find-max (read-number)))
      a-number))        
  
(defun find-max-of (count a-number)
  (if (= count 1)
      a-number
      (biggest a-number (find-max-of (1- count) (read-number)))))
 
(format t "Максимум: ~a~%" (find-max (read-number)))
(format t "Максимум: ~a~%" (find-max-of (read-number "Введите количество чисел: ") (read-number)))

find-max запрашивает каждый раз, нужно ли вводить следующее число, а find-max-of считывает столько чисел, сколько указано первым аргументом