File: dispose.l

package info (click to toggle)
euslisp 9.27%2Bdfsg-7
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye
  • size: 55,344 kB
  • sloc: ansic: 41,162; lisp: 3,339; makefile: 256; sh: 208; asm: 138; python: 53
file content (20 lines) | stat: -rw-r--r-- 336 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
(defclass dispose :slots (a b c))

(defmethod dispose
 (:dispose ()
    (format t "~s is being disposed~%" self))
 (:init ()
    (sys::dispose-hook self t)
    (setq a (gensym "DISP"))
    self))


;(print (instance dispose :init))

;(print (instance dispose :init))

(dotimes (i 10) (print (instance dispose :init)))

(cons nil nil)