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

Diff of /slime/swank-sbcl.lisp

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

revision 1.239 by trittweiler, Wed Apr 29 22:21:31 2009 UTC revision 1.240 by trittweiler, Wed Apr 29 22:29:18 2009 UTC
# Line 761  Return NIL if the symbol is unbound." Line 761  Return NIL if the symbol is unbound."
761                       (sb-int:info :setf :expander symbol))                       (sb-int:info :setf :expander symbol))
762                   (doc 'setf)))                   (doc 'setf)))
763        (maybe-push        (maybe-push
        :class (when (find-class symbol nil)  
                 (doc 'class)))  
       (maybe-push  
764         :type (if (sb-int:info :type :kind symbol)         :type (if (sb-int:info :type :kind symbol)
765                   (doc 'type)))                   (doc 'type)))
766        result)))        result)))

Legend:
Removed from v.1.239  
changed lines
  Added in v.1.240

  ViewVC Help
Powered by ViewVC 1.1.5