A Lisp applet fragment
(defun destroy-applet (panel cons call)
;; called from Java destroy method.
(format t
"~&;; destroy-applet~A.~A.~A called.~%”
(jclass-of panel) cons call)
(setf *run* :end))
Previous slide
Next slide
Back to first slide
View graphic version