From f5f00c2b27027408c9a16415d6e9ddec1839524d Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Thu, 28 Feb 2008 18:33:12 +0000 Subject: [PATCH] Fix for SBCL 1.0.14 Organization: Straylight/Edgeware From: espen --- gtk/gtkobject.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gtk/gtkobject.lisp b/gtk/gtkobject.lisp index 980b116..a984022 100644 --- a/gtk/gtkobject.lisp +++ b/gtk/gtkobject.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtkobject.lisp,v 1.44 2007/09/06 14:22:19 espen Exp $ +;; $Id: gtkobject.lisp,v 1.45 2008/02/28 18:33:12 espen Exp $ (in-package "GTK") @@ -181,7 +181,7 @@ (defmethod compute-slot-writer-function ((slotd effective-child-slot-definition) value)))) -(defmethod add-reader-method ((class container-child-class) generic-function slot-name #?(sbcl>= 1 0 2)slot-documentation) +(defmethod add-reader-method ((class container-child-class) generic-function slot-name #?(sbcl>= 1 0 2)slot-documentation #?(sbcl>= 1 0 14)source-location) (add-method generic-function (make-instance 'standard-method @@ -192,7 +192,7 @@ (defmethod add-reader-method ((class container-child-class) generic-function slo (declare (ignore next-methods)) (child-property-value (first args) slot-name))))) -(defmethod add-writer-method ((class container-child-class) generic-function slot-name #?(sbcl>= 1 0 2)slot-documentation) +(defmethod add-writer-method ((class container-child-class) generic-function slot-name #?(sbcl>= 1 0 2)slot-documentation #?(sbcl>= 1 0 14)source-location) (add-method generic-function (make-instance 'standard-method -- [mdw]