slime/bin/oo.slime

(define-syntax (define-class name-and-members :rest body)
  "Macro for creating simple classes."
  (let ((name    (first name-and-members))
        (members (rest name-and-members)))
    `(set-type
      (define
        ;; The function definition
        (,(string->symbol (concat-strings "make-" (symbol->string name))) @members)
        ;; The docstring
        ,(concat-strings "This is the handle to an object of the class " (symbol->string name))
        ;; the body
        @body
        (let ,(zip members members)
          (set-type
           (lambda (:rest args)
             "This is the docs for the handle"
             (let ((op (eval (first args))))
               (if (callable? op)
                   (eval args)
                 (eval (first args)))))
           ,(symbol->keyword name))))
      :constructor)))

(define-syntax (-> obj meth :rest args)
  `(,obj ',meth @args))