Есть ли в LISP методы?

; Default method-missing
(defmethod method-missing (m (self t) &rest args)
    (format t "~s not found, no replacement method provided!~%" (cons m (cons self args)))
    ; Should throw an exception ...
    nil
)
; Override global no-applicable-method handler
(defmethod no-applicable-method (m &rest args)
    (format t "~s not found, calling method-missing!~%" (cons m args))
    (apply #'method-missing (cons m args))
)
; Now it's possible to make limited dynamic proxies
(defclass dynamic-proxy () ((obj :accessor obj :initarg :obj)))
(defun make-dynamic-proxy (obj) (make-instance 'dynamic-proxy :obj obj))
(defmethod set-obj ((self dynamic-proxy) new-obj) (setf (slot-value self 'obj) new-obj))
 
(defmethod method-missing (m (self dynamic-proxy) &rest args)
    (apply m (cons (obj self) args))
)

((LAMBDA (x) (LIST x (LIST (QUOTE QUOTE) x))) (QUOTE (LAMBDA (x) (LIST x (LIST (QUOTE QUOTE) x)))))

(defclass foo ()
  ())
 
 
(defgeneric foo (x &rest args))
 
 
(defmethod no-applicable-method :around (name &rest args)
  (format t "~&! ~A~%" (cons name args)))
 
 
(defun test (n)
  (format t "~&Invoke test.~%")
  n)
 
(foo (make-instance 'foo) (test 100))
 
;; Invoke test.
;; ! (#<STANDARD-GENERIC-FUNCTION COMMON-LISP-USER::FOO (0)> #<FOO {100323AEE3}>
;;    100)