example for read macro

obj call.lisp

(set-dispatch-macro-character #\# #\o
 (lambda (s c1 c2)
   (declare (ignore c1 c2))
   (let* ((form (read s))
          (obj (car form))
          (method (cadr form))
          (args (cddr form)))
     `(,method ,obj ,@args))))
           
(defmethod run ((name string))
           (format t "~&~A is runing.~%" name))
(run "john")

#o("john" run)
#o("John" . (run))