Subject: proposal for object-oriented dispatch on sign
From: Barton Willis
Date: Thu, 30 Jun 2011 15:27:12 -0500
I committed my patch that uses object-oriented dispatch for the
function sign (not $sign); example
(%i2) sign(signum(x));
(%o2) pnz
(%i3) :lisp(setf (get '%signum 'sign-function) #'(lambda (s) (declare
(ignore s)) (setq sign '$pz)))
#<Anonymous Function #xC622EE6>
(%i3) sign(signum(x));
(%o3) pz
--Barton