hm. ok, that looks like a bad idea (redefining "if") but
in any case I'm not familiar with this code, which was
written by Richard Zippel.
I believe that hayat is the Hebrew word for tailor, a
name presumably chosen by Zippel.
RJF
willisb@unk.edu wrote:
>
> In clmacs.lisp, you'll find a macro definition for "if"
>
> (eval-when (compile load eval)
> (defmacro if (test &rest args)
> (cond ((> (length args) 2)
> ;(format t
> ;"~%Warning: Too many args for if:~% ~a"
> ;(cons 'if (cons test args)))
> `(lisp::if ,test ,(car args) (progn ,@ (cdr args))))
> (t `(lisp:if ,test ,@ args))))
>
>
> Possibly, the apparent 4 argument "if" in hayat is non-bogus.
>
>
> Barton
>
> By the way, what is the origin of the (funny) name hayat?
>