method-chaining.lisp

(ql:quickload :split-sequence)

(defun |#!-reader|(stream char number)
  (declare(ignore char number))
  (let((symbol(read stream t t t)))
    (check-type symbol symbol)
    (let((methods(split-sequence:split-sequence #\. (symbol-name symbol))))
      (assert(eql 2 (length methods)))
      `(lambda(&rest args)
	 (apply ',(intern (cadr methods))
		,(intern (car methods))
		args)))))

(defun enable()
  (set-dispatch-macro-character #\# #\! '|#!-reader|))

#|
(let((string "hoge"))
  (#!string.length))
; => 4
|#