(defmethod apply-operator
((operator simple-unary-operator) (state expression-parse-state))
- (with-slots (function) operator
+ (with-slots ((function %function)) operator
(with-slots (valstack) state
(assert (not (null valstack)))
(push (funcall function (pop valstack)) valstack))))
(defmethod apply-operator
((operator simple-binary-operator) (state expression-parse-state))
- (with-slots (function) operator
+ (with-slots ((function %function)) operator
(with-slots (valstack) state
(assert (not (or (null valstack)
(null (cdr valstack)))))
(cerror* "Parse error: missing `~A'" tag)))
(defmethod operator-push-action (left (right open-parenthesis))
+ (declare (ignore left))
:push)
(defmethod operator-push-action ((left open-parenthesis) right)
+ (declare (ignore right))
:push)
;;;--------------------------------------------------------------------------