[Openmcl-devel] standalone application hang on error

Michael Maul mike.maul at gmail.com
Tue Mar 4 19:36:51 UTC 2014


I'm having an issue where a saved application hangs (does not return,
does not respond to break) it does this if there is an error
condition.

To illustrate below is code that will reproduce the problem

My platform
Linux pos 3.8.0-19-generic #29-Ubuntu SMP Wed Apr 17 18:16:28 UTC 2013
x86_64 x86_64 x86_64 GNU/Linux
Version 1.9-dev-r15611M-trunk  (LinuxX8664)

;;;; Load system and save application
(ql:quickload :myapp)
(ccl:save-application "~/quicklisp/local-projects/myapp/myapp"
:toplevel-function #'myapp::init :error-handler :quit :mode #o644
:prepend-kernel t)


;;;; log-parser.asd ;;;
(asdf:defsystem #:myapp
  :serial t
  :components ((:file "package")
               (:file "myapp" )
               ))

;;;; package.lisp ;;;;
(defpackage #:myapp
  (:use :cl)
  (:export :init))

;;; myapp.lisp ;;;;
(in-package :myapp)
(defun mymain (a)
  (format t "mymain ~a~%" a)
  ;; ERROR BEGIN
  (elt () 1)
  ;; ERROR END
  )

(defun init ()
  (format t "myapp ~a~%" ccl::*command-line-argument-list*)
  (mymain  (elt ccl::*command-line-argument-list* 0))
  (ccl:quit)
  )



More information about the Openmcl-devel mailing list