Распространенная ошибка Lisp не понята

Я пытаюсь написать игру на угадывание чисел в Лиспе как проект, убивающий время. Однако, когда я пытаюсь загрузить программу, используя SBCL, я получаю следующую ошибку:

debugger invoked on a SB-C::INPUT-ERROR-IN-COMPILE-FILE in thread #<THREAD
                                                                    "initial thread" RUNNING
                                                                    {AA14959}>:
  READ failure in COMPILE-FILE at character 477:
    end of file on #<SB-SYS:FD-STREAM
                     for "file /home/andy/Dropbox/Programming/Common Lisp/number-game.lisp"
                     {B4F45F9}>

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE] Ignore runtime option --load "number-game.lisp".
  1: [ABORT   ] Skip rest of --eval and --load options.
  2:            Skip to toplevel READ/EVAL/PRINT loop.
  3: [QUIT    ] Quit SBCL (calling #'QUIT, killing the process).

(SB-C::READ-FOR-COMPILE-FILE
 #<SB-SYS:FD-STREAM
   for "file /home/andy/Dropbox/Programming/Common Lisp/number-game.lisp"
   {B4F45F9}>
 477)

Что означает эта ошибка? Код выглядит следующим образом, и ошибка появляется при загрузке файла и вызове (play) из REPL:

;;;; number-game.lisp
;;;;
;;;; Andrew Levenson
;;;; 10/25/2010
;;;;
;;;; Simple number guessing game. User has
;;;; five guesses to determine a number between
;;;; one and one hundred, inclusive (1-100).

;;; Set global variable for the target number:
(defparameter *target* nil) 

;;; Set the iterator so we may check the number of guesses
(defparameter *number-of-guesses* 0)

;;; Welcome the user
(defun welcome-user ()
    (format t "Welcome to the number guessing game!~%"))

;;; Prompt for a guess
(defun prompt-for-guess ()
    (format t "Please enter your guess (1-100): ")
    (finish-output nil) ; nil directs finish-output to standard IO
    (check-guess((read-guess)))

;;; Read in a guess
(defun read-guess ()
    (let ((guess (read)))
        (if (numberp guess) ; If true, return guess. Else, call prompt-for-guess
            (progn
                (setq *number-of-guesses* (+ *number-of-guesses* 1))
                guess)
            (prompt-for-guess))))

;;; Check if the guess is higher than, lower than, or equal to, the target
(defun check-guess (guess)
    (if (equal guess *target*)
        (equal-to)
        (if (> guess *target*)
            (greater-than (guess))
            (if (< guess *target*)
                (less-than (guess))))))

;;; If the guess is equal to the target, the game is over
(defun equal-to ()
    (format t "Congratulations! You have guessed the target number, ~a!~%" *target*)
    (y-or-n-p "Play again? [y/n] "))

;;; If the guess is greater than the target, inform the player.
(defun greater-than (guess)
    (format t "Sorry, ~a is greater than the target.~%" guess)
    (if (< *number-of-guesses* 6)
        (prompt-for-guess)
        (game-over)))

;;; If the guess is less than the target, inform the player.
(defun less-than (guess)
    (format t "Sorry, ~a is less than the target.~%" guess)
    (if (< *number-of-guesses* 6)
        (prompt-for-guess)
        (game-over)))

;;; If the player has run out of guesses, give them the option
;;; of playing the game again.
(defun game-over ()
    (y-or-n-p "You have run out of guesses. Play again? [y/n] "))


;;; Play the game
(defun play ()
    ;; If it's their first time playing this session,
    ;; make sure to greet the user.
    (unless (> *number-of-guesses* 0)
        (welcome-user))
    ;; Reset their remaining guesses
    (setq *number-of-guesses* 0)
    ;; Set the target value
    (setq *target*
        ;; Random can return float values,
        ;; so we must round the result to get
        ;; an integer value.
        (round
            ;; Add one to the result, because
            ;; (random 100) yields a number between
            ;; 0 and 99, whereas we want a number
            ;; from 1 to 100 inclusive.
            (+ (random 100) 1)))
    (if (equal (prompt-for-guess) "y")
        (play)
        (quit)))

(Я совершенно уверен, что программа не работает, за исключением одной ошибки, я все еще новичок, когда дело доходит до Lisp. Это только первая ошибка, с которой я столкнулся, которую я не могу найти на своем своя.)

Да, и проблема, скорее всего, связана с prompt-for-guess, read-guess а также check-guess функции, потому что это были те, с которыми я возился, когда эта ошибка возникла.

Источник

3 ответа

Решение

Похоже, вы не закрыли достаточно паренов на вашем prompt-for-guess DEFUN.

Читатель подходит к концу файла и замечает, что у него все еще открытая форма, и не может понять, откуда он.

Простой способ, которым я использую для поиска ошибок, подобных этому, состоит в том, чтобы мой текстовый редактор делал отступ в области и следил за тем, чтобы все выстраивалось в соответствие, как мне кажется

Источник

Команда в Emacs - Mx check-parens (она проверяет все, что нужно для балансировки, например, кавычки). Это может быть немного загадочно, если все уравновешивается, потому что в этом случае ничего не происходит.

Команда check-parens: Проверить наличие несбалансированных скобок в текущем буфере. Точнее, проверьте суженную часть буфера для несбалансированных выражений ("sexps") в целом. Это делается в соответствии с текущей таблицей синтаксиса и находит несбалансированные скобки или кавычки в зависимости от ситуации. (См. Инфо-узел `(emacs) Скобки '.) Если обнаружен дисбаланс, сигнализируется ошибка, и точка остается на первом неуравновешенном символе.

Источник

конец файла во время чтения, отсутствует закрывающая скобка (или аналогичная). Символ 477. Переместите курсор в тексте на 477 и проверьте, какое это выражение.

Проверьте вашу IDE на команду, чтобы найти несбалансированные выражения.

В LispWorks это будет Mx Find Unbalanced Parentheses.

У SLIME тоже должна быть команда для этого.

Источник
Другие вопросы по тегам