Author: ksprotte Date: Fri Jul 6 09:25:35 2007 New Revision: 17

Modified: trunk/src/morphologie.lisp Log: some menu correctionsome menu correctionss

Modified: trunk/src/morphologie.lisp ============================================================================== --- trunk/src/morphologie.lisp (original) +++ trunk/src/morphologie.lisp Fri Jul 6 09:25:35 2007 @@ -1447,7 +1447,7 @@ (position-if #'match list-dom)))

(define-box ins-ptrn ((seq (1 2 3 4 1 2 5 3 4)) (ptrn ((1 2 3 4) (1 2))) - &optional (prof 1) (set nil) (marg 0)) + &optional (prof 1) (set nil) (marg 3)) "Finds the pattern(s) PTRN in list seq with or without up to a number prof inserted items; Return each pattern and its start positions. @@ -3188,7 +3188,7 @@ dove (= n (- (length list1) 1)). In questo caso si puo' decidere con il men� se avere la prima ricorsione per completare list2." :non-generic t - :menu (list2 (1 "ltd") (2 "copl")) + :menu (total (1 "ltd") (2 "copl")) (case total (1 (inter-profile list1 list2)) (2 @@ -3919,7 +3919,7 @@ remarkable-nodes)))

(define-box draw-tree ((tree nil) &optional (nodes nil) (name nil) - (fontname "times") (fontsize 12) (fontstyle "normal")) + (fontname "times") (fontsize 12) (fontstyle :normal)) "Draw in a new window a graphic representation of the Prim tree. TREE : a tree list from Prim-tree. Optional arguments : @@ -3932,7 +3932,7 @@ :menu (fontname ("geneva" "Geneva") ("helvetica" "Helvetica") ("monaco" "Monaco") ("new york" "New York") ("times" "Times")) :menu (fontsize (9 "9") (10 "10") (12 "12") (14 "14") (18 "18")) - :menu (fontstyle (nil "normal") (:bold "bold")) + :menu (fontstyle (:normal "normal") (:bold "bold")) (let* ((window-name (if name (cond ((stringp name) name) ((symbolp name) (string name)))