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

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

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


git-svn-id: svn+ssh://common-lisp.net/project/gsll/svn/trunk@30 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))
(cffi:foreign-funcall
"gsl_set_error_handler"
:pointer (cffi:callback gsl-error))
(defun establish-handler ()
(cffi:foreign-funcall
"gsl_set_error_handler"
:pointer (cffi:callback gsl-error)))
(establish-handler)
;;; This insures that conditions will be signalled if GSLL is dumped
;;; in save-lisp-and-die.
#+sbcl
(push #'establish-handler sb-ext:*init-hooks*)
(defmacro gsl-errorno-sm (keyword)
`(define-symbol-macro
......
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