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

Diff of /slime/swank.lisp

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

revision 1.311 by heller, Tue Jul 26 20:51:14 2005 UTC revision 1.312 by heller, Tue Jul 26 21:37:26 2005 UTC
# Line 3343  NIL is returned if the list is circular. Line 3343  NIL is returned if the list is circular.
3343                         " to the package: "                         " to the package: "
3344                         (:value ,package ,(package-name package))                         (:value ,package ,(package-name package))
3345                         ,@(if (eq :internal status)                         ,@(if (eq :internal status)
3346                               `((:action " [export it]"                               `(" "
3347                                   (:action "[export it]"
3348                                          ,(lambda () (export symbol package)))))                                          ,(lambda () (export symbol package)))))
3349                         (:action " [unintern it]"                         " "
3350                           (:action "[unintern it]"
3351                                  ,(lambda () (unintern symbol package)))                                  ,(lambda () (unintern symbol package)))
3352                         (:newline))                         (:newline))
3353              '("It is a non-interned symbol." (:newline)))              '("It is a non-interned symbol." (:newline)))
# Line 3357  NIL is returned if the list is circular. Line 3359  NIL is returned if the list is circular.
3359          (if (find-class symbol nil)          (if (find-class symbol nil)
3360              `("It names the class "              `("It names the class "
3361                (:value ,(find-class symbol) ,(string symbol))                (:value ,(find-class symbol) ,(string symbol))
3362                (:action " [remove]"                " "
3363                  (:action "[remove]"
3364                         ,(lambda () (setf (find-class symbol) nil)))                         ,(lambda () (setf (find-class symbol) nil)))
3365                (:newline)))                (:newline)))
3366          ;;          ;;
# Line 3478  See `methods-by-applicability'.") Line 3481  See `methods-by-applicability'.")
3481              `((:value ,method ,(inspector-princ              `((:value ,method ,(inspector-princ
3482                                 ;; drop the name of the GF                                 ;; drop the name of the GF
3483                                 (cdr (method-for-inspect-value method))))                                 (cdr (method-for-inspect-value method))))
3484                (:action " [remove method]"                " "
3485                  (:action "[remove method]"
3486                         ,(let ((m method)) ; LOOP reassigns method                         ,(let ((m method)) ; LOOP reassigns method
3487                            (lambda ()                            (lambda ()
3488                              (remove-method gf m))))                              (remove-method gf m))))

Legend:
Removed from v.1.311  
changed lines
  Added in v.1.312

  ViewVC Help
Powered by ViewVC 1.1.5