From 3d7233f57abe2b597d7d86023fde5576cb0fd83f Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Tue, 17 Jun 2003 11:57:57 +0000 Subject: [PATCH] * src/pcl/slots.lisp (slot-value, set-slot-value, slot-boundp) (slot-makunbound, slot-exists-p): Declaim ftypes. --- pcl/slots.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/pcl/slots.lisp b/pcl/slots.lisp index f51d302bf..c31d65610 100644 --- a/pcl/slots.lisp +++ b/pcl/slots.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.26 2003/06/15 14:06:26 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.27 2003/06/17 11:57:57 gerd Exp $") ;;; (in-package :pcl) @@ -83,6 +83,7 @@ (when (eq slot-name (slot-definition-name slot)) (return slot)))) +(declaim (ftype (function (t symbol) t) slot-value)) (defun slot-value (object slot-name) (let* ((class (class-of object)) (slot-definition (find-slot-definition class slot-name))) @@ -90,6 +91,7 @@ (values (slot-missing class object slot-name 'slot-value)) (slot-value-using-class class object slot-definition)))) +(declaim (ftype (function (t symbol t) t) set-slot-value)) (defun set-slot-value (object slot-name new-value) (let* ((class (class-of object)) (slot-definition (find-slot-definition class slot-name))) @@ -111,6 +113,7 @@ `(accessor-set-slot-value ,object ,slot-name ,value) form)) +(declaim (ftype (function (t symbol) boolean) slot-boundp)) (defun slot-boundp (object slot-name) (let* ((class (class-of object)) (slot-definition (find-slot-definition class slot-name))) @@ -124,6 +127,7 @@ `(accessor-slot-boundp ,object ,slot-name) form)) +(declaim (ftype (function (t symbol) t) slot-makunbound)) (defun slot-makunbound (object slot-name) (let* ((class (class-of object)) (slot-definition (find-slot-definition class slot-name))) @@ -132,6 +136,7 @@ (slot-makunbound-using-class class object slot-definition)) object)) +(declaim (ftype (function (t symbol) boolean) slot-exists-p)) (defun slot-exists-p (object slot-name) (let ((class (class-of object))) (not (null (find-slot-definition class slot-name))))) -- GitLab