Changeset 15030

Timestamp:

06/01/17 06:46:09 (6 years ago)

Author:

Mark Evenson

Message:

Declare copy functions for structures

(Olof-Joachim Frahm)

File:

• trunk/abcl/src/org/armedbear/lisp/defstruct.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/defstruct.lisp

@@ -432 +432 @@
   (when *dd-copier*
     (cond ((eq *dd-type* 'list)
-           `((setf (fdefinition ',*dd-copier*) #'copy-list)))
+           `((declaim (ftype (function (list) list) ,*dd-copier*))
+             (setf (fdefinition ',*dd-copier*) #'copy-list)))
           ((or (eq *dd-type* 'vector)
                (and (consp *dd-type*) (eq (car *dd-type*) 'vector)))
-           `((setf (fdefinition ',*dd-copier*) #'copy-seq)))
+           `((declaim (ftype (function (vector) vector) ,*dd-copier*))
+             (setf (fdefinition ',*dd-copier*) #'copy-seq)))
           (t
-           `((setf (fdefinition ',*dd-copier*) #'copy-structure))))))
+           `((declaim (ftype (function (T) T) ,*dd-copier*))
+             (setf (fdefinition ',*dd-copier*) #'copy-structure))))))
 
 (defun define-print-function ()