Skip to content
Snippets Groups Projects
Commit 771b7c6e authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

cleanup: remove spurious declarations

Generic function can't be declared as dynamic-extent.
parent 3e048d49
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment