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

Diff of /slime/swank-ccl.lisp

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

revision 1.25 by heller, Fri Jan 6 09:02:43 2012 UTC revision 1.26 by heller, Tue Mar 6 22:04:21 2012 UTC
# Line 23  Line 23 
23  (import-from :ccl *gray-stream-symbols* :swank-backend)  (import-from :ccl *gray-stream-symbols* :swank-backend)
24    
25  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
26    (require 'xref))    (multiple-value-bind (ok err) (ignore-errors (require 'xref))
27        (unless ok
28          (warn "~a~%" err))))
29    
30  ;;; swank-mop  ;;; swank-mop
31    
# Line 235  Line 237 
237    (delete-duplicates    (delete-duplicates
238     (mapcan #'find-definitions     (mapcan #'find-definitions
239             (if inverse             (if inverse
240               (ccl:get-relation relation name :wild :exhaustive t)               (ccl::get-relation relation name :wild :exhaustive t)
241               (ccl:get-relation relation :wild name :exhaustive t)))               (ccl::get-relation relation :wild name :exhaustive t)))
242     :test 'equal))     :test 'equal))
243    
244  (defimplementation who-binds (name)  (defimplementation who-binds (name)

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5