The following code fragment fails under Jess 5.0a5, but functions
correctly with Jess 4.4. Evaluating the deffunction memberp() produces
incorrect behavior; invoking member$ directly works:
(deffunction memberp (?value $?allowed)
"See if 'value' is a member of multi-list 'allowed'"
(member$ ?value $?allowed))
(printout t "memberp(): "
(memberp ENT-EQPT (create$ ENT-EQPT RTRV-EQPT))
crlf)
(printout t "member$(): "
(member$ ENT-EQPT (create$ ENT-EQPT RTRV-EQPT))
crlf)
Regards,
--
-----------------------------------------------------------------
David E. Young
Fujitsu Network Communications "The fact that ... we still
([EMAIL PROTECTED]) live well cannot ease the pain of
feeling that we no longer live nobly."
-- John Updike
"Programming should be fun,
programs should be beautiful"
-- P. Graham
---------------------------------------------------------------------
To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the
list. List problems? Notify [EMAIL PROTECTED]
---------------------------------------------------------------------
