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