Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Define x-property and x-component before using it

  • Loading branch information...
commit 1cfd559452a03a86e0899bd99f0ae3859fa1b97e 1 parent 34d2824
David Vázquez Púa authored
Showing with 13 additions and 13 deletions.
  1. +11 −12 components.lisp
  2. +1 −1  property.lisp
  3. +1 −0  types-recur.lisp
23 components.lisp
View
@@ -261,6 +261,17 @@
(defclass standard-component (component)
nil)
+;;; Extension components
+(defclass x-component (component)
+ nil)
+
+(defmethod validate-subcomponent-in-component
+ ((component x-component) subcomponent))
+
+(defmethod validate-property-in-component
+ ((component x-component) property))
+
+
;;; CLHS says: "If a defclass form appears as a top level form, the
;;; compiler must make the class name be recognized as a valid type
;;; name in..." So we have to define the classes separately.
@@ -436,18 +447,6 @@ then the other must so." valarm))
(check-type component vcalendar)
component))
-;;; Extension components
-
-(defclass x-component (component)
- nil)
-
-(defmethod validate-subcomponent-in-component
- ((component x-component) subcomponent))
-
-(defmethod validate-property-in-component
- ((component x-component) property))
-
-
;;; Other components
(defclass unknown-component (component) nil)
2  property.lisp
View
@@ -421,7 +421,7 @@
(defmethod validate-property-value ((property x-property))
t)
-(defmethod property-allow-other-parameters-p ((property unknown-property))
+(defmethod property-allow-other-parameters-p ((property x-property))
t)
1  types-recur.lisp
View
@@ -264,6 +264,7 @@
(once-only (list element key)
`(implyp ,list (find ,element ,list :key ,key))))
+
;;; Return a recur such that the omitted rules: BYSECOND, BYMINUTE, BYHOUR,
;;; BYMONTHDAY, BYMONTH, and BYDAY, are filled with default values taken from
;;; the DTSTART datetime.
Please sign in to comment.
Something went wrong with that request. Please try again.