Условный выход из функции: PROG RETURN

(PROG (m1 m2 ... mn)
             оператор1
             оператор2
              ...
             операторm)

WARNING: redefining COMMON-LISP:REVERSE in DEFUN

debugger invoked on a SYMBOL-PACKAGE-LOCKED-ERROR in thread
#<THREAD "main thread" RUNNING {23170329}>:
  Lock on package COMMON-LISP violated when setting fdefinition of REVERSE
  while in package COMMON-LISP-USER.
See also:
  The SBCL Manual, Node "Package Locks"
  The ANSI Standard, Section 11.1.2.1.2

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

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE      ] Ignore the package lock.
  1: [IGNORE-ALL    ] Ignore all package locks in the context of this operation.

  2: [UNLOCK-PACKAGE] Unlock the package.
  3: [ABORT         ] Exit debugger, returning to top level.

(PACKAGE-LOCK-VIOLATION #<PACKAGE "COMMON-LISP"> :SYMBOL REVERSE :FORMAT-CONTROL "setting fdefinition of ~A" :FORMAT-ARGUMENTS (REVERSE))
0]

ВНИМАНИЕ: переопределение COMMON-LISP: ОБРАТНО в DEFUN

отладчик вызван на SYMBOL-PACKAGE-LOCKED-ERROR в потоке
# <THREAD "main thread" RUNNING {23170329}>:
   Блокировка пакета COMMON-LISP нарушена при установке определения REVERSE
   пока в пакете COMMON-LISP-USER.
Смотрите также:
   Руководство SBCL, узел "Пакетные замки"
   Стандарт ANSI, раздел 11.1.2.1.2

Введите HELP для справки отладчика или (SB-EXT: EXIT) для выхода из SBCL.

перезапуск (вызывается по номеру или, возможно, сокращенному названию):
   0: [ПРОДОЛЖЕНИЕ] Игнорировать блокировку пакета.
   1: [IGNORE-ALL] Игнорировать все блокировки пакетов в контексте этой операции.

   2: [UNLOCK-PACKAGE] Разблокировать пакет.
   3: [ABORT] Выход из отладчика, возврат на верхний уровень.

(PACKAGE-LOCK-VIOLATION # <PACKAGE "COMMON-LISP">: СИМВОЛ ОБРАТНЫЙ: ФОРМАТ-КОНТРОЛЬ ", устанавливающий определение ~ A": ФОРМАТ-АРГУМЕНТЫ (ОБРАТНЫЙ))
0]