Remove unused function `class-slot-definition'.
authorVitaly Mayatskikh <v.mayatskih@gmail.com>
Sun, 20 Sep 2009 09:52:10 +0000 (20 11:52 +0200)
committerVitaly Mayatskikh <v.mayatskih@gmail.com>
Sun, 20 Sep 2009 09:52:10 +0000 (20 11:52 +0200)
videodev2.lisp

index 3c01b0b..23dd7c1 100644 (file)
 
 (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))