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