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

Diff of /slime/swank.lisp

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

revision 1.489 by trittweiler, Thu May 24 19:23:36 2007 UTC revision 1.490 by trittweiler, Mon Jun 4 16:17:17 2007 UTC
# Line 2320  by adding a template for the missing arg Line 2320  by adding a template for the missing arg
2320                                :remove-args nil)))                                :remove-args nil)))
2321          (unless (eql form-completion :not-available)          (unless (eql form-completion :not-available)
2322            (return-from format-arglist-for-echo-area            (return-from format-arglist-for-echo-area
2323              (decoded-arglist-to-string              (decoded-arglist-to-string
2324               form-completion               form-completion
2325               *package*               *package*
2326               :operator operator-name               :operator operator-name
# Line 3362  about internal symbols most times. As th Line 3362  about internal symbols most times. As th
3362    
3363                     Or more simply, if S is not _inherited_.                     Or more simply, if S is not _inherited_.
3364    
3365          You can check that with: (NOT (EQ (SYMBOL-STATUS S P) :INHERITED))          You can check that with: (LET ((STATUS (SYMBOL-STATUS S P)))
3366                                       (AND STATUS
3367                                            (NOT (EQ STATUS :INHERITED))))
3368    
3369    
3370       _external_    if S is going to be inherited into any package that       _external_    if S is going to be inherited into any package that
# Line 3377  about internal symbols most times. As th Line 3379  about internal symbols most times. As th
3379    
3380    
3381       _internal_    if S is _accessible_ but not _external_.       _internal_    if S is _accessible_ but not _external_.
3382    
3383            You can check that with: (LET ((STATUS (SYMBOL-STATUS S P)))
3384                                       (AND STATUS
3385                                            (NOT (EQ STATUS :EXTERNAL))))
3386    
 Notice that the definition of _internal_ is the definition of the  
 respective glossary entry in the spec; *However*, most times,  
 when you speak about \"internal symbols\", you're not talking  
 about the symbols inherited from other packages, but only about  
 the symbols specific to the package in question.  
3387    
3388  Thus SYMBOL-STATUS splits this up into two explicit pieces:          Notice that this is *different* to
3389  :INTERNAL, and :INHERITED.  Just as CL:FIND-SYMBOL does.                                   (EQ (SYMBOL-STATUS S P) :INTERNAL)
3390            because what the spec considers _internal_ is split up into two
3391            explicit pieces: :INTERNAL, and :INHERITED; just as, for instance,
3392            CL:FIND-SYMBOL does.
3393    
3394            The rationale is that most times when you speak about \"internal\"
3395            symbols, you're actually not including the symbols inherited
3396            from other packages, but only about the symbols directly specific
3397            to the package in question.
3398  "  "
3399    (when package     ; may be NIL when symbol is completely uninterned.    (when package     ; may be NIL when symbol is completely uninterned.
3400      (check-type symbol symbol) (check-type package package)      (check-type symbol symbol) (check-type package package)
# Line 5643  belonging to the buffer package." Line 5652  belonging to the buffer package."
5652            (do-all-symbols (symbol)            (do-all-symbols (symbol)
5653              (consider symbol))              (consider symbol))
5654            (do-symbols (symbol *buffer-package*)            (do-symbols (symbol *buffer-package*)
5655                ;; We're really just interested in the symbols of *BUFFER-PACKAGE*,
5656                ;; and *not* all symbols that are _present_ (cf. SYMBOL-STATUS.)
5657              (when (eq (symbol-package symbol) *buffer-package*)              (when (eq (symbol-package symbol) *buffer-package*)
5658                (consider symbol)))))                (consider symbol)))))
5659      alist))      alist))

Legend:
Removed from v.1.489  
changed lines
  Added in v.1.490

  ViewVC Help
Powered by ViewVC 1.1.5