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

Diff of /slime/swank.lisp

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

revision 1.233 by asimon, Tue Sep 14 11:41:55 2004 UTC revision 1.234 by asimon, Tue Sep 14 11:57:06 2004 UTC
# Line 2625  inserted into the buffer as is, or a lis Line 2625  inserted into the buffer as is, or a lis
2625                "It is " ,(case internal-external                "It is " ,(case internal-external
2626                            (:internal "internal")                            (:internal "internal")
2627                            (:external "external")) " to the package: " (:value ,(symbol-package symbol))                            (:external "external")) " to the package: " (:value ,(symbol-package symbol))
               (:newline)  
2628                ,@(when (eql :internal internal-external)                ,@(when (eql :internal internal-external)
2629                    `(" " (:action ,(with-output-to-string (export-label)                    `(" " (:action ,(with-output-to-string (export-label)
2630                                      (princ "[export from " export-label)                                      (princ "[export from " export-label)
2631                                      (princ (package-name (symbol-package symbol)) export-label)                                      (princ (package-name (symbol-package symbol)) export-label)
2632                                      (princ "]" export-label))                                      (princ "]" export-label))
2633                                   ,(lambda () (export symbol (symbol-package symbol))))))                                   ,(lambda () (export symbol (symbol-package symbol))))))
2634                  (:newline)
2635                "Property list: " (:value ,(symbol-plist symbol))                "Property list: " (:value ,(symbol-plist symbol))
2636                (:newline)                (:newline)
2637                ,@package                ,@package

Legend:
Removed from v.1.233  
changed lines
  Added in v.1.234

  ViewVC Help
Powered by ViewVC 1.1.5