Skip to content
Snippets Groups Projects
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://common-lisp.net/project/gsll/svn/trunk@30 af03a46b-e846-0410-96e5-d5653c316fd0
parent 16cc5f3b
No related branches found
No related tags found
No related merge requests found
;; GSL errors ;; GSL errors
;; Liam Healy Sat Mar 4 2006 - 18:33 ;; 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$ ;; $Id$
(in-package :gsl) (in-package :gsl)
...@@ -92,10 +92,17 @@ ...@@ -92,10 +92,17 @@
:gsl-source-file file :gsl-source-file file
:gsl-line-number line)) :gsl-line-number line))
(cffi:foreign-funcall (defun establish-handler ()
"gsl_set_error_handler" (cffi:foreign-funcall
:pointer (cffi:callback gsl-error)) "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) (defmacro gsl-errorno-sm (keyword)
`(define-symbol-macro `(define-symbol-macro
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment