(:emacs-rex (swank:connection-info) nil t 1) (:indentation-update (("prepare-for-fast-read-char" . 1) ("def-output-routines" . 1) ("with-fop-stack" . 1) ("enumerate-matches" . 1) ("with-symbol" . 1) ("with-pathname" . 1) ("input-wrapper" . 1) ("output-wrapper" . 1) ("prepare-for-fast-read-byte" . 1) ("with-read-buffer" . 1) ("maybe-sap-maybe-string" . 1) ("with-host" . 1) ("with-float-traps-masked" . 1) ("without-package-locks" . 0) ("do-info" . 1) ("def-source-context" . 2) ("define-function-name-syntax" . 2) ("enumerate-search-list" . 1) ("with-c-strvec" . 1) ("with-circularity-detection" . 1) ...)) (:return (:ok (:pid 4527 :style :sigio :lisp-implementation (:type "CMU Common Lisp" :name "cmucl" :version "CVS 19d 19d-release (19D)") :machine (:instance "debian" :type "X86" :version "X86") :features (:asdf :clc-os-debian :common-lisp-controller :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19d :python :conservative-float-type :modular-arith :cmucl-19d-patch-002 :cmucl-19d-patch-001 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 ...) :modules ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2008-02-23")) 1) (:emacs-rex (swank:swank-require :swank-asdf) "COMMON-LISP-USER" :repl-thread 2) (:emacs-rex (swank:swank-require :swank-presentations) "COMMON-LISP-USER" :repl-thread 3) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 2) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 3) (:emacs-rex (swank:listener-eval "(defun wc (file-name) (let ((c 0)) (with-open-file (stream file-name) (do ((char (read-char stream nil)))))))\n") "COMMON-LISP-USER" :repl-thread 4) (:presentation-start 1 :repl-result) (:write-string "WC" :repl-result) (:presentation-end 1 :repl-result) (:write-string "\n" :repl-result) (:return (:ok nil) 4) (:emacs-rex (swank:listener-eval "(wc \".emacs\")\n") "COMMON-LISP-USER" :repl-thread 5) (:write-string "\n; In: LAMBDA (FILE-NAME)\n") (:write-string "\n; (DO (#))\n; Error: (during macroexpansion)\n; Error while parsing arguments to DEFMACRO DO:\n; Invalid number of elements in:\n; (((CHAR #)))\n; to satisfy lambda-list: ..\n; \n; (LET (#)\n; (WITH-OPEN-FILE #\n; #))\n; Note: Variable C defined but never used.\n; ") (:debug 0 1 ("Execution of a form compiled with errors:\n (DO ((CHAR (READ-CHAR STREAM NIL))))" " [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR]" nil) (("ABORT" "Return to SLIME's top level.") ("ABORT" "Return to Top-Level.")) ((0 "(WC \".emacs\")") (1 "(WC \".emacs\")") (2 "(SWANK::EVAL-REGION \"(wc \\\".emacs\\\")\n\")") (3 "(\"DEFUN REPL-EVAL\")") (4 "(SWANK::TRACK-PACKAGE #)") (5 "(SWANK::CALL-WITH-BUFFER-SYNTAX #)") (6 "(SWANK::REPL-EVAL \"(wc \\\".emacs\\\")\n\")") (7 "(\"DEFUN EVAL-FOR-EMACS\")") (8 "(\"DEFINTERFACE CALL-WITH-DEBUGGER-HOOK\" # #)") (9 "(\"DEFUN HANDLE-REQUEST\")") (10 "(\"DEFINTERFACE CALL-WITH-DEBUGGER-HOOK\" # #)") (11 "(SWANK::CALL-WITH-REDIRECTED-IO # #)") (12 "(SWANK::CALL-WITH-CONNECTION # #)") (13 "(SWANK::HANDLE-REQUEST #)") (14 "(SWANK::PROCESS-AVAILABLE-INPUT # #)") (15 "((FLET SWANK::HANDLER SWANK::INSTALL-SIGIO-HANDLER))") (16 "(SWANK-BACKEND::SIGIO-HANDLER #<#1=unused-arg> #<#1#> #<#1#>)") (17 "(\"call_into_lisp+#x8C [#x8055D0C] /usr/bin/cmucl\")") (18 "(\"funcall3+#x32 [#x8055B2A] /usr/bin/cmucl\")") (19 "(\"interrupt_handle_now+#x100 [#x8050FEF] /usr/bin/cmucl\")")) (5)) (:debug-activate 0 1) (:emacs-rex (swank:invoke-nth-restart-for-emacs 1 0) nil 0 6) (:return (:abort) 6) (:debug-return 0 1 nil) (:return (:abort) 5) (:emacs-rex (swank:listener-eval "(wc \".emacs\")\n") "COMMON-LISP-USER" :repl-thread 7) (:debug 0 1 ("Execution of a form compiled with errors:\n (DO ((CHAR (READ-CHAR STREAM NIL))))" " [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR]" nil) (("ABORT" "Return to SLIME's top level.") ("ABORT" "Return to Top-Level.")) ((0 "(WC \".emacs\")") (1 "(WC \".emacs\")") (2 "(SWANK::EVAL-REGION \"(wc \\\".emacs\\\")\n\")") (3 "(\"DEFUN REPL-EVAL\")") (4 "(SWANK::TRACK-PACKAGE #)") (5 "(SWANK::CALL-WITH-BUFFER-SYNTAX #)") (6 "(SWANK::REPL-EVAL \"(wc \\\".emacs\\\")\n\")") (7 "(\"DEFUN EVAL-FOR-EMACS\")") (8 "(\"DEFINTERFACE CALL-WITH-DEBUGGER-HOOK\" # #)") (9 "(\"DEFUN HANDLE-REQUEST\")") (10 "(\"DEFINTERFACE CALL-WITH-DEBUGGER-HOOK\" # #)") (11 "(SWANK::CALL-WITH-REDIRECTED-IO # #)") (12 "(SWANK::CALL-WITH-CONNECTION # #)") (13 "(SWANK::HANDLE-REQUEST #)") (14 "(SWANK::PROCESS-AVAILABLE-INPUT # #)") (15 "((FLET SWANK::HANDLER SWANK::INSTALL-SIGIO-HANDLER))") (16 "(SWANK-BACKEND::SIGIO-HANDLER #<#1=unused-arg> #<#1#> #<#1#>)") (17 "(\"call_into_lisp+#x8C [#x8055D0C] /usr/bin/cmucl\")") (18 "(\"funcall3+#x32 [#x8055B2A] /usr/bin/cmucl\")") (19 "(\"interrupt_handle_now+#x100 [#x8050FEF] /usr/bin/cmucl\")")) (7)) (:debug-activate 0 1) (:emacs-rex (swank:invoke-nth-restart-for-emacs 1 0) nil 0 8) (:return (:abort) 8) (:debug-return 0 1 nil) (:return (:abort) 7) (:emacs-rex (swank:arglist-for-echo-area '(("defun")) :arg-indices '(3) :print-right-margin 1000 :print-lines 1) "COMMON-LISP-USER" :repl-thread 9) (:emacs-rex (swank:connection-info) nil t 1) (:indentation-update (("prepare-for-fast-read-char" . 1) ("def-output-routines" . 1) ("with-fop-stack" . 1) ("enumerate-matches" . 1) ("with-symbol" . 1) ("with-pathname" . 1) ("input-wrapper" . 1) ("output-wrapper" . 1) ("prepare-for-fast-read-byte" . 1) ("with-read-buffer" . 1) ("maybe-sap-maybe-string" . 1) ("with-host" . 1) ("with-float-traps-masked" . 1) ("without-package-locks" . 0) ("do-info" . 1) ("def-source-context" . 2) ("define-function-name-syntax" . 2) ("enumerate-search-list" . 1) ("with-c-strvec" . 1) ("with-circularity-detection" . 1) ...)) (:return (:ok (:pid 4542 :style :sigio :lisp-implementation (:type "CMU Common Lisp" :name "cmucl" :version "CVS 19d 19d-release (19D)") :machine (:instance "debian" :type "X86" :version "X86") :features (:asdf :clc-os-debian :common-lisp-controller :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19d :python :conservative-float-type :modular-arith :cmucl-19d-patch-002 :cmucl-19d-patch-001 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 ...) :modules ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2008-02-23")) 1) (:emacs-rex (swank:swank-require :swank-asdf) "COMMON-LISP-USER" :repl-thread 2) (:emacs-rex (swank:swank-require :swank-presentations) "COMMON-LISP-USER" :repl-thread 3) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 2) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 3) (:emacs-rex (swank:listener-eval "1\n") "COMMON-LISP-USER" :repl-thread 4) (:presentation-start 1 :repl-result) (:write-string "1" :repl-result) (:presentation-end 1 :repl-result) (:write-string "\n" :repl-result) (:return (:ok nil) 4) (:emacs-rex (swank:listener-eval "2\n") "COMMON-LISP-USER" :repl-thread 5) (:presentation-start 2 :repl-result) (:write-string "2" :repl-result) (:presentation-end 2 :repl-result) (:write-string "\n" :repl-result) (:return (:ok nil) 5) (:emacs-rex (swank:listener-eval "3\n") "COMMON-LISP-USER" :repl-thread 6) (:presentation-start 3 :repl-result) (:write-string "3" :repl-result) (:presentation-end 3 :repl-result) (:write-string "\n" :repl-result) (:return (:ok nil) 6) (:emacs-rex (swank:listener-eval "4\n") "COMMON-LISP-USER" :repl-thread 7) (:presentation-start 4 :repl-result) (:write-string "4" :repl-result) (:presentation-end 4 :repl-result) (:write-string "\n" :repl-result) (:return (:ok nil) 7) (:emacs-rex (swank:listener-eval "*\n") "COMMON-LISP-USER" :repl-thread 8) (:presentation-start 4 :repl-result) (:write-string "4" :repl-result) (:presentation-end 4 :repl-result) (:write-string "\n" :repl-result) (:return (:ok nil) 8) (:emacs-rex (swank:listener-eval "*\n") "COMMON-LISP-USER" :repl-thread 9) (:presentation-start 4 :repl-result) (:write-string "4" :repl-result) (:presentation-end 4 :repl-result) (:write-string "\n" :repl-result) (:return (:ok nil) 9) (:emacs-rex (swank:arglist-for-echo-area '(nil) :arg-indices '(0) :print-right-margin 1000 :print-lines 1) "COMMON-LISP-USER" :repl-thread 10) (:return (:ok nil) 10) (:emacs-rex (swank:arglist-for-echo-area '(("defun")) :arg-indices '(0) :print-right-margin 1000 :print-lines 1) "COMMON-LISP-USER" :repl-thread 11) (:emacs-rex (swank:connection-info) nil t 1) (:indentation-update (("prepare-for-fast-read-char" . 1) ("def-output-routines" . 1) ("with-fop-stack" . 1) ("enumerate-matches" . 1) ("with-symbol" . 1) ("with-pathname" . 1) ("input-wrapper" . 1) ("output-wrapper" . 1) ("prepare-for-fast-read-byte" . 1) ("with-read-buffer" . 1) ("maybe-sap-maybe-string" . 1) ("with-host" . 1) ("with-float-traps-masked" . 1) ("without-package-locks" . 0) ("do-info" . 1) ("def-source-context" . 2) ("define-function-name-syntax" . 2) ("enumerate-search-list" . 1) ("with-c-strvec" . 1) ("with-circularity-detection" . 1) ...)) (:return (:ok (:pid 4542 :style :sigio :lisp-implementation (:type "CMU Common Lisp" :name "cmucl" :version "CVS 19d 19d-release (19D)") :machine (:instance "debian" :type "X86" :version "X86") :features (:asdf :clc-os-debian :common-lisp-controller :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19d :python :conservative-float-type :modular-arith :cmucl-19d-patch-002 :cmucl-19d-patch-001 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 ...) :modules ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2008-02-23")) 1) (:emacs-rex (swank:swank-require :swank-asdf) "COMMON-LISP-USER" :repl-thread 2) (:emacs-rex (swank:swank-require :swank-presentations) "COMMON-LISP-USER" :repl-thread 3) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 2) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 3) (:emacs-rex (swank:arglist-for-echo-area '(("defun")) :arg-indices '(3) :print-right-margin 1000 :print-lines 1) "COMMON-LISP-USER" :repl-thread 4) (:emacs-rex (swank:connection-info) nil t 1) (:indentation-update (("prepare-for-fast-read-char" . 1) ("def-output-routines" . 1) ("with-fop-stack" . 1) ("enumerate-matches" . 1) ("with-symbol" . 1) ("with-pathname" . 1) ("input-wrapper" . 1) ("output-wrapper" . 1) ("prepare-for-fast-read-byte" . 1) ("with-read-buffer" . 1) ("maybe-sap-maybe-string" . 1) ("with-host" . 1) ("with-float-traps-masked" . 1) ("without-package-locks" . 0) ("do-info" . 1) ("def-source-context" . 2) ("define-function-name-syntax" . 2) ("enumerate-search-list" . 1) ("with-c-strvec" . 1) ("with-circularity-detection" . 1) ...)) (:return (:ok (:pid 4542 :style :sigio :lisp-implementation (:type "CMU Common Lisp" :name "cmucl" :version "CVS 19d 19d-release (19D)") :machine (:instance "debian" :type "X86" :version "X86") :features (:asdf :clc-os-debian :common-lisp-controller :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19d :python :conservative-float-type :modular-arith :cmucl-19d-patch-002 :cmucl-19d-patch-001 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 ...) :modules ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2008-02-23")) 1) (:emacs-rex (swank:swank-require :swank-asdf) "COMMON-LISP-USER" :repl-thread 2) (:emacs-rex (swank:swank-require :swank-presentations) "COMMON-LISP-USER" :repl-thread 3) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 2) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 3) (:emacs-rex (swank:arglist-for-echo-area '(("defun")) :arg-indices '(3) :print-right-margin 1000 :print-lines 1) "COMMON-LISP-USER" :repl-thread 4) (:emacs-rex (swank:connection-info) nil t 1) (:indentation-update (("prepare-for-fast-read-char" . 1) ("def-output-routines" . 1) ("with-fop-stack" . 1) ("enumerate-matches" . 1) ("with-symbol" . 1) ("with-pathname" . 1) ("input-wrapper" . 1) ("output-wrapper" . 1) ("prepare-for-fast-read-byte" . 1) ("with-read-buffer" . 1) ("maybe-sap-maybe-string" . 1) ("with-host" . 1) ("with-float-traps-masked" . 1) ("without-package-locks" . 0) ("do-info" . 1) ("def-source-context" . 2) ("define-function-name-syntax" . 2) ("enumerate-search-list" . 1) ("with-c-strvec" . 1) ("with-circularity-detection" . 1) ...)) (:return (:ok (:pid 24800 :style :sigio :lisp-implementation (:type "CMU Common Lisp" :name "cmucl" :version "CVS 19d 19d-release (19D)") :machine (:instance "debian" :type "X86" :version "X86") :features (:asdf :clc-os-debian :common-lisp-controller :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19d :python :conservative-float-type :modular-arith :cmucl-19d-patch-002 :cmucl-19d-patch-001 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 ...) :modules ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2008-02-23")) 1) (:emacs-rex (swank:swank-require :swank-asdf) "COMMON-LISP-USER" :repl-thread 2) (:emacs-rex (swank:swank-require :swank-presentations) "COMMON-LISP-USER" :repl-thread 3) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 2) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 3) (:emacs-rex (swank:arglist-for-echo-area 'nil :arg-indices 'nil :print-right-margin 1000 :print-lines 1) "COMMON-LISP-USER" :repl-thread 4) (:return (:ok nil) 4) (:emacs-rex (swank:connection-info) nil t 1) (:indentation-update (("prepare-for-fast-read-char" . 1) ("def-output-routines" . 1) ("with-fop-stack" . 1) ("enumerate-matches" . 1) ("with-symbol" . 1) ("with-pathname" . 1) ("input-wrapper" . 1) ("output-wrapper" . 1) ("prepare-for-fast-read-byte" . 1) ("with-read-buffer" . 1) ("maybe-sap-maybe-string" . 1) ("with-host" . 1) ("with-float-traps-masked" . 1) ("without-package-locks" . 0) ("do-info" . 1) ("def-source-context" . 2) ("define-function-name-syntax" . 2) ("enumerate-search-list" . 1) ("with-c-strvec" . 1) ("with-circularity-detection" . 1) ...)) (:return (:ok (:pid 24801 :style :sigio :lisp-implementation (:type "CMU Common Lisp" :name "cmucl" :version "CVS 19d 19d-release (19D)") :machine (:instance "debian" :type "X86" :version "X86") :features (:asdf :clc-os-debian :common-lisp-controller :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19d :python :conservative-float-type :modular-arith :cmucl-19d-patch-002 :cmucl-19d-patch-001 :mp :x86 :linkage-table :relative-package-names :linux :glibc2 ...) :modules ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2008-02-23")) 1) (:emacs-rex (swank:swank-require :swank-asdf) "COMMON-LISP-USER" :repl-thread 2) (:emacs-rex (swank:swank-require :swank-presentations) "COMMON-LISP-USER" :repl-thread 3) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 2) (:return (:ok ("SWANK-ASDF" "SWANK-PRESENTATION-STREAMS" "SWANK-PRESENTATIONS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-ARGLISTS" "SWANK-C-P-C" "ASDF" "LOOP")) 3) (:emacs-rex (swank:arglist-for-echo-area '(("defun")) :arg-indices '(3) :print-right-margin 1000 :print-lines 1) ":cl-info" t 4)