Call an object method: Difference between revisions
Content added Content deleted
m (→{{header|LFE}}: Changed usage text) |
m (→{{header|LFE}}: Removed unused 'send' function.) |
||
Line 312: | Line 312: | ||
(defun get-method (object command) |
(defun get-method (object command) |
||
(funcall object command)) |
(funcall object command)) |
||
(defun send (object command arg) |
|||
(funcall (get-method object command) arg)) |
|||
; define object methods |
; define object methods |