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

Diff of /slime/swank-cmucl.lisp

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

revision 1.220 by sboukarev, Tue Mar 2 12:38:06 2010 UTC revision 1.221 by heller, Wed Mar 3 11:57:11 2010 UTC
# Line 912  See CODE-LOCATION-STREAM-POSITION." Line 912  See CODE-LOCATION-STREAM-POSITION."
912  regular functions, generic functions, methods and macros.  regular functions, generic functions, methods and macros.
913  NAME can any valid function name (e.g, (setf car))."  NAME can any valid function name (e.g, (setf car))."
914    (let ((macro?    (and (symbolp name) (macro-function name)))    (let ((macro?    (and (symbolp name) (macro-function name)))
         (special?  (and (symbolp name) (special-operator-p name)))  
915          (function? (and (ext:valid-function-name-p name)          (function? (and (ext:valid-function-name-p name)
916                          (ext:info :function :definition name)                          (ext:info :function :definition name)
917                          (if (symbolp name) (fboundp name) t))))                          (if (symbolp name) (fboundp name) t))))
918      (cond (macro?      (cond (macro?
919             (list `((defmacro ,name)             (list `((defmacro ,name)
920                     ,(function-location (macro-function name)))))                     ,(function-location (macro-function name)))))
           (special?  
            (list `((:special-operator ,name)  
                    (:error ,(format nil "Special operator: ~S" name)))))  
921            (function?            (function?
922             (let ((function (fdefinition name)))             (let ((function (fdefinition name)))
923               (if (genericp function)               (if (genericp function)
924                   (generic-function-definitions name function)                   (gf-definitions name function)
925                   (list (list `(function ,name)                   (list (list `(function ,name)
926                               (function-location function)))))))))                               (function-location function)))))))))
927    
# Line 1029  Signal an error if no constructor can be Line 1025  Signal an error if no constructor can be
1025    
1026  ;;;;;; Generic functions and methods  ;;;;;; Generic functions and methods
1027    
1028  (defun generic-function-definitions (name function)  (defun gf-definitions (name function)
1029    "Return the definitions of a generic function and its methods."    "Return the definitions of a generic function and its methods."
1030    (cons (list `(defgeneric ,name) (gf-location function))    (cons (list `(defgeneric ,name) (gf-location function))
1031          (gf-method-definitions function)))          (gf-method-definitions function)))

Legend:
Removed from v.1.220  
changed lines
  Added in v.1.221

  ViewVC Help
Powered by ViewVC 1.1.5