by@kurgm
WA
2171ms
(defun m(u k i)(let((c(read-char))(j(mod(1+ i)51)))(princ(or k(= u i)c))(case(#\T(m i k j))(#\K(m u c j))(t(or(if k(= u i))(m u k j))))))(m 0 nil 1)
T
K
; in: DEFUN M
; (#\T (M I K J))
;
; caught ERROR:
; illegal function call
;
; compilation unit finished
; caught 1 ERROR condition
Unhandled SB-INT:COMPILED-PROGRAM-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
{10005205B3}>:
Execution of a form compiled with errors.
Form:
(#\T (M I K J))
Compile-time error:
illegal function call
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005205B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:COMPILED-PROGRAM-ERROR {1002D2FA33}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SB-INT:COMPILED-PROGRAM-ERROR {1002D2FA33}>)
2: (INVOKE-DEBUGGER #<SB-INT:COMPILED-PROGRAM-ERROR {1002D2FA33}>)
3: (ERROR SB-INT:COMPILED-PROGRAM-ERROR :MESSAGE "illegal function call" :SOURCE "(#\\T (M I K J))")
4: (M 0 NIL 1)
5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (M 0 NIL 1) #<NULL-LEXENV>)
6: (EVAL-TLF (M 0 NIL 1) NIL NIL)
7: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (M 0 NIL 1) NIL)
8: (SB-INT:LOAD-AS-SOURCE #<CONCATENATED-STREAM :STREAMS (#<SB-IMPL::STRING-INPUT-STREAM {1002C3A2F3}>) {1002C3B133}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
9: ((FLET SB-FASL::THUNK :IN LOAD))
10: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7FC0D9C7F4FB}> #<CONCATENATED-STREAM :STREAMS (#<SB-IMPL::STRING-INPUT-STREAM {1002C3A2F3}>) {1002C3B133}>)
11: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<CONCATENATED-STREAM :STREAMS (#<SB-IMPL::STRING-INPUT-STREAM {1002C3A2F3}>) {1002C3B133}> NIL)
12: (LOAD #<CONCATENATED-STREAM :STREAMS (#<SB-IMPL::STRING-INPUT-STREAM {1002C3A2F3}>) {1002C3B133}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
13: ((FLET ROSWELL::BODY :IN ROSWELL:SCRIPT) #<SB-SYS:FD-STREAM for "file /volume/CODE" {1002C37D53}>)
14: (ROSWELL:SCRIPT "/volume/CODE")
15: (ROSWELL:RUN ((:EVAL "(ros:quicklisp)") (:SCRIPT "/volume/CODE") (:QUIT NIL)))
16: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ROSWELL:RUN (QUOTE ((:EVAL "(ros:quicklisp)") (:SCRIPT "/volume/CODE") (:QUIT NIL)))) #<NULL-LEXENV>)
17: (EVAL (ROSWELL:RUN (QUOTE ((:EVAL "(ros:quicklisp)") (:SCRIPT "/volume/CODE") (:QUIT NIL)))))
18: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(progn #-ros.init(cl:load \"/usr/local/etc/roswell/init.lisp\"))") (:EVAL . "(ros:run '((:eval\"(ros:quicklisp)\")(:script \"/volume/CODE\")(:quit ())))")))
19: (SB-IMPL::TOPLEVEL-INIT)
20: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
21: ((FLET "WITHOUT-INTERRUPTS-BODY-7" :IN SAVE-LISP-AND-DIE))
22: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))
unhandled condition in --disable-debugger mode, quitting