A LISP implementation of frames

(read-slot )

(write-slot )

...

(defun write-slot (...)

...

(putprop ...)

; code for controlling whether any

; IF-ADDED deamon is present

(cond ((equal (car .....) 'IF-ADDED)

; funcall the code associated with the

; IF-ADDED deamon

...)

frame-x <---> ( ... (name-of-slot-1

((value)

(IF-ADDED ...code or __...)

...)

...)

Diapositiva precedente

Torna alla prima diapositiva

Visualizza versione grafica