[Openmcl-devel] standalone application hang on error

[Michael Maul]

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)
  )