Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Define x-property and x-component before using it

  • Loading branch information...
commit 1cfd559452a03a86e0899bd99f0ae3859fa1b97e 1 parent 34d2824
David Vázquez Púa authored

Showing 3 changed files with 13 additions and 13 deletions. Show diff stats Hide diff stats

  1. +11 12 components.lisp
  2. +1 1  property.lisp
  3. +1 0  types-recur.lisp
23 components.lisp
@@ -261,6 +261,17 @@
261 261 (defclass standard-component (component)
262 262 nil)
263 263
  264 +;;; Extension components
  265 +(defclass x-component (component)
  266 + nil)
  267 +
  268 +(defmethod validate-subcomponent-in-component
  269 + ((component x-component) subcomponent))
  270 +
  271 +(defmethod validate-property-in-component
  272 + ((component x-component) property))
  273 +
  274 +
264 275 ;;; CLHS says: "If a defclass form appears as a top level form, the
265 276 ;;; compiler must make the class name be recognized as a valid type
266 277 ;;; name in..." So we have to define the classes separately.
@@ -436,18 +447,6 @@ then the other must so." valarm))
436 447 (check-type component vcalendar)
437 448 component))
438 449
439   -;;; Extension components
440   -
441   -(defclass x-component (component)
442   - nil)
443   -
444   -(defmethod validate-subcomponent-in-component
445   - ((component x-component) subcomponent))
446   -
447   -(defmethod validate-property-in-component
448   - ((component x-component) property))
449   -
450   -
451 450 ;;; Other components
452 451
453 452 (defclass unknown-component (component) nil)
2  property.lisp
@@ -421,7 +421,7 @@
421 421 (defmethod validate-property-value ((property x-property))
422 422 t)
423 423
424   -(defmethod property-allow-other-parameters-p ((property unknown-property))
  424 +(defmethod property-allow-other-parameters-p ((property x-property))
425 425 t)
426 426
427 427
1  types-recur.lisp
@@ -264,6 +264,7 @@
264 264 (once-only (list element key)
265 265 `(implyp ,list (find ,element ,list :key ,key))))
266 266
  267 +
267 268 ;;; Return a recur such that the omitted rules: BYSECOND, BYMINUTE, BYHOUR,
268 269 ;;; BYMONTHDAY, BYMONTH, and BYDAY, are filled with default values taken from
269 270 ;;; the DTSTART datetime.

0 comments on commit 1cfd559

Please sign in to comment.
Something went wrong with that request. Please try again.