Commit b43d88b7 authored by lhealy's avatar lhealy Committed by Liam Healy
Browse files

Error handler is re-established in saved image in SBCL by

using sb-ext:*init-hooks*; fixes bug #3?

git-svn-id: svn+ssh:// af03a46b-e846-0410-96e5-d5653c316fd0
parent 16cc5f3b
;; GSL errors
;; Liam Healy Sat Mar 4 2006 - 18:33
;; Time-stamp: <2008-02-19 22:20:37EST conditions.lisp>
;; Time-stamp: <2008-03-03 22:06:11EST conditions.lisp>
;; $Id$
(in-package :gsl)
......@@ -92,10 +92,17 @@
:gsl-source-file file
:gsl-line-number line))
:pointer (cffi:callback gsl-error))
(defun establish-handler ()
:pointer (cffi:callback gsl-error)))
;;; This insures that conditions will be signalled if GSLL is dumped
;;; in save-lisp-and-die.
(push #'establish-handler sb-ext:*init-hooks*)
(defmacro gsl-errorno-sm (keyword)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment