#75 CLIPS crashes when overloaded specific method is called.

[xyando]

Hello,

The following commands makes CLIPS to crash.

(defmethod init-slots((?x STRING)) )
(defmethod delete-instance((?x STRING)) )
(defmethod ppinstance((?x STRING)) )

(defclass FOO (is-a USER))

(defmessage-handler FOO doit()
  (init-slots)
  (delete-instance)
  (ppinstance)
)

(make-instance [a] of FOO)
(send [a] doit)

The patch attached seems to fix this problem.
Thanks.

[Gary Riley]

Fix checked in. The behavior of a method overriding a function that can only be called from a message-handler is now consistent with the behavior for a deffunction or non-overriding method.

CLIPS> (clear)
CLIPS> (deffunction ppi () (ppinstance))
CLIPS> (defclass FOO (is-a USER))
CLIPS> 
(defmessage-handler FOO doit()
  (ppi))
CLIPS> (make-instance [a] of FOO)
[a]
CLIPS> (send [a] doit)
[MSGFUN4] The function 'ppinstance' may only be called from within message-handlers.
[PRCCODE4] Execution halted during the actions of deffunction 'ppi'.
[PRCCODE4] Execution halted during the actions of message-handler 'doit' primary in class 'FOO'
FALSE
CLIPS>

CLIPS> (clear)
CLIPS> (defmethod ppi () (ppinstance))
CLIPS> (defclass FOO (is-a USER))
CLIPS> 
(defmessage-handler FOO doit()
  (ppi))
CLIPS> (make-instance [a] of FOO)
[a]
CLIPS> (send [a] doit)
[MSGFUN4] The function 'ppinstance' may only be called from within message-handlers.
[PRCCODE4] Execution halted during the actions of generic function 'ppi' method #1.
[PRCCODE4] Execution halted during the actions of message-handler 'doit' primary in class 'FOO'
FALSE
CLIPS>

CLIPS> (clear)
CLIPS> (defmethod ppinstance ((?x STRING)))
CLIPS> (defclass FOO (is-a USER))
CLIPS> 
(defmessage-handler FOO doit()
  (ppinstance))
CLIPS> (make-instance [a] of FOO)
[a]
CLIPS> (send [a] doit)
[MSGFUN4] The function 'ppinstance' may only be called from within message-handlers.
[PRCCODE4] Execution halted during the actions of message-handler 'doit' primary in class 'FOO'
FALSE
CLIPS> 

[xyando]

It looks fine, Thanks.