[no subject]

[SHIPMN at MIT-AI (David W. Shipman)]

In system 36.2 spire, with microcode 683, on LISP Machine Twelve:

Shouldn't there be a call to (ERASE-LABEL) in the :SET-NAME method as shown below?
At any rate, my labels are getting trashed and that's the reason why.



(DEFMETHOD (CHANGEABLE-NAME-MIXIN :SET-NAME) (NEW-NAME)
  (LET ((LABEL-EQUALS-NAME (AND LABEL (EQ (LABEL-STRING LABEL) NAME))))
    (SETQ NAME NEW-NAME)
    (COND (LABEL-EQUALS-NAME
	   (erase-label) ; <-------
	   (SETF (LABEL-STRING LABEL) NEW-NAME)
	   (DRAW-LABEL)))))