- (if (meta-model:foreign-key-p model
- 'ucw::foreign-key
- (car s))
- (cadr s))
- (string (car s)) (car s))))
- (meta-model:list-slot-types model))
- (mapcar #'(lambda (s) (cons s (append (gen-pslot 'ucw::has-many (string s) s) `(:presentation (make-presentation ,model :type :one-line)))))
+ (if (meta-model:foreign-key-p model (car s))
+ 'ucw::foreign-key
+ (cadr s))
+ (string (car s)) (car s))))
+ (meta-model:list-slot-types model))
+ (mapcar #'(lambda (s)
+ (cons s (append (gen-pslot 'ucw::has-many (string s) s)
+ `(:presentation
+ (make-presentation
+ ,model
+ :type :one-line)))))