remove unused code.

davazp · Oct 12, 2010 · d89ec1e · d89ec1e
1 parent 68a22cd
commit d89ec1e
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 9 deletions.
diff --git a/cl-icalendar.lisp b/cl-icalendar.lisp
@@ -20,14 +20,6 @@
 
 (in-package :cl-icalendar)
 
-(define-standard-component calendar (vcalendar)
-  nil
-  (:default-initargs :name "VCALENDAR"))
-
-(defclass calendar (vcalendar)
-  nil
-  (:metaclass component-class))
-
 (defun read-vcalendar (stream &optional (vendor *vendor*))
   (read-component-class 'vcalendar stream vendor))
 

diff --git a/parameters.lisp b/parameters.lisp
@@ -53,7 +53,6 @@
   (typep x 'parameter-table))
 
 (defun list-parameters (object)
-  (declare (type ptable-designator object))
   (let ((parameter-table (parameter-table object)))
     (if (null parameter-table)
         nil