Changeset 30528

Show
Ignore:
Timestamp:
02/26/09 00:39:50 (4 years ago)
Author:
miyamuko
Message:

lang/xyzzy/pci-code: use persons function.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/xyzzy/pci-code/site-lisp/chapter2/recommendations.l

    r30526 r30528  
    148148                            (cons (funcall similarity prefs person other) 
    149149                                  other)) 
    150                         (remove person (mapcar #'car prefs) 
     150                        (remove person (persons prefs) 
    151151                                :test #'string=)))) 
    152152    (subseq (sort scores #'> :key #'car) 
    … …  
    168168    (let (totals simsums) 
    169169      ;; 自分自身とは比較しないので remove 
    170       (dolist (other (remove person (mapcar #'car prefs) 
     170      (dolist (other (remove person (persons prefs) 
    171171                             :test #'string=)) 
    172172        (let ((sim (funcall similarity prefs person other)))