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

Diff of /slime/swank-clisp.lisp

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

revision 1.47 by heller, Wed Jun 1 12:22:28 2005 UTC revision 1.48 by heller, Wed Jun 1 12:50:05 2005 UTC
# Line 162  Return NIL if the symbol is unbound." Line 162  Return NIL if the symbol is unbound."
162           (doc 'function)))           (doc 'function)))
163        (maybe-push :class (when (find-class symbol nil)        (maybe-push :class (when (find-class symbol nil)
164                             (doc 'type))) ;this should be fixed                             (doc 'type))) ;this should be fixed
165          ;; Let this code work compiled in images without FFI
166          (let ((types (load-time-value
167                        (and (find-package "FFI")
168                             (symbol-value
169                              (find-symbol "*C-TYPE-TABLE*" "FFI"))))))
170            ;; Use ffi::*c-type-table* so as not to suffer the overhead of
171            ;; (ignore-errors (ffi:parse-c-type symbol)) for 99.9% of symbols
172            ;; which are not FFI type names.
173            (when (and types (nth-value 1 (gethash symbol types)))
174              ;; Maybe use (case (head (ffi:deparse-c-type)))
175              ;; to distinguish struct and union types?
176              (maybe-push :alien-type :not-documented)))
177        result)))        result)))
178    
179  (defimplementation describe-definition (symbol namespace)  (defimplementation describe-definition (symbol namespace)

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

  ViewVC Help
Powered by ViewVC 1.1.5