To CLIPS maintainer
Thanks for maintaining and developing the CLIPS.
This is a proposition to add a test case for CLIPS.
Executing the function 'foo' of default.clp make CLIPS to crash.
A sample of patch is included.
I am grad if this post is usefull for the robustness of CLIPS.
* default.clp *
(defclass FOO (is-a USER)
(slot _foo (default ?NONE))
(bind ?ins (make-instance of FOO (_foo)))
--- core/insfun.c Sun Jul 27 17:09:12 2014
+++ ./insfun.c Sun Jul 27 18:05:30 2014
@@ -565,8 +565,19 @@
(EXPRESSION ) sp->desc->defaultValue,val,TRUE))
+ else if (sp->desc->defaultValue)
val = (DATA_OBJECT ) sp->desc->defaultValue;
+ EnvPrintRouter(theEnv,WERROR,"Can not evaluate default value for slot ");
+ EnvPrintRouter(theEnv,WTRACE," in instance ");
if (EngineData(theEnv)->JoinOperationInProgress && sp->desc->reactive &&
Thanks for the report. A fix for this bug has been checked into the repository.
I have comfirmed it with r180.
Log in to post a comment.
Sign up for the SourceForge newsletter:
You seem to have CSS turned off.
Please don't fill out this field.