- (setq h (cond
- ((= max r)
- (nth-value 0 (/ (- g b) delta)))
- ((= max g)
- (nth-value 0 (+ 2 (/ (- b r) delta))))
- (t
- (nth-value 0 (+ 4 (/ (- r g) delta))))))
- (setq h (the fixnum (* 60 h)))
+ (setq h (* 60 (cond
+ ((= max r) (/ (- g b) delta))
+ ((= max g) (+ 2 (/ (- b r) delta)))
+ (t (+ 4 (/ (- r g) delta))))))