値が束縛されているときだけ、スロットに束縛するにはどうすればいいのかな？やりたいことはこういうことなんだけど、「malformed if」と怒られた:

(define-class <photo-data> ()
((width :init-keyword :width :init-value )
(url-with-slug :init-keyword :url-with-slug :init-value "")))
(define (make-photo-data-list sxml)
(make <photo-data>
;; 与えられたSXMLにwidth要素が存在するとき、スロットに値をセットしたい
;; でも、これだとエラーになる
(if ((if-car-sxpath '(// width)) sxml)
:width (cadr ((car-sxpath '(// width)) sxml))
:width )
:url-with-slug (cadr ((car-sxpath '(// url-with-slug))
sxml))))