- ;; ANSI says MAX should signal TYPE-ERROR if any arg isn't a REAL.
- ;;
- ;; KLUDGE: This UNLESS hackery is a workaround for bug 194.
- ;; Better, when that bug is fixed, would be (THE REAL ,ARG0).
- ;; -- WHN 2002-09-02
- `(progn
- (unless (realp ,arg0)
- (error-not-a-real ,arg0))
- ,(if (null rest)
- arg0
- `(let ((maxrest (max ,@rest)))
- (if (> ,arg0 maxrest) ,arg0 maxrest))))))
+ (if (null rest)
+ `(values (the real ,arg0))
+ `(let ((maxrest (max ,@rest)))
+ (if (> ,arg0 maxrest) ,arg0 maxrest)))))