From 22e580f5572d9d7253e017795ba27a214c667175 Mon Sep 17 00:00:00 2001 From: Maciej Pasternacki Date: Wed, 19 Nov 2008 00:53:24 +0100 Subject: [PATCH] - Accept ORDER parameter in APPLY-TERM; make VALUE parameter a keyword. --- src/taxonomy.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/taxonomy.lisp b/src/taxonomy.lisp index c2369c1..bb5cb22 100644 --- a/src/taxonomy.lisp +++ b/src/taxonomy.lisp @@ -303,12 +303,13 @@ creation." :slug slug)) 'term-text)))) -(defun apply-term (item term &optional value) +(defun apply-term (item term &key value order) "Apply TERM to ITEM, optionally setting its value to VALUE." (query (:insert-into 'item-term :set 'item-id (id item) 'term-id (id term) - 'item-term-value (encode-value (taxonomy term) value)))) + 'item-term-value (encode-value (taxonomy term) value) + 'iterm-term-order (null-or order)))) (defun term-value (item term &aux (encoded (query (:select 'item-term-value :from 'item-term -- 2.11.4.GIT