From f1e92cbded3c1cf3a3a8f567f780567ce726239e Mon Sep 17 00:00:00 2001 From: Vitaly Mayatskikh Date: Sun, 20 Sep 2009 11:52:10 +0200 Subject: [PATCH] Remove unused function `class-slot-definition'. --- videodev2.lisp | 5 ----- 1 file changed, 5 deletions(-) diff --git a/videodev2.lisp b/videodev2.lisp index 3c01b0b..23dd7c1 100644 --- a/videodev2.lisp +++ b/videodev2.lisp @@ -11,11 +11,6 @@ (defmethod validate-superclass ((obj v4l2) (obj1 standard-class)) t) -(defun class-slot-definition (class slot) - (dolist (s (class-direct-slots class)) - (when (equal slot (slot-definition-name s)) - (return s)))) - (defvar *v4l2-slot-readers* (make-hash-table :test 'equal)) (defvar *v4l2-slot-writers* (make-hash-table :test 'equal)) -- 2.11.4.GIT