A Lisp applet fragment

defun stop-applet (panel cons call)

;; called from Java stop method.

(format t

"~&;; stop-applet ~A.~A.~A called.~%"

(jclass-of panel) cons call)

(setf *run* nil))

Previous slide

Next slide

Back to first slide

View graphic version