Skip to content
Browse files

clean dynamic-extent declarations

  • Loading branch information...
1 parent 5f6d0fa commit 26e1d8aaf46dd5fbd0aeaa4ad09b97b96ec115f9 @lisp committed Feb 9, 2012
Showing with 0 additions and 4 deletions.
  1. +0 −3 clos/clone-instance.lisp
  2. +0 −1 clos/clos-methods.lisp
3 clos/clone-instance.lisp
@@ -73,7 +73,6 @@
invoke shared-initialize with initargs to initialize slots
prior to copying from the instancto the clone in order to override the existing
slot values and preclude unwanted deep cloning.")
- (declare (dynamic-extent initargs))
(:method ((instance standard-object) &rest initargs)
(declare (dynamic-extent initargs))
(apply #'clone-instance-as instance (class-of instance) initargs))
@@ -86,7 +85,6 @@
(mapcar #'(lambda (x) (apply #'clone-instance x initargs)) nodes)))
(defgeneric clone-instance-as (instance class &rest initargs)
- (declare (dynamic-extent initargs))
(:method ((instance standard-object) (class symbol) &rest initargs)
(apply #'clone-instance-as instance (find-class class) initargs))
(:method ((instance standard-object) (class class)
@@ -102,7 +100,6 @@
(defgeneric initialize-clone (old new &rest initargs &key &allow-other-keys)
- (declare (dynamic-extent initargs))
(:method ((old standard-object) (new standard-object) &rest initargs)
(declare (dynamic-extent initargs))
(apply #'shared-initialize new t initargs)) ;; must pass t to get default initform protocol
1 clos/clos-methods.lisp
@@ -78,7 +78,6 @@
;;; An encoding framework
(defgeneric encode-instance-as (instance stream as &rest arguments)
- (declare (dynamic-extent arguments))
"collects a set of functions which encode instances for specific purposes.")

0 comments on commit 26e1d8a

Please sign in to comment.
Something went wrong with that request. Please try again.