/[slime]/slime/swank-backend.lisp
ViewVC logotype

Diff of /slime/swank-backend.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.58 by heller, Sun Jun 27 15:00:30 2004 UTC revision 1.59 by lgorrie, Fri Jul 2 23:50:09 2004 UTC
# Line 51  Backends implement these functions using Line 51  Backends implement these functions using
51    (check-type documentation string "a documentation string")    (check-type documentation string "a documentation string")
52    (flet ((gen-default-impl ()    (flet ((gen-default-impl ()
53             (let ((received-args (gensym "ARGS-")))             (let ((received-args (gensym "ARGS-")))
54               `(defmethod no-applicable-method ((#:method               `(defmethod ,name ,args ,@default-body))))
                                                 (eql (function ,name)))  
                                                &rest ,received-args)  
                (destructuring-bind ,args ,received-args  
                  ,@default-body)))))  
55       `(progn (defgeneric ,name ,args (:documentation ,documentation))       `(progn (defgeneric ,name ,args (:documentation ,documentation))
56               (pushnew ',name *interface-functions*)               (pushnew ',name *interface-functions*)
57               ,(if (null default-body)               ,(if (null default-body)

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5