From 771b7c6ee0c965894347cebd2272061c31aaad9d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 5 May 2017 16:10:59 +0200
Subject: [PATCH] cleanup: remove spurious declarations

Generic function can't be declared as dynamic-extent.
---
 silica/macros.lisp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/silica/macros.lisp b/silica/macros.lisp
index 42f993b5..a13f4799 100644
--- a/silica/macros.lisp
+++ b/silica/macros.lisp
@@ -7,16 +7,14 @@
 ;;;"Copyright (c) 1991, 1992 Franz, Inc.  All rights reserved.
 ;;; Portions copyright (c) 1992 Symbolics, Inc.  All rights reserved."
 
-(defgeneric invoke-with-sheet-medium (sheet continuation)
-  (declare (dynamic-extent continuation)))
+(defgeneric invoke-with-sheet-medium (sheet continuation))
 
 (defmacro with-sheet-medium ((medium sheet) &body body)
   `(flet ((with-sheet-medium-body (,medium) ,@body))
      (declare (dynamic-extent #'with-sheet-medium-body))
      (invoke-with-sheet-medium ,sheet #'with-sheet-medium-body)))
 
-(defgeneric invoke-with-sheet-medium-bound (sheet medium continuation)
-  (declare (dynamic-extent continuation)))
+(defgeneric invoke-with-sheet-medium-bound (sheet medium continuation))
 
 (defmacro with-sheet-medium-bound ((sheet medium) &body body)
   `(flet ((with-sheet-medium-bound-body () ,@body))
-- 
GitLab