You have encountered a bug in SLIME. The communication state machine received an event that was illegal for its current state, which means that the communication between Emacs and Lisp has lost synchronization. The connection to Lisp has therefore been closed. You can open a fresh connection with `M-x slime'. Please report this problem to your friendly neighbourhood SLIME hacker, or the mailing list at slime-devel@common-lisp.net. Please include in your report: A description of what you were doing when the problem occured, the version of SLIME, Emacs, and Lisp that you are using, the Lisp backtrace, if one was printed, and the information printed below: The event was: (:debug 1 "Interrupted at #x40121AC2.\n [Condition of type SIMPLE-CONDITION]" (("CONTINUE" "Return from BREAK.") ("ABORT" "Return to Slime toplevel.") ("ABORT" "Return to Top-Level.")) ((0 "0: (UNIX::SIGINT-HANDLER # # #.(SYSTEM:INT-SAP #x3FFFC750))") (1 "1: (UNIX::SIGINT-HANDLER 3 # # #.(SYSTEM:INT-SAP #x3FFFC750))[:EXTERNAL]") (2 "2: (\"Foreign function call land\")") (3 "3: (\"Foreign function call land\")") (4 "4: (\"Foreign function call land\")") (5 "5: (\"Foreign function call land\")") (6 "6: (\"Foreign function call land\")") (7 "7: (SYSTEM:WAIT-UNTIL-FD-USABLE 6 :INPUT NIL)") (8 "8: (COMMON-LISP::DO-INPUT #)") (9 "9: (COMMON-LISP::INPUT-CHARACTER # T NIL)") (10 "10: (READ-CHAR # T NIL #)") (11 "11: (SWANK::NEXT-BYTE)") (12 "12: (NIL)") (13 "13: ((PCL::FAST-METHOD SWANK:CALL-WITH-I/O-LOCK (T)) # # #)") (14 "14: ((PCL::FAST-METHOD SWANK:CALL-WITH-I/O-LOCK (T)) # # #)") (15 "15: (SWANK::READ-NEXT-FORM)") (16 "16: (SWANK::READ-NEXT-FORM)") (17 "17: (SWANK::READ-FROM-EMACS)") (18 "18: (SWANK::SLIME-READ-STRING)") (19 "19: (SWANK::SLIME-READ-STRING)"))) The state stack was: (slime-read-string-state slime-evaluating-state slime-idle-state) The content of the *slime-events* buffer: (:emacs-evaluate "(swank:getpid)" nil (:catch-tag slime-result-27920)) (activate) ; slime-evaluating-state (:%apply "slime-open-stream-to-lisp" (32772)) (:new-features ("HEMLOCK" "MOTIF" "CLX-MIT-R5" "CLX-MIT-R4" "XLIB" "CLX" "CLX-LITTLE-ENDIAN" "GRAY-STREAMS" "ASDF" "MK-DEFSYSTEM" "COMMON-LISP-CONTROLLER" "PCL-STRUCTURES" "PORTABLE-COMMONLOOPS" "PCL" "PYTHON" "PENTIUM" "I486" "LINKAGE-TABLE" "MP" "GENCGC" "GLIBC2.1" "CMU18" "CMU18E" "RELATIVE-PACKAGE-NAMES" "CONSERVATIVE-FLOAT-TYPE" "RANDOM-MT19937" "HASH-NEW" "X86" "LINUX" "GLIBC2" "UNIX" "COMMON" "CMU" "NEW-COMPILER" "COMMON-LISP" "ANSI-CL" "IEEE-FLOATING-POINT")) (:ok 1666) (activate) ; slime-idle-state (:emacs-evaluate "(swank:interactive-eval \"(defun get-triangle-conflicts (graph)\n (let ((triangles (get-triangles graph)))\n (loop for triangle in triangles\n for i from 0\n collect (loop for tr in triangles\n for j from 0\n when (and\n (intersection tr triangle)\n (not (equal i j)))\n collect j))))\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44129 value) "rJq\210\302 !)\207" [G44129 value slime-show-evaluation-result] 2] '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "GET-TRIANGLE-CONFLICTS") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"get-triangle-conflicts\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(GRAPH)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"defun\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&whole source name lambda-list &body (body decls doc))") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"defun\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&whole source name lambda-list &body (body decls doc))") (activate) ; slime-idle-state (:emacs-evaluate "(swank:interactive-eval \"(defun get-set-conflicts (sets)\n (loop for set in sets\n for i from 0\n collect (loop for s in sets\n for j from 0\n when (and\n (intersection set s)\n (not (equal i j)))\n collect j)))\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44129 value) "rJq\210\302 !)\207" [G44129 value slime-show-evaluation-result] 2] '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "GET-SET-CONFLICTS") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"get-set-conflicts\")" "CL-USER" (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(SETS)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:listener-eval \"(get-set-conflicts ((1 2 3) (3 4 5)))\")" "CL-USER" (:function #[(result) "r\304 q\210\212b\210`\n\305\261\210 \306\223+\207" [slime-repl-prompt-start-mark start result slime-output-end slime-output-buffer "\n" nil] 3])) (activate) ; slime-evaluating-state (:debug 1 "Execution of a form compiled with errors:\n ((1 2 3) (3 4 5))\n [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR]" (("ABORT" "Return to Slime toplevel.") ("ABORT" "Return to Top-Level.")) ((0 "0: (\"Top-Level Form\")[:TOP-LEVEL]") (1 "1: (EVAL (GET-SET-CONFLICTS (# #)))") (2 "2: (SWANK::EVAL-REGION \"(get-set-conflicts ((1 2 3) (3 4 5)))\" T)[:OPTIONAL]") (3 "3: (SWANK::EVAL-REGION \"(get-set-conflicts ((1 2 3) (3 4 5)))\" T)[:OPTIONAL]") (4 "4: (SWANK::EVAL-REGION \"(get-set-conflicts ((1 2 3) (3 4 5)))\" T)[:OPTIONAL]") (5 "5: (SWANK:LISTENER-EVAL \"(get-set-conflicts ((1 2 3) (3 4 5)))\")") (6 "6: (SWANK:EVAL-STRING \"(swank:listener-eval \\\"(get-set-conflicts ((1 2 3) (3 4 5)))\\\")\" \"CL-USER\")") (7 "7: (SWANK:EVAL-STRING \"(swank:listener-eval \\\"(get-set-conflicts ((1 2 3) (3 4 5)))\\\")\" \"CL-USER\")") (8 "8: (SWANK::CALL-WITH-SLIME-STREAMS # # #, Output = #> # ...)") (9 "9: (SWANK::SERVE-ONE-REQUEST # # # #)") (10 "10: (SWANK::SERVE-ONE-REQUEST # # # #)") (11 "11: (SWANK::SERVE-ONE-REQUEST # # # #)") (12 "12: (SWANK::SERVE-ONE-REQUEST # # # #)") (13 "13: (COMMON-LISP::SUB-SERVE-EVENT 1 0)") (14 "14: (SYSTEM:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)") (15 "15: (COMMON-LISP::DO-INPUT #)") (16 "16: (COMMON-LISP::INPUT-CHARACTER # NIL (COMMON-LISP::*EOF*))") (17 "17: (COMMON-LISP::SYNONYM-IN # NIL (COMMON-LISP::*EOF*))") (18 "18: (COMMON-LISP::TWO-WAY-IN #, Output = #> NIL (COMMON-LISP::*EOF*))") (19 "19: (READ-CHAR #, Output = #> NIL (COMMON-LISP::*EOF*) #)"))) (activate) ; slime-debugging-state (:emacs-evaluate-oneway "(swank:invoke-nth-restart-for-emacs 1 0)" nil) (:debug-return 1) (activate) ; slime-evaluating-state (:aborted) (activate) ; slime-idle-state (:emacs-evaluate "(swank:listener-eval \"(get-set-conflicts '((1 2 3) (3 4 5)))\")" "CL-USER" (:function #[(result) "r\304 q\210\212b\210`\n\305\261\210 \306\223+\207" [slime-repl-prompt-start-mark start result slime-output-end slime-output-buffer "\n" nil] 3])) (activate) ; slime-evaluating-state (:ok "((1) (0))") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"get-set-conflicts\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(SETS)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"get-triangles\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(-- )") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"setq\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&rest stuff)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"setq\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&rest stuff)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"loop\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&environment env &rest keywords-and-forms)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"loop\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&environment env &rest keywords-and-forms)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"loop\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&environment env &rest keywords-and-forms)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"loop\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&environment env &rest keywords-and-forms)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"loop\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&environment env &rest keywords-and-forms)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"loop\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(&environment env &rest keywords-and-forms)") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"random\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(arg &optional (state *random-state*))") (activate) ; slime-idle-state (:emacs-evaluate "(swank:arglist-string \"random\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44104 G44105 arglist) "J\203\nJ !\207\303\304\305\nJ \"\"\207" [G44105 arglist G44104 slime-background-message "%s" slime-format-arglist] 5] '--symbol-name-- '--show-fn-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "(arg &optional (state *random-state*))") (activate) ; slime-idle-state (:emacs-evaluate "(swank:interactive-eval \"(defun find-maximum-set-packing (sets)\n (loop for set in (find-maximum-independent-subset (make-graph sets))\n collect (nth set sets)))\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44129 value) "rJq\210\302 !)\207" [G44129 value slime-show-evaluation-result] 2] '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "FIND-MAXIMUM-SET-PACKING") (activate) ; slime-idle-state (:emacs-evaluate "(swank:interactive-eval \"(defun find-greedy-independent-subset (graph)\n (loop when (get-unised-nodes graph)\n collect \n (let ((node (get-least-blocking-node graph)))\n (disable-node graph node)\n node)))\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44129 value) "rJq\210\302 !)\207" [G44129 value slime-show-evaluation-result] 2] '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "FIND-GREEDY-INDEPENDENT-SUBSET") (activate) ; slime-idle-state (:emacs-evaluate "(swank:interactive-eval \"(defun find-greedy-set-packing (sets)\n (loop for set in (find-greedy-independent-subset (make-graph sets))\n collect (nth set sets)))\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44129 value) "rJq\210\302 !)\207" [G44129 value slime-show-evaluation-result] 2] '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "FIND-GREEDY-SET-PACKING") (activate) ; slime-idle-state (:emacs-evaluate "(swank:interactive-eval \"(let ((set-count (read *standard-input* nil))\n (set-size))\n (format *standard-output* \\\"~% Aibiu kiekis ~A ~%\\\" graph-size)\n;; (force-output *standard-output*)\n (format *standard-output* \\\"Iveskite maksimalu aibes dydi: \\\")\n (setq set-size (read *standard-input* nil))\n (let ((sets\n (loop for i from 1 to graph-size\n collect (loop for j from 1 to (random set-size)\n collect (random set-size)))))\n\n (time (format *standard-output*\n \\\"Jegos algoritmas rado shiuos trikampius:~%~A~%\\\"\n (find-maximum-set-packing sets)))\n;; (force-output *standard-output*)\n (time (format *standard-output*\n \\\"Godus algoritmas rado shiuos trikampius:~%~A~%\\\"\n (find-greedy-set-packing sets))))\n;; (force-output *standard-output*))\n;; (win32:exitprocess 0)\n )\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44129 value) "rJq\210\302 !)\207" [G44129 value slime-show-evaluation-result] 2] '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:read-string 1) (activate) ; slime-read-string-state (:emacs-evaluate "(swank:interactive-eval \"(defun main ()\n (format *standard-output* \\\"~%Iveskite aibiu kieki: \\\")\n;; (force-output *standard-output*)\n (let ((set-count (read *standard-input* nil))\n (set-size))\n (format *standard-output* \\\"~% Aibiu kiekis ~A ~%\\\" graph-size)\n;; (force-output *standard-output*)\n (format *standard-output* \\\"Iveskite maksimalu aibes dydi: \\\")\n (setq set-size (read *standard-input* nil))\n (let ((sets\n (loop for i from 1 to set-count\n collect (loop for j from 1 to (random set-size)\n collect (random set-size)))))\n \n (time (format *standard-output*\n \\\"Jegos algoritmas rado shiuos trikampius:~%~A~%\\\"\n (find-maximum-set-packing sets)))\n ;; (force-output *standard-output*)\n (time (format *standard-output*\n \\\"Godus algoritmas rado shiuos trikampius:~%~A~%\\\"\n (find-greedy-set-packing sets))))\n ;; (force-output *standard-output*))\n ;; (win32:exitprocess 0)\n ))\")" nil (:function (lambda (&rest --cl-rest--) (apply #[(G44129 value) "rJq\210\302 !)\207" [G44129 value slime-show-evaluation-result] 2] '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "MAIN") (activate) ; slime-read-string-state (:emacs-return-string "\n") (activate) ; slime-evaluating-state (:read-string 1) (activate) ; slime-read-string-state (:debug 1 "Interrupted at #x40121AC2.\n [Condition of type SIMPLE-CONDITION]" (("CONTINUE" "Return from BREAK.") ("ABORT" "Return to Slime toplevel.") ("ABORT" "Return to Top-Level.")) ((0 "0: (UNIX::SIGINT-HANDLER # # #.(SYSTEM:INT-SAP #x3FFFC750))") (1 "1: (UNIX::SIGINT-HANDLER 3 # # #.(SYSTEM:INT-SAP #x3FFFC750))[:EXTERNAL]") (2 "2: (\"Foreign function call land\")") (3 "3: (\"Foreign function call land\")") (4 "4: (\"Foreign function call land\")") (5 "5: (\"Foreign function call land\")") (6 "6: (\"Foreign function call land\")") (7 "7: (SYSTEM:WAIT-UNTIL-FD-USABLE 6 :INPUT NIL)") (8 "8: (COMMON-LISP::DO-INPUT #)") (9 "9: (COMMON-LISP::INPUT-CHARACTER # T NIL)") (10 "10: (READ-CHAR # T NIL #)") (11 "11: (SWANK::NEXT-BYTE)") (12 "12: (NIL)") (13 "13: ((PCL::FAST-METHOD SWANK:CALL-WITH-I/O-LOCK (T)) # # #)") (14 "14: ((PCL::FAST-METHOD SWANK:CALL-WITH-I/O-LOCK (T)) # # #)") (15 "15: (SWANK::READ-NEXT-FORM)") (16 "16: (SWANK::READ-NEXT-FORM)") (17 "17: (SWANK::READ-FROM-EMACS)") (18 "18: (SWANK::SLIME-READ-STRING)") (19 "19: (SWANK::SLIME-READ-STRING)"))) The content of the *cl-connection* buffer: