Changeset main,39 for main/flat-menu.lisp

Timestamp:

11/08/2007 05:57:54 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071108055754-sphaa0ww9903cndr

Message:

Use the BOUND and BOUNDF from DSO-UTIL.

File:

• main/flat-menu.lisp (modified) (1 diff)

main/flat-menu.lisp

@@ -55 +55 @@
   (redraw-selected menu nil))
 
-(defun bound (a b c)
-  (min (max a b) c))
-
 (defmethod (setf selected) :around (i (menu menu))
-  (call-next-method (bound 0 i (1- (length (slot-value menu 'entries)))) menu))
+  (call-next-method (bound i 0 (1- (length (slot-value menu 'entries)))) menu))
 
 (defmethod (setf selected) :after (i (menu menu))