Changeset 30 for trunk

Show
Ignore:
Timestamp:
03/04/08 03:17:18 (9 months ago)
Author:
lhealy
Message:

Error handler is re-established in saved image in SBCL by
using sb-ext:*init-hooks*; fixes bug #3?

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/init/conditions.lisp

    r26 r30  
    11;; GSL errors                                 
    22;; Liam Healy Sat Mar  4 2006 - 18:33 
    3 ;; Time-stamp: <2008-02-19 22:20:37EST conditions.lisp> 
     3;; Time-stamp: <2008-03-03 22:06:11EST conditions.lisp> 
    44;; $Id$ 
    55 
    … …  
    9393         :gsl-line-number line)) 
    9494 
    95 (cffi:foreign-funcall 
    96  "gsl_set_error_handler" 
    97  :pointer (cffi:callback gsl-error)) 
     95(defun establish-handler () 
     96  (cffi:foreign-funcall 
     97   "gsl_set_error_handler" 
     98   :pointer (cffi:callback gsl-error))) 
    9899 
     100(establish-handler) 
     101 
     102;;; This insures that conditions will be signalled if GSLL is dumped 
     103;;; in save-lisp-and-die. 
     104#+sbcl 
     105(push #'establish-handler sb-ext:*init-hooks*) 
    99106 
    100107(defmacro gsl-errorno-sm (keyword)