From c03a48f8f20ef8bcb1cbb8024298154adaa54595 Mon Sep 17 00:00:00 2001 From: lhealy <lhealy@af03a46b-e846-0410-96e5-d5653c316fd0> Date: Sat, 8 Mar 2008 17:55:23 +0000 Subject: [PATCH] Following Nikodemus's advice, use the symbol rather than the function when pushing onto *post-hooks*; closes #3. git-svn-id: svn+ssh://common-lisp.net/project/gsll/svn/trunk@33 af03a46b-e846-0410-96e5-d5653c316fd0 --- init/conditions.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/init/conditions.lisp b/init/conditions.lisp index b92013ea..1da344de 100644 --- a/init/conditions.lisp +++ b/init/conditions.lisp @@ -1,6 +1,6 @@ ;; GSL errors ;; Liam Healy Sat Mar 4 2006 - 18:33 -;; Time-stamp: <2008-03-03 22:06:11EST conditions.lisp> +;; Time-stamp: <2008-03-08 12:39:50EST conditions.lisp> ;; $Id$ (in-package :gsl) @@ -101,8 +101,7 @@ ;;; This insures that conditions will be signalled if GSLL is dumped ;;; in save-lisp-and-die. -#+sbcl -(push #'establish-handler sb-ext:*init-hooks*) +#+sbcl (push 'establish-handler sb-ext:*init-hooks*) (defmacro gsl-errorno-sm (keyword) `(define-symbol-macro -- GitLab