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

Diff of /slime/swank.lisp

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

revision 1.267 by heller, Mon Nov 29 17:31:53 2004 UTC revision 1.268 by heller, Thu Dec 2 17:11:50 2004 UTC
# Line 2752  NIL is returned if the list is circular. Line 2752  NIL is returned if the list is circular.
2752                           symbol 'compiler-macro)                           symbol 'compiler-macro)
2753          ;;          ;;
2754          ;; Package          ;; Package
2755          `("It is " ,(string-downcase (string status)) " to the package: "          (if package
2756                     (:value ,package ,(package-name package))              `("It is " ,(string-downcase (string status))
2757                     ,@(if (eq :internal status)                         " to the package: "
2758                           `((:action " [export it]"                         (:value ,package ,(package-name package))
2759                                      ,(lambda () (export symbol package)))))                         ,@(if (eq :internal status)
2760                     (:newline))                               `((:action " [export it]"
2761                                            ,(lambda () (export symbol package)))))
2762                           (:newline))
2763                '("It is a non-interned symbol." (:newline)))
2764          ;;          ;;
2765          ;; Plist          ;; Plist
2766          (label-value-line "Property list" (symbol-plist symbol))          (label-value-line "Property list" (symbol-plist symbol))

Legend:
Removed from v.1.267  
changed lines
  Added in v.1.268

  ViewVC Help
Powered by ViewVC 1.1.5